/[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.3 by adcroft, Mon May 24 15:37:02 2004 UTC revision 1.4 by dimitri, Tue Nov 2 23:57:29 2004 UTC
# Line 61  C     - Laplacian  and bi-harmonic terms Line 61  C     - Laplacian  and bi-harmonic terms
61       &            viscAhMax)       &            viscAhMax)
62          A4tmp=min(viscA4+viscA4Grid*(rAs(i,j,bi,bj)**2)/deltaTmom,          A4tmp=min(viscA4+viscA4Grid*(rAs(i,j,bi,bj)**2)/deltaTmom,
63       &            viscA4Max)       &            viscA4Max)
64            IF (viscA4GridMax.GT.0.) THEN
65               A4tmp=min(A4tmp,viscA4GridMax*(rAw(i,j,bi,bj)**2)/deltaTmom)
66            ENDIF
67            A4tmp=max(A4tmp,viscA4GridMin*(rAw(i,j,bi,bj)**2)/deltaTmom)
68          vDragTerms(i,j) =          vDragTerms(i,j) =
69       &   -_recip_hFacS(i,j,k,bi,bj)       &   -_recip_hFacS(i,j,k,bi,bj)
70       &   *recip_drF(k)*recip_rAs(i,j,bi,bj)       &   *recip_drF(k)*recip_rAs(i,j,bi,bj)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22