gpamela/gpcal/gpce.F

*
* $Id$
*
* $Log$
*
*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
      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			* $Id$
3			*
4			* $Log$
5			*
6			*CMZ : 3.00/00 04/12/2000 14.13.29 by Emiliano Mocchiutti
7			*CMZ : 2.03/00 30/10/2000 10.46.27 by Francesco Cafagna
8			*CMZ : 2.02/00 09/10/2000 15.45.18 by Francesco Cafagna
9			*-- Author :
10			SUBROUTINE GPCE
11			************************************************************************
12			* *
13			* To define special tracking parameters for Kaolinite *
14			* *
15			* Called by: GPDAT *
16			* Author: Emiliano Mocchiutti, 09/10/00 15.28.17 *
17			* *
18			************************************************************************
19			#include "gpce.inc"
20			*
21			CUTGAMCE = 0.00001
22			CUTELECE = 0.00001
23			CUTNEUCE = 0.001
24			CUTHADCE = 0.001
25			PAIRCE = 1
26			COMPCE = 1
27			PHOTCE = 1
28			PFISCE = 0
29			DRAYCE = 1
30			ANNICE = 1
31			BREMCE = 1
32			HADRCE = 1
33			MUNUCE = 1
34			DCAYCE = 1
35			LOSSCE = 1
36			MULSCE = 2
37			RETURN
38			END