/[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.6 by jmc, Tue Sep 27 00:13:37 2005 UTC revision 1.7 by jmc, Thu Sep 29 02:31:55 2005 UTC
# Line 70  C     - Laplacian  and bi-harmonic terms Line 70  C     - Laplacian  and bi-harmonic terms
70          A4tmp=min(viscA4+viscA4Grid*(rAs(i,j,bi,bj)**2)/deltaTmom,          A4tmp=min(viscA4+viscA4Grid*(rAs(i,j,bi,bj)**2)/deltaTmom,
71       &            viscA4Max)       &            viscA4Max)
72          IF (viscA4GridMax.GT.0.) THEN          IF (viscA4GridMax.GT.0.) THEN
73             A4tmp=min(A4tmp,viscA4GridMax*(rAw(i,j,bi,bj)**2)/deltaTmom)             A4tmp=min(A4tmp,viscA4GridMax*(rAs(i,j,bi,bj)**2)/deltaTmom)
74          ENDIF          ENDIF
75          A4tmp=max(A4tmp,viscA4GridMin*(rAw(i,j,bi,bj)**2)/deltaTmom)          A4tmp=max(A4tmp,viscA4GridMin*(rAs(i,j,bi,bj)**2)/deltaTmom)
76          vDragTerms(i,j) =          vDragTerms(i,j) =
77       &   -_recip_hFacS(i,j,k,bi,bj)       &   -_recip_hFacS(i,j,k,bi,bj)
78       &   *recip_drF(k)*recip_rAs(i,j,bi,bj)       &   *recip_drF(k)*recip_rAs(i,j,bi,bj)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22