pkg/gchem/gchem_init_vari.F

C$Header: $
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_PTRACERS
#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
          _END_MASTER( mythid )


#endif /* ALLOW_GCHEM */
#endif /* ALLOW_PTRACERS */

      RETURN
      END
1	mlosch	1.4	C$Header: $
2			C$Name: $
3
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 "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	stephd	1.3	CEOP
25	stephd	1.1
26			#ifdef ALLOW_PTRACERS
27			#ifdef ALLOW_GCHEM
28
29			_BEGIN_MASTER( mythid )
30			ccccccccccccccccccccccccccc
31			c initialize parameters c
32			ccccccccccccccccccccccccccc
33			#ifdef DIC_BIOTIC
34			print*,'QQ load dic parameters, initial vari'
35	stephd	1.2	c these two needed to be recalled for adjoint
36			call DIC_BIOTIC_PARAM(myThid)
37			call DIC_ABIOTIC_PARAM(myThid)
38			c --
39			CALL DIC_INI_FORCING(myThid)
40	stephd	1.1	call DIC_SURFFORCING_INIT(myThid)
41			call DIC_BIOTIC_INIT(myThid )
42			#endif
43			_END_MASTER( mythid )
44
45
46			#endif /* ALLOW_GCHEM */
47			#endif /* ALLOW_PTRACERS */
48
49			RETURN
50			END