/[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.239 by jmc, Mon May 2 13:04:04 2011 UTC revision 1.240 by jmc, Wed Jun 8 01:41:45 2011 UTC
# Line 111  C     trac_EvPrRn :: tracer conc. in Rai Line 111  C     trac_EvPrRn :: tracer conc. in Rai
111  C     saltDiffusion :: diffusion of salinity    on/off (flag not used)  C     saltDiffusion :: diffusion of salinity    on/off (flag not used)
112  C     tempDiffusion :: diffusion of temperature on/off (flag not used)  C     tempDiffusion :: diffusion of temperature on/off (flag not used)
113  C     zonal_filt_lat :: Moved to package "zonal_filt"  C     zonal_filt_lat :: Moved to package "zonal_filt"
114  C     gravitySign :: direction of gravity relative to R direction  C     gravitySign  :: direction of gravity relative to R direction
115  C                 :: (removed from namelist and set according to z/p coordinate)  C                  :: (removed from namelist and set according to z/p coordinate)
116  C     viscAstrain  :: replaced by standard viscosity coeff & useStrainTensionVisc  C     viscAstrain  :: replaced by standard viscosity coeff & useStrainTensionVisc
117  C     viscAtension :: replaced by standard viscosity coeff & useStrainTensionVisc  C     viscAtension :: replaced by standard viscosity coeff & useStrainTensionVisc
118  C     useAnisotropicViscAgridMax :: Changed to be default behavior.  Can  C     useAnisotropicViscAgridMax :: Changed to be default behavior.  Can
119  C                 use old method by setting useAreaViscLength=.true.  C                     use old method by setting useAreaViscLength=.true.
120  C     usePickupBeforeC35 :: to restart from old-pickup files (generated with code  C     usePickupBeforeC35 :: to restart from old-pickup files (generated with code
121  C                   from before checkpoint-35, Feb 08, 2001): disabled (Jan 2007)  C                   from before checkpoint-35, Feb 08, 2001): disabled (Jan 2007)
122    C     debugMode    :: to print debug msg. now read from parameter file eedata
123  C Namelist PARM03:  C Namelist PARM03:
124  C     tauThetaClimRelax3Dim :: replaced by pkg/rbcs (3.D Relaxation B.Cs)  C     tauThetaClimRelax3Dim :: replaced by pkg/rbcs (3.D Relaxation B.Cs)
125  C     tauSaltClimRelax3Dim  :: replaced by pkg/rbcs (3.D Relaxation B.Cs)  C     tauSaltClimRelax3Dim  :: replaced by pkg/rbcs (3.D Relaxation B.Cs)
# Line 141  C                     (replaced by SHELF Line 142  C                     (replaced by SHELF
142        _RL viscAstrain, viscAtension        _RL viscAstrain, viscAtension
143        LOGICAL useAnisotropicViscAgridMax        LOGICAL useAnisotropicViscAgridMax
144        LOGICAL usePickupBeforeC35        LOGICAL usePickupBeforeC35
145          LOGICAL saveDebugMode
146  C-  C-
147        _RL tauThetaClimRelax3Dim, tauSaltClimRelax3Dim        _RL tauThetaClimRelax3Dim, tauSaltClimRelax3Dim
148        LOGICAL calendarDumps        LOGICAL calendarDumps
# Line 215  C--   Elliptic solver parameters Line 217  C--   Elliptic solver parameters
217       & cg2dMaxIters, cg2dChkResFreq, cg2dTargetResidual,       & cg2dMaxIters, cg2dChkResFreq, cg2dTargetResidual,
218       & cg2dTargetResWunit, cg2dpcOffDFac, cg2dPreCondFreq,       & cg2dTargetResWunit, cg2dpcOffDFac, cg2dPreCondFreq,
219       & cg3dMaxIters, cg3dChkResFreq, cg3dTargetResidual,       & cg3dMaxIters, cg3dChkResFreq, cg3dTargetResidual,
220       & useSRCGSolver       & useSRCGSolver, printResidualFreq
221    
222  C--   Time stepping parammeters  C--   Time stepping parammeters
223        NAMELIST /PARM03/        NAMELIST /PARM03/
# Line 296  C--   Initialise retired parameters to u Line 298  C--   Initialise retired parameters to u
298        viscAtension    = UNSET_RL        viscAtension    = UNSET_RL
299        useAnisotropicViscAgridMax=.TRUE.        useAnisotropicViscAgridMax=.TRUE.
300        usePickupBeforeC35    = .FALSE.        usePickupBeforeC35    = .FALSE.
301          saveDebugMode   = debugMode
302        tauThetaClimRelax3Dim = UNSET_RL        tauThetaClimRelax3Dim = UNSET_RL
303        tauSaltClimRelax3Dim  = UNSET_RL        tauSaltClimRelax3Dim  = UNSET_RL
304        calendarDumps   = .FALSE.        calendarDumps   = .FALSE.
# Line 604  C--   for backward compatibility : Line 607  C--   for backward compatibility :
607        ELSE        ELSE
608         recip_gravity = 1. _d 0 / gravity         recip_gravity = 1. _d 0 / gravity
609        ENDIF        ENDIF
610  C     This flags are now passed to RW and MDSIO packages in ini_model_io.F  C-    set default printResidualFreq according to debugLevel
611  C     Set globalFiles flag for READ_WRITE_FLD package        printResidualFreq = 0
612  c     CALL SET_WRITE_GLOBAL_FLD( globalFiles )        IF ( debugLevel.GE.debLevE ) printResidualFreq = 1
 C     Set globalFiles flag for READ_WRITE_REC package  
 c     CALL SET_WRITE_GLOBAL_REC( globalFiles )  
 C     Set globalFiles flag for READ_WRITE_REC package  
 c     CALL SET_WRITE_GLOBAL_PICKUP( globalFiles )  
613    
614  C     Check for retired parameters still being used  C     Check for retired parameters still being used
615        nRetired = 0        nRetired = 0
# Line 723  C     Check for retired parameters still Line 722  C     Check for retired parameters still
722       &  'is no longer supported & not longer allowed in file "data"'       &  'is no longer supported & not longer allowed in file "data"'
723         CALL PRINT_ERROR( msgBuf, myThid )         CALL PRINT_ERROR( msgBuf, myThid )
724        ENDIF        ENDIF
725          IF ( debugMode.NEQV.saveDebugMode ) THEN
726           nRetired = nRetired+1
727           WRITE(msgBuf,'(A,A)')
728         &  'S/R INI_PARMS: "debugMode" has been moved to "eedata"',
729         &  ' and is no longer allowed in file "data"'
730           CALL PRINT_ERROR( msgBuf, myThid )
731          ENDIF
732    
733  C--   Elliptic solver parameters  C--   Elliptic solver parameters
734        WRITE(msgBuf,'(A)') ' INI_PARMS ; starts to read PARM02'        WRITE(msgBuf,'(A)') ' INI_PARMS ; starts to read PARM02'
# Line 1314  C     to temp_EvPrRn and salt_EvPrRn in Line 1320  C     to temp_EvPrRn and salt_EvPrRn in
1320        IF (temp_addMass .EQ. UNSET_RL) temp_addMass = temp_EvPrRn        IF (temp_addMass .EQ. UNSET_RL) temp_addMass = temp_EvPrRn
1321        IF (salt_addMass .EQ. UNSET_RL) salt_addMass = salt_EvPrRn        IF (salt_addMass .EQ. UNSET_RL) salt_addMass = salt_EvPrRn
1322    
 C-    debugMode controls printing of debug messages (sequence of S/R calls).  
 C-    debugLevel controls printing of algorithm intermediate results and stats.  
 C--   Increase debugLevel to debLevB when debugMode is set.  
       IF ( debugMode ) debugLevel = MAX( debugLevel, debLevB )  
 c     IF ( debugLevel .GE. debLevB ) debugMode = .TRUE.  
   
1323  C--   flag for approximate adjoint  C--   flag for approximate adjoint
1324        IF ( inAdExact ) THEN        IF ( inAdExact ) THEN
1325         inAdTrue  = .FALSE.         inAdTrue  = .FALSE.
# Line 1340  C--   Check whether any retired paramete Line 1340  C--   Check whether any retired paramete
1340  C--   Stop if they were  C--   Stop if they were
1341        IF ( nRetired .GT. 0 ) THEN        IF ( nRetired .GT. 0 ) THEN
1342         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
1343       &  'Error reading parameter file "data"'       &  'S/R INI_PARMS: Error reading parameter file "data"'
1344         CALL PRINT_ERROR( msgBuf, myThid )         CALL PRINT_ERROR( msgBuf, myThid )
1345         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
1346       &  'some out of date parameters were found in the namelist'       &  'some out of date parameters were found in the namelist'
Legend:
Removed from v.1.239  
changed lines
  Added in v.1.240
  ViewVC Help
Powered by ViewVC 1.1.22