/[MITgcm]/MITgcm/pkg/mom_common/mom_hdissip.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_hdissip.F

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

revision 1.5 by baylor, Tue Sep 20 19:43:38 2005 UTC revision 1.6 by baylor, Mon Sep 26 15:27:11 2005 UTC
# Line 7  C $Name$ Line 7  C $Name$
7       I        bi,bj,k,       I        bi,bj,k,
8       I        hDiv,vort3,tension,strain,KE,       I        hDiv,vort3,tension,strain,KE,
9       I        hFacZ,       I        hFacZ,
10         I        viscAh_s,viscAh_t,viscA4_s,viscA4_t,
11         I        harmonic,biharmonic,useVariableViscosity,
12       O        uDissip,vDissip,       O        uDissip,vDissip,
13       I        myThid)       I        myThid)
14        IMPLICIT NONE        IMPLICIT NONE
# Line 32  C     == Routine arguments == Line 34  C     == Routine arguments ==
34        _RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RS hFacZ(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
35        _RL uDissip(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL uDissip(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
36        _RL vDissip(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL vDissip(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
       INTEGER myThid  
   
 C     == Local variables ==  
       INTEGER I,J  
       _RL viscAh_t(1-OLx:sNx+OLx,1-OLy:sNy+OLy)  
37        _RL viscAh_s(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL viscAh_s(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
38        _RL viscA4_t(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL viscAh_t(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
39        _RL viscA4_s(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL viscA4_s(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
40          _RL viscA4_t(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
41        LOGICAL harmonic, biharmonic, useVariableViscosity        LOGICAL harmonic, biharmonic, useVariableViscosity
42          INTEGER myThid
43    
44        CALL MOM_CALC_VISC(  C     == Local variables ==
45       I        bi,bj,k,        INTEGER I,J
      O        viscAh_s,viscAh_t,viscA4_s,viscA4_t,  
      O        harmonic,biharmonic,useVariableViscosity,  
      I        hDiv,vort3,tension,strain,KE,hfacZ,  
      I        myThid)  
46    
47  C     - Laplacian and bi-harmonic terms  C     - Laplacian and bi-harmonic terms
48        IF (harmonic) THEN        IF (harmonic) THEN
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22