pkg/gchem/gchem_fields_load.F

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

CStartOfInterFace
      SUBROUTINE GCHEM_FIELDS_LOAD (
     I           myTime,myIter, myThid)

C     /==========================================================\
C     | SUBROUTINE GCHEM_FIELDS_LOAD  i                          |
C     | o calls routines to read in fields needed for gchem pkgs |
C     |==========================================================|
      IMPLICIT NONE
      INTEGER myThid, myIter
      _RL myTime

#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	stephd	1.1	#include "CPP_OPTIONS.h"
2			#include "GCHEM_OPTIONS.h"
3
4			CStartOfInterFace
5			SUBROUTINE GCHEM_FIELDS_LOAD (
6			I myTime,myIter, myThid)
7
8			C /==========================================================\
9			C \| SUBROUTINE GCHEM_FIELDS_LOAD i \|
10			C \| o calls routines to read in fields needed for gchem pkgs \|
11			C \|==========================================================\|
12			IMPLICIT NONE
13			INTEGER myThid, myIter
14			_RL myTime
15
16			#ifdef ALLOW_PTRACERS
17			#ifdef ALLOW_GCHEM
18
19			_BEGIN_MASTER( mythid )
20			c
21			c
22			cccccccccccccccccccccccccc
23			c load external data c
24			cccccccccccccccccccccccccc
25			#ifdef DIC_BIOTIC
26			call DIC_FIELDS_LOAD (myIter,myTime,myThid)
27			#endif
28
29			c
30			#ifdef ALLOW_CFC
31			call CFC_FIELDS_LOAD(myIter,myTime,myThid)
32			#endif
33			_BARRIER
34
35
36			_END_MASTER(mythid)
37
38			#endif /* ALLOW_GCHEM */
39			#endif /* ALLOW_PTRACERS */
40
41			RETURN
42			END
43