120 |
CEOP |
CEOP |
121 |
|
|
122 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
123 |
IF ( debugLevel .GE. debLevB ) |
IF ( debugLevel .GE. debLevB ) |
124 |
& CALL DEBUG_ENTER( 'LOAD_FIELDS_DRIVER', myThid ) |
& CALL DEBUG_ENTER( 'LOAD_FIELDS_DRIVER', myThid ) |
125 |
#endif |
#endif |
126 |
|
|
128 |
IF ( useBulkForce ) THEN |
IF ( useBulkForce ) THEN |
129 |
C-- Bulk-Formulae pkg: load all forcing fields at current time |
C-- Bulk-Formulae pkg: load all forcing fields at current time |
130 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
131 |
IF ( debugLevel .GE. debLevB ) |
IF ( debugLevel .GE. debLevB ) |
132 |
& CALL DEBUG_CALL('BULKF_FIELDS_LOAD',myThid) |
& CALL DEBUG_CALL('BULKF_FIELDS_LOAD',myThid) |
133 |
#endif |
#endif |
134 |
CALL TIMER_START('BULKF_FIELDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
CALL TIMER_START('BULKF_FIELDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
141 |
#ifdef ALLOW_EXF |
#ifdef ALLOW_EXF |
142 |
IF (useEXF) THEN |
IF (useEXF) THEN |
143 |
# ifdef ALLOW_DEBUG |
# ifdef ALLOW_DEBUG |
144 |
IF ( debugLevel .GE. debLevB ) |
IF ( debugLevel .GE. debLevB ) |
145 |
& CALL DEBUG_CALL('EXF_GETFORCING',myThid) |
& CALL DEBUG_CALL('EXF_GETFORCING',myThid) |
146 |
# endif |
# endif |
147 |
CALL TIMER_START('EXF_GETFORCING [LOAD_FLDS_DRIVER]',myThid) |
CALL TIMER_START('EXF_GETFORCING [LOAD_FLDS_DRIVER]',myThid) |
148 |
CALL EXF_GETFORCING( myTime, myIter, myThid ) |
CALL EXF_GETFORCING( myTime, myIter, myThid ) |
149 |
CALL TIMER_STOP ('EXF_GETFORCING [LOAD_FLDS_DRIVER]',myThid) |
CALL TIMER_STOP ('EXF_GETFORCING [LOAD_FLDS_DRIVER]',myThid) |
150 |
ENDIF |
ENDIF |
151 |
#else /* ALLOW_EXF undef */ |
#endif /* ALLOW_EXF */ |
152 |
IF ( .NOT. useSEAICE .AND. .NOT. useEBM ) THEN |
|
153 |
# ifdef ALLOW_DEBUG |
c IF ( .NOT.useEXF ) THEN |
154 |
IF ( debugLevel .GE. debLevB ) |
C- note (useEBM): needs modifications to be compatible with this call |
155 |
|
IF ( .NOT.(useEXF.OR.useEBM) ) THEN |
156 |
|
#ifdef ALLOW_DEBUG |
157 |
|
IF ( debugLevel .GE. debLevB ) |
158 |
& CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid) |
& CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid) |
159 |
# endif |
#endif |
160 |
CALL TIMER_START('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
CALL TIMER_START('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
161 |
CALL EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid ) |
CALL EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid ) |
162 |
CALL TIMER_STOP ('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
CALL TIMER_STOP ('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid) |
163 |
# ifdef NONLIN_FRSURF |
#ifdef NONLIN_FRSURF |
164 |
CADJ STORE SST = comlev1, key = ikey_dynamics |
CADJ STORE SST = comlev1, key = ikey_dynamics |
165 |
CADJ STORE SSS = comlev1, key = ikey_dynamics |
CADJ STORE SSS = comlev1, key = ikey_dynamics |
166 |
# ifdef SHORTWAVE_HEATING |
# ifdef SHORTWAVE_HEATING |
167 |
CADJ STORE Qsw = comlev1, key = ikey_dynamics |
CADJ STORE Qsw = comlev1, key = ikey_dynamics |
|
# endif |
|
168 |
# endif |
# endif |
169 |
|
#endif |
170 |
ENDIF |
ENDIF |
|
#endif /* ALLOW_EXF */ |
|
171 |
|
|
172 |
#ifdef ALLOW_OFFLINE |
#ifdef ALLOW_OFFLINE |
173 |
IF ( useOffLine ) THEN |
IF ( useOffLine ) THEN |
184 |
#ifdef ALLOW_GCHEM |
#ifdef ALLOW_GCHEM |
185 |
IF ( useGCHEM ) THEN |
IF ( useGCHEM ) THEN |
186 |
#ifdef ALLOW_DEBUG |
#ifdef ALLOW_DEBUG |
187 |
IF ( debugLevel .GE. debLevB ) |
IF ( debugLevel .GE. debLevB ) |
188 |
& CALL DEBUG_CALL('GCHEM_FIELDS_LOAD',myThid) |
& CALL DEBUG_CALL('GCHEM_FIELDS_LOAD',myThid) |
189 |
#endif /* ALLOW_DEBUG */ |
#endif /* ALLOW_DEBUG */ |
190 |
CALL GCHEM_FIELDS_LOAD( myTime, myIter, myThid ) |
CALL GCHEM_FIELDS_LOAD( myTime, myIter, myThid ) |