/[MITgcm]/MITgcm/model/src/ini_parms.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_parms.F

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

revision 1.183 by jmc, Fri Mar 17 23:24:51 2006 UTC revision 1.184 by jmc, Mon Mar 20 15:11:18 2006 UTC
# Line 111  C                 salt vertically ( Pa^2 Line 111  C                 salt vertically ( Pa^2
111        _RL diffKrS        _RL diffKrS
112    
113  C     Retired main data file parameters. Kept here to trap use of old data files.  C     Retired main data file parameters. Kept here to trap use of old data files.
114    C Namelist PARM01:
115  C     tracerAdvScheme :: tracer advection scheme (old passive tracer code)  C     tracerAdvScheme :: tracer advection scheme (old passive tracer code)
116  C     trac_EvPrRn :: tracer conc. in Rain & Evap (old passive tracer code)  C     trac_EvPrRn :: tracer conc. in Rain & Evap (old passive tracer code)
117  C     saltDiffusion :: diffusion of salinity    on/off (flag not used)  C     saltDiffusion :: diffusion of salinity    on/off (flag not used)
118  C     tempDiffusion :: diffusion of temperature on/off (flag not used)  C     tempDiffusion :: diffusion of temperature on/off (flag not used)
119  C     zonal_filt_lat :: Moved to package "zonal_filt"  C     zonal_filt_lat :: Moved to package "zonal_filt"
 C     groundAtK1 :: put the surface(k=1) at the ground (replaced by usingPCoords)  
 C     rkFac      :: removed from namelist ; replaced by -rkSign  
120  C     viscAstrain  :: replaced by standard viscosity coeff & useStrainTensionVisc  C     viscAstrain  :: replaced by standard viscosity coeff & useStrainTensionVisc
121  C     viscAtension :: replaced by standard viscosity coeff & useStrainTensionVisc  C     viscAtension :: replaced by standard viscosity coeff & useStrainTensionVisc
122  C     useAnisotropicViscAgridMax :: Changed to be default behavior.  Can  C     useAnisotropicViscAgridMax :: Changed to be default behavior.  Can
123  C                 use old method by setting useAreaViscLength=.true.  C                 use old method by setting useAreaViscLength=.true.
124    C Namelist PARM03:
125  C     tauThetaClimRelax3Dim :: replaced by pkg/rbcs (3.D Relaxation B.Cs)  C     tauThetaClimRelax3Dim :: replaced by pkg/rbcs (3.D Relaxation B.Cs)
126  C     tauSaltClimRelax3Dim  :: replaced by pkg/rbcs (3.D Relaxation B.Cs)  C     tauSaltClimRelax3Dim  :: replaced by pkg/rbcs (3.D Relaxation B.Cs)
127    C     calendarDumps  :: moved to package "cal" (calendar)
128    C Namelist PARM04:
129    C     groundAtK1 :: put the surface(k=1) at the ground (replaced by usingPCoords)
130    C     rkFac      :: removed from namelist ; replaced by -rkSign
131  C     nRetired :: Counter used to trap gracefully namelists containing "retired"  C     nRetired :: Counter used to trap gracefully namelists containing "retired"
132  C              :: parameters. These are parameters that are either no-longer used  C              :: parameters. These are parameters that are either no-longer used
133  C                 or that have moved to a different input file and/or namelist.  C                 or that have moved to a different input file and/or namelist.
# Line 131  C                 or that have moved to Line 135  C                 or that have moved to
135        INTEGER tracerAdvScheme        INTEGER tracerAdvScheme
136        _RL trac_EvPrRn        _RL trac_EvPrRn
137        _RL zonal_filt_lat        _RL zonal_filt_lat
       _RL rkFac  
138        _RL viscAstrain, viscAtension        _RL viscAstrain, viscAtension
139        LOGICAL groundAtK1, useAnisotropicViscAGridMax        LOGICAL useAnisotropicViscAGridMax
140    C-
141        _RL tauThetaClimRelax3Dim, tauSaltClimRelax3Dim        _RL tauThetaClimRelax3Dim, tauSaltClimRelax3Dim
142          LOGICAL calendarDumps
143    C-
144          LOGICAL groundAtK1
145          _RL rkFac
146        INTEGER nRetired        INTEGER nRetired
147    
148  C--   Continuous equation parameters  C--   Continuous equation parameters
# Line 262  C--   Initialise retired parameters to u Line 270  C--   Initialise retired parameters to u
270        trac_EvPrRn     = UNSET_RL        trac_EvPrRn     = UNSET_RL
271        zonal_filt_lat  = UNSET_RL        zonal_filt_lat  = UNSET_RL
272        gravitySign     = UNSET_RL        gravitySign     = UNSET_RL
       rkFac           = UNSET_RL  
       groundAtK1      = .FALSE.  
273        viscAstrain     = UNSET_RL        viscAstrain     = UNSET_RL
274        viscAtension    = UNSET_RL        viscAtension    = UNSET_RL
275          useAnisotropicViscAgridMax=.TRUE.
276        tauThetaClimRelax3Dim = UNSET_RL        tauThetaClimRelax3Dim = UNSET_RL
277        tauSaltClimRelax3Dim  = UNSET_RL        tauSaltClimRelax3Dim  = UNSET_RL
278        useAnisotropicViscAgridMax=.TRUE.        calendarDumps   = .FALSE.
279          rkFac           = UNSET_RL
280          groundAtK1      = .FALSE.
281    
282  C--   Open the parameter file  C--   Open the parameter file
283  #ifdef TARGET_BGL  #ifdef TARGET_BGL
# Line 756  C     Check for retired parameters still Line 765  C     Check for retired parameters still
765       & ' has moved to separate pkg/rbcs.'       & ' has moved to separate pkg/rbcs.'
766         CALL PRINT_ERROR( msgBuf , myThid)         CALL PRINT_ERROR( msgBuf , myThid)
767        ENDIF        ENDIF
768          IF ( calendarDumps ) THEN
769           nRetired = nRetired+1
770           WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "calendarDumps" ',
771         &  'is no longer allowed in file "data"'
772           CALL PRINT_ERROR( msgBuf , myThid)
773           WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: calendarDumps',
774         & ' has moved to "data.cal"'
775           CALL PRINT_ERROR( msgBuf , myThid)
776          ENDIF
777    
778  C     Process "timestepping" params  C     Process "timestepping" params
779  C     o Time step size  C     o Time step size
Legend:
Removed from v.1.183  
changed lines
  Added in v.1.184
  ViewVC Help
Powered by ViewVC 1.1.22