/[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.5 by adcroft, Wed Jul 28 16:32:14 1999 UTC revision 1.9 by adcroft, Wed Apr 5 17:52:37 2000 UTC
# Line 52  C     Horizontal gridding Line 52  C     Horizontal gridding
52  C     In cartesian coords distances are in metres  C     In cartesian coords distances are in metres
53        usingCartesianGrid = .TRUE.        usingCartesianGrid = .TRUE.
54        DO i=1,Nx        DO i=1,Nx
55         delX(i) = 0.         delX(i) = UNSET_RL
56        ENDDO        ENDDO
57        DO j=1,Ny        DO j=1,Ny
58         delY(j) = 0.         delY(j) = UNSET_RL
59        ENDDO        ENDDO
60  C     In spherical polar distances are in degrees  C     In spherical polar distances are in degrees
61        usingSphericalPolarGrid = .FALSE.        usingSphericalPolarGrid = .FALSE.
# Line 113  C--   Set default "physical" parameters Line 113  C--   Set default "physical" parameters
113        nonHydrostatic      = .FALSE.        nonHydrostatic      = .FALSE.
114        globalFiles         = .FALSE.        globalFiles         = .FALSE.
115        allowFreezing       = .FALSE.        allowFreezing       = .FALSE.
116          ivdc_kappa          = 0.D0
117    
118  C--   Elliptic solver parameters  C--   Elliptic solver parameters
119        cg2dMaxIters       = 150        cg2dMaxIters       = 150
# Line 128  C--   Time stepping parameters Line 129  C--   Time stepping parameters
129        nIter0            = 0        nIter0            = 0
130        startTime         = deltaT*float(nIter0)        startTime         = deltaT*float(nIter0)
131        nTimeSteps        = 0        nTimeSteps        = 0
132        endTime           = deltaT*float(nTimeSteps)        nEndIter          = nIter0+nTimeSteps
133          endTime           = deltaT*float(nEndIter)
134        abEps             = 0.01        abEps             = 0.01
135        pchkPtFreq        = deltaT*0        pchkPtFreq        = deltaT*0
136        chkPtFreq         = deltaT*0        chkPtFreq         = deltaT*0
# Line 140  C--   Time stepping parameters Line 142  C--   Time stepping parameters
142        nCheckLev         = 1        nCheckLev         = 1
143        checkPtSuff(1)    = 'ckptA'        checkPtSuff(1)    = 'ckptA'
144        checkPtSuff(2)    = 'ckptB'        checkPtSuff(2)    = 'ckptB'
145        cAdjFreq          = -1.D0        cAdjFreq          =  0.D0
146        tauCD             =  0.D0        tauCD             =  0.D0
147        tauThetaClimRelax =  0.D0        tauThetaClimRelax =  0.D0
148        tauSaltClimRelax  =  0.D0        tauSaltClimRelax  =  0.D0
# Line 158  C--   Input files Line 160  C--   Input files
160        saltClimFile    = ' '        saltClimFile    = ' '
161        EmPmRfile       = ' '        EmPmRfile       = ' '
162        surfQfile       = ' '        surfQfile       = ' '
163          uVelInitFile    = ' '
164          vVelInitFile    = ' '
165          pSurfInitFile   = ' '
166    
167  C--   OBCS  C--   OBCS
168        DO I=1,Nx        DO I=1,Nx
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22