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

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

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

revision 1.9 by jmc, Thu Sep 29 18:36:43 2005 UTC revision 1.10 by jmc, Fri Sep 30 00:11:34 2005 UTC
# Line 92  C       (but this might just be what we Line 92  C       (but this might just be what we
92       &      *_recip_dxV(i+1,j,bi,bj) )       &      *_recip_dxV(i+1,j,bi,bj) )
93       &   *drF(k)*2.*(       &   *drF(k)*2.*(
94       &                Ahtmp*vFld(i,j)*cosFacV(J,bi,bj)       &                Ahtmp*vFld(i,j)*cosFacV(J,bi,bj)
      &               -A4tmp*del2v(i,j)*cosFacV(J,bi,bj)  
95  #ifdef COSINEMETH_III  #ifdef COSINEMETH_III
96       &               -viscA4*del2v(i,j)*sqcosFacV(J,bi,bj)       &               -viscA4*del2v(i,j)*sqcosFacV(J,bi,bj)
97  #else  #else
98       &               -viscA4*del2v(i,j)*cosFacV(J,bi,bj)       &               -A4tmp*del2v(i,j)*cosFacV(J,bi,bj)
99  #endif  #endif
100       &              )       &              )
101         ENDDO         ENDDO
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22