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

Diff of /MITgcm/pkg/mom_fluxform/mom_v_yviscflux.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,       I        vFld, del2v,
13       O        yViscFluxV,       O        yViscFluxV,
14       I        viscAh_D,viscA4_D,       I        viscAh_D,viscA4_D,
15       I        myThid)       I        myThid )
16    
17  C !DESCRIPTION:  C !DESCRIPTION:
18  C Calculates the area integrated meridional viscous fluxes of V:  C Calculates the area integrated meridional viscous fluxes of V:
# Line 54  C     - Laplacian  and bi-harmonic terms Line 54  C     - Laplacian  and bi-harmonic terms
54        DO j=1-Oly,sNy+Oly-1        DO j=1-Oly,sNy+Oly-1
55         DO i=1-Olx,sNx+Olx-1         DO i=1-Olx,sNx+Olx-1
56          yViscFluxV(i,j) =          yViscFluxV(i,j) =
57       & _dxF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)       &    _dxF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
58       &     *(       &     *(
59       &       -viscAh_D(i,j)*(vFld(i,j+1)-vFld(i,j))       &       -viscAh_D(i,j)*( vFld(i,j+1)-vFld(i,j) )
60  #ifdef ISOTROPIC_COS_SCALING  #ifdef ISOTROPIC_COS_SCALING
61       &       *cosFacU(J,bi,bj)       &       *cosFacU(J,bi,bj)
62  #endif  #endif
63       &       +viscA4_D(i,j)*(del2v(i,j+1)       -del2v(i,j)       )       &       +viscA4_D(i,j)*(del2v(i,j+1)-del2v(i,j))
64  #ifdef ISOTROPIC_COS_SCALING  #ifdef ISOTROPIC_COS_SCALING
65  #ifdef COSINEMETH_III  #ifdef COSINEMETH_III
66       &       *sqCosFacU(J,bi,bj)       &       *sqCosFacU(J,bi,bj)
# Line 69  C     - Laplacian  and bi-harmonic terms Line 69  C     - Laplacian  and bi-harmonic terms
69  #endif  #endif
70  #endif  #endif
71       &      )*_recip_dyF(i,j,bi,bj)       &      )*_recip_dyF(i,j,bi,bj)
72    c    &       *deepFacC(k)        ! dxF scaling factor
73    c    &       *recip_deepFacC(k)  ! recip_dyF scaling factor
74    
75         ENDDO         ENDDO
76        ENDDO        ENDDO
77    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22