/[MITgcm]/MITgcm/pkg/mom_vecinv/mom_vi_v_coriolis.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_vecinv/mom_vi_v_coriolis.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by adcroft, Tue May 29 14:01:39 2001 UTC revision 1.3 by heimbach, Wed Sep 5 17:46:03 2001 UTC
# Line 55  c    &                +uFld(i,j-1)+uFld( Line 55  c    &                +uFld(i,j-1)+uFld(
55       &               +omega3(i+1,j)*r_hFacZ(i+1,j))       &               +omega3(i+1,j)*r_hFacZ(i+1,j))
56           ENDIF           ENDIF
57           vCoriolisTerm(i,j)=           vCoriolisTerm(i,j)=
 C high order vorticity advection term  
58       &   -vort3v*uBarXY*recip_dyc(i,j,bi,bj)       &   -vort3v*uBarXY*recip_dyc(i,j,bi,bj)
59         &   *_maskS(I,J,K,bi,bj)
60    C high order vorticity advection term
61    c    &   ...
62  C linear Coriolis term  C linear Coriolis term
63  c    &   -0.5 *(fCoriG(I,J,bi,bj)+fCoriG(I+1,J,bi,bj))*uBarXY  c    &   -0.5 *(fCoriG(I,J,bi,bj)+fCoriG(I+1,J,bi,bj))*uBarXY
64  C full nonlinear Coriolis term  C full nonlinear Coriolis term
# Line 66  c    &   -0.5 *( fCori(I,J  ,bi,bj)*uBar Line 68  c    &   -0.5 *( fCori(I,J  ,bi,bj)*uBar
68  c    &           fCori(I,J-1,bi,bj)*uBarX(I,J-1,K,bi,bj)  )  c    &           fCori(I,J-1,bi,bj)*uBarX(I,J-1,K,bi,bj)  )
69  C original form of Coriolis term (copied from calc_mom_rhs)  C original form of Coriolis term (copied from calc_mom_rhs)
70  c    &   -0.5*(fCori(i,j,bi,bj)+fCori(i,j-1,bi,bj))*uBarXY  c    &   -0.5*(fCori(i,j,bi,bj)+fCori(i,j-1,bi,bj))*uBarXY
      &   *_maskS(I,J,K,bi,bj)  
71          ENDDO          ENDDO
72         ENDDO         ENDDO
73    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22