pkg/gchem/gchem_fields_load.F

C$Header: $
C$Name: $

#include "GCHEM_OPTIONS.h"

CBOP
C !ROUTINE: GCHEM_FIELDS_LOAD

C !INTERFACE: ==========================================================
      SUBROUTINE GCHEM_FIELDS_LOAD (
     I           myTime,myIter, myThid)

C !DESCRIPTION:
C  calls routines which read in fields needed for any tracer experiment
C !USES: ===============================================================
      IMPLICIT NONE
      INTEGER myThid, myIter
      _RL myTime 

C !INPUT PARAMETERS: ===================================================
C  myThid               :: thread number
C  myIter               :: current timestep
C  myTime               :: current timestep

C !LOCAL VARIABLES: ====================================================
CEOP

#ifdef ALLOW_PTRACERS
#ifdef ALLOW_GCHEM

         _BEGIN_MASTER( mythid )
c
c
cccccccccccccccccccccccccc
c load external data     c
cccccccccccccccccccccccccc
#ifdef DIC_BIOTIC
       call  DIC_FIELDS_LOAD (myIter,myTime,myThid)
#endif

c
#ifdef ALLOW_CFC
       call CFC_FIELDS_LOAD(myIter,myTime,myThid)
#endif
         _BARRIER


         _END_MASTER(mythid)

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

      RETURN
      END

1	mlosch	1.3	C$Header: $
2			C$Name: $
3
4	stephd	1.1	#include "GCHEM_OPTIONS.h"
5
6	stephd	1.2	CBOP
7			C !ROUTINE: GCHEM_FIELDS_LOAD
8
9			C !INTERFACE: ==========================================================
10	stephd	1.1	SUBROUTINE GCHEM_FIELDS_LOAD (
11			I myTime,myIter, myThid)
12
13	stephd	1.2	C !DESCRIPTION:
14			C calls routines which read in fields needed for any tracer experiment
15			C !USES: ===============================================================
16	stephd	1.1	IMPLICIT NONE
17			INTEGER myThid, myIter
18	stephd	1.2	_RL myTime
19
20			C !INPUT PARAMETERS: ===================================================
21			C myThid :: thread number
22			C myIter :: current timestep
23			C myTime :: current timestep
24
25			C !LOCAL VARIABLES: ====================================================
26			CEOP
27	stephd	1.1
28			#ifdef ALLOW_PTRACERS
29			#ifdef ALLOW_GCHEM
30
31			_BEGIN_MASTER( mythid )
32			c
33			c
34			cccccccccccccccccccccccccc
35			c load external data c
36			cccccccccccccccccccccccccc
37			#ifdef DIC_BIOTIC
38			call DIC_FIELDS_LOAD (myIter,myTime,myThid)
39			#endif
40
41			c
42			#ifdef ALLOW_CFC
43			call CFC_FIELDS_LOAD(myIter,myTime,myThid)
44			#endif
45			_BARRIER
46
47
48			_END_MASTER(mythid)
49
50			#endif /* ALLOW_GCHEM */
51			#endif /* ALLOW_PTRACERS */
52
53			RETURN
54			END
55