/[MITgcm]/MITgcm/model/src/set_defaults.F
ViewVC logotype

Diff of /MITgcm/model/src/set_defaults.F

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

revision 1.8 by adcroft, Tue Mar 14 17:47:25 2000 UTC revision 1.15 by jmc, Tue Feb 20 15:02:16 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
# Line 44  C--   Grid parameters Line 45  C--   Grid parameters
45  C     Vertical gridding  C     Vertical gridding
46        rkFacDefault         = 1.D0        rkFacDefault         = 1.D0
47        horiVertRatio        = 1.D0        horiVertRatio        = 1.D0
48          Ro_SeaLevel = 0.
49        DO k=1,Nr        DO k=1,Nr
50         delRdefault(k) = 0.         delRdefault(k) = 0.
51        ENDDO        ENDDO
# Line 83  C--   Set default "physical" parameters Line 85  C--   Set default "physical" parameters
85        diffK4T             = 0.D11        diffK4T             = 0.D11
86        diffK4S             = 0.D11        diffK4S             = 0.D11
87        cosPower            = 0.        cosPower            = 0.
       GMmaxslope          = 1.D-2  
       GMlength            = 200.D3  
       GMalpha             = 0.D0  
       GMdepth             = 1000.D0  
       GMkbackground       = 0.D0  
       GMmaxval            = 2500.D0  
88        HeatCapacity_Cp     = 3994.D0        HeatCapacity_Cp     = 3994.D0
89        tAlpha              = 2.D-4        tAlpha              = 2.D-4
90        sBeta               = 7.4D-4        sBeta               = 7.4D-4
# Line 96  C--   Set default "physical" parameters Line 92  C--   Set default "physical" parameters
92        buoyancyRelation    = 'OCEANIC'        buoyancyRelation    = 'OCEANIC'
93        implicitFreeSurface = .TRUE.        implicitFreeSurface = .TRUE.
94        rigidLid            = .FALSE.        rigidLid            = .FALSE.
95          implicSurfPress     = 1.D0
96          implicDiv2DFlow     = 1.D0
97        hFacMin             = 1.D0        hFacMin             = 1.D0
98        hFacMinDrDefault    = 0.D0        hFacMinDrDefault    = 0.D0
99          staggerTimeStep     = .FALSE.
100        momViscosity        = .TRUE.        momViscosity        = .TRUE.
101        momAdvection        = .TRUE.        momAdvection        = .TRUE.
102        momForcing          = .TRUE.        momForcing          = .TRUE.
# Line 109  C--   Set default "physical" parameters Line 108  C--   Set default "physical" parameters
108        metricTerms         = .FALSE.        metricTerms         = .FALSE.
109        implicitDiffusion   = .FALSE.        implicitDiffusion   = .FALSE.
110        implicitViscosity   = .FALSE.        implicitViscosity   = .FALSE.
       openBoundaries      = .FALSE.  
111        nonHydrostatic      = .FALSE.        nonHydrostatic      = .FALSE.
112        globalFiles         = .FALSE.        globalFiles         = .FALSE.
113        allowFreezing       = .FALSE.        allowFreezing       = .FALSE.
114        ivdc_kappa          = 0.D0        ivdc_kappa          = 0.D0
115          groundAtK1          = .FALSE.
116          nShap               = 0
117          zonal_filt_lat      = 90.
118          zonal_filt_sinpow   = 2
119          zonal_filt_cospow   = 2
120          bottomDragLinear    = 0.
121          bottomDragQuadratic = 0.
122    
123  C--   Elliptic solver parameters  C--   Elliptic solver parameters
124        cg2dMaxIters       = 150        cg2dMaxIters       = 150
# Line 160  C--   Input files Line 165  C--   Input files
165        saltClimFile    = ' '        saltClimFile    = ' '
166        EmPmRfile       = ' '        EmPmRfile       = ' '
167        surfQfile       = ' '        surfQfile       = ' '
168          surfQswfile     = ' '
169        uVelInitFile    = ' '        uVelInitFile    = ' '
170        vVelInitFile    = ' '        vVelInitFile    = ' '
171          pSurfInitFile   = ' '
 C--   OBCS  
       DO I=1,Nx  
        OB_Jnorth(I)=0  
        OB_Jsouth(I)=0  
       ENDDO  
       DO J=1,Ny  
        OB_Ieast(J)=0  
        OB_Iwest(J)=0  
       ENDDO  
172    
173  C  C
174        RETURN        RETURN
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22