Parent Directory | Revision Log | Revision Graph | Patch
revision 1.41 by heimbach, Fri Apr 18 18:11:43 2008 UTC | revision 1.42 by jmc, Tue Mar 16 00:16:50 2010 UTC | |
---|---|---|
# | Line 830 c ELSE | Line 830 c ELSE |
830 | #endif | #endif |
831 | ENDIF | ENDIF |
832 | ||
833 | C-- 3.D Coriolis term (horizontal momentum, Eastward component: -f'*w) | C-- 3.D Coriolis term (horizontal momentum, Eastward component: -fprime*w) |
834 | IF ( use3dCoriolis ) THEN | IF ( use3dCoriolis ) THEN |
835 | CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) | CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,cf,myThid) |
836 | DO j=jMin,jMax | DO j=jMin,jMax |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |