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	*
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	*
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	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	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