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

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

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

revision 1.18 by baylor, Mon Oct 10 18:45:30 2005 UTC revision 1.19 by baylor, Mon Oct 10 19:49:48 2005 UTC
# Line 187  C     == Local variables == Line 187  C     == Local variables ==
187    
188        IF (calcleith) THEN        IF (calcleith) THEN
189          IF (useFullLeith) THEN          IF (useFullLeith) THEN
190           leith2fac=(viscC2leith/pi)**6           leith2fac =(viscC2leith /pi)**6
          leith4fac=0.015625 _d 0*(viscC4leith/pi)**6  
191           leithD2fac=(viscC2leithD/pi)**6           leithD2fac=(viscC2leithD/pi)**6
192             leith4fac =0.015625 _d 0*(viscC4leith /pi)**6
193           leithD4fac=0.015625 _d 0*(viscC4leithD/pi)**6           leithD4fac=0.015625 _d 0*(viscC4leithD/pi)**6
194          ELSE          ELSE
195           leith2fac=(viscC2leith/pi)**3           leith2fac =(viscC2leith /pi)**3
196           leithD2fac=(viscC2leithD/pi)**3           leithD2fac=(viscC2leithD/pi)**3
197           leith4fac=0.0125 _d 0*(viscC4leith/pi)**3           leith4fac =0.125 _d 0*(viscC4leith /pi)**3
198           leithD4fac=0.0125 _d 0*(viscC4leithD/pi)**3           leithD4fac=0.125 _d 0*(viscC4leithD/pi)**3
199          ENDIF          ENDIF
200        ELSE        ELSE
201          leith2fac=0. _d 0          leith2fac=0. _d 0
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22