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

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

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

revision 1.13 by jmc, Fri Sep 10 17:23:17 2010 UTC revision 1.14 by jmc, Wed Dec 14 01:12:59 2011 UTC
# Line 46  C     myThid :: Instance number for this Line 46  C     myThid :: Instance number for this
46        _RL alphRho(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL alphRho(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
47        _RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL tFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
48        _RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
49        _RL dPhiHydX(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL dPhiHydX(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
50        _RL dPhiHydY(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL dPhiHydY(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
51        _RL myTime        _RL myTime
52        INTEGER myIter, myThid        INTEGER myIter, myThid
53    
# Line 57  C     !LOCAL VARIABLES: Line 57  C     !LOCAL VARIABLES:
57  C     == Local variables ==  C     == Local variables ==
58  C     i,j :: Loop counters  C     i,j :: Loop counters
59        INTEGER i,j        INTEGER i,j
60        _RL varLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL varLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
61  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
62        _RL factorZ, factorP, conv_theta2T        _RL factorZ, factorP, conv_theta2T
63        _RL factPI        _RL factPI
# Line 229  C--    p* coordinate slope term: alpha_p Line 229  C--    p* coordinate slope term: alpha_p
229        ENDIF        ENDIF
230  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
231    
232    C--   Apply mask:
233          DO j=1-OLy,sNy+OLy
234           DO i=1-OLx,sNx+OLx
235             dPhiHydX(i,j) = dPhiHydX(i,j)*_maskW(i,j,k,bi,bj)
236             dPhiHydY(i,j) = dPhiHydY(i,j)*_maskS(i,j,k,bi,bj)
237           ENDDO
238          ENDDO
239    
240  #endif /* INCLUDE_PHIHYD_CALCULATION_CODE */  #endif /* INCLUDE_PHIHYD_CALCULATION_CODE */
241    
242        RETURN        RETURN
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22