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