File indexing completed on 2023-02-04 06:09:55 UTC
view on githubraw file Latest commit 2e3e8c33 on 2023-02-03 17:26:01 UTC
52a73f04fb Step*0001 #include "GCHEM_OPTIONS.h"
0002
8120bbf77d Step*0003
0004
0005
0006
52a73f04fb Step*0007 SUBROUTINE GCHEM_FIELDS_LOAD (
2e3e8c330d Jona*0008 I myTime, myIter, myThid )
52a73f04fb Step*0009
8120bbf77d Step*0010
0011
0012
52a73f04fb Step*0013 IMPLICIT NONE
5dae554984 Oliv*0014 #include "EEPARAMS.h"
0015 #include "GCHEM.h"
8120bbf77d Step*0016
0017
6b9e7a8805 Jean*0018
0019
8120bbf77d Step*0020
6b9e7a8805 Jean*0021 _RL myTime
0022 INTEGER myIter
0023 INTEGER myThid
8120bbf77d Step*0024
0025
0026
52a73f04fb Step*0027
0028 #ifdef ALLOW_GCHEM
0029
0030
0031
0032
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