pkg/gchem/gchem_init_vari.F

#include "CPP_OPTIONS.h"
#include "PTRACERS_OPTIONS.h"
#include "GCHEM_OPTIONS.h"

C !INTERFACE: ==========================================================
      SUBROUTINE GCHEM_INIT_VARI(myThid )

      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

#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' 
          call DIC_SURFFORCING_INIT(myThid)
          call DIC_BIOTIC_INIT(myThid )
#endif
          _END_MASTER( mythid )


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

      RETURN
      END
1	stephd	1.1	#include "CPP_OPTIONS.h"
2			#include "PTRACERS_OPTIONS.h"
3			#include "GCHEM_OPTIONS.h"
4
5			C !INTERFACE: ==========================================================
6			SUBROUTINE GCHEM_INIT_VARI(myThid )
7
8			IMPLICIT NONE
9			#include "SIZE.h"
10			#include "GRID.h"
11			#include "DYNVARS.h"
12			#include "EEPARAMS.h"
13			#include "PARAMS.h"
14
15			C !INPUT PARAMETERS: ===================================================
16			C myThid :: thread number
17			INTEGER myThid
18
19			#ifdef ALLOW_PTRACERS
20			#ifdef ALLOW_GCHEM
21
22			_BEGIN_MASTER( mythid )
23			ccccccccccccccccccccccccccc
24			c initialize parameters c
25			ccccccccccccccccccccccccccc
26			#ifdef DIC_BIOTIC
27			print*,'QQ load dic parameters, initial vari'
28			call DIC_SURFFORCING_INIT(myThid)
29			call DIC_BIOTIC_INIT(myThid )
30			#endif
31			_END_MASTER( mythid )
32
33
34			#endif /* ALLOW_GCHEM */
35			#endif /* ALLOW_PTRACERS */
36
37			RETURN
38			END