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

Diff of /MITgcm/pkg/mom_vecinv/mom_vi_u_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    &               +vFld(i-1,j)+vFld(i Line 55  c    &               +vFld(i-1,j)+vFld(i
55       &               +omega3(i,j+1)*r_hFacZ(i,j+1))       &               +omega3(i,j+1)*r_hFacZ(i,j+1))
56           ENDIF           ENDIF
57           uCoriolisTerm(i,j)=           uCoriolisTerm(i,j)=
 C high order vorticity advection term  
58       &   +vort3u*vBarXY*recip_dxc(i,j,bi,bj)       &   +vort3u*vBarXY*recip_dxc(i,j,bi,bj)
59         &   *_maskW(I,J,K,bi,bj)
60    cph *note* put these comments after end of continued line
61    cph        to ensure TAMC compatibility
62    C high order vorticity advection term
63    c    &   ...
64  C linear Coriolis term  C linear Coriolis term
65  c    &   +0.5*(fCoriG(I,J,bi,bj)+fCoriG(I,J+1,bi,bj))*vBarXY  c    &   +0.5*(fCoriG(I,J,bi,bj)+fCoriG(I,J+1,bi,bj))*vBarXY
66  C full nonlinear Coriolis term  C full nonlinear Coriolis term
# Line 66  c    &   +0.5*( fCori(I  ,J,bi,bj)*vBarY Line 70  c    &   +0.5*( fCori(I  ,J,bi,bj)*vBarY
70  c    &          fCori(I-1,J,bi,bj)*vBarY(I-1,J,K,bi,bj)  )  c    &          fCori(I-1,J,bi,bj)*vBarY(I-1,J,K,bi,bj)  )
71  C original form of Coriolis term (copied from calc_mom_rhs)  C original form of Coriolis term (copied from calc_mom_rhs)
72  c    &   +0.5*(fCori(i,j,bi,bj)+fCori(i-1,j,bi,bj))*vBarXY  c    &   +0.5*(fCori(i,j,bi,bj)+fCori(i-1,j,bi,bj))*vBarXY
      &   *_maskW(I,J,K,bi,bj)  
73          ENDDO          ENDDO
74         ENDDO         ENDDO
75    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22