/[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.61 by adcroft, Wed Jun 2 13:23:55 2004 UTC revision 1.69 by edhill, Tue Sep 7 21:32:10 2004 UTC
# Line 79  C     In spherical polar distances are i Line 79  C     In spherical polar distances are i
79        rSphere              = 6370. * 1.D3        rSphere              = 6370. * 1.D3
80  C     General curvilinear coordinate system  C     General curvilinear coordinate system
81        usingCurvilinearGrid = .FALSE.        usingCurvilinearGrid = .FALSE.
82    C     General cylindrical coordinate system
83          usingCylindricalGrid = .FALSE.
84    
85    
86  C--   Set default "physical" parameters  C--   Set default "physical" parameters
87        DO K =1,Nr        DO K =1,Nr
# Line 107  C-    Always use 1 day in the past but s Line 110  C-    Always use 1 day in the past but s
110        no_slip_bottom      = .TRUE.        no_slip_bottom      = .TRUE.
111        diffKrTDefault      = 0.D-3        diffKrTDefault      = 0.D-3
112        diffKrSDefault      = 0.D-3        diffKrSDefault      = 0.D-3
113          diffKrBL79surf      = 0.D0
114          diffKrBL79deep      = 0.D0
115          diffKrBL79scl       = 200.D0
116          diffKrBL79Ho        = -2000.D0
117        viscA4              = 0.D11        viscA4              = 0.D11
118        viscA4Grid          = 0.D0        viscA4Grid          = 0.D0
119        viscA4Max           = 1.D21        viscA4Max           = 1.D21
# Line 154  Cml      sBeta               = 7.4D-4 Line 161  Cml      sBeta               = 7.4D-4
161        bottomDragLinear    = 0.        bottomDragLinear    = 0.
162        bottomDragQuadratic = 0.        bottomDragQuadratic = 0.
163        usePickupBeforeC35    = .FALSE.        usePickupBeforeC35    = .FALSE.
164          usePickupBeforeC54    = .FALSE.
165        debugMode             = .FALSE.        debugMode             = .FALSE.
166        readPickupWithTracer  = .FALSE.        readPickupWithTracer  = .FALSE.
167        writePickupWithTracer = .FALSE.        writePickupWithTracer = .FALSE.
# Line 164  Cml      sBeta               = 7.4D-4 Line 172  Cml      sBeta               = 7.4D-4
172        useCDscheme         = .FALSE.        useCDscheme         = .FALSE.
173        useEnergyConservingCoriolis = .FALSE.        useEnergyConservingCoriolis = .FALSE.
174        useJamartWetPoints  = .FALSE.        useJamartWetPoints  = .FALSE.
175          useJamartMomAdv     = .FALSE.
176        SadournyCoriolis    = .FALSE.        SadournyCoriolis    = .FALSE.
177        upwindVorticity     = .FALSE.        upwindVorticity     = .FALSE.
178        highOrderVorticity  = .FALSE.        highOrderVorticity  = .FALSE.
# Line 202  C--   Elliptic solver parameters Line 211  C--   Elliptic solver parameters
211        cg2dTargetResWunit = -1.        cg2dTargetResWunit = -1.
212        cg2dChkResFreq     = 1        cg2dChkResFreq     = 1
213        cg2dpcOffDFac      = 0.51D0        cg2dpcOffDFac      = 0.51D0
214          cg2dPreCondFreq    = 1
215        cg3dMaxIters       = 150        cg3dMaxIters       = 150
216        cg3dTargetResidual = 1.D-7        cg3dTargetResidual = 1.D-7
217        cg3dChkResFreq     = 1        cg3dChkResFreq     = 1
# Line 222  C--   Time stepping parameters Line 232  C--   Time stepping parameters
232        adjDumpFreq       = deltaT*0        adjDumpFreq       = deltaT*0
233        diagFreq          = deltaT*0        diagFreq          = deltaT*0
234        monitorFreq       = -1.        monitorFreq       = -1.
235          mon_iotype        = 1
236        taveFreq          = deltaT*0        taveFreq          = deltaT*0
237        tave_lastIter     = 0.5 _d 0        tave_lastIter     = 0.5 _d 0
238        writeStatePrec    = precFloat64        writeStatePrec    = precFloat64
# Line 238  C--   Time stepping parameters Line 249  C--   Time stepping parameters
249        periodicExternalForcing = .FALSE.        periodicExternalForcing = .FALSE.
250        externForcingPeriod     = 0.        externForcingPeriod     = 0.
251        externForcingCycle      = 0.        externForcingCycle      = 0.
252          tCyl              = 0.
253    
254    
255  C--   Input files  C--   Input files
256        bathyFile       = ' '        bathyFile       = ' '
# Line 250  C--   Input files Line 263  C--   Input files
263        saltClimFile    = ' '        saltClimFile    = ' '
264        EmPmRfile       = ' '        EmPmRfile       = ' '
265        surfQfile       = ' '        surfQfile       = ' '
266        surfQswfile     = ' '        surfQnetFile    = ' '
267          surfQswFile     = ' '
268        uVelInitFile    = ' '        uVelInitFile    = ' '
269        vVelInitFile    = ' '        vVelInitFile    = ' '
270        pSurfInitFile   = ' '        pSurfInitFile   = ' '
271        dQdTFile        = ' '        dQdTFile        = ' '
272        ploadFile       = ' '        ploadFile       = ' '
273        mdsioLocalDir   = ' '        mdsioLocalDir   = ' '
274          DO k = 1,MAX_LEN_FNAM
275            the_run_name(k:k) = ' '
276          ENDDO
277    
278  C  C
279        RETURN        RETURN
Legend:
Removed from v.1.61  
changed lines
  Added in v.1.69
  ViewVC Help
Powered by ViewVC 1.1.22