/[MITgcm]/MITgcm/pkg/mom_common/mom_u_metric_nh.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_u_metric_nh.F

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

revision 1.1 by jmc, Thu Mar 30 19:37:54 2006 UTC revision 1.2 by jmc, Tue Dec 5 05:27:38 2006 UTC
# Line 53  CEOP Line 53  CEOP
53    
54        DO j=1-Olx,sNy+Oly        DO j=1-Olx,sNy+Oly
55         DO i=1-Olx+1,sNx+Olx         DO i=1-Olx+1,sNx+Olx
56           uMetricTerms(i,j) = uFld(i,j)*recip_RSphere           uMetricTerms(i,j) = uFld(i,j)*recip_rSphere*recip_deepFacC(k)
57       &    *0.25*(wVelBottomOverride*       &    *0.25*(wVelBottomOverride*
58       &            (wFld(i-1,j,kp1,bi,bj)+wFld(i,j,kp1,bi,bj))       &            (wFld(i-1,j,kp1,bi,bj)+wFld(i,j,kp1,bi,bj))
59       &            +wFld(i-1,j, k ,bi,bj)+wFld(i,j, k ,bi,bj)       &            +wFld(i-1,j, k ,bi,bj)+wFld(i,j, k ,bi,bj)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22