/[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.17 by gforget, Fri Sep 12 14:54:32 2014 UTC revision 1.22 by heimbach, Sun Sep 10 15:19:17 2017 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 89  CEOP Line 87  CEOP
87    
88  C--   Initialise forcing arrays that may receive multiple contributions  C--   Initialise forcing arrays that may receive multiple contributions
89  #ifdef ALLOW_ADDFLUID  #ifdef ALLOW_ADDFLUID
90        IF ( addMassFile .EQ. ' ' ) THEN        IF ( selectAddFluid.NE.0 .AND. addMassFile.EQ.' ' ) THEN
91          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
92           DO bi=myBxLo(myThid),myBxHi(myThid)           DO bi=myBxLo(myThid),myBxHi(myThid)
93            DO k=1,Nr            DO k=1,Nr
# Line 105  C--   Initialise forcing arrays that may Line 103  C--   Initialise forcing arrays that may
103  #endif /* ALLOW_ADDFLUID */  #endif /* ALLOW_ADDFLUID */
104    
105  #ifdef ALLOW_FRICTION_HEATING  #ifdef ALLOW_FRICTION_HEATING
106        IF ( addFrictionHeating ) THEN        IF ( addFrictionHeating .AND. staggerTimeStep ) THEN
107          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
108           DO bi=myBxLo(myThid),myBxHi(myThid)           DO bi=myBxLo(myThid),myBxHi(myThid)
109            DO k=1,Nr            DO k=1,Nr
# Line 122  C--   Initialise forcing arrays that may Line 120  C--   Initialise forcing arrays that may
120    
121  C--   Map generic time varying controls to xx_gentim2d  C--   Map generic time varying controls to xx_gentim2d
122  #ifdef ALLOW_CTRL  #ifdef ALLOW_CTRL
123        CALL CTRL_MAP_GENTIM2D( myTime, myIter, myThid )        if (useCTRL) CALL CTRL_MAP_GENTIM2D( myTime, myIter, myThid )
124  #endif  #endif
125    
126  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
# Line 159  C--   Call external CheapAML forcing pac Line 157  C--   Call external CheapAML forcing pac
157        ENDIF        ENDIF
158  #endif /*ALLOW_CHEAPAML */  #endif /*ALLOW_CHEAPAML */
159    
160        IF ( .NOT.useCheapAML ) THEN  #ifdef ALLOW_AUTODIFF
161           IF ( .NOT. useEXF ) THEN
162    #endif /* ALLOW_AUTODIFF */
163  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
164          IF (debugMode) CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid)          IF (debugMode) 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 )
168          CALL TIMER_STOP ('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid)          CALL TIMER_STOP ('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid)
169    #ifdef ALLOW_AUTODIFF
170           ENDIF
171    #endif /* ALLOW_AUTODIFF */
172  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
173  CADJ STORE SST    = comlev1, key = ikey_dynamics, kind = isbyte  CADJ STORE SST    = comlev1, key = ikey_dynamics, kind = isbyte
174  CADJ STORE SSS    = comlev1, key = ikey_dynamics, kind = isbyte  CADJ STORE SSS    = comlev1, key = ikey_dynamics, kind = isbyte
# Line 173  CADJ STORE SSS    = comlev1, key = ikey_ Line 176  CADJ STORE SSS    = comlev1, key = ikey_
176  CADJ STORE Qsw    = comlev1, key = ikey_dynamics, kind = isbyte  CADJ STORE Qsw    = comlev1, key = ikey_dynamics, kind = isbyte
177  # endif  # endif
178  #endif  #endif
       ENDIF  
   
 #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 */  
179    
180  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
181        IF ( useGCHEM ) THEN        IF ( useGCHEM ) THEN
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22