pkg/gchem/gchem_init_vari.F

C $Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_init_vari.F,v 1.8 2007/07/31 23:01:58 ce107 Exp $
C $Name:  $

#include "GCHEM_OPTIONS.h"

C !INTERFACE: ==========================================================
      SUBROUTINE GCHEM_INIT_VARI(myThid )

C !DESCRIPTION:
C calls subroutines that initialize any time dependent variables
C for any tracer experiment

C !USES: ===============================================================
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#ifdef ALLOW_AUTODIFF_TAMC
# include "GRID.h"
# include "DYNVARS.h"
#endif /* ALLOW_AUTODIFF_TAMC */

C !INPUT PARAMETERS: ===================================================
C  myThid               :: thread number
      INTEGER myThid
CEOP

#ifdef ALLOW_GCHEM

ccccccccccccccccccccccccccc
c initialize parameters   c
ccccccccccccccccccccccccccc
#ifdef ALLOW_DIC
          print*,'QQ load dic parameters, initial vari' 
#ifdef ALLOW_AUTODIFF_TAMC
c these two needed to be recalled for adjoint
          call DIC_BIOTIC_PARAM(myThid)
          call DIC_ABIOTIC_PARAM(myThid)
#endif /* ALLOW_AUTODIFF_TAMC */
c -- 
          CALL DIC_INI_FORCING(myThid)
          call DIC_SURFFORCING_INIT(myThid)
          call DIC_BIOTIC_INIT(myThid )
#endif /* ALLOW_DIC */

#ifdef ALLOW_DARWIN
         call DARWIN_INIT_VARI(myThid )
#endif

#ifdef ALLOW_NPZDCAR
         call NPZDCAR_INIT_VARI(myThid )
         call DIC_SURFFORCING_INIT(myThid)
#endif

#endif /* ALLOW_GCHEM */

      RETURN
      END
1	jahn	1.1	C $Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_init_vari.F,v 1.8 2007/07/31 23:01:58 ce107 Exp $
2			C $Name: $
3
4			#include "GCHEM_OPTIONS.h"
5
6			C !INTERFACE: ==========================================================
7			SUBROUTINE GCHEM_INIT_VARI(myThid )
8
9			C !DESCRIPTION:
10			C calls subroutines that initialize any time dependent variables
11			C for any tracer experiment
12
13			C !USES: ===============================================================
14			IMPLICIT NONE
15			#include "SIZE.h"
16			#include "EEPARAMS.h"
17			#include "PARAMS.h"
18			#ifdef ALLOW_AUTODIFF_TAMC
19			# include "GRID.h"
20			# include "DYNVARS.h"
21			#endif /* ALLOW_AUTODIFF_TAMC */
22
23			C !INPUT PARAMETERS: ===================================================
24			C myThid :: thread number
25			INTEGER myThid
26			CEOP
27
28			#ifdef ALLOW_GCHEM
29
30			ccccccccccccccccccccccccccc
31			c initialize parameters c
32			ccccccccccccccccccccccccccc
33			#ifdef ALLOW_DIC
34			print*,'QQ load dic parameters, initial vari'
35			#ifdef ALLOW_AUTODIFF_TAMC
36			c these two needed to be recalled for adjoint
37			call DIC_BIOTIC_PARAM(myThid)
38			call DIC_ABIOTIC_PARAM(myThid)
39			#endif /* ALLOW_AUTODIFF_TAMC */
40			c --
41			CALL DIC_INI_FORCING(myThid)
42			call DIC_SURFFORCING_INIT(myThid)
43			call DIC_BIOTIC_INIT(myThid )
44			#endif /* ALLOW_DIC */
45
46			#ifdef ALLOW_DARWIN
47			call DARWIN_INIT_VARI(myThid )
48			#endif
49
50			#ifdef ALLOW_NPZDCAR
51			call NPZDCAR_INIT_VARI(myThid )
52			call DIC_SURFFORCING_INIT(myThid)
53			#endif
54
55			#endif /* ALLOW_GCHEM */
56
57			RETURN
58			END