/[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.3 by heimbach, Wed Apr 18 19:54:06 2007 UTC revision 1.4 by heimbach, Wed Apr 18 23:56:05 2007 UTC
# Line 139  C--   Bulk-Formulae pkg: load all forcin Line 139  C--   Bulk-Formulae pkg: load all forcin
139    
140  C--   Call external forcing package  C--   Call external forcing package
141  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
142          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)
# Line 146  C--   Call external forcing package Line 147  C--   Call external forcing package
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
151  #else /* ALLOW_EXF undef */  #else /* ALLOW_EXF undef */
 cph The following IF-statement creates an additional dependency  
 cph for the forcing fields requiring additional storing.  
 cph Therefore, the IF-statement will be put between CPP-OPTIONS,  
 cph assuming that ALLOW_SEAICE has not yet been differentiated.  
 # if (defined (ALLOW_SEAICE) || defined (ALLOW_EBM))  
152        IF ( .NOT. useSEAICE .AND. .NOT. useEBM ) THEN        IF ( .NOT. useSEAICE .AND. .NOT. useEBM ) THEN
 # endif  
153  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
154          IF ( debugLevel .GE. debLevB )          IF ( debugLevel .GE. debLevB )
155       &   CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid)       &   CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid)
# Line 168  CADJ STORE SSS    = comlev1, key = ikey_ Line 164  CADJ STORE SSS    = comlev1, key = ikey_
164  CADJ STORE Qsw    = comlev1, key = ikey_dynamics  CADJ STORE Qsw    = comlev1, key = ikey_dynamics
165  #  endif  #  endif
166  # endif  # endif
 # if (defined (ALLOW_SEAICE) || defined (ALLOW_EBM))  
167        ENDIF        ENDIF
 # endif  
168  #endif /* ALLOW_EXF */  #endif /* ALLOW_EXF */
169    
170  #ifdef ALLOW_OFFLINE  #ifdef ALLOW_OFFLINE
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22