/[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.5 by edhill, Thu Oct 9 04:19:20 2003 UTC revision 1.6 by jmc, Wed Oct 15 22:53:55 2003 UTC
# Line 53  CEOP Line 53  CEOP
53    
54        DO j=1-Olx+1,sNy+Oly        DO j=1-Olx+1,sNy+Oly
55         DO i=1-Olx,sNx+Olx         DO i=1-Olx,sNx+Olx
56           vMetricTerms(i,j) = -vFld(i,j)*recip_RSphere           vMetricTerms(i,j) = vFld(i,j)*recip_RSphere
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)
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22