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

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

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

revision 1.4 by adcroft, Fri Sep 28 03:25:15 2001 UTC revision 1.5 by adcroft, Mon Nov 26 16:13:27 2001 UTC
# Line 50  C Energy conserving discretization Line 50  C Energy conserving discretization
50         DO j=1-Oly+1,sNy+Oly         DO j=1-Oly+1,sNy+Oly
51          DO i=1-Olx,sNx+Olx-1          DO i=1-Olx,sNx+Olx-1
52           vCoriolisTerm(i,j) =           vCoriolisTerm(i,j) =
53       &     0.5*( _fCori(i, j ,bi,bj)       &    -0.5*( _fCori(i, j ,bi,bj)
54       &          *0.5*( uFld( i , j )+uFld(i+1, j ) )       &          *0.5*( uFld( i , j )+uFld(i+1, j ) )
55       &         + _fCori(i,j-1,bi,bj)       &         + _fCori(i,j-1,bi,bj)
56       &          *0.5*( uFld( i ,j-1)+uFld(i+1,j-1) ) )       &          *0.5*( uFld( i ,j-1)+uFld(i+1,j-1) ) )
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22