/[MITgcm]/MITgcm/pkg/mom_vecinv/mom_vecinv.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_vecinv/mom_vecinv.F

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

revision 1.43 by jmc, Sat Jul 30 22:05:36 2005 UTC revision 1.44 by jmc, Sat Jul 30 23:52:10 2005 UTC
# Line 243  C--   Vertical flux (fVer is at upper fa Line 243  C--   Vertical flux (fVer is at upper fa
243    
244  C     Eddy component of vertical flux (interior component only) -> vrF  C     Eddy component of vertical flux (interior component only) -> vrF
245        IF (momViscosity.AND..NOT.implicitViscosity) THEN        IF (momViscosity.AND..NOT.implicitViscosity) THEN
246         IF ( k.LT.Nr ) THEN         CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,KappaRU,vrF,myThid)
          CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,KappaRU,vrF,myThid)  
        ENDIF  
247    
248  C     Combine fluxes  C     Combine fluxes
249         DO j=jMin,jMax         DO j=jMin,jMax
# Line 305  C--   Vertical flux (fVer is at upper fa Line 303  C--   Vertical flux (fVer is at upper fa
303    
304  C     Eddy component of vertical flux (interior component only) -> vrF  C     Eddy component of vertical flux (interior component only) -> vrF
305        IF (momViscosity.AND..NOT.implicitViscosity) THEN        IF (momViscosity.AND..NOT.implicitViscosity) THEN
306         IF ( k.LT.Nr ) THEN         CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,vrF,myThid)
          CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,vrF,myThid)  
        ENDIF  
307    
308  C     Combine fluxes -> fVerV  C     Combine fluxes -> fVerV
309         DO j=jMin,jMax         DO j=jMin,jMax
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.22