/[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.19 by jmc, Thu Jan 22 18:21:45 2015 UTC revision 1.20 by jmc, Sat Jul 18 21:45:03 2015 UTC
# Line 40  C       |-- CHEAPAML_FIELDS_LOAD Line 40  C       |-- CHEAPAML_FIELDS_LOAD
40  C       |  C       |
41  C       |-- EXTERNAL_FIELDS_LOAD  C       |-- EXTERNAL_FIELDS_LOAD
42  C       |  C       |
 C       |-- OFFLINE_FIELDS_LOAD  
 C       |  
43  C       |-- GCHEM_FIELDS_LOAD  C       |-- GCHEM_FIELDS_LOAD
44  C       |  C       |
45  C       |-- RBCS_FIELDS_LOAD  C       |-- RBCS_FIELDS_LOAD
# Line 175  CADJ STORE Qsw    = comlev1, key = ikey_ Line 173  CADJ STORE Qsw    = comlev1, key = ikey_
173  #endif  #endif
174        ENDIF        ENDIF
175    
 #ifdef ALLOW_OFFLINE  
       IF ( useOffLine ) THEN  
 #ifdef ALLOW_DEBUG  
         IF (debugMode) CALL DEBUG_CALL('OFFLINE_FIELDS_LOAD',myThid)  
 #endif /* ALLOW_DEBUG */  
         CALL TIMER_START('OFFLINE_FLDS_LOAD  [LOAD_FLDS_DRIVER]',myThid)  
         CALL OFFLINE_FIELDS_LOAD( myTime, myIter, myThid )  
         CALL TIMER_STOP ('OFFLINE_FLDS_LOAD  [LOAD_FLDS_DRIVER]',myThid)  
       ENDIF  
 #endif /* ALLOW_OFFLINE */  
   
176  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
177        IF ( useGCHEM ) THEN        IF ( useGCHEM ) THEN
178  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22