/[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.135 by dimitri, Tue Nov 2 23:57:29 2004 UTC revision 1.136 by jmc, Fri Nov 5 02:47:44 2004 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     zonal_filt_lat  - Moved to package "zonal_filt"  C     tracerAdvScheme :: tracer advection scheme (old passive tracer code)
115    C     trac_EvPrRn :: tracer conc. in Rain & Evap (old passive tracer code)
116    C     saltDiffusion :: diffusion of salinity    on/off (flag not used)
117    C     tempDiffusion :: diffusion of temperature on/off (flag not used)
118    C     zonal_filt_lat :: Moved to package "zonal_filt"
119  C     nRetired :: Counter used to trap gracefully namelists containing "retired"  C     nRetired :: Counter used to trap gracefully namelists containing "retired"
120  C              :: parameters. These are parameters that are either no-longer used  C              :: parameters. These are parameters that are either no-longer used
121  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.
122          LOGICAL tempDiffusion, saltDiffusion
123          INTEGER tracerAdvScheme
124          _RL trac_EvPrRn
125        _RL zonal_filt_lat        _RL zonal_filt_lat
126        INTEGER nRetired        INTEGER nRetired
127    
# Line 220  C--   Initialise "which vertical coordin Line 227  C--   Initialise "which vertical coordin
227    
228  C--   Initialise retired parameters to unlikely value  C--   Initialise retired parameters to unlikely value
229        nRetired = 0        nRetired = 0
230          tempDiffusion   = .TRUE.
231          saltDiffusion   = .TRUE.
232          tracerAdvScheme = UNSET_I
233          trac_EvPrRn     = UNSET_RL
234        zonal_filt_lat  = UNSET_RL        zonal_filt_lat  = UNSET_RL
235        gravitySign     = UNSET_RL        gravitySign     = UNSET_RL
236    
# Line 594  C     Check for retired parameters still Line 605  C     Check for retired parameters still
605       &  ' coordinate and is no longer allowed in file "data".'       &  ' coordinate and is no longer allowed in file "data".'
606         CALL PRINT_ERROR( msgBuf , myThid)         CALL PRINT_ERROR( msgBuf , myThid)
607        ENDIF        ENDIF
608          IF ( tracerAdvScheme .NE. UNSET_I ) THEN
609           nRetired = nRetired+1
610           WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tracerAdvScheme" ',
611         &  '(old passive tracer code) is no longer allowed in file "data"'
612           CALL PRINT_ERROR( msgBuf , myThid)
613          ENDIF
614          IF ( trac_EvPrRn .NE. UNSET_RL ) THEN
615           nRetired = nRetired+1
616           WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "trac_EvPrRn" ',
617         &  '(old passive tracer code) is no longer allowed in file "data"'
618           CALL PRINT_ERROR( msgBuf , myThid)
619          ENDIF
620          IF ( .NOT. tempDiffusion ) THEN
621           nRetired = nRetired+1
622           WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tempDiffusion" ',
623         &  'is no longer allowed in file "data"'
624           CALL PRINT_ERROR( msgBuf , myThid)
625           WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to turn off diffusion',
626         &  ' => set diffusivity to zero'
627           CALL PRINT_ERROR( msgBuf , myThid)
628          ENDIF
629          IF ( .NOT. saltDiffusion ) THEN
630           nRetired = nRetired+1
631           WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "saltDiffusion" ',
632         &  'is no longer allowed in file "data"'
633           CALL PRINT_ERROR( msgBuf , myThid)
634           WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to turn off diffusion',
635         &  ' => set diffusivity to zero'
636           CALL PRINT_ERROR( msgBuf , myThid)
637          ENDIF
638    
639  C--   Elliptic solver parameters  C--   Elliptic solver parameters
640        WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; starts to read PARM02'        WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; starts to read PARM02'
Legend:
Removed from v.1.135  
changed lines
  Added in v.1.136
  ViewVC Help
Powered by ViewVC 1.1.22