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

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

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

revision 1.31 by heimbach, Sun Oct 22 01:11:44 2006 UTC revision 1.32 by heimbach, Thu Nov 2 05:26:49 2006 UTC
# Line 144  C     under sea-ice may not be "exactly" Line 144  C     under sea-ice may not be "exactly"
144  C     theta is dumped or time-averaged.  C     theta is dumped or time-averaged.
145        IF ( useSEAICE ) THEN        IF ( useSEAICE ) THEN
146  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
147    CADJ STORE fu, fv              = comlev1, key = ikey_dynamics
148  CADJ STORE qnet,qsw            = comlev1, key = ikey_dynamics  CADJ STORE qnet,qsw            = comlev1, key = ikey_dynamics
149  CADJ STORE aqh,precip,swdown   = comlev1, key = ikey_dynamics  CADJ STORE aqh,precip,swdown   = comlev1, key = ikey_dynamics
150  CADJ STORE theta               = comlev1, key = ikey_dynamics  CADJ STORE theta               = comlev1, key = ikey_dynamics
151  # ifdef SEAICE_ALLOW_DYNAMICS  cph# ifdef SEAICE_ALLOW_DYNAMICS
152  CADJ STORE uvel,vvel           = comlev1, key = ikey_dynamics  CADJ STORE uvel,vvel           = comlev1, key = ikey_dynamics
153  # endif  cph# endif
154  #endif  #endif
155  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
156          IF ( debugLevel .GE. debLevB )          IF ( debugLevel .GE. debLevB )
# Line 158  CADJ STORE uvel,vvel           = comlev1 Line 159  CADJ STORE uvel,vvel           = comlev1
159          CALL TIMER_START('SEAICE_MODEL    [DO_OCEANIC_PHYS]', myThid)          CALL TIMER_START('SEAICE_MODEL    [DO_OCEANIC_PHYS]', myThid)
160          CALL SEAICE_MODEL( myTime, myIter, myThid )          CALL SEAICE_MODEL( myTime, myIter, myThid )
161          CALL TIMER_STOP ('SEAICE_MODEL    [DO_OCEANIC_PHYS]', myThid)          CALL TIMER_STOP ('SEAICE_MODEL    [DO_OCEANIC_PHYS]', myThid)
162          ENDIF
163  #ifdef ALLOW_COST_ICE  #ifdef ALLOW_COST_ICE
164          CALL COST_ICE_TEST ( myTime, myIter, myThid )          CALL COST_ICE_TEST ( myTime, myIter, myThid )
165  #endif  #endif
       ENDIF  
166  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
167    
168  #if (defined ALLOW_THSICE) && !(defined ALLOW_ATM2D)  #if (defined ALLOW_THSICE) && !(defined ALLOW_ATM2D)
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22