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"
#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_READPARMS(myThid)
          CALL DIC_INI_FORCING(myThid)
          CALL DIC_SURFFORCING_INIT(myThid)
          CALL DIC_BIOTIC_INIT(myThid )
      ENDIF
#endif /* ALLOW_DIC */

#endif /* ALLOW_GCHEM */

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