/[MITgcm]/MITgcm/pkg/gmredi/GMREDI.h
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/GMREDI.h

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

revision 1.8 by heimbach, Thu Nov 14 22:43:49 2002 UTC revision 1.12 by edhill, Fri Jul 29 18:24:35 2005 UTC
# Line 8  C     Package flag Line 8  C     Package flag
8        logical GM_AdvForm        logical GM_AdvForm
9        logical GM_AdvSeparate        logical GM_AdvSeparate
10        logical GM_ExtraDiag        logical GM_ExtraDiag
11          logical GM_MNC
12          logical GM_MDSIO
13        COMMON /GM_PACKAGE/ GMREDIisON,        COMMON /GM_PACKAGE/ GMREDIisON,
14       &                    GM_AdvForm, GM_AdvSeparate,       &                    GM_AdvForm, GM_AdvSeparate,
15       &                    GM_ExtraDiag       &                    GM_ExtraDiag, GM_MNC, GM_MDSIO
16    
17  C     GM/Redi parameters  C     GM/Redi parameters
18    C     GM_Small_Number :: epsilon used in computing the slope
19    C     GM_slopeSqCutoff :: slope^2 cut-off value
20        _RL GM_isopycK        _RL GM_isopycK
21        _RL GM_background_K        _RL GM_background_K
22        _RL GM_maxSlope        _RL GM_maxSlope
23        _RL GM_Kmin_horiz        _RL GM_Kmin_horiz
24          _RL GM_Small_Number
25          _RL GM_slopeSqCutoff
26        _RL GM_Visbeck_alpha        _RL GM_Visbeck_alpha
27        _RL GM_Visbeck_length        _RL GM_Visbeck_length
28        _RL GM_Visbeck_depth        _RL GM_Visbeck_depth
# Line 27  C     GM/Redi parameters Line 33  C     GM/Redi parameters
33        COMMON /GM_PARAMS/ GM_isopycK, GM_background_K,        COMMON /GM_PARAMS/ GM_isopycK, GM_background_K,
34       &                   GM_maxSlope,       &                   GM_maxSlope,
35       &                   GM_Kmin_horiz,       &                   GM_Kmin_horiz,
36         &                   GM_Small_Number, GM_slopeSqCutoff,
37       &                   GM_Visbeck_alpha,       &                   GM_Visbeck_alpha,
38       &                   GM_Visbeck_length,       &                   GM_Visbeck_length,
39       &                   GM_Visbeck_depth,       &                   GM_Visbeck_depth,
# Line 35  C     GM/Redi parameters Line 42  C     GM/Redi parameters
42       &                   GM_Scrit,       &                   GM_Scrit,
43       &                   GM_Sd       &                   GM_Sd
44    
45        _RL        GM_Small_Number        _RL op5
46        PARAMETER( GM_Small_Number=   1. _d -8 )        _RL op25
47        _RL        GM_adjointRescale        PARAMETER( op5 = 0.5D0 )
48        PARAMETER( GM_adjointRescale= 1. _d 0 )        PARAMETER( op25 = 0.25D0 )
49    
50  C     More GM/Redi parameters diagnosed from previous block  C     More GM/Redi parameters diagnosed from previous block
51  C     (not directly user configured)  C     (not directly user configured)
# Line 99  C     for Visbeck et al. parameterizatio Line 106  C     for Visbeck et al. parameterizatio
106  #endif  #endif
107    
108  #endif /* ALLOW_GMREDI */  #endif /* ALLOW_GMREDI */
109    
110    CEH3 ;;; Local Variables: ***
111    CEH3 ;;; mode:fortran ***
112    CEH3 ;;; End: ***
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22