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	#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