/[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.37 by jmc, Fri Jan 20 01:26:15 2012 UTC revision 1.38 by jmc, Fri Mar 9 20:13:03 2012 UTC
# Line 126  C     retired parameters Line 126  C     retired parameters
126       &          useOrlanskiEast,useOrlanskiWest,       &          useOrlanskiEast,useOrlanskiWest,
127       &          useStevensNorth,useStevensSouth,       &          useStevensNorth,useStevensSouth,
128       &          useStevensEast,useStevensWest,       &          useStevensEast,useStevensWest,
129         &          OBCS_u1_adv_T, OBCS_u1_adv_S,
130       &          OBNuFile,OBNvFile,OBNtFile,OBNsFile,OBNaFile,OBNhFile,       &          OBNuFile,OBNvFile,OBNtFile,OBNsFile,OBNaFile,OBNhFile,
131       &          OBSuFile,OBSvFile,OBStFile,OBSsFile,OBSaFile,OBShFile,       &          OBSuFile,OBSvFile,OBStFile,OBSsFile,OBSaFile,OBShFile,
132       &          OBEuFile,OBEvFile,OBEtFile,OBEsFile,OBEaFile,OBEhFile,       &          OBEuFile,OBEvFile,OBEtFile,OBEsFile,OBEaFile,OBEhFile,
# Line 137  C     retired parameters Line 138  C     retired parameters
138       &          OBNetaFile, OBSetaFile, OBEetaFile, OBWetaFile,       &          OBNetaFile, OBSetaFile, OBEetaFile, OBWetaFile,
139       &          OBNwFile, OBSwFile, OBEwFile, OBWwFile,       &          OBNwFile, OBSwFile, OBEwFile, OBWwFile,
140  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
141         &          OBCS_u1_adv_Tr,
142       &          OBNptrFile,OBSptrFile,OBEptrFile,OBWptrFile,       &          OBNptrFile,OBSptrFile,OBEptrFile,OBWptrFile,
143  #endif  #endif
144       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe,       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe,
# Line 204  C--   Default flags and values for OBCS Line 206  C--   Default flags and values for OBCS
206        OBCS_balanceFacS   = 1. _d 0        OBCS_balanceFacS   = 1. _d 0
207        OBCS_balanceFacE   = 1. _d 0        OBCS_balanceFacE   = 1. _d 0
208        OBCS_balanceFacW   = 1. _d 0        OBCS_balanceFacW   = 1. _d 0
209          OBCS_u1_adv_T      = 0
210          OBCS_u1_adv_S      = 0
211        useOBCSprescribe   =.FALSE.        useOBCSprescribe   =.FALSE.
212        OBCSfixTopo        =.FALSE.        OBCSfixTopo        =.FALSE.
213        OBCS_uvApplyFac    = 1. _d 0        OBCS_uvApplyFac    = 1. _d 0
# Line 261  C--   Default flags and values for OBCS Line 265  C--   Default flags and values for OBCS
265        OBWwFile = ' '        OBWwFile = ' '
266  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
267        DO iTracer = 1, PTRACERS_num        DO iTracer = 1, PTRACERS_num
268           OBCS_u1_adv_Tr(iTracer) = 0
269         OBNptrFile(iTracer) = ' '         OBNptrFile(iTracer) = ' '
270         OBSptrFile(iTracer) = ' '         OBSptrFile(iTracer) = ' '
271         OBEptrFile(iTracer) = ' '         OBEptrFile(iTracer) = ' '
# Line 298  C-    retired parameter Line 303  C-    retired parameter
303  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
304  C     Default Orlanski radiation parameters  C     Default Orlanski radiation parameters
305        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 */
306        cvelTimeScale = 2000.0 _d 0 /* Averaging period for phase speed in sec. */        cvelTimeScale = 2000.0 _d 0 /* Averaging period for phase speed (s) */
307        CFIX = 0.8 _d 0 /* Fixed boundary phase speed in m/s */        CFIX = 0.8 _d 0 /* Fixed boundary phase speed in m/s */
308        useFixedCEast=.FALSE.        useFixedCEast=.FALSE.
309        useFixedCWest=.FALSE.        useFixedCWest=.FALSE.
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22