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

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

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

revision 1.58 by jmc, Tue Dec 5 05:25:08 2006 UTC revision 1.59 by jmc, Wed Jan 17 17:50:54 2007 UTC
# Line 222  C--   Add source term arising from w=d/d Line 222  C--   Add source term arising from w=d/d
222       &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)       &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
223       &         /deltaTMom/deltaTfreesurf       &         /deltaTMom/deltaTfreesurf
224       &         *( etaN(i,j,bi,bj)       &         *( etaN(i,j,bi,bj)
225       &           +phi_nh(i,j,ks,bi,bj)*horiVertRatio/gravity )       &           +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) )
226              cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)              cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
227       &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)       &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
228       &         /deltaTMom/deltaTfreesurf       &         /deltaTMom/deltaTfreesurf
229       &         *( etaN(i,j,bi,bj)       &         *( etaN(i,j,bi,bj)
230       &           +phi_nh(i,j,ks,bi,bj)*horiVertRatio/gravity )       &           +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) )
231             ENDIF             ENDIF
232            ENDDO            ENDDO
233           ENDDO           ENDDO
Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59
  ViewVC Help
Powered by ViewVC 1.1.22