gpamela/gpnd/gpcad.F

*-- Author :    Marialuigia Ambriola   12/10/2006
      SUBROUTINE GPCAD
************************************************************************
*                                                                      *
* To define special tracking parameters for cadmium                    *
*                                                                      *
* Called by: GPDAT                                                     *
* Author: Marialuigia Ambriola, 12/10/2006 20.40                       *
*                                                                      *
************************************************************************
#include "gpcad.inc"
*
      CUTGAMCAD = 0.00001
      CUTHADCAD = 0.001
      BCUTECAD=0.00001
      DCUTECAD=0.00001
      CUTELECAD = 0.00001
      CUTMUOCAD=0.01
      BCUTMCAD=0.00001
      DCUTMCAD=0.00001
      CUTNEUCAD = 0.001
      PPCUTMCAD=0.01
      PAIRCAD = 1  
      COMPCAD = 1  
      PHOTCAD = 1  
      PFISCAD = 0  
      DRAYCAD = 1  
      ANNICAD = 1  
      BREMCAD = 1  
      HADRCAD = 1  
      MUNUCAD = 1  
      DCAYCAD = 1  
      LOSSCAD = 1  
      MULSCAD = 2  
      RETURN
      END
1	*-- Author : Marialuigia Ambriola 12/10/2006
2	SUBROUTINE GPCAD
3	************************************************************************
4	* *
5	* To define special tracking parameters for cadmium *
6	* *
7	* Called by: GPDAT *
8	* Author: Marialuigia Ambriola, 12/10/2006 20.40 *
9	* *
10	************************************************************************
11	#include "gpcad.inc"
12	*
13	CUTGAMCAD = 0.00001
14	CUTHADCAD = 0.001
15	BCUTECAD=0.00001
16	DCUTECAD=0.00001
17	CUTELECAD = 0.00001
18	CUTMUOCAD=0.01
19	BCUTMCAD=0.00001
20	DCUTMCAD=0.00001
21	CUTNEUCAD = 0.001
22	PPCUTMCAD=0.01
23	PAIRCAD = 1
24	COMPCAD = 1
25	PHOTCAD = 1
26	PFISCAD = 0
27	DRAYCAD = 1
28	ANNICAD = 1
29	BREMCAD = 1
30	HADRCAD = 1
31	MUNUCAD = 1
32	DCAYCAD = 1
33	LOSSCAD = 1
34	MULSCAD = 2
35	RETURN
36	END