/[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.8 by heimbach, Fri Feb 13 21:56:48 2009 UTC revision 1.9 by jmc, Thu Nov 18 00:57:24 2010 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 (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 )
# Line 141  C--   Call external forcing package Line 139  C--   Call external forcing package
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 )
# Line 150  C--   Call external forcing package Line 147  C--   Call external forcing package
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 )
# Line 186  CADJ STORE Qsw    = comlev1, key = ikey_ Line 178  CADJ STORE Qsw    = comlev1, key = ikey_
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 )
# Line 198  CADJ STORE Qsw    = comlev1, key = ikey_ Line 189  CADJ STORE Qsw    = comlev1, key = ikey_
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
# Line 219  C-     Update AIM bottom boundary data Line 209  C-     Update AIM bottom boundary data
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
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22