/[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.100 by heimbach, Thu Mar 3 16:53:45 2011 UTC revision 1.101 by heimbach, Sat Mar 5 17:51:19 2011 UTC
# Line 264  CADJ &     kind = isbyte Line 264  CADJ &     kind = isbyte
264    
265  #if (defined ALLOW_THSICE) && !(defined ALLOW_ATM2D)  #if (defined ALLOW_THSICE) && !(defined ALLOW_ATM2D)
266        IF ( useThSIce .AND. fluidIsWater ) THEN        IF ( useThSIce .AND. fluidIsWater ) THEN
267  #ifdef ALLOW_DEBUG  # ifdef ALLOW_AUTODIFF_TAMC
268    cph(
269    #  ifdef NONLIN_FRSURF
270    CADJ STORE uice,vice        = comlev1, key = ikey_dynamics,
271    CADJ &     kind = isbyte
272    CADJ STORE salt,theta       = comlev1, key = ikey_dynamics,
273    CADJ &     kind = isbyte
274    CADJ STORE qnet,qsw, empmr  = comlev1, key = ikey_dynamics,
275    CADJ &     kind = isbyte
276    CADJ STORE hFac_surfC       = comlev1, key = ikey_dynamics,
277    CADJ &     kind = isbyte
278    #  endif
279    # endif
280    # ifdef ALLOW_DEBUG
281          IF (debugMode) CALL DEBUG_CALL('THSICE_MAIN',myThid)          IF (debugMode) CALL DEBUG_CALL('THSICE_MAIN',myThid)
282  #endif  # endif
283  C--     Step forward Therm.Sea-Ice variables  C--     Step forward Therm.Sea-Ice variables
284  C       and modify forcing terms including effects from ice  C       and modify forcing terms including effects from ice
285          CALL TIMER_START('THSICE_MAIN     [DO_OCEANIC_PHYS]', myThid)          CALL TIMER_START('THSICE_MAIN     [DO_OCEANIC_PHYS]', myThid)
Legend:
Removed from v.1.100  
changed lines
  Added in v.1.101
  ViewVC Help
Powered by ViewVC 1.1.22