/[MITgcm]/MITgcm/model/src/calc_div_ghat.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_div_ghat.F

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

revision 1.2 by cnh, Sat Aug 22 17:51:07 1998 UTC revision 1.3 by cnh, Mon Sep 7 15:36:24 1998 UTC
# Line 52  C        cg2d_b(i,j,bi,bj) = cg2d_b(i,j, Line 52  C        cg2d_b(i,j,bi,bj) = cg2d_b(i,j,
52  C    &    -freeSurfFac*_rA(i,j,bi,bj)*  C    &    -freeSurfFac*_rA(i,j,bi,bj)*
53  C    &     cg2d_x(I  ,J  ,bi,bj)/deltaTMom/deltaTMom  C    &     cg2d_x(I  ,J  ,bi,bj)/deltaTMom/deltaTMom
54           cg2d_b(i,j,bi,bj) =           cg2d_b(i,j,bi,bj) =
55       &    -freeSurfFac*_rA(i,j,bi,bj)*       &    -freeSurfFac*_rA(i,j,bi,bj)*horiVertRatio*
56       &     cg2d_x(I  ,J  ,bi,bj)/deltaTMom/deltaTMom       &     cg2d_x(I  ,J  ,bi,bj)/deltaTMom/deltaTMom
57          ENDDO          ENDDO
58         ENDDO         ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22