/[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.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
Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58
  ViewVC Help
Powered by ViewVC 1.1.22