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 |
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 |