/[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.125 by heimbach, Sat Mar 30 01:25:44 2013 UTC revision 1.126 by heimbach, Sat Apr 13 20:47:18 2013 UTC
# Line 199  CADJ STORE sHeating, snowAge = comlev1, Line 199  CADJ STORE sHeating, snowAge = comlev1,
199  CADJ &     kind = isbyte  CADJ &     kind = isbyte
200  CADJ STORE hocemxl = comlev1, key = ikey_dynamics,  CADJ STORE hocemxl = comlev1, key = ikey_dynamics,
201  CADJ &     kind = isbyte  CADJ &     kind = isbyte
202    CADJ STORE icflxsw, snowprc  = comlev1, key = ikey_dynamics,
203    CADJ &     kind = isbyte
204  CADJ STORE salt,theta        = comlev1, key = ikey_dynamics,  CADJ STORE salt,theta        = comlev1, key = ikey_dynamics,
205  CADJ &     kind = isbyte  CADJ &     kind = isbyte
206  CADJ STORE uvel,vvel         = comlev1, key = ikey_dynamics,  CADJ STORE uvel,vvel         = comlev1, key = ikey_dynamics,
# Line 213  CADJ &     kind = isbyte Line 215  CADJ &     kind = isbyte
215  CADJ STORE hFac_surfC       = comlev1, key = ikey_dynamics,  CADJ STORE hFac_surfC       = comlev1, key = ikey_dynamics,
216  CADJ &     kind = isbyte  CADJ &     kind = isbyte
217  #  endif  #  endif
218  # endif  # endif /* ALLOW_AUTODIFF_TAMC */
219  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
220          IF (debugMode) CALL DEBUG_CALL('THSICE_MAIN',myThid)          IF (debugMode) CALL DEBUG_CALL('THSICE_MAIN',myThid)
221  # endif  # endif
# Line 312  CADJ &     kind = isbyte Line 314  CADJ &     kind = isbyte
314  CADJ STORE balance_itcount     = comlev1, key = ikey_dynamics,  CADJ STORE balance_itcount     = comlev1, key = ikey_dynamics,
315  CADJ &     kind = isbyte  CADJ &     kind = isbyte
316  #  endif /* ANNUAL_BALANCE */  #  endif /* ANNUAL_BALANCE */
317  # endif  #  ifdef ALLOW_THSICE
318    CADJ STORE fu, fv              = comlev1, key = ikey_dynamics,
319    CADJ &     kind = isbyte
320    #  endif
321    # endif /* ALLOW_AUTODIFF_TAMC */
322  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
323          IF (debugMode) CALL DEBUG_CALL('SEAICE_MODEL',myThid)          IF (debugMode) CALL DEBUG_CALL('SEAICE_MODEL',myThid)
324  # endif  # endif
Legend:
Removed from v.1.125  
changed lines
  Added in v.1.126
  ViewVC Help
Powered by ViewVC 1.1.22