/[MITgcm]/MITgcm/model/inc/PARAMS.h
ViewVC logotype

Diff of /MITgcm/model/inc/PARAMS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.45.2.5 by cnh, Mon Jan 29 01:18:05 2001 UTC revision 1.49.2.2 by adcroft, Tue Apr 3 02:39:18 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3  C  C
4  C     /==========================================================\  C     /==========================================================\
5  C     | PARAMS.h                                                 |  C     | PARAMS.h                                                 |
# Line 180  C     usingPCoords     - Set to indicate Line 181  C     usingPCoords     - Set to indicate
181  C                        coords.  C                        coords.
182  C     usingZCoords     - Set to indicate that we are working in height  C     usingZCoords     - Set to indicate that we are working in height
183  C                        coords.  C                        coords.
 C     openBoundaries - Using open-boundaries  
184  C     nonHydrostatic - Using non-hydrostatic terms  C     nonHydrostatic - Using non-hydrostatic terms
185  C     globalFiles    - Selects between "global" and "tiled" files  C     globalFiles    - Selects between "global" and "tiled" files
186  C     allowFreezing  - Allows water to freeze and form ice  C     allowFreezing  - Allows water to freeze and form ice
187  C     groundAtK1  - put the surface(k=1) at the Lower Boundary (=ground)  C     groundAtK1  - put the surface(k=1) at the Lower Boundary (=ground)
188        COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,        COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid,
189         & usingCurvilinearGrid,
190       & no_slip_sides,no_slip_bottom,       & no_slip_sides,no_slip_bottom,
191       & staggerTimeStep,       & staggerTimeStep,
192       & momViscosity, momAdvection, momForcing, useCoriolis,       & momViscosity, momAdvection, momForcing, useCoriolis,
# Line 198  C     groundAtK1  - put the surface(k=1) Line 199  C     groundAtK1  - put the surface(k=1)
199       & implicitDiffusion, implicitViscosity,       & implicitDiffusion, implicitViscosity,
200       & doThetaClimRelax, doSaltClimRelax,       & doThetaClimRelax, doSaltClimRelax,
201       & periodicExternalForcing, usingPCoords, usingZCoords,       & periodicExternalForcing, usingPCoords, usingZCoords,
202       & openBoundaries, nonHydrostatic, globalFiles,       & nonHydrostatic, globalFiles,
203       & allowFreezing, groundAtK1       & allowFreezing, groundAtK1
204        LOGICAL usingCartesianGrid        LOGICAL usingCartesianGrid
205        LOGICAL usingSphericalPolarGrid        LOGICAL usingSphericalPolarGrid
206          LOGICAL usingCurvilinearGrid
207        LOGICAL usingSphericalPolarMTerms        LOGICAL usingSphericalPolarMTerms
208        LOGICAL no_slip_sides        LOGICAL no_slip_sides
209        LOGICAL no_slip_bottom        LOGICAL no_slip_bottom
# Line 233  C     groundAtK1  - put the surface(k=1) Line 235  C     groundAtK1  - put the surface(k=1)
235        LOGICAL periodicExternalForcing        LOGICAL periodicExternalForcing
236        LOGICAL usingPCoords        LOGICAL usingPCoords
237        LOGICAL usingZCoords        LOGICAL usingZCoords
       LOGICAL openBoundaries  
238        LOGICAL nonHydrostatic        LOGICAL nonHydrostatic
239        LOGICAL globalFiles        LOGICAL globalFiles
240        LOGICAL allowFreezing        LOGICAL allowFreezing
# Line 321  C     deltaTtracer - Timestep for tracer Line 322  C     deltaTtracer - Timestep for tracer
322  C     freesurfFac  - Parameter to turn implicit free surface term on or off  C     freesurfFac  - Parameter to turn implicit free surface term on or off
323  C                    freesurfac = 1. uses implicit free surface  C                    freesurfac = 1. uses implicit free surface
324  C                    freesurfac = 0. uses rigid lid  C                    freesurfac = 0. uses rigid lid
325    C     implicSurfPress - parameter of the Crank-Nickelson time stepping :
326    C                     Implicit part of Surface Pressure Gradient ( 0-1 )
327    C     implicDiv2Dflow - parameter of the Crank-Nickelson time stepping :
328    C                     Implicit part of barotropic flow Divergence ( 0-1 )
329  C     hFacMin      - Minimum fraction size of a cell (affects hFacC etc...)  C     hFacMin      - Minimum fraction size of a cell (affects hFacC etc...)
330  C     hFacMinDz    - Minimum dimesional size of a cell (affects hFacC etc..., m)  C     hFacMinDz    - Minimum dimesional size of a cell (affects hFacC etc..., m)
331  C     hFacMinDp    - Minimum dimesional size of a cell (affects hFacC etc..., Pa)  C     hFacMinDp    - Minimum dimesional size of a cell (affects hFacC etc..., Pa)
# Line 365  C         "     Quadratic  ( linear: 1/s Line 370  C         "     Quadratic  ( linear: 1/s
370       & cg3dTargetResidual,       & cg3dTargetResidual,
371       & delP, delZ, delR, delX, delY,       & delP, delZ, delR, delX, delY,
372       & deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime,       & deltaT,deltaTmom, deltaTtracer, deltaTClock,abeps, startTime,
373       & phiMin, thetaMin, rSphere, recip_RSphere, f0, fCori, beta,       & phiMin, thetaMin, rSphere, recip_RSphere, f0, beta,
374         & fCori, fCoriG,
375       & viscAh,  viscAz,  viscA4,  viscAr,       & viscAh,  viscAz,  viscA4,  viscAr,
376       & diffKhT, diffKzT, diffK4T, diffKrT,       & diffKhT, diffKzT, diffK4T, diffKrT,
377       & diffKhS, diffKzS, diffK4S, diffKrS,       & diffKhS, diffKzS, diffK4S, diffKrS,
378       & delT, tauCD, rCD, freeSurfFac, hFacMin, hFacMinDz,       & delT, tauCD, rCD, freeSurfFac, implicSurfPress, implicDiv2Dflow,
379         & hFacMin, hFacMinDz,
380       & gravity, recip_Gravity, gBaro, rhonil, recip_rhonil,       & gravity, recip_Gravity, gBaro, rhonil, recip_rhonil,
381       & recip_rhoConst, rhoConst, tRef, sRef,       & recip_rhoConst, rhoConst, tRef, sRef,
382       & endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq,       & endTime, chkPtFreq, pchkPtFreq, dumpFreq, taveFreq,
# Line 402  C         "     Quadratic  ( linear: 1/s Line 409  C         "     Quadratic  ( linear: 1/s
409        _RL recip_RSphere        _RL recip_RSphere
410        _RL f0        _RL f0
411        _RL freeSurfFac        _RL freeSurfFac
412          _RL implicSurfPress
413          _RL implicDiv2Dflow
414        _RL hFacMin        _RL hFacMin
415        _RL hFacMinDz        _RL hFacMinDz
416        _RL hFacMinDp        _RL hFacMinDp
# Line 436  C         "     Quadratic  ( linear: 1/s Line 445  C         "     Quadratic  ( linear: 1/s
445        _RL tRef(Nr)        _RL tRef(Nr)
446        _RL theta_S(Nr)        _RL theta_S(Nr)
447        _RL sRef(Nr)        _RL sRef(Nr)
448        _RS Fcori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS fCori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
449          _RS fCoriG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
450        _RL startTime        _RL startTime
451        _RL endTime        _RL endTime
452        _RL chkPtFreq        _RL chkPtFreq
# Line 484  C     sBeta     - Linear EOS haline cont Line 494  C     sBeta     - Linear EOS haline cont
494        _RL sBeta        _RL sBeta
495        character*(6) eosType        character*(6) eosType
496    
 C These are input arrays (of integers) that contain the *absolute*  
 C computational index of an open-boundary (OB) point.  
 C A zero (0) element means there is no corresponding OB in that column/row.  
 C The computational coordinate refers to "tracer" cells.  
 C For a northern/southern OB, the OB V point is to the south/north.  
 C For an eastern/western OB, the OB U point is to the west/east.  
 C eg.  
 C     OB_Jnorth(3)=34  means that:  
 C          T( 3 ,34) is a an OB point  
 C          U(3:4,34) is a an OB point  
 C          V( 4 ,34) is a an OB point  
 C while  
 C     OB_Jsouth(3)=1  means that:  
 C          T( 3 ,1) is a an OB point  
 C          U(3:4,1) is a an OB point  
 C          V( 4 ,2) is a an OB point  
 C  
 C For convenience, negative values for Jnorth/Ieast refer to  
 C points relative to the Northern/Eastern edges of the model  
 C eg. OB_Jnorth(3)=-1  means that the point (3,Ny-1) is a northern O-B.  
 C  
       COMMON /PARM_OB/  
      & OB_Jnorth,OB_Jsouth,OB_Ieast,OB_Iwest  
       INTEGER OB_Jnorth(Nx)  
       INTEGER OB_Jsouth(Nx)  
       INTEGER OB_Ieast(Ny)  
       INTEGER OB_Iwest(Ny)  
   
497  C Logical flags for selecting packages  C Logical flags for selecting packages
498        LOGICAL useKPP        LOGICAL useKPP
499        LOGICAL useGMRedi        LOGICAL useGMRedi
500          LOGICAL useOBCS
501          LOGICAL useAIM
502        LOGICAL useECCO        LOGICAL useECCO
503        COMMON /PARM_PACKAGES/        COMMON /PARM_PACKAGES/
504       &        useKPP, useGMRedi, useECCO       &        useKPP, useGMRedi, useOBCS, useAIM, useECCO
505    
Legend:
Removed from v.1.45.2.5  
changed lines
  Added in v.1.49.2.2
  ViewVC Help
Powered by ViewVC 1.1.22