/[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.17 by adcroft, Mon May 24 18:41:05 2004 UTC revision 1.18 by adcroft, Mon May 24 20:03:49 2004 UTC
# Line 237  c     CALL MOM_VI_HFACZ_DISS(bi,bj,k,hFa Line 237  c     CALL MOM_VI_HFACZ_DISS(bi,bj,k,hFa
237    
238        CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid)        CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid)
239    
240        CALL MOM_VI_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid)        CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid)
241    
242  c     CALL MOM_VI_CALC_ABSVORT3(bi,bj,k,vort3,omega3,myThid)  c     CALL MOM_CALC_ABSVORT3(bi,bj,k,vort3,omega3,myThid)
243    
244        IF (momViscosity) THEN        IF (momViscosity) THEN
245  C      Calculate del^2 u and del^2 v for bi-harmonic term  C      Calculate del^2 u and del^2 v for bi-harmonic term
# Line 248  C      Calculate del^2 u and del^2 v for Line 248  C      Calculate del^2 u and del^2 v for
248       O                      del2u,del2v,       O                      del2u,del2v,
249       &                      myThid)       &                      myThid)
250           CALL MOM_CALC_HDIV(bi,bj,k,2,del2u,del2v,dStar,myThid)           CALL MOM_CALC_HDIV(bi,bj,k,2,del2u,del2v,dStar,myThid)
251           CALL MOM_VI_CALC_RELVORT3(           CALL MOM_CALC_RELVORT3(
252       &                         bi,bj,k,del2u,del2v,hFacZ,zStar,myThid)       &                         bi,bj,k,del2u,del2v,hFacZ,zStar,myThid)
253         ENDIF         ENDIF
254  C      Calculate dissipation terms for U and V equations  C      Calculate dissipation terms for U and V equations
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22