/[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.18 by adcroft, Tue Mar 5 14:15:34 2002 UTC revision 1.19 by jmc, Wed Mar 6 01:59:02 2002 UTC
# Line 510  C--       Get temporary terms used by te Line 510  C--       Get temporary terms used by te
510       O         xA,yA,uTrans,vTrans,rTrans,maskUp,       O         xA,yA,uTrans,vTrans,rTrans,maskUp,
511       I         myThid)       I         myThid)
512    
513    #ifdef ALLOW_GMREDI
514    C--   Residual transp = Bolus transp + Eulerian transp
515              IF (useGMRedi) THEN
516                CALL GMREDI_CALC_UVFLOW(
517         &            uTrans, vTrans, bi, bj, k, myThid)
518                IF (K.GE.2) CALL GMREDI_CALC_WFLOW(
519         &                    rTrans, bi, bj, k, myThid)
520              ENDIF
521    #endif /* ALLOW_GMREDI */
522    
523  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
524  CADJ STORE KappaRT(:,:,k)    = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE KappaRT(:,:,k)    = comlev1_bibj_k, key=kkey, byte=isbyte
525  CADJ STORE KappaRS(:,:,k)    = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE KappaRS(:,:,k)    = comlev1_bibj_k, key=kkey, byte=isbyte
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22