/[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.9 by heimbach, Fri Jan 10 00:48:39 2003 UTC revision 1.14 by gforget, Fri May 30 02:50:16 2008 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_InMomAsStress
12          logical GM_MNC
13          logical GM_MDSIO
14        COMMON /GM_PACKAGE/ GMREDIisON,        COMMON /GM_PACKAGE/ GMREDIisON,
15       &                    GM_AdvForm, GM_AdvSeparate,       &                    GM_AdvForm, GM_AdvSeparate,
16       &                    GM_ExtraDiag       &                    GM_ExtraDiag, GM_MNC, GM_MDSIO,
17         &                    GM_InMomAsStress
18    
19  C     GM/Redi parameters  C     GM/Redi parameters
20    C     GM_Small_Number :: epsilon used in computing the slope
21    C     GM_slopeSqCutoff :: slope^2 cut-off value
22        _RL GM_isopycK        _RL GM_isopycK
23        _RL GM_background_K        _RL GM_background_K
24        _RL GM_maxSlope        _RL GM_maxSlope
25        _RL GM_Kmin_horiz        _RL GM_Kmin_horiz
26          _RL GM_Small_Number
27          _RL GM_slopeSqCutoff
28        _RL GM_Visbeck_alpha        _RL GM_Visbeck_alpha
29        _RL GM_Visbeck_length        _RL GM_Visbeck_length
30        _RL GM_Visbeck_depth        _RL GM_Visbeck_depth
31        _RL GM_Visbeck_maxval_K        _RL GM_Visbeck_maxval_K
32        CHARACTER*(MAX_LEN_FNAM) GM_taper_scheme        CHARACTER*(40) GM_taper_scheme
33        _RL GM_Scrit        _RL GM_Scrit
34        _RL GM_Sd        _RL GM_Sd
35        COMMON /GM_PARAMS/ GM_isopycK, GM_background_K,        COMMON /GM_PARAMS/ GM_isopycK, GM_background_K,
36       &                   GM_maxSlope,       &                   GM_maxSlope,
37       &                   GM_Kmin_horiz,       &                   GM_Kmin_horiz,
38         &                   GM_Small_Number, GM_slopeSqCutoff,
39       &                   GM_Visbeck_alpha,       &                   GM_Visbeck_alpha,
40       &                   GM_Visbeck_length,       &                   GM_Visbeck_length,
41       &                   GM_Visbeck_depth,       &                   GM_Visbeck_depth,
# Line 35  C     GM/Redi parameters Line 44  C     GM/Redi parameters
44       &                   GM_Scrit,       &                   GM_Scrit,
45       &                   GM_Sd       &                   GM_Sd
46    
       _RL GM_Small_Number  
47        _RL op5        _RL op5
48        _RL op25        _RL op25
49        PARAMETER( GM_Small_Number = 1. _d -12 )        PARAMETER( op5 = 0.5D0 )
50        PARAMETER( op5 = 0.5 _d 0 )        PARAMETER( op25 = 0.25D0 )
       PARAMETER( op25 = 0.25 _d 0 )  
51    
52  C     More GM/Redi parameters diagnosed from previous block  C     More GM/Redi parameters diagnosed from previous block
53  C     (not directly user configured)  C     (not directly user configured)
# Line 101  C     for Visbeck et al. parameterizatio Line 108  C     for Visbeck et al. parameterizatio
108  #endif  #endif
109    
110  #endif /* ALLOW_GMREDI */  #endif /* ALLOW_GMREDI */
111    
112    CEH3 ;;; Local Variables: ***
113    CEH3 ;;; mode:fortran ***
114    CEH3 ;;; End: ***
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22