/[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.4 by edhill, Thu Oct 9 04:19:20 2003 UTC revision 1.5 by baylor, Fri Sep 16 20:57:09 2005 UTC
# Line 11  C !INTERFACE: ========================== Line 11  C !INTERFACE: ==========================
11       I        bi,bj,k,       I        bi,bj,k,
12       I        vFld, del2v,       I        vFld, del2v,
13       O        yViscFluxV,       O        yViscFluxV,
14         I        viscAh_Z,viscAh_D,viscA4_Z,viscA4_D,
15       I        myThid)       I        myThid)
16    
17  C !DESCRIPTION:  C !DESCRIPTION:
# Line 36  C  myThid               :: thread number Line 37  C  myThid               :: thread number
37        INTEGER bi,bj,k        INTEGER bi,bj,k
38        _RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL vFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
39        _RL del2v(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL del2v(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
40          _RL viscAh_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
41          _RL viscAh_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
42          _RL viscA4_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
43          _RL viscA4_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
44        INTEGER myThid        INTEGER myThid
45    
46  C !OUTPUT PARAMETERS: ==================================================  C !OUTPUT PARAMETERS: ==================================================
# Line 53  C     - Laplacian  and bi-harmonic terms Line 58  C     - Laplacian  and bi-harmonic terms
58          yViscFluxV(i,j) =          yViscFluxV(i,j) =
59       & _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)
60       &     *(       &     *(
61       &       -viscAh*(vFld(i,j+1)-vFld(i,j))       &       -viscAh_D(i,j)*(vFld(i,j+1)-vFld(i,j))
62  #ifdef ISOTROPIC_COS_SCALING  #ifdef ISOTROPIC_COS_SCALING
63       &       *cosFacU(J,bi,bj)       &       *cosFacU(J,bi,bj)
64  #endif  #endif
65       &       +viscA4*(del2v(i,j+1)       -del2v(i,j)       )       &       +viscA4_D(i,j)*(del2v(i,j+1)       -del2v(i,j)       )
66  #ifdef ISOTROPIC_COS_SCALING  #ifdef ISOTROPIC_COS_SCALING
67  #ifdef COSINEMETH_III  #ifdef COSINEMETH_III
68       &       *sqCosFacU(J,bi,bj)       &       *sqCosFacU(J,bi,bj)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22