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

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

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

revision 1.10 by jmc, Mon Dec 31 22:06:40 2012 UTC revision 1.11 by jmc, Fri May 2 16:57:43 2014 UTC
# Line 140  C-    Integral of b.dr = rStarFac * Inte Line 140  C-    Integral of b.dr = rStarFac * Inte
140  C-     Consistent with Phi'= Integr[ theta'.dPi ] :  C-     Consistent with Phi'= Integr[ theta'.dPi ] :
141           DO j=jMin,jMax           DO j=jMin,jMax
142            DO i=iMin,iMax            DO i=iMin,iMax
143             facP = rStarFacC(i,j,bi,bj)**atm_kappa             facP = pStarFacK(i,j,bi,bj)
144             dPhiRef = phiRef(2*k+1) - gravity*topoZ(i,j,bi,bj)             dPhiRef = phiRef(2*k+1) - gravity*topoZ(i,j,bi,bj)
145       &                             - phi0surf(i,j,bi,bj)       &                             - phi0surf(i,j,bi,bj)
146             phiHydLow(i,j,bi,bj) =             phiHydLow(i,j,bi,bj) =
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22