Parent Directory | Revision Log | Revision Graph | Patch
revision 1.57 by jmc, Thu Mar 30 19:51:31 2006 UTC | revision 1.58 by jmc, Thu Jul 13 03:02:48 2006 UTC | |
---|---|---|
# | Line 627 C-- end if momAdvection | Line 627 C-- end if momAdvection |
627 | ENDIF | ENDIF |
628 | ||
629 | C-- 3.D Coriolis term (horizontal momentum, Eastward component: -f'*w) | C-- 3.D Coriolis term (horizontal momentum, Eastward component: -f'*w) |
630 | IF ( nonHydrostatic.OR.quasiHydrostatic ) THEN | IF ( use3dCoriolis ) THEN |
631 | CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid) | CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid) |
632 | DO j=jMin,jMax | DO j=jMin,jMax |
633 | DO i=iMin,iMax | DO i=iMin,iMax |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |