Parent Directory | Revision Log | Revision Graph | Patch
revision 1.62 by jmc, Tue Apr 1 01:27:33 2008 UTC | revision 1.63 by jmc, Tue Mar 16 00:16:50 2010 UTC | |
---|---|---|
# | Line 659 C-- Bernoulli term | Line 659 C-- Bernoulli term |
659 | C-- end if momAdvection | C-- end if momAdvection |
660 | ENDIF | ENDIF |
661 | ||
662 | C-- 3.D Coriolis term (horizontal momentum, Eastward component: -f'*w) | C-- 3.D Coriolis term (horizontal momentum, Eastward component: -fprime*w) |
663 | IF ( use3dCoriolis ) THEN | IF ( use3dCoriolis ) THEN |
664 | CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid) | CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid) |
665 | DO j=jMin,jMax | DO j=jMin,jMax |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |