pkg/gchem/gchem_fields_load.F

52a73f04fb Step*0001 #include "GCHEM_OPTIONS.h"
                0002
8120bbf77d Step*0003 CBOP
                0004 C !ROUTINE: GCHEM_FIELDS_LOAD
                0005
                0006 C !INTERFACE: ==========================================================
52a73f04fb Step*0007       SUBROUTINE GCHEM_FIELDS_LOAD (
2e3e8c330d Jona*0008      I           myTime, myIter, myThid )
52a73f04fb Step*0009
8120bbf77d Step*0010 C !DESCRIPTION:
                0011 C  calls routines which read in fields needed for any tracer experiment
                0012 C !USES: ===============================================================
52a73f04fb Step*0013       IMPLICIT NONE
5dae554984 Oliv*0014 #include "EEPARAMS.h"
                0015 #include "GCHEM.h"
8120bbf77d Step*0016
                0017 C !INPUT PARAMETERS: ===================================================
6b9e7a8805 Jean*0018 C  myTime               :: current time
                0019 C  myIter               :: current iteration
8120bbf77d Step*0020 C  myThid               :: thread number
6b9e7a8805 Jean*0021       _RL myTime
                0022       INTEGER myIter
                0023       INTEGER myThid
8120bbf77d Step*0024
                0025 C !LOCAL VARIABLES: ====================================================
                0026 CEOP
52a73f04fb Step*0027
                0028 #ifdef ALLOW_GCHEM
                0029
                0030 cccccccccccccccccccccccccc
                0031 c load external data     c
                0032 cccccccccccccccccccccccccc
fd9adddc17 Step*0033 #ifdef ALLOW_DIC
d8cece0eeb Jean*0034       IF ( useDIC ) THEN
2e3e8c330d Jona*0035        CALL DIC_FIELDS_LOAD( myTime, myIter, myThid )
d8cece0eeb Jean*0036       ENDIF
52a73f04fb Step*0037 #endif
                0038
54edd294ca Matt*0039 #ifdef ALLOW_BLING
                0040       IF ( useBLING ) THEN
e0f9a7ba0b Matt*0041        CALL BLING_FIELDS_LOAD( myTime, myIter, myThid )
54edd294ca Matt*0042       ENDIF
                0043 #endif
                0044
52a73f04fb Step*0045 #ifdef ALLOW_CFC
d8cece0eeb Jean*0046       IF ( useCFC ) THEN
                0047        CALL CFC_FIELDS_LOAD( myTime, myIter, myThid )
                0048       ENDIF
52a73f04fb Step*0049 #endif
                0050
5dae554984 Oliv*0051 #ifdef ALLOW_DARWIN
                0052       IF ( useDARWIN ) THEN
d8cece0eeb Jean*0053        CALl DARWIN_FIELDS_LOAD(myIter,myTime,myThid)
5dae554984 Oliv*0054       ENDIF
                0055 #endif
                0056
52a73f04fb Step*0057 #endif /* ALLOW_GCHEM */
                0058
                0059       RETURN
                0060       END
                0061