pkg/gchem/gchem_init_vari.F

C$Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_init_vari.F,v 1.4 2004/11/19 20:17:48 mlosch 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 "GRID.h"
#include "DYNVARS.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C !INPUT PARAMETERS: ===================================================
C  myThid               :: thread number
      INTEGER myThid
CEOP

#ifdef ALLOW_GCHEM

         _BEGIN_MASTER( mythid )
ccccccccccccccccccccccccccc
c initialize parameters   c
ccccccccccccccccccccccccccc
#ifdef DIC_BIOTIC
          print*,'QQ load dic parameters, initial vari' 
c these two needed to be recalled for adjoint
          call DIC_BIOTIC_PARAM(myThid)
          call DIC_ABIOTIC_PARAM(myThid)
c -- 
          CALL DIC_INI_FORCING(myThid)
          call DIC_SURFFORCING_INIT(myThid)
          call DIC_BIOTIC_INIT(myThid )
#endif /* DIC_BIOTIC */
          _END_MASTER( mythid )


#endif /* ALLOW_GCHEM */

      RETURN
      END
1	C$Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_init_vari.F,v 1.4 2004/11/19 20:17:48 mlosch 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 "GRID.h"
17	#include "DYNVARS.h"
18	#include "EEPARAMS.h"
19	#include "PARAMS.h"
20
21	C !INPUT PARAMETERS: ===================================================
22	C myThid :: thread number
23	INTEGER myThid
24	CEOP
25
26	#ifdef ALLOW_GCHEM
27
28	_BEGIN_MASTER( mythid )
29	ccccccccccccccccccccccccccc
30	c initialize parameters c
31	ccccccccccccccccccccccccccc
32	#ifdef DIC_BIOTIC
33	print*,'QQ load dic parameters, initial vari'
34	c these two needed to be recalled for adjoint
35	call DIC_BIOTIC_PARAM(myThid)
36	call DIC_ABIOTIC_PARAM(myThid)
37	c --
38	CALL DIC_INI_FORCING(myThid)
39	call DIC_SURFFORCING_INIT(myThid)
40	call DIC_BIOTIC_INIT(myThid )
41	#endif /* DIC_BIOTIC */
42	_END_MASTER( mythid )
43
44
45	#endif /* ALLOW_GCHEM */
46
47	RETURN
48	END