pkg/gchem/gchem_init_vari.F

C $Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_init_vari.F,v 1.9 2008/04/08 16:20:16 dfer 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_INI_FORCING(myThid)
          CALL DIC_SURFFORCING_INIT(myThid)
          CALL DIC_BIOTIC_INIT(myThid )
      ENDIF
#endif /* ALLOW_DIC */

#endif /* ALLOW_GCHEM */

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_init_vari.F,v 1.9 2008/04/08 16:20:16 dfer Exp $
2	C $Name: $
3
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	#include "GCHEM.h"
19	#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	IF ( useDIC ) THEN
36	print*,'QQ load dic parameters, initial vari'
37	CALL DIC_INI_FORCING(myThid)
38	CALL DIC_SURFFORCING_INIT(myThid)
39	CALL DIC_BIOTIC_INIT(myThid )
40	ENDIF
41	#endif /* ALLOW_DIC */
42
43	#endif /* ALLOW_GCHEM */
44
45	RETURN
46	END