/[MITgcm]/MITgcm/pkg/obcs/obcs_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_readparms.F

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

revision 1.5 by heimbach, Mon May 14 21:36:45 2001 UTC revision 1.6 by adcroft, Tue Jul 6 18:25:52 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    cc
4    
5  #include "OBCS_OPTIONS.h"  #include "OBCS_OPTIONS.h"
6    
# Line 36  C     === Routine arguments === Line 37  C     === Routine arguments ===
37    
38  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
39        NAMELIST /OBCS_PARM02/        NAMELIST /OBCS_PARM02/
40       & CMAX, cvelTimeScale       & CMAX, cvelTimeScale, CFIX, useFixedCEast, useFixedCWest
41  #endif  #endif
42    
43  C     === Local variables ===  C     === Local variables ===
# Line 111  C     Account for periodicity if negativ Line 112  C     Account for periodicity if negativ
112  C     Default Orlanski radiation parameters  C     Default Orlanski radiation parameters
113        CMAX = 0.45 _d 0 /* maximum allowable phase speed-CFL for AB-II */        CMAX = 0.45 _d 0 /* maximum allowable phase speed-CFL for AB-II */
114        cvelTimeScale = 2000.0 _d 0 /* Averaging period for phase speed in sec. */        cvelTimeScale = 2000.0 _d 0 /* Averaging period for phase speed in sec. */
115          CFIX = 0.8 _d 0 /* Fixed boundary phase speed in m/s */
116          useFixedCEast=.FALSE.
117          useFixedCWest=.FALSE.
118        IF (useOrlanskiNorth.OR.        IF (useOrlanskiNorth.OR.
119       &    useOrlanskiSouth.OR.       &    useOrlanskiSouth.OR.
120       &    useOrlanskiEast.OR.       &    useOrlanskiEast.OR.
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22