120 |
CEOP |
CEOP |
121 |
|
|
122 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
123 |
IF ( debugLevel .GE. debLevB ) |
IF (debugMode) CALL DEBUG_ENTER( 'LOAD_FIELDS_DRIVER', myThid ) |
|
& CALL DEBUG_ENTER( 'LOAD_FIELDS_DRIVER', myThid ) |
|
124 |
#endif |
#endif |
125 |
|
|
126 |
#ifdef ALLOW_BULK_FORCE |
#ifdef ALLOW_BULK_FORCE |
127 |
IF ( useBulkForce ) THEN |
IF ( useBulkForce ) THEN |
128 |
C-- Bulk-Formulae pkg: load all forcing fields at current time |
C-- Bulk-Formulae pkg: load all forcing fields at current time |
129 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
130 |
IF ( debugLevel .GE. debLevB ) |
IF (debugMode) CALL DEBUG_CALL('BULKF_FIELDS_LOAD',myThid) |
|
& CALL DEBUG_CALL('BULKF_FIELDS_LOAD',myThid) |
|
131 |
#endif |
#endif |
132 |
CALL TIMER_START('BULKF_FIELDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
CALL TIMER_START('BULKF_FIELDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
133 |
CALL BULKF_FIELDS_LOAD( myTime, myIter, myThid ) |
CALL BULKF_FIELDS_LOAD( myTime, myIter, myThid ) |
139 |
#ifdef ALLOW_EXF |
#ifdef ALLOW_EXF |
140 |
IF (useEXF) THEN |
IF (useEXF) THEN |
141 |
# ifdef ALLOW_DEBUG |
# ifdef ALLOW_DEBUG |
142 |
IF ( debugLevel .GE. debLevB ) |
IF (debugMode) CALL DEBUG_CALL('EXF_GETFORCING',myThid) |
|
& CALL DEBUG_CALL('EXF_GETFORCING',myThid) |
|
143 |
# endif |
# endif |
144 |
CALL TIMER_START('EXF_GETFORCING [LOAD_FLDS_DRIVER]',myThid) |
CALL TIMER_START('EXF_GETFORCING [LOAD_FLDS_DRIVER]',myThid) |
145 |
CALL EXF_GETFORCING( myTime, myIter, myThid ) |
CALL EXF_GETFORCING( myTime, myIter, myThid ) |
147 |
ENDIF |
ENDIF |
148 |
#endif /* ALLOW_EXF */ |
#endif /* ALLOW_EXF */ |
149 |
|
|
|
|
|
150 |
C-- Call external CheapAML forcing package |
C-- Call external CheapAML forcing package |
151 |
#ifdef ALLOW_CHEAPAML |
#ifdef ALLOW_CHEAPAML |
152 |
IF ( useCheapAML ) THEN |
IF ( useCheapAML ) THEN |
153 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
154 |
IF ( debugLevel .GE. debLevB ) |
IF (debugMode) CALL DEBUG_CALL('CHEAPAML_FIELDS_LOAD',myThid) |
|
& CALL DEBUG_CALL('CHEAPAML_FIELDS_LOAD',myThid) |
|
155 |
#endif |
#endif |
156 |
CALL CHEAPAML_FIELDS_LOAD( myTime,myIter, myThid ) |
CALL CHEAPAML_FIELDS_LOAD( myTime, myIter, myThid ) |
157 |
ENDIF |
ENDIF |
158 |
#endif /*ALLOW_CHEAPAML */ |
#endif /*ALLOW_CHEAPAML */ |
159 |
|
|
|
|
|
|
|
|
160 |
c IF ( .NOT.useEXF ) THEN |
c IF ( .NOT.useEXF ) THEN |
161 |
C- note (useEBM): needs modifications to be compatible with this call |
C- note (useEBM): needs modifications to be compatible with this call |
162 |
IF ( .NOT.(useEXF.OR.useEBM) ) THEN |
IF ( .NOT.(useEXF.OR.useEBM) ) THEN |
163 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
164 |
IF ( debugLevel .GE. debLevB ) |
IF (debugMode) CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid) |
|
& CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid) |
|
165 |
#endif |
#endif |
166 |
CALL TIMER_START('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
CALL TIMER_START('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
167 |
CALL EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid ) |
CALL EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid ) |
178 |
#ifdef ALLOW_OFFLINE |
#ifdef ALLOW_OFFLINE |
179 |
IF ( useOffLine ) THEN |
IF ( useOffLine ) THEN |
180 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
181 |
IF ( debugLevel .GE. debLevB ) |
IF (debugMode) CALL DEBUG_CALL('OFFLINE_FIELDS_LOAD',myThid) |
|
& CALL DEBUG_CALL('OFFLINE_FIELDS_LOAD',myThid) |
|
182 |
#endif /* ALLOW_DEBUG */ |
#endif /* ALLOW_DEBUG */ |
183 |
CALL TIMER_START('OFFLINE_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
CALL TIMER_START('OFFLINE_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
184 |
CALL OFFLINE_FIELDS_LOAD( myTime, myIter, myThid ) |
CALL OFFLINE_FIELDS_LOAD( myTime, myIter, myThid ) |
189 |
#ifdef ALLOW_GCHEM |
#ifdef ALLOW_GCHEM |
190 |
IF ( useGCHEM ) THEN |
IF ( useGCHEM ) THEN |
191 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
192 |
IF ( debugLevel .GE. debLevB ) |
IF (debugMode) CALL DEBUG_CALL('GCHEM_FIELDS_LOAD',myThid) |
|
& CALL DEBUG_CALL('GCHEM_FIELDS_LOAD',myThid) |
|
193 |
#endif /* ALLOW_DEBUG */ |
#endif /* ALLOW_DEBUG */ |
194 |
CALL GCHEM_FIELDS_LOAD( myTime, myIter, myThid ) |
CALL GCHEM_FIELDS_LOAD( myTime, myIter, myThid ) |
195 |
ENDIF |
ENDIF |
209 |
#endif |
#endif |
210 |
|
|
211 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
212 |
IF ( debugLevel .GE. debLevB ) |
IF (debugMode) CALL DEBUG_LEAVE( 'LOAD_FIELDS_DRIVER', myThid ) |
|
& CALL DEBUG_LEAVE( 'LOAD_FIELDS_DRIVER', myThid ) |
|
213 |
#endif |
#endif |
214 |
|
|
215 |
RETURN |
RETURN |