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

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

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

revision 1.34 by jmc, Mon Mar 20 14:22:26 2006 UTC revision 1.35 by jmc, Mon Feb 5 03:20:39 2007 UTC
# Line 83  C     == Local variables == Line 83  C     == Local variables ==
83        _RL dRlocM,dRlocP, ddRloc, locAlpha        _RL dRlocM,dRlocP, ddRloc, locAlpha
84        _RL ddPIm, ddPIp, rec_dRm, rec_dRp        _RL ddPIm, ddPIp, rec_dRm, rec_dRp
85        _RL surfPhiFac        _RL surfPhiFac
       INTEGER iMnLoc,jMnLoc  
86        PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 )        PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 )
87        LOGICAL useDiagPhiRlow, addSurfPhiAnom        LOGICAL useDiagPhiRlow, addSurfPhiAnom
88  CEOP  CEOP
# Line 488  C---   Diagnose Full Hydrostatic Potenti Line 487  C---   Diagnose Full Hydrostatic Potenti
487       I                      myTime, myIter, myThid)       I                      myTime, myIter, myThid)
488    
489        IF (momPressureForcing) THEN        IF (momPressureForcing) THEN
         iMnLoc = MAX(1-Olx+1,iMin)  
         jMnLoc = MAX(1-Oly+1,jMin)  
490          CALL CALC_GRAD_PHI_HYD(          CALL CALC_GRAD_PHI_HYD(
491       I                         k, bi, bj, iMnLoc,iMax, jMnLoc,jMax,       I                         k, bi, bj, iMin,iMax, jMin,jMax,
492       I                         phiHydC, alphaRho, tFld, sFld,       I                         phiHydC, alphaRho, tFld, sFld,
493       O                         dPhiHydX, dPhiHydY,       O                         dPhiHydX, dPhiHydY,
494       I                         myTime, myIter, myThid)         I                         myTime, myIter, myThid)  
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22