pkg/gchem/gchem_init_vari.F

C $Header$
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"
#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 )
      ENDIF
#endif
#ifdef ALLOW_NPZDCAR
         call NPZDCAR_INIT_VARI(myThid )
         call DIC_SURFFORCING_INIT(myThid)
#endif
#endif /* ALLOW_GCHEM */

      RETURN
      END
1	jahn	1.2	C $Header$
2			C $Name$
3	jahn	1.1
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	jahn	1.2	#include "GCHEM.h"
19	jahn	1.1	#ifdef ALLOW_AUTODIFF_TAMC
20			# include "GRID.h"
21			# include "DYNVARS.h"
22			#endif /* ALLOW_AUTODIFF_TAMC */
23
24			C !INPUT PARAMETERS: ===================================================
25			C myThid :: thread number
26			INTEGER myThid
27			CEOP
28
29			#ifdef ALLOW_GCHEM
30
31			ccccccccccccccccccccccccccc
32			c initialize parameters c
33			ccccccccccccccccccccccccccc
34			#ifdef ALLOW_DIC
35	jahn	1.2	IF ( useDIC ) THEN
36	jahn	1.1	print*,'QQ load dic parameters, initial vari'
37			CALL DIC_INI_FORCING(myThid)
38	jahn	1.2	CALL DIC_SURFFORCING_INIT(myThid)
39			CALL DIC_BIOTIC_INIT(myThid )
40			ENDIF
41	jahn	1.1	#endif /* ALLOW_DIC */
42
43			#ifdef ALLOW_DARWIN
44	jahn	1.2	IF ( useDARWIN ) THEN
45	jahn	1.1	call DARWIN_INIT_VARI(myThid )
46	jahn	1.2	ENDIF
47	jahn	1.1	#endif
48			#ifdef ALLOW_NPZDCAR
49			call NPZDCAR_INIT_VARI(myThid )
50			call DIC_SURFFORCING_INIT(myThid)
51			#endif
52			#endif /* ALLOW_GCHEM */
53
54			RETURN
55			END