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

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

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

revision 1.99 by jmc, Tue Jul 13 16:48:48 2004 UTC revision 1.100 by jmc, Mon Jul 26 20:18:14 2004 UTC
# Line 187  c--   Add control vector for forcing and Line 187  c--   Add control vector for forcing and
187       &     CALL CTRL_MAP_FORCING (mythid)       &     CALL CTRL_MAP_FORCING (mythid)
188  #endif  #endif
189    
 #ifdef ALLOW_THSICE  
       IF ( useThSIce .AND. buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN  
 #ifdef ALLOW_DEBUG  
         IF ( debugLevel .GE. debLevB )  
      &    CALL DEBUG_CALL('THSICE_MAIN',myThid)  
 #endif  
 C--     Step forward Therm.Sea-Ice variables  
 C       and modify forcing terms including effects from ice  
         CALL TIMER_START('THSICE_MAIN        [FORWARD_STEP]', myThid)  
         CALL THSICE_MAIN( myTime, myIter, myThid )  
         CALL TIMER_STOP( 'THSICE_MAIN        [FORWARD_STEP]', myThid)  
       ENDIF  
 #endif /* ALLOW_THSICE */  
   
190  # ifdef ALLOW_SEAICE  # ifdef ALLOW_SEAICE
191  C--   Call sea ice model to compute forcing/external data fields.  In  C--   Call sea ice model to compute forcing/external data fields.  In
192  C     addition to computing prognostic sea-ice variables and diagnosing the  C     addition to computing prognostic sea-ice variables and diagnosing the
# Line 223  C     theta is dumped or time-averaged. Line 209  C     theta is dumped or time-averaged.
209        ENDIF        ENDIF
210  # endif /* ALLOW_SEAICE */  # endif /* ALLOW_SEAICE */
211    
 C--   Freeze water at the surface  
 #ifdef ALLOW_AUTODIFF_TAMC  
 CADJ STORE theta = comlev1, key = ikey_dynamics  
 #endif  
       IF ( allowFreezing .AND. .NOT. useSEAICE  
      &                   .AND. .NOT. useThSIce ) THEN  
         CALL FREEZE_SURFACE(  myTime, myIter, myThid )  
       ENDIF  
   
212  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
213  # ifdef ALLOW_PTRACERS  # ifdef ALLOW_PTRACERS
214  cph this replaces _bibj storing of ptracer within thermodynamics  cph this replaces _bibj storing of ptracer within thermodynamics
# Line 254  C      Read in coupling data that I impo Line 231  C      Read in coupling data that I impo
231           CALL CPL_IMPORT_EXTERNAL_DATA( myIter, myTime, myThid )           CALL CPL_IMPORT_EXTERNAL_DATA( myIter, myTime, myThid )
232           CALL TIMER_STOP ('CPL_EXPORT-IMPORT  [FORWARD_STEP]',myThid)           CALL TIMER_STOP ('CPL_EXPORT-IMPORT  [FORWARD_STEP]',myThid)
233         ENDIF         ENDIF
 # ifndef ALLOW_AIM  
 C jmc: don't know precisely where to put this call. leave it here for now.  
        IF ( useCoupler ) THEN  
          CALL OCN_APPLY_IMPORT( .TRUE., myTime, myIter, myThid )  
        ENDIF  
 # endif  
234  #endif /* COMPONENT_MODULE */  #endif /* COMPONENT_MODULE */
235    
236  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
Legend:
Removed from v.1.99  
changed lines
  Added in v.1.100
  ViewVC Help
Powered by ViewVC 1.1.22