pkg/gchem/gchem_init_vari.F

C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_init_vari.F,v 1.3 2009/05/29 18:37:42 stephd 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	C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_init_vari.F,v 1.3 2009/05/29 18:37:42 stephd Exp $
2	C $Name: $
3
4	#include "GCHEM_OPTIONS.h"
5	#ifdef ALLOW_DARWIN
6	#include "DARWIN_OPTIONS.h"
7	#endif
8
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	#include "GCHEM.h"
22	#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	IF ( useDIC ) THEN
39	print*,'QQ load dic parameters, initial vari'
40	CALL DIC_INI_FORCING(myThid)
41	CALL DIC_SURFFORCING_INIT(myThid)
42	CALL DIC_BIOTIC_INIT(myThid )
43	ENDIF
44	#endif /* ALLOW_DIC */
45
46	#ifdef ALLOW_DARWIN
47	IF ( useDARWIN ) THEN
48	call DARWIN_INIT_VARI(myThid )
49	#ifdef ALLOW_CARBON
50	CALL DIC_SURFFORCING_INIT(myThid)
51	CALL DIC_DIAGS_INIT(myThid)
52	#endif
53	ENDIF
54	#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