/[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.9 by adcroft, Wed Apr 5 17:52:37 2000 UTC revision 1.18 by heimbach, Tue Apr 10 22:35:25 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 24  C     === Global variables === Line 25  C     === Global variables ===
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
26  #include "PARAMS.h"  #include "PARAMS.h"
27  #include "GRID.h"  #include "GRID.h"
 #include "CG2D.h"  
28    
29  C     === Routine arguments ===  C     === Routine arguments ===
30  C     myThid - Number of this instance of INI_PARMS  C     myThid - Number of this instance of INI_PARMS
# Line 44  C--   Grid parameters Line 44  C--   Grid parameters
44  C     Vertical gridding  C     Vertical gridding
45        rkFacDefault         = 1.D0        rkFacDefault         = 1.D0
46        horiVertRatio        = 1.D0        horiVertRatio        = 1.D0
47          Ro_SeaLevel = 0.
48        DO k=1,Nr        DO k=1,Nr
49         delRdefault(k) = 0.         delRdefault(k) = 0.
50        ENDDO        ENDDO
# Line 83  C--   Set default "physical" parameters Line 84  C--   Set default "physical" parameters
84        diffK4T             = 0.D11        diffK4T             = 0.D11
85        diffK4S             = 0.D11        diffK4S             = 0.D11
86        cosPower            = 0.        cosPower            = 0.
       GMmaxslope          = 1.D-2  
       GMlength            = 200.D3  
       GMalpha             = 0.D0  
       GMdepth             = 1000.D0  
       GMkbackground       = 0.D0  
       GMmaxval            = 2500.D0  
87        HeatCapacity_Cp     = 3994.D0        HeatCapacity_Cp     = 3994.D0
88        tAlpha              = 2.D-4        tAlpha              = 2.D-4
89        sBeta               = 7.4D-4        sBeta               = 7.4D-4
# Line 96  C--   Set default "physical" parameters Line 91  C--   Set default "physical" parameters
91        buoyancyRelation    = 'OCEANIC'        buoyancyRelation    = 'OCEANIC'
92        implicitFreeSurface = .TRUE.        implicitFreeSurface = .TRUE.
93        rigidLid            = .FALSE.        rigidLid            = .FALSE.
94          implicSurfPress     = 1.D0
95          implicDiv2DFlow     = 1.D0
96        hFacMin             = 1.D0        hFacMin             = 1.D0
97        hFacMinDrDefault    = 0.D0        hFacMinDrDefault    = 0.D0
98          staggerTimeStep     = .FALSE.
99        momViscosity        = .TRUE.        momViscosity        = .TRUE.
100        momAdvection        = .TRUE.        momAdvection        = .TRUE.
101        momForcing          = .TRUE.        momForcing          = .TRUE.
# Line 106  C--   Set default "physical" parameters Line 104  C--   Set default "physical" parameters
104        momStepping         = .TRUE.        momStepping         = .TRUE.
105        tempStepping        = .TRUE.        tempStepping        = .TRUE.
106        saltStepping        = .TRUE.        saltStepping        = .TRUE.
107        metricTerms         = .FALSE.        metricTerms         = .TRUE.
108        implicitDiffusion   = .FALSE.        implicitDiffusion   = .FALSE.
109        implicitViscosity   = .FALSE.        implicitViscosity   = .FALSE.
       openBoundaries      = .FALSE.  
110        nonHydrostatic      = .FALSE.        nonHydrostatic      = .FALSE.
111        globalFiles         = .FALSE.        globalFiles         = .FALSE.
112        allowFreezing       = .FALSE.        allowFreezing       = .FALSE.
113        ivdc_kappa          = 0.D0        ivdc_kappa          = 0.D0
114          groundAtK1          = .FALSE.
115          nShap               = 0
116          zonal_filt_lat      = 90.
117          zonal_filt_sinpow   = 2
118          zonal_filt_cospow   = 2
119          bottomDragLinear    = 0.
120          bottomDragQuadratic = 0.
121          usePickupBeforeC35  = .FALSE.
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   = ' '        pSurfInitFile   = ' '
172          dQdTFile        = ' '
 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  
173    
174  C  C
175        RETURN        RETURN
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22