/[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.23 by heimbach, Fri Jul 13 14:26:57 2001 UTC revision 1.38 by adcroft, Thu Aug 15 17:25:31 2002 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    CBOP
7    C     !ROUTINE: SET_DEFAULTS
8    C     !INTERFACE:
9        SUBROUTINE SET_DEFAULTS(        SUBROUTINE SET_DEFAULTS(
10       O   viscArDefault, diffKrTDefault, diffKrSDefault,       O   viscArDefault, diffKrTDefault, diffKrSDefault,
11       O   hFacMinDrDefault, delRdefault, rkFacDefault,       O   hFacMinDrDefault, delRdefault, rkFacDefault,
12       I   myThid )       I   myThid )
 C     /==========================================================\  
 C     | SUBROUTINE SET_DEFAULTS                                  |  
 C     | o Routine to set model "parameters"                      |  
 C     |==========================================================|  
 C     | Notes:                                                   |  
 C     | ======                                                   |  
 C     | The present version of this routine is a place-holder.   |  
 C     | A production version needs to handle parameters from an  |  
 C     | external file and possibly reading in some initial field |  
 C     | values.                                                  |  
 C     \==========================================================/  
       IMPLICIT NONE  
13    
14    C     !DESCRIPTION: \bv
15    C     *==========================================================*
16    C     | SUBROUTINE SET_DEFAULTS                                  
17    C     | o Routine to set model "parameters"                      
18    C     *==========================================================*
19    C     | Notes:                                                    
20    C     | ======                                                    
21    C     | The present version of this routine is a place-holder.    
22    C     | A production version needs to handle parameters from an  
23    C     | external file and possibly reading in some initial field  
24    C     | values.                                                  
25    C     *==========================================================*
26    C     \ev
27    
28    C     !USES:
29          IMPLICIT NONE
30  C     === Global variables ===  C     === Global variables ===
31  #include "SIZE.h"  #include "SIZE.h"
32  #include "EEPARAMS.h"  #include "EEPARAMS.h"
33  #include "PARAMS.h"  #include "PARAMS.h"
34    Cml#include "EOS.h"
35  #include "GRID.h"  #include "GRID.h"
36    
37    C     !INPUT/OUTPUT PARAMETERS:
38  C     === Routine arguments ===  C     === Routine arguments ===
39  C     myThid - Number of this instance of INI_PARMS  C     myThid - Number of this instance of INI_PARMS
40        INTEGER myThid        INTEGER myThid
# Line 36  C     myThid - Number of this instance o Line 45  C     myThid - Number of this instance o
45        _RL delRDefault(Nr)        _RL delRDefault(Nr)
46        _RS rkFacDefault        _RS rkFacDefault
47    
48    C     !LOCAL VARIABLES:
49  C     === Local variables ===  C     === Local variables ===
50  C     K, I, J - Loop counters  C     K, I, J - Loop counters
51        INTEGER K, I, J        INTEGER K, I, J
52    CEOP
53    
54  C--   Grid parameters  C--   Grid parameters
55  C     Vertical gridding  C     Vertical gridding
# Line 48  C     Vertical gridding Line 59  C     Vertical gridding
59        DO k=1,Nr        DO k=1,Nr
60         delRdefault(k) = 0.         delRdefault(k) = 0.
61        ENDDO        ENDDO
62          DO k=1,Nr+1
63           delRc(k) = UNSET_RL
64          ENDDO
65    
66  C     Horizontal gridding  C     Horizontal gridding
67  C     In cartesian coords distances are in metres  C     In cartesian coords distances are in metres
# Line 70  C--   Set default "physical" parameters Line 84  C--   Set default "physical" parameters
84        DO K =1,Nr        DO K =1,Nr
85         tRef(K) = 30.D0 - FLOAT( K )         tRef(K) = 30.D0 - FLOAT( K )
86        ENDDO        ENDDO
87          gravitySign         = 1.D0
88        gravity             = 9.81D0        gravity             = 9.81D0
89        rhoNil              = 999.8D0        rhoNil              = 999.8D0
90        f0                  = 1.D-4        f0                  = 1.D-4
91        beta                = 1.D-11        beta                = 1.D-11
92        omega               = 2.D0 * PI / ( 3600.D0 * 24.D0 )        omega               = 2.D0 * PI / ( 3600.D0 * 24.D0 )
93        viscAh              = 0.D3        viscAh              = 0.D3
94          viscAstrain         = 0.D3
95          viscAtension        = 0.D3
96        diffKhT             = 0.D3        diffKhT             = 0.D3
97        diffKhS             = 0.D3        diffKhS             = 0.D3
98        viscArDefault       = 0.D-3        viscArDefault       = 0.D-3
# Line 88  C--   Set default "physical" parameters Line 105  C--   Set default "physical" parameters
105        diffK4S             = 0.D11        diffK4S             = 0.D11
106        cosPower            = 0.        cosPower            = 0.
107        HeatCapacity_Cp     = 3994.D0        HeatCapacity_Cp     = 3994.D0
108        tAlpha              = 2.D-4  Cml      tAlpha              = 2.D-4
109        sBeta               = 7.4D-4  Cml      sBeta               = 7.4D-4
110        eosType             = 'LINEAR'        eosType             = 'LINEAR'
111        buoyancyRelation    = 'OCEANIC'        buoyancyRelation    = 'OCEANIC'
       implicitFreeSurface = .TRUE.  
       rigidLid            = .FALSE.  
       implicSurfPress     = 1.D0  
       implicDiv2DFlow     = 1.D0  
112        hFacMin             = 1.D0        hFacMin             = 1.D0
113        hFacMinDrDefault    = 0.D0        hFacMinDrDefault    = 0.D0
       exactConserv        = .FALSE.  
       uniformLin_PhiSurf  = .TRUE.  
       nonlinFreeSurf      = 0  
       hFacInf             = 1.D0  
       hFacSup             = 1.D0  
114        staggerTimeStep     = .FALSE.        staggerTimeStep     = .FALSE.
115        momViscosity        = .TRUE.        momViscosity        = .TRUE.
116        momAdvection        = .TRUE.        momAdvection        = .TRUE.
# Line 110  C--   Set default "physical" parameters Line 118  C--   Set default "physical" parameters
118        useCoriolis         = .TRUE.        useCoriolis         = .TRUE.
119        momPressureForcing  = .TRUE.        momPressureForcing  = .TRUE.
120        momStepping         = .TRUE.        momStepping         = .TRUE.
121          vectorInvariantMomentum = .FALSE.
122        tempStepping        = .TRUE.        tempStepping        = .TRUE.
123          tempAdvection       = .TRUE.
124          tempForcing         = .TRUE.
125        saltStepping        = .TRUE.        saltStepping        = .TRUE.
126          saltAdvection       = .TRUE.
127          saltForcing         = .TRUE.
128        tr1Stepping         = .FALSE.        tr1Stepping         = .FALSE.
129        metricTerms         = .TRUE.        metricTerms         = .TRUE.
130        implicitDiffusion   = .FALSE.        implicitDiffusion   = .FALSE.
# Line 121  C--   Set default "physical" parameters Line 134  C--   Set default "physical" parameters
134        allowFreezing       = .FALSE.        allowFreezing       = .FALSE.
135        ivdc_kappa          = 0.D0        ivdc_kappa          = 0.D0
136        groundAtK1          = .FALSE.        groundAtK1          = .FALSE.
       zonal_filt_lat      = 90.  
       zonal_filt_sinpow   = 2  
       zonal_filt_cospow   = 2  
137        bottomDragLinear    = 0.        bottomDragLinear    = 0.
138        bottomDragQuadratic = 0.        bottomDragQuadratic = 0.
139        usePickupBeforeC35    = .FALSE.        usePickupBeforeC35    = .FALSE.
140        debugMode             = .FALSE.        debugMode             = .FALSE.
141        readPickupWithTracer  = .FALSE.        readPickupWithTracer  = .FALSE.
142        writePickupWithTracer = .FALSE.        writePickupWithTracer = .FALSE.
143          tempAdvScheme       = 2
144          saltAdvScheme       = 2
145          tracerAdvScheme     = 2
146          multiDimAdvection   = .TRUE.
147          useEnergyConservingCoriolis = .FALSE.
148          useJamartWetPoints  = .FALSE.
149    
150    C--   Set (free)surface-related parameters
151          implicitFreeSurface = .TRUE.
152          rigidLid            = .FALSE.
153          implicSurfPress     = 1.D0
154          implicDiv2DFlow     = 1.D0
155          exactConserv        = .FALSE.
156          uniformLin_PhiSurf  = .TRUE.
157          nonlinFreeSurf      = 0
158          hFacInf             = 1.D0
159          hFacSup             = 1.D0
160          useRealFreshWaterFlux = .FALSE.
161          temp_EvPrRn = UNSET_RL
162          salt_EvPrRn = 0.
163          trac_EvPrRn = UNSET_RL
164    
165  C--   Atmospheric physical parameters (e.g.: EOS)  C--   Atmospheric physical parameters (e.g.: EOS)
166        atm_po =  1.D5        atm_po =  1.D5
# Line 154  C--   Time stepping parameters Line 185  C--   Time stepping parameters
185        nTimeSteps        = 0        nTimeSteps        = 0
186        nEndIter          = nIter0+nTimeSteps        nEndIter          = nIter0+nTimeSteps
187        endTime           = deltaT*float(nEndIter)        endTime           = deltaT*float(nEndIter)
188          forcing_In_AB     = .TRUE.
189        abEps             = 0.01        abEps             = 0.01
190        pchkPtFreq        = deltaT*0        pchkPtFreq        = deltaT*0
191        chkPtFreq         = deltaT*0        chkPtFreq         = deltaT*0
192        dumpFreq          = deltaT*0        dumpFreq          = deltaT*0
193          diagFreq          = deltaT*0
194        monitorFreq       = -1.        monitorFreq       = -1.
195        taveFreq          = deltaT*0        taveFreq          = deltaT*0
196        writeStatePrec    = precFloat64        writeStatePrec    = precFloat64
# Line 191  C--   Input files Line 224  C--   Input files
224        vVelInitFile    = ' '        vVelInitFile    = ' '
225        pSurfInitFile   = ' '        pSurfInitFile   = ' '
226        dQdTFile        = ' '        dQdTFile        = ' '
227          ploadFile       = ' '
228    
229  C  C
230        RETURN        RETURN
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22