/[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.129 by jmc, Thu Aug 23 19:08:25 2007 UTC revision 1.148 by dimitri, Mon Apr 26 20:37:02 2010 UTC
# Line 60  C-    Horizontal gridding Line 60  C-    Horizontal gridding
60        delYFile            = ' '        delYFile            = ' '
61        horizGridFile       = ' '        horizGridFile       = ' '
62        deepAtmosphere      = .FALSE.        deepAtmosphere      = .FALSE.
63  C     In cartesian coords distances are in metres        xgOrigin            = UNSET_RL
64        usingCartesianGrid  = .FALSE.        ygOrigin            = UNSET_RL
65        DO i=1,Nx        DO i=1,Nx
66         delX(i)            = UNSET_RL         delX(i)            = UNSET_RL
67        ENDDO        ENDDO
68        DO j=1,Ny        DO j=1,Ny
69         delY(j)            = UNSET_RL         delY(j)            = UNSET_RL
70        ENDDO        ENDDO
71    C     In cartesian coords distances are in metres
72          usingCartesianGrid  = .FALSE.
73  C     In spherical polar distances are in degrees  C     In spherical polar distances are in degrees
74        usingSphericalPolarGrid = .FALSE.        usingSphericalPolarGrid = .FALSE.
       phiMin              = 0.0  
       thetaMin            = 0.  
75        rSphere             = 6370. _d 3        rSphere             = 6370. _d 3
76  C     General curvilinear coordinate system  C     General curvilinear coordinate system
77        usingCurvilinearGrid= .FALSE.        usingCurvilinearGrid= .FALSE.
# Line 82  C     Coriolis map: Line 82  C     Coriolis map:
82        useBetaPlaneF       = .FALSE.        useBetaPlaneF       = .FALSE.
83        useSphereF          = .TRUE.        useSphereF          = .TRUE.
84        use3dCoriolis       = .TRUE.        use3dCoriolis       = .TRUE.
85    C     grid rotation
86          rotateGrid          = .FALSE.
87          phiEuler            = 0. _d 0
88          thetaEuler          = 0. _d 0
89          psiEuler            = 0. _d 0
90    
91  C--   Set default "physical" parameters  C--   Set default "physical" parameters
92        nh_Am2              = 1. _d 0        nh_Am2              = 1. _d 0
# Line 175  Cml      sBeta               = 7.4 _d -4 Line 180  Cml      sBeta               = 7.4 _d -4
180        useOldFreezing      = .FALSE.        useOldFreezing      = .FALSE.
181        ivdc_kappa          = 0. _d 0        ivdc_kappa          = 0. _d 0
182        hMixCriteria        = -.8 _d 0        hMixCriteria        = -.8 _d 0
183          dRhoSmall           = 1. _d -6
184          hMixSmooth          = 0. _d 0
185        usePickupBeforeC54    = .FALSE.        usePickupBeforeC54    = .FALSE.
186        debugMode             = .FALSE.        debugMode             = .FALSE.
187        tempAdvScheme       = 2        tempAdvScheme       = 2
# Line 185  Cml      sBeta               = 7.4 _d -4 Line 192  Cml      sBeta               = 7.4 _d -4
192        useEnergyConservingCoriolis = .FALSE.        useEnergyConservingCoriolis = .FALSE.
193        useJamartWetPoints  = .FALSE.        useJamartWetPoints  = .FALSE.
194        useJamartMomAdv     = .FALSE.        useJamartMomAdv     = .FALSE.
195        SadournyCoriolis    = .FALSE.        selectVortScheme    = UNSET_I
196        upwindVorticity     = .FALSE.        upwindVorticity     = .FALSE.
197        highOrderVorticity  = .FALSE.        highOrderVorticity  = .FALSE.
198        useAbsVorticity     = .FALSE.        useAbsVorticity     = .FALSE.
# Line 199  C--   Set (free)surface-related paramete Line 206  C--   Set (free)surface-related paramete
206        implicitFreeSurface = .FALSE.        implicitFreeSurface = .FALSE.
207        rigidLid            = .FALSE.        rigidLid            = .FALSE.
208        implicSurfPress     = 1. _d 0        implicSurfPress     = 1. _d 0
209        implicDiv2DFlow     = 1. _d 0        implicDiv2Dflow     = 1. _d 0
210        exactConserv        = .FALSE.        exactConserv        = .FALSE.
211        linFSConserveTr     = .FALSE.        linFSConserveTr     = .FALSE.
212        uniformLin_PhiSurf  = .TRUE.        uniformLin_PhiSurf  = .TRUE.
# Line 207  C--   Set (free)surface-related paramete Line 214  C--   Set (free)surface-related paramete
214        hFacInf             = 0.2 _d 0        hFacInf             = 0.2 _d 0
215        hFacSup             = 2.0 _d 0        hFacSup             = 2.0 _d 0
216        select_rStar        = 0        select_rStar        = 0
217          selectAddFluid      = 0
218        useRealFreshWaterFlux = .FALSE.        useRealFreshWaterFlux = .FALSE.
219        temp_EvPrRn = UNSET_RL        temp_EvPrRn = UNSET_RL
220        salt_EvPrRn = 0.        salt_EvPrRn = 0.
221          temp_addMass = UNSET_RL
222          salt_addMass = UNSET_RL
223        balanceEmPmR        = .FALSE.        balanceEmPmR        = .FALSE.
224        balanceQnet         = .FALSE.        balanceQnet         = .FALSE.
225        balancePrintMean    = .FALSE.        balancePrintMean    = .FALSE.
# Line 234  C--   Elliptic solver parameters Line 244  C--   Elliptic solver parameters
244        cg3dMaxIters       = 150        cg3dMaxIters       = 150
245        cg3dTargetResidual = 1. _d -7        cg3dTargetResidual = 1. _d -7
246        cg3dChkResFreq     = 1        cg3dChkResFreq     = 1
247          useSRCGSolver      = .FALSE.
248    
249  C--   Time stepping parameters  C--   Time stepping parameters
250        deltaT            = 0. _d 0        deltaT            = 0. _d 0
# Line 246  C--   Time stepping parameters Line 257  C--   Time stepping parameters
257        nIter0            = 0        nIter0            = 0
258        startTime         = deltaT*float(nIter0)        startTime         = deltaT*float(nIter0)
259        pickupSuff        = ' '        pickupSuff        = ' '
260          pickupStrictlyMatch = .TRUE.
261        nTimeSteps        = 0        nTimeSteps        = 0
262        nEndIter          = nIter0+nTimeSteps        nEndIter          = nIter0+nTimeSteps
263        endTime           = deltaT*float(nEndIter)        endTime           = deltaT*float(nEndIter)
# Line 269  C--   Time stepping parameters Line 281  C--   Time stepping parameters
281        pickup_read_mdsio = .TRUE.        pickup_read_mdsio = .TRUE.
282        pickup_write_mdsio= .TRUE.        pickup_write_mdsio= .TRUE.
283        pickup_write_immed= .FALSE.        pickup_write_immed= .FALSE.
284          writePickupAtEnd  = .TRUE.
285        dumpFreq          = deltaT*0        dumpFreq          = deltaT*0
286        adjDumpFreq       = deltaT*0        adjDumpFreq       = deltaT*0
287        diagFreq          = deltaT*0        diagFreq          = deltaT*0
# Line 276  C--   Time stepping parameters Line 289  C--   Time stepping parameters
289        snapshot_mdsio    = .TRUE.        snapshot_mdsio    = .TRUE.
290        monitorFreq       = -1.        monitorFreq       = -1.
291        adjMonitorFreq    = 0.        adjMonitorFreq    = 0.
292          monitorSelect     = UNSET_I
293        monitor_stdio     = .TRUE.        monitor_stdio     = .TRUE.
294        taveFreq          = deltaT*0        taveFreq          = deltaT*0
295        timeave_mdsio     = .TRUE.        timeave_mdsio     = .TRUE.
# Line 283  C--   Time stepping parameters Line 297  C--   Time stepping parameters
297        writeStatePrec    = precFloat64        writeStatePrec    = precFloat64
298        writeBinaryPrec   = precFloat32        writeBinaryPrec   = precFloat32
299        readBinaryPrec    = precFloat32        readBinaryPrec    = precFloat32
       nCheckLev         = 1  
       checkPtSuff(1)    = 'ckptA'  
       checkPtSuff(2)    = 'ckptB'  
300        cAdjFreq          =  0. _d 0        cAdjFreq          =  0. _d 0
301        tauCD             =  0. _d 0        tauCD             =  0. _d 0
302        tauThetaClimRelax =  0. _d 0        tauThetaClimRelax =  0. _d 0
303        tauSaltClimRelax  =  0. _d 0        tauSaltClimRelax  =  0. _d 0
       tauTr1ClimRelax   =  0. _d 0  
304        periodicExternalForcing = .FALSE.        periodicExternalForcing = .FALSE.
305        externForcingPeriod     = 0.        externForcingPeriod     = 0.
306        externForcingCycle      = 0.        externForcingCycle      = 0.
# Line 300  C--   Time stepping parameters Line 310  C--   Time stepping parameters
310  C--   Input files  C--   Input files
311        bathyFile       = ' '        bathyFile       = ' '
312        topoFile        = ' '        topoFile        = ' '
       shelfIceFile    = ' '  
313        hydrogSaltFile  = ' '        hydrogSaltFile  = ' '
314        hydrogThetaFile = ' '        hydrogThetaFile = ' '
315          maskIniTemp     = .TRUE.
316          maskIniSalt     = .TRUE.
317          checkIniTemp    = .TRUE.
318          checkIniSalt    = .TRUE.
319        diffKrFile      = ' '        diffKrFile      = ' '
320          viscAhDfile     = ' '
321          viscAhZfile     = ' '
322          viscA4Dfile     = ' '
323          viscA4Zfile     = ' '
324        zonalWindFile   = ' '        zonalWindFile   = ' '
325        meridWindFile   = ' '        meridWindFile   = ' '
326        thetaClimFile   = ' '        thetaClimFile   = ' '
# Line 318  C--   Input files Line 335  C--   Input files
335        pSurfInitFile   = ' '        pSurfInitFile   = ' '
336        dQdTFile        = ' '        dQdTFile        = ' '
337        ploadFile       = ' '        ploadFile       = ' '
338        eddyTauxFile    = ' '        eddyPsiXFile    = ' '
339        eddyTauyFile    = ' '        eddyPsiYFile    = ' '
340        lambdaThetaFile = ' '        lambdaThetaFile = ' '
341        lambdaSaltFile  = ' '        lambdaSaltFile  = ' '
342        mdsioLocalDir   = ' '        mdsioLocalDir   = ' '
Legend:
Removed from v.1.129  
changed lines
  Added in v.1.148
  ViewVC Help
Powered by ViewVC 1.1.22