/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_v_xviscflux.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_v_xviscflux.F

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

revision 1.6 by baylor, Mon Sep 26 15:27:11 2005 UTC revision 1.7 by jmc, Tue Dec 5 05:30:38 2006 UTC
# Line 12  C !INTERFACE: ========================== Line 12  C !INTERFACE: ==========================
12       I        vFld, del2v, hFacZ,       I        vFld, del2v, hFacZ,
13       O        xViscFluxV,       O        xViscFluxV,
14       I        viscAh_Z,viscA4_Z,       I        viscAh_Z,viscA4_Z,
15       I        myThid)       I        myThid )
16    
17  C !DESCRIPTION:  C !DESCRIPTION:
18  C Calculates the area integrated zonal viscous fluxes of V:  C Calculates the area integrated zonal viscous fluxes of V:
# Line 55  C     - Laplacian  and bi-harmonic terms Line 55  C     - Laplacian  and bi-harmonic terms
55        DO j=1-Oly,sNy+Oly        DO j=1-Oly,sNy+Oly
56         DO i=1-Olx+1,sNx+Olx         DO i=1-Olx+1,sNx+Olx
57          xViscFluxV(i,j) =          xViscFluxV(i,j) =
58       &     _dyU(i,j,bi,bj)*drF(k)*hFacZ(i,j)       &    _dyU(i,j,bi,bj)*drF(k)*hFacZ(i,j)
59       &     *(       &     *(
60       &       -viscAh_Z(i,j)*(vFld(i,j)-vFld(i-1,j))       &       -viscAh_Z(i,j)*( vFld(i,j)-vFld(i-1,j) )
61       &       *cosFacV(J,bi,bj)       &       *cosFacV(J,bi,bj)
62       &       +viscA4_Z(i,j)*(del2v(i,j)       -del2v(i-1,j)       )       &       +viscA4_Z(i,j)*(del2v(i,j)-del2v(i-1,j))
63  #ifdef COSINEMETH_III  #ifdef COSINEMETH_III
64       &      *sqcosFacV(J,bi,bj)       &       *sqCosFacV(J,bi,bj)
65  #else  #else
66       &      *cosFacV(J,bi,bj)       &       *cosFacV(J,bi,bj)
67  #endif  #endif
68       &      )*_recip_dxV(i,j,bi,bj)       &      )*_recip_dxV(i,j,bi,bj)
69    c    &       *deepFacC(k)        ! dyU scaling factor
70    c    &       *recip_deepFacC(k)  ! recip_dxV scaling factor
71         ENDDO         ENDDO
72        ENDDO        ENDDO
73    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22