/[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.10 by jmc, Mon Jan 13 19:02:45 2003 UTC
# Line 13  C     Package flag Line 13  C     Package flag
13       &                    GM_ExtraDiag       &                    GM_ExtraDiag
14    
15  C     GM/Redi parameters  C     GM/Redi parameters
16    C     GM_Small_Number :: epsilon used in computing the slope
17    C     GM_slopeSqCutoff :: slope^2 cut-off value
18        _RL GM_isopycK        _RL GM_isopycK
19        _RL GM_background_K        _RL GM_background_K
20        _RL GM_maxSlope        _RL GM_maxSlope
21        _RL GM_Kmin_horiz        _RL GM_Kmin_horiz
22          _RL GM_Small_Number
23          _RL GM_slopeSqCutoff
24        _RL GM_Visbeck_alpha        _RL GM_Visbeck_alpha
25        _RL GM_Visbeck_length        _RL GM_Visbeck_length
26        _RL GM_Visbeck_depth        _RL GM_Visbeck_depth
# Line 27  C     GM/Redi parameters Line 31  C     GM/Redi parameters
31        COMMON /GM_PARAMS/ GM_isopycK, GM_background_K,        COMMON /GM_PARAMS/ GM_isopycK, GM_background_K,
32       &                   GM_maxSlope,       &                   GM_maxSlope,
33       &                   GM_Kmin_horiz,       &                   GM_Kmin_horiz,
34         &                   GM_Small_Number, GM_slopeSqCutoff,
35       &                   GM_Visbeck_alpha,       &                   GM_Visbeck_alpha,
36       &                   GM_Visbeck_length,       &                   GM_Visbeck_length,
37       &                   GM_Visbeck_depth,       &                   GM_Visbeck_depth,
# Line 35  C     GM/Redi parameters Line 40  C     GM/Redi parameters
40       &                   GM_Scrit,       &                   GM_Scrit,
41       &                   GM_Sd       &                   GM_Sd
42    
       _RL GM_Small_Number  
43        _RL op5        _RL op5
44        _RL op25        _RL op25
       PARAMETER( GM_Small_Number = 1. _d -12 )  
45        PARAMETER( op5 = 0.5 _d 0 )        PARAMETER( op5 = 0.5 _d 0 )
46        PARAMETER( op25 = 0.25 _d 0 )        PARAMETER( op25 = 0.25 _d 0 )
47    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22