/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_u_coriolis_nh.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_u_coriolis_nh.F

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

revision 1.2 by edhill, Thu Oct 9 04:19:20 2003 UTC revision 1.3 by jmc, Wed Oct 15 22:53:55 2003 UTC
# Line 53  C Energy conserving discretization of 2* Line 53  C Energy conserving discretization of 2*
53        DO j=1-Oly,sNy+Oly-1        DO j=1-Oly,sNy+Oly-1
54         DO i=1-Olx+1,sNx+Olx         DO i=1-Olx+1,sNx+Olx
55          uCoriolisTerm(i,j) =          uCoriolisTerm(i,j) =
56       &   -0.5*( fCoriCos( i ,j,bi,bj)       &    0.5*( fCoriCos( i ,j,bi,bj)
57       &         *0.5*( wFld( i ,j,k,bi,bj)+wFld( i ,j,kp1,bi,bj)*wMsk )       &         *0.5*( wFld( i ,j,k,bi,bj)+wFld( i ,j,kp1,bi,bj)*wMsk )
58       &        + fCoriCos(i-1,j,bi,bj)       &        + fCoriCos(i-1,j,bi,bj)
59       &         *0.5*( wFld(i-1,j,k,bi,bj)+wFld(i-1,j,kp1,bi,bj)*wMsk ) )       &         *0.5*( wFld(i-1,j,k,bi,bj)+wFld(i-1,j,kp1,bi,bj)*wMsk ) )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22