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

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

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

revision 1.103 by heimbach, Thu Apr 20 03:29:35 2006 UTC revision 1.104 by heimbach, Wed Jun 7 01:55:13 2006 UTC
# Line 314  CADJ STORE salt (:,:,:,bi,bj) = comlev1_ Line 314  CADJ STORE salt (:,:,:,bi,bj) = comlev1_
314  CADJ STORE uvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE uvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
315  CADJ STORE vvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE vvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
316  cph-test  cph-test
317  cphCADJ STORE gtnm1(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  # ifdef ALLOW_DEPTH_CONTROL
318  cphCADJ STORE gsnm1(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE gtnm1(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
319    CADJ STORE gsnm1(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
320    # endif
321  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
322    
323  #ifndef DISABLE_MULTIDIM_ADVECTION  #ifndef DISABLE_MULTIDIM_ADVECTION
# Line 478  C--      Calculate active tracer tendenc Line 480  C--      Calculate active tracer tendenc
480  C        and step forward storing result in gT, gS, etc.  C        and step forward storing result in gT, gS, etc.
481  C--  C--
482  # ifdef ALLOW_AUTODIFF_TAMC  # ifdef ALLOW_AUTODIFF_TAMC
483  #  if (defined (NONLIN_FRSURF) && defined (ALLOW_GMREDI))  #  if ((defined NONLIN_FRSURF) || (defined ALLOW_DEPTH_CONTROL)) && (defined ALLOW_GMREDI)
484  CADJ STORE kux(:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE kux(:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte
485  CADJ STORE kvy(:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE kvy(:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte
486  #   ifdef GM_EXTRA_DIAGONAL  #   ifdef GM_EXTRA_DIAGONAL
# Line 490  CADJ STORE kvz(:,:,k,bi,bj) = comlev1_bi Line 492  CADJ STORE kvz(:,:,k,bi,bj) = comlev1_bi
492           IF ( tempStepping ) THEN           IF ( tempStepping ) THEN
493  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
494  CADJ STORE gTnm1(:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE gTnm1(:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte
495  # ifdef NONLIN_FRSURF  # if (defined NONLIN_FRSURF) || (defined ALLOW_DEPTH_CONTROL)
496  CADJ STORE gT(:,:,k,bi,bj)    = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE gT(:,:,k,bi,bj)    = comlev1_bibj_k, key=kkey, byte=isbyte
497  # endif  # endif
498  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
# Line 522  CADJ STORE gT(:,:,k,bi,bj)    = comlev1_ Line 524  CADJ STORE gT(:,:,k,bi,bj)    = comlev1_
524           IF ( saltStepping ) THEN           IF ( saltStepping ) THEN
525  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
526  CADJ STORE gSnm1(:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE gSnm1(:,:,k,bi,bj) = comlev1_bibj_k, key=kkey, byte=isbyte
527  # ifdef NONLIN_FRSURF  # if (defined NONLIN_FRSURF) || (defined ALLOW_DEPTH_CONTROL)
528  CADJ STORE gS(:,:,k,bi,bj)    = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE gS(:,:,k,bi,bj)    = comlev1_bibj_k, key=kkey, byte=isbyte
529  # endif  # endif
530  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
Legend:
Removed from v.1.103  
changed lines
  Added in v.1.104
  ViewVC Help
Powered by ViewVC 1.1.22