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.0001
      CUTELECAD = 0.0001
      CUTNEUCAD = 0.0001
      CUTHADCAD = 0.0001
c ml:
      BCUTECAD=0.001
      DCUTECAD=0.0001
      CUTMUOCAD=0.0001
      BCUTMCAD=0.001
      DCUTMCAD=0.0001
      PPCUTMCAD=0.01
c end ml.
      PAIRCAD = 1
      COMPCAD = 1
      PHOTCAD = 1
      PFISCAD = 0
      DRAYCAD = 1
      ANNICAD = 1
      BREMCAD = 1
      HADRCAD = 4
      MUNUCAD = 1
      DCAYCAD = 1
      LOSSCAD = 1
      MULSCAD = 1
      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.0001
14	CUTELECAD = 0.0001
15	CUTNEUCAD = 0.0001
16	CUTHADCAD = 0.0001
17	c ml:
18	BCUTECAD=0.001
19	DCUTECAD=0.0001
20	CUTMUOCAD=0.0001
21	BCUTMCAD=0.001
22	DCUTMCAD=0.0001
23	PPCUTMCAD=0.01
24	c end ml.
25	PAIRCAD = 1
26	COMPCAD = 1
27	PHOTCAD = 1
28	PFISCAD = 0
29	DRAYCAD = 1
30	ANNICAD = 1
31	BREMCAD = 1
32	HADRCAD = 4
33	MUNUCAD = 1
34	DCAYCAD = 1
35	LOSSCAD = 1
36	MULSCAD = 1
37	RETURN
38	END
39