pkg/gchem/gchem_init_vari.F

C $Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_init_vari.F,v 1.11 2009/06/30 16:43:00 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
# ifdef ALLOW_CTRL
      CALL DIC_SET_CONTROL(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
#endif /* ALLOW_GCHEM */

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