gpamela/gpcal/gpce.F

*
* $Id: gpce.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $
*
* $Log: gpce.F,v $
* Revision 3.1.1.1  2002/07/11 16:02:14  cafagna
* First GPAMELA release on CVS
*
*
*CMZ :  3.00/00 04/12/2000  14.13.29  by  Emiliano Mocchiutti
*CMZ :  2.03/00 30/10/2000  10.46.27  by  Francesco Cafagna
*CMZ :  2.02/00 09/10/2000  15.45.18  by  Francesco Cafagna
*-- Author :
      SUBROUTINE GPCE
************************************************************************
*                                                                      *
* To define special tracking parameters for Kaolinite                  *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Emiliano Mocchiutti, 09/10/00 15.28.17                       *
*                                                                      *
************************************************************************
#include "gpce.inc"
*
      CUTGAMCE = 0.00001
      CUTELECE = 0.00001
      CUTNEUCE = 0.001
      CUTHADCE = 0.001
c ml:
      BCUTECE=0.00001
      DCUTECE=0.00001
      CUTMUOCE=0.01
      BCUTMCE=0.00001
      DCUTMCE=0.00001
      PPCUTMCE=0.01
c end ml.
      PAIRCE = 1
      COMPCE = 1
      PHOTCE = 1
      PFISCE = 0
      DRAYCE = 1
      ANNICE = 1
      BREMCE = 1
      HADRCE = 1
      MUNUCE = 1
      DCAYCE = 1
      LOSSCE = 1
      MULSCE = 2
      RETURN
      END
1	cafagna	3.1	*
2	pamela	3.2	* $Id: gpce.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $
3			*
4			* $Log: gpce.F,v $
5			* Revision 3.1.1.1 2002/07/11 16:02:14 cafagna
6			* First GPAMELA release on CVS
7	cafagna	3.1	*
8			*
9			*CMZ : 3.00/00 04/12/2000 14.13.29 by Emiliano Mocchiutti
10			*CMZ : 2.03/00 30/10/2000 10.46.27 by Francesco Cafagna
11			*CMZ : 2.02/00 09/10/2000 15.45.18 by Francesco Cafagna
12			*-- Author :
13			SUBROUTINE GPCE
14			************************************************************************
15			* *
16			* To define special tracking parameters for Kaolinite *
17			* *
18			* Called by: GPDAT *
19			* Author: Emiliano Mocchiutti, 09/10/00 15.28.17 *
20			* *
21			************************************************************************
22			#include "gpce.inc"
23			*
24			CUTGAMCE = 0.00001
25			CUTELECE = 0.00001
26			CUTNEUCE = 0.001
27			CUTHADCE = 0.001
28	pamela	3.2	c ml:
29			BCUTECE=0.00001
30			DCUTECE=0.00001
31			CUTMUOCE=0.01
32			BCUTMCE=0.00001
33			DCUTMCE=0.00001
34			PPCUTMCE=0.01
35			c end ml.
36	cafagna	3.1	PAIRCE = 1
37			COMPCE = 1
38			PHOTCE = 1
39			PFISCE = 0
40			DRAYCE = 1
41			ANNICE = 1
42			BREMCE = 1
43			HADRCE = 1
44			MUNUCE = 1
45			DCAYCE = 1
46			LOSSCE = 1
47			MULSCE = 2
48			RETURN
49			END