/[MITgcm]/MITgcm/model/src/load_fields_driver.F
ViewVC logotype

Diff of /MITgcm/model/src/load_fields_driver.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by heimbach, Wed Apr 18 23:56:05 2007 UTC revision 1.5 by jmc, Fri Apr 27 15:53:43 2007 UTC
# Line 120  C     == Local variables == Line 120  C     == Local variables ==
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    
# Line 128  CEOP Line 128  CEOP
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)
# Line 141  C--   Call external forcing package Line 141  C--   Call external forcing package
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
# Line 182  CADJ STORE Qsw    = comlev1, key = ikey_ Line 184  CADJ STORE Qsw    = comlev1, key = ikey_
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 )
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22