/[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.80 by mlosch, Fri Apr 28 17:17:14 2017 UTC revision 1.81 by jmc, Sat Apr 29 16:11:38 2017 UTC
# Line 610  C- jmc: change it to keep the Coriolis t Line 610  C- jmc: change it to keep the Coriolis t
610       &     .NOT.( useCDscheme .OR. useAbsVorticity.AND.momAdvection )       &     .NOT.( useCDscheme .OR. useAbsVorticity.AND.momAdvection )
611       &   ) THEN       &   ) THEN
612         IF (useAbsVorticity) THEN         IF (useAbsVorticity) THEN
613          CALL MOM_VI_U_CORIOLIS(bi,bj,k,vFld,omega3,hFacZ,r_hFacZ,          CALL MOM_VI_U_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv,
614         &                         vFld,omega3,hFacZ,r_hFacZ,
615       &                         uCf,myThid)       &                         uCf,myThid)
616          CALL MOM_VI_V_CORIOLIS(bi,bj,k,uFld,omega3,hFacZ,r_hFacZ,          CALL MOM_VI_V_CORIOLIS(bi,bj,k,selectVortScheme,useJamartMomAdv,
617         &                         uFld,omega3,hFacZ,r_hFacZ,
618       &                         vCf,myThid)       &                         vCf,myThid)
619         ELSE         ELSE
620          CALL MOM_VI_CORIOLIS(bi,bj,k,uFld,vFld,hFacZ,r_hFacZ,          CALL MOM_VI_CORIOLIS(bi,bj,k,uFld,vFld,hFacZ,r_hFacZ,
Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81
  ViewVC Help
Powered by ViewVC 1.1.22