pkg/gchem/gchem_init_vari.F

C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_init_vari.F,v 1.2 2008/06/02 20:32:49 jahn Exp $
C $Name:  $

#include "GCHEM_OPTIONS.h"
#ifdef ALLOW_DARWIN
#include "DARWIN_OPTIONS.h"
#endif

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"
#include "GCHEM.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
      IF ( useDIC ) THEN
          print*,'QQ load dic parameters, initial vari' 
          CALL DIC_INI_FORCING(myThid)
          CALL DIC_SURFFORCING_INIT(myThid)
          CALL DIC_BIOTIC_INIT(myThid )
      ENDIF
#endif /* ALLOW_DIC */

#ifdef ALLOW_DARWIN
      IF ( useDARWIN ) THEN
         call DARWIN_INIT_VARI(myThid )
#ifdef ALLOW_CARBON
         CALL DIC_SURFFORCING_INIT(myThid)
         CALL DIC_DIAGS_INIT(myThid)
#endif
      ENDIF
#endif
#ifdef ALLOW_NPZDCAR
         call NPZDCAR_INIT_VARI(myThid )
         call DIC_SURFFORCING_INIT(myThid)
#endif
#endif /* ALLOW_GCHEM */

      RETURN
      END
1	stephd	1.3	C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_init_vari.F,v 1.2 2008/06/02 20:32:49 jahn Exp $
2			C $Name: $
3	jahn	1.1
4			#include "GCHEM_OPTIONS.h"
5	stephd	1.3	#ifdef ALLOW_DARWIN
6			#include "DARWIN_OPTIONS.h"
7			#endif
8	jahn	1.1
9			C !INTERFACE: ==========================================================
10			SUBROUTINE GCHEM_INIT_VARI(myThid )
11
12			C !DESCRIPTION:
13			C calls subroutines that initialize any time dependent variables
14			C for any tracer experiment
15
16			C !USES: ===============================================================
17			IMPLICIT NONE
18			#include "SIZE.h"
19			#include "EEPARAMS.h"
20			#include "PARAMS.h"
21	jahn	1.2	#include "GCHEM.h"
22	jahn	1.1	#ifdef ALLOW_AUTODIFF_TAMC
23			# include "GRID.h"
24			# include "DYNVARS.h"
25			#endif /* ALLOW_AUTODIFF_TAMC */
26
27			C !INPUT PARAMETERS: ===================================================
28			C myThid :: thread number
29			INTEGER myThid
30			CEOP
31
32			#ifdef ALLOW_GCHEM
33
34			ccccccccccccccccccccccccccc
35			c initialize parameters c
36			ccccccccccccccccccccccccccc
37			#ifdef ALLOW_DIC
38	jahn	1.2	IF ( useDIC ) THEN
39	jahn	1.1	print*,'QQ load dic parameters, initial vari'
40			CALL DIC_INI_FORCING(myThid)
41	jahn	1.2	CALL DIC_SURFFORCING_INIT(myThid)
42			CALL DIC_BIOTIC_INIT(myThid )
43			ENDIF
44	jahn	1.1	#endif /* ALLOW_DIC */
45
46			#ifdef ALLOW_DARWIN
47	jahn	1.2	IF ( useDARWIN ) THEN
48	jahn	1.1	call DARWIN_INIT_VARI(myThid )
49	stephd	1.3	#ifdef ALLOW_CARBON
50			CALL DIC_SURFFORCING_INIT(myThid)
51			CALL DIC_DIAGS_INIT(myThid)
52			#endif
53	jahn	1.2	ENDIF
54	jahn	1.1	#endif
55			#ifdef ALLOW_NPZDCAR
56			call NPZDCAR_INIT_VARI(myThid )
57			call DIC_SURFFORCING_INIT(myThid)
58			#endif
59			#endif /* ALLOW_GCHEM */
60
61			RETURN
62			END