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

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

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

revision 1.3 by adcroft, Wed Sep 26 19:05:21 2001 UTC revision 1.3.6.1 by heimbach, Fri Mar 7 04:46:40 2003 UTC
# Line 57  CEOP Line 57  CEOP
57       &    *0.25*(wVelBottomOverride*       &    *0.25*(wVelBottomOverride*
58       &           (wFld(i,j,kp1,bi,bj)+wFld(i,j-1,kp1,bi,bj))       &           (wFld(i,j,kp1,bi,bj)+wFld(i,j-1,kp1,bi,bj))
59       &           +wFld(i,j, k ,bi,bj)+wFld(i,j-1, k ,bi,bj)       &           +wFld(i,j, k ,bi,bj)+wFld(i,j-1, k ,bi,bj)
60       &          )*rkFac*recip_horiVertRatio       &          )*rkFac*recip_horiVertRatio*gravitySign
61         ENDDO         ENDDO
62        ENDDO        ENDDO
63    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.6.1
  ViewVC Help
Powered by ViewVC 1.1.22