/[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.95 by jmc, Sun Nov 6 22:19:08 2005 UTC revision 1.96 by heimbach, Thu Dec 8 15:44:34 2005 UTC
# Line 301  CADJ STORE theta(:,:,:,bi,bj) = comlev1_ Line 301  CADJ STORE theta(:,:,:,bi,bj) = comlev1_
301  CADJ STORE salt (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE salt (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
302  CADJ STORE uvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE uvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
303  CADJ STORE vvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte  CADJ STORE vvel (:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
304    # ifdef NONLIN_FRSURF
305    cph-test
306    CADJ STORE gtnm1(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
307    CADJ STORE gsnm1(:,:,:,bi,bj) = comlev1_bibj, key=itdkey, byte=isbyte
308    # endif
309  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
310  cph-- moved to forward_step to avoid key computation  cph-- moved to forward_step to avoid key computation
311  cphCADJ STORE ptracer(:,:,:,bi,bj,itracer) = comlev1_bibj,  cphCADJ STORE ptracer(:,:,:,bi,bj,itracer) = comlev1_bibj,
# Line 471  C--      Calculate active tracer tendenc Line 476  C--      Calculate active tracer tendenc
476  C        and step forward storing result in gT, gS, etc.  C        and step forward storing result in gT, gS, etc.
477  #ifndef ALLOW_OFFLINE  #ifndef ALLOW_OFFLINE
478           IF ( tempStepping ) THEN           IF ( tempStepping ) THEN
479    #ifdef NONLIN_FRSURF
480    # ifdef ALLOW_AUTODIFF_TAMC
481    cph-test
482    CADJ STORE gT(:,:,k,bi,bj)    = comlev1_bibj_k, key=kkey, byte=isbyte
483    # endif /* ALLOW_AUTODIFF_TAMC */
484    #endif
485             CALL CALC_GT(             CALL CALC_GT(
486       I         bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown,       I         bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown,
487       I         xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp,       I         xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp,
# Line 499  C        and step forward storing result Line 510  C        and step forward storing result
510    
511  #ifndef ALLOW_OFFLINE  #ifndef ALLOW_OFFLINE
512           IF ( saltStepping ) THEN           IF ( saltStepping ) THEN
513    #ifdef NONLIN_FRSURF
514    # ifdef ALLOW_AUTODIFF_TAMC
515    cph-test
516    CADJ STORE gS(:,:,k,bi,bj)    = comlev1_bibj_k, key=kkey, byte=isbyte
517    # endif /* ALLOW_AUTODIFF_TAMC */
518    #endif
519             CALL CALC_GS(             CALL CALC_GS(
520       I         bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown,       I         bi,bj,iMin,iMax,jMin,jMax, k,km1,kup,kDown,
521       I         xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp,       I         xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp,
Legend:
Removed from v.1.95  
changed lines
  Added in v.1.96
  ViewVC Help
Powered by ViewVC 1.1.22