/[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.216 by jmc, Sun Aug 24 21:32:17 2008 UTC revision 1.217 by mlosch, Wed Sep 10 08:55:11 2008 UTC
# Line 130  C     rkFac      :: removed from namelis Line 130  C     rkFac      :: removed from namelis
130  C     nRetired :: Counter used to trap gracefully namelists containing "retired"  C     nRetired :: Counter used to trap gracefully namelists containing "retired"
131  C              :: parameters. These are parameters that are either no-longer used  C              :: parameters. These are parameters that are either no-longer used
132  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.
133    C Namelist PARM05:
134    C     shelfIceFile :: File containing the topography of the shelfice draught
135    C                     (replaced by SHELFICEtopoFile in SHELFICE.h)
136    
137        LOGICAL tempDiffusion, saltDiffusion        LOGICAL tempDiffusion, saltDiffusion
138        INTEGER tracerAdvScheme        INTEGER tracerAdvScheme
139        _RL trac_EvPrRn        _RL trac_EvPrRn
# Line 143  C- Line 147  C-
147  C-  C-
148        LOGICAL groundAtK1        LOGICAL groundAtK1
149        _RL rkFac        _RL rkFac
150          CHARACTER*(MAX_LEN_FNAM) shelfIceFile
151        INTEGER nRetired        INTEGER nRetired
152    
153  C--   Continuous equation parameters  C--   Continuous equation parameters
# Line 287  C--   Initialise retired parameters to u Line 292  C--   Initialise retired parameters to u
292        calendarDumps   = .FALSE.        calendarDumps   = .FALSE.
293        rkFac           = UNSET_RL        rkFac           = UNSET_RL
294        groundAtK1      = .FALSE.        groundAtK1      = .FALSE.
295          shelfIceFile    = ' '
296    
297  C--   Open the parameter file  C--   Open the parameter file
298  #if defined (TARGET_BGL) || defined (TARGET_CRAYXT)  #if defined (TARGET_BGL) || defined (TARGET_CRAYXT)
# Line 1216  C--   Input files Line 1222  C--   Input files
1222         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
1223       &                     SQUEEZE_RIGHT, myThid )       &                     SQUEEZE_RIGHT, myThid )
1224        ENDIF        ENDIF
1225    C     Check for retired parameters still being used
1226          IF ( shelfIceFile .NE. ' ' ) THEN
1227           nRetired = nRetired+1
1228           WRITE(msgBuf,'(A,A)')
1229         &  'S/R INI_PARMS: "shelfIceFile" is not allowed in "data", ',
1230         &  'substitute "SHELFICEtopoFile" in data.shelfice'
1231           CALL PRINT_ERROR( msgBuf, myThid )
1232          ENDIF
1233    
1234  C--   Set Units conversion factor required to incorporate  C--   Set Units conversion factor required to incorporate
1235  C     surface forcing into z-p isomorphic equations:  C     surface forcing into z-p isomorphic equations:
Legend:
Removed from v.1.216  
changed lines
  Added in v.1.217
  ViewVC Help
Powered by ViewVC 1.1.22