/[MITgcm]/MITgcm/pkg/ggl90/GGL90.h
ViewVC logotype

Diff of /MITgcm/pkg/ggl90/GGL90.h

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

revision 1.8 by mlosch, Sat Feb 21 01:43:14 2015 UTC revision 1.9 by jmc, Sun Feb 22 21:01:23 2015 UTC
# Line 18  C     \================================= Line 18  C     \=================================
18  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
19  C  C
20  C Parameters that can be set in data.ggl90  C Parameters that can be set in data.ggl90
21  C     unless otherwise noted, equation numbers refer to Gaspar et al.  C     unless otherwise noted, equation numbers refer to Gaspar et al.
22  C     (1990), JGR, 95(C9) pp. 16,179ff.  C     (1990), JGR, 95(C9) pp. 16,179ff.
23  C      C
24  C     GGL90ck         - constant in viscosity coefficient (eq.10)  C     GGL90ck         - constant in viscosity coefficient (eq.10)
25  C     GGL90ceps       - dissipation constant according to Kolmogorov (1942)  C     GGL90ceps       - dissipation constant according to Kolmogorov (1942)
26  C     GGL90m2         - constant relating wind stress to vertical stress of TKE  C     GGL90m2         - constant relating wind stress to vertical stress of TKE
# Line 30  C                      (default=1 in Gas Line 30  C                      (default=1 in Gas
30  C     GGL90TKEsurfmin - minimum of surface kinetic energy boundary condition  C     GGL90TKEsurfmin - minimum of surface kinetic energy boundary condition
31  C                      (default=GGL90TKEmin)  C                      (default=GGL90TKEmin)
32  C     GGL90TKEmin     - minimum kinetic energy, leads to minimum mixing if TKE=0.  C     GGL90TKEmin     - minimum kinetic energy, leads to minimum mixing if TKE=0.
33  C     GGL90TKEbottom  - bottom bounardy condition for kinetic energy  C     GGL90TKEbottom  - bottom bounardy condition for kinetic energy
34  C                      (default=GGL90TKEmin)  C                      (default=GGL90TKEmin)
35  C     GGL90TKEFile    - File with initial field of TKE  C     GGL90TKEFile    - File with initial field of TKE
36  C     GGL90mixingLengthMin - Mininum mixing length  C     GGL90mixingLengthMin - Mininum mixing length
# Line 39  C     mxlSurfFlag     - Flag to force mi Line 39  C     mxlSurfFlag     - Flag to force mi
39  C  C
40  C     useIDEMIX       - turn on internal wave mixing contribution modeled by  C     useIDEMIX       - turn on internal wave mixing contribution modeled by
41  C                       IDEMIX:  C                       IDEMIX:
42  C                     - Olbers, D. and Eden, C. (2013)  C                     - Olbers, D. and Eden, C. (2013)
43  C                       doi:10.1175/JPO-D-12-0207.1  C                       doi:10.1175/JPO-D-12-0207.1
44  C                     - Eden, C. and Olbers, D. (2014)  C                     - Eden, C. and Olbers, D. (2014)
45  C                       doi:10.1175/JPO-D-13-0224.1  C                       doi:10.1175/JPO-D-13-0224.1
46  C  C
47  C     GGL90dumpFreq   - analogue of dumpFreq (= default)  C     GGL90dumpFreq   - analogue of dumpFreq (= default)
# Line 52  C Line 52  C
52  C Time varying parameters computed by subroutine ggl90_calc  C Time varying parameters computed by subroutine ggl90_calc
53  C     GGL90TKE    - prognostic variable stepped forward in time ((m/s)^2)  C     GGL90TKE    - prognostic variable stepped forward in time ((m/s)^2)
54  C     GGL90viscAr - Vertical eddy viscosity coefficient         (m^2/s)  C     GGL90viscAr - Vertical eddy viscosity coefficient         (m^2/s)
55  C     GGL90diffKr - Vertical diffusion coefficient for heat,  C     GGL90diffKr - Vertical diffusion coefficient for heat,
56  C                salt and tracers                            (m^2/s)  C                salt and tracers                            (m^2/s)
57  C  C
58  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
# Line 65  CEOP Line 65  CEOP
65    
66        CHARACTER*(MAX_LEN_FNAM) GGL90TKEFile        CHARACTER*(MAX_LEN_FNAM) GGL90TKEFile
67        COMMON /GGL90_PARMS_C/ GGL90TKEFile        COMMON /GGL90_PARMS_C/ GGL90TKEFile
       
68    
69        _RL    GGL90ck, GGL90ceps        _RL    GGL90ck, GGL90ceps
70        _RL    GGL90alpha, GGL90m2        _RL    GGL90alpha, GGL90m2
# Line 75  CEOP Line 74  CEOP
74        _RL    GGL90viscMax, GGL90diffMax        _RL    GGL90viscMax, GGL90diffMax
75        _RL    GGL90dumpFreq, GGL90taveFreq        _RL    GGL90dumpFreq, GGL90taveFreq
76        INTEGER mxlMaxFlag        INTEGER mxlMaxFlag
77        COMMON /GGL90_PARMS_R/          COMMON /GGL90_PARMS_R/
78       &     GGL90ck, GGL90ceps,       &     GGL90ck, GGL90ceps,
79       &     GGL90alpha, GGL90m2,       &     GGL90alpha, GGL90m2,
80       &     GGL90diffTKEh,       &     GGL90diffTKEh,
# Line 132  c--------------------------------------- Line 131  c---------------------------------------
131        COMMON /GGL90_IDEMIX_01/ IDEMIX_E,IDEMIX_v0,IDEMIX_tau_d        COMMON /GGL90_IDEMIX_01/ IDEMIX_E,IDEMIX_v0,IDEMIX_tau_d
132       &     ,IDEMIX_F_b,IDEMIX_F_S       &     ,IDEMIX_F_b,IDEMIX_F_S
133       &     ,IDEMIX_tau_v,IDEMIX_tau_h,IDEMIX_gamma,IDEMIX_jstar       &     ,IDEMIX_tau_v,IDEMIX_tau_h,IDEMIX_gamma,IDEMIX_jstar
134       &     ,IDEMIX_mu0,IDEMIX_mixing_efficiency,IDEMIX_diff_max       &     ,IDEMIX_mu0,IDEMIX_mixing_efficiency,IDEMIX_diff_max
135       &     ,IDEMIX_diff_min,IDEMIX_frac_F_b, IDEMIX_frac_F_s       &     ,IDEMIX_diff_min,IDEMIX_frac_F_b, IDEMIX_frac_F_s
136    
137        CHARACTER*(MAX_LEN_FNAM)        CHARACTER*(MAX_LEN_FNAM)
138       &               IDEMIX_tidal_file,IDEMIX_wind_file       &            IDEMIX_tidal_file, IDEMIX_wind_file
139        logical :: IDEMIX_include_GM,IDEMIX_include_GM_bottom        LOGICAL     IDEMIX_include_GM, IDEMIX_include_GM_bottom
140        COMMON /GLL90_IMIX_02/        COMMON /GLL90_IMIX_02/
141       &            IDEMIX_tidal_file,IDEMIX_wind_file,       &            IDEMIX_tidal_file, IDEMIX_wind_file,
142       &            IDEMIX_include_GM,IDEMIX_include_GM_bottom       &            IDEMIX_include_GM, IDEMIX_include_GM_bottom
143  #endif /* ALLOW_GGL90_IDEMIX */  #endif /* ALLOW_GGL90_IDEMIX */
144    
145  #endif /* ALLOW_GGL90 */  #endif /* ALLOW_GGL90 */
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22