pkg/gchem/gchem_fields_load.F

C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_fields_load.F,v 1.2 2008/07/02 23:13:53 jahn Exp $
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
#include "EEPARAMS.h"
#include "GCHEM.h"

C !INPUT PARAMETERS: ===================================================
C  myTime               :: current time
C  myIter               :: current iteration
C  myThid               :: thread number
      _RL myTime
      INTEGER myIter
      INTEGER myThid

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

#ifdef ALLOW_GCHEM

cccccccccccccccccccccccccc
c load external data     c
cccccccccccccccccccccccccc
#ifdef ALLOW_DIC
       CALL DIC_FIELDS_LOAD (myIter,myTime,myThid)
#endif


#ifdef ALLOW_CFC
       CALL CFC_FIELDS_LOAD(myIter,myTime,myThid)
#endif

#ifdef ALLOW_DARWIN
      IF ( useDARWIN ) THEN
       call DARWIN_FIELDS_LOAD(myIter,myTime,myThid)
      ENDIF
#endif

#ifdef ALLOW_NPZDCAR
       call NPZDCAR_FIELDS_LOAD(myIter,myTime,myThid)
#endif


#endif /* ALLOW_GCHEM */

      RETURN
      END

1	jahn	1.3	C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_fields_load.F,v 1.2 2008/07/02 23:13:53 jahn Exp $
2	jahn	1.1	C $Name: $
3
4			#include "GCHEM_OPTIONS.h"
5
6			CBOP
7			C !ROUTINE: GCHEM_FIELDS_LOAD
8
9			C !INTERFACE: ==========================================================
10			SUBROUTINE GCHEM_FIELDS_LOAD (
11			I myTime, myIter, myThid)
12
13			C !DESCRIPTION:
14			C calls routines which read in fields needed for any tracer experiment
15			C !USES: ===============================================================
16			IMPLICIT NONE
17	jahn	1.2	#include "EEPARAMS.h"
18			#include "GCHEM.h"
19	jahn	1.1
20			C !INPUT PARAMETERS: ===================================================
21			C myTime :: current time
22			C myIter :: current iteration
23			C myThid :: thread number
24			_RL myTime
25			INTEGER myIter
26			INTEGER myThid
27
28			C !LOCAL VARIABLES: ====================================================
29			CEOP
30
31			#ifdef ALLOW_GCHEM
32
33			cccccccccccccccccccccccccc
34			c load external data c
35			cccccccccccccccccccccccccc
36			#ifdef ALLOW_DIC
37			CALL DIC_FIELDS_LOAD (myIter,myTime,myThid)
38			#endif
39
40
41			#ifdef ALLOW_CFC
42			CALL CFC_FIELDS_LOAD(myIter,myTime,myThid)
43			#endif
44
45			#ifdef ALLOW_DARWIN
46	jahn	1.2	IF ( useDARWIN ) THEN
47	jahn	1.1	call DARWIN_FIELDS_LOAD(myIter,myTime,myThid)
48	jahn	1.2	ENDIF
49	jahn	1.1	#endif
50
51			#ifdef ALLOW_NPZDCAR
52			call NPZDCAR_FIELDS_LOAD(myIter,myTime,myThid)
53			#endif
54
55
56			#endif /* ALLOW_GCHEM */
57
58			RETURN
59			END
60