/[MITgcm]/MITgcm/pkg/mom_vecinv/mom_vi_del2uv.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_vecinv/mom_vi_del2uv.F

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

revision 1.2 by adcroft, Tue May 29 14:01:39 2001 UTC revision 1.3 by jmc, Sat Oct 27 02:04:43 2001 UTC
# Line 59  c    &   +                         ( Dij Line 59  c    &   +                         ( Dij
59  c    &   -recip_hFacW(i,j,k,bi,bj)*( Zip-Zij ) )  c    &   -recip_hFacW(i,j,k,bi,bj)*( Zip-Zij ) )
60          del2u(i,j) =          del2u(i,j) =
61       &   +                         ( Dij-Dmj )*recip_DXC(i,j,bi,bj)       &   +                         ( Dij-Dmj )*recip_DXC(i,j,bi,bj)
62       &   -recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYU(i,j,bi,bj)       &   -recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj)
63    
64  c       del2v(i,j) = recip_rAs(i,j,bi,bj)*(  c       del2v(i,j) = recip_rAs(i,j,bi,bj)*(
65  c    &    recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )  c    &    recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )
# Line 68  c       del2v(i,j) = recip_rAs(i,j,bi,bj Line 68  c       del2v(i,j) = recip_rAs(i,j,bi,bj
68  c    &    recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )  c    &    recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )
69  c    &   +                         ( Dij-Dim ) )  c    &   +                         ( Dij-Dim ) )
70          del2v(i,j) =          del2v(i,j) =
71       &    recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXV(i,j,bi,bj)       &    recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj)
72       &   +                         ( Dij-Dim )*recip_DYC(i,j,bi,bj)       &   +                         ( Dij-Dim )*recip_DYC(i,j,bi,bj)
73    
74         ENDDO         ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22