/[MITgcm]/MITgcm/pkg/mom_common/MOM_VISC.h
ViewVC logotype

Contents of /MITgcm/pkg/mom_common/MOM_VISC.h

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

Revision 1.4 - (show annotations) (download)
Sun Jul 28 21:02:33 2013 UTC (10 years, 11 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64p, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n
Changes since 1.3: +23 -8 lines
File MIME type: text/plain 
- move horiz-viscosity 3-D arrays viscAh_W & viscA4_W (used in calc_gw.F)
  from model/inc/NH_VARS.h to pkg/mom_common/MOM_VISC.h
  + initialise them in pkg/mom_common/mom_init_fixed.F
- store in common block (in MOM_VISC.h): useHarmonicVisc, useBiharmonicVisc
  & useVariableVisc, (previously local flag harmonic, biharmonic
  & useVariableViscosity, were set for each k in mom_common/mom_calc_visc.F)
1 C $Header: /u/gcmpack/MITgcm/pkg/mom_common/MOM_VISC.h,v 1.3 2011/03/31 20:33:01 jmc Exp $
2 C $Name: $
3
4 C- Common file for length scales
5
6 #ifdef ALLOW_MOM_COMMON
7
8 C-- COMMON /MOM_VISC_PAR_L/ logical-type parameters for Momemtum viscosity
9 C useHarmonicVisc :: harmonic horizontal viscosity is used
10 C useBiharmonicVisc :: biharmonic horizontal viscosity is used
11 C useVariableVisc :: variable (in space or time) viscosity is used
12 COMMON /MOM_VISC_PAR_L/
13 & useHarmonicVisc, useBiharmonicVisc, useVariableVisc
14 LOGICAL useHarmonicVisc, useBiharmonicVisc, useVariableVisc
15
16 COMMON /MOM_VISC_LENGTH/ L2_D, L2_Z,
17 & L3_D, L3_Z,
18 & L4rdt_D, L4rdt_Z
19 _RL L2_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
20 _RL L2_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
21 _RL L3_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
22 _RL L3_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
23 _RL L4rdt_D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
24 _RL L4rdt_Z(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
25
26 #ifdef ALLOW_3D_VISCAH
27 C viscAhDfld, viscAhZfld :: full 3D specification of Laplacian Viscosity
28 C coeff. for mixing of momentum horizontally ( units of m^2/s )
29 COMMON /MOM_VISC_3D_VISCAH/
30 & viscAhDfld, viscAhZfld
31 _RL viscAhDfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
32 _RL viscAhZfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
33 #endif
34
35 #ifdef ALLOW_3D_VISCA4
36 C viscA4Dfld, viscA4Zfld :: full 3D specification of Bi-harmonic Viscosity
37 C coeff. for mixing of momentum horizontally ( units of m^4/s )
38 COMMON /MOM_VISC_3D_VISCA4/
39 & viscA4Dfld, viscA4Zfld
40 _RL viscA4Dfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
41 _RL viscA4Zfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
42 #endif
43
44 #ifdef ALLOW_NONHYDROSTATIC
45 C viscAh_W :: Horizontal harmonic viscosity for vertical momentum
46 C viscA4_W :: Horizontal biharmonic viscosity for vertical momentum
47 COMMON /MOM_VISC_NH/
48 & viscAh_W, viscA4_W
49 _RL viscAh_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
50 _RL viscA4_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
51 #endif /* ALLOW_NONHYDROSTATIC */
52
53 #endif /* ALLOW_MOM_COMMON */
  ViewVC Help
Powered by ViewVC 1.1.22