pkg/mnc/MNC_PARAMS.h

a30418b6b9 Ed H*0001 C
                0002
                0003 CBOP
a0355f4264 Ed H*0004 C     !ROUTINE: MNC_PARAMS.h
a30418b6b9 Ed H*0005 C     !INTERFACE:
a0355f4264 Ed H*0006 C     #include MNC_PARAMS.h
a30418b6b9 Ed H*0007
                0008 C     !DESCRIPTION:
                0009 C     Header file defining model "parameters".  The values from the
                0010 C     model standard input file are stored into the variables held
                0011 C     here. Notes describing the parameters can also be found here.
                0012 CEOP
                0013
                0014 C     ===  PARM_MNC_C Common Block  ===
                0015 C     mnc_outdir_str   :: name of the output directory
                0016 C     mnc_indir_str    :: name of the input directory
f31930e56f Ed H*0017
a30418b6b9 Ed H*0018       COMMON /PARM_MNC_C/
                0019      &     mnc_outdir_str,
                0020      &     mnc_indir_str
                0021       CHARACTER*(MAX_LEN_FNAM) mnc_outdir_str
                0022       CHARACTER*(MAX_LEN_FNAM) mnc_indir_str
                0023
f31930e56f Ed H*0024 C     ===  PARM_MNC_L Common Block  ===
                0025 C     mnc_use_indir    :: use "mnc_indir_str" as input filename prefix
                0026 C     mnc_use_outdir   :: use "mnc_outdir_str" as output filename prefix
                0027 C     mnc_outdir_date  :: use a date string within the output dir name
b7411f1a84 Jean*0028 C     mnc_outdir_num   :: use a seq. number within the output dir name
0bd3fd8d5f Ed H*0029 C     mnc_use_name_ni0 :: use nIter0 in all the file names
f31930e56f Ed H*0030 C     mnc_echo_gvtypes :: echo type names (fails on many platforms)
                0031 C     pickup_write_mnc :: use mnc to write pickups
                0032 C     pickup_read_mnc  :: use mnc to read  pickups
                0033 C     mon_write_mnc    :: use mnc to write monitor output
d1e82389db Jean*0034 C     writegrid_mnc    :: use mnc to write model-grid arrays to file
e808c5b132 Ed H*0035 C     readgrid_mnc     :: read INI_CURVILINEAR_GRID() info using mnc
f31930e56f Ed H*0036
b7411f1a84 Jean*0037       COMMON /PARM_MNC_L/
f31930e56f Ed H*0038      &     mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
0bd3fd8d5f Ed H*0039      &     mnc_outdir_num, mnc_use_name_ni0, mnc_echo_gvtypes,
f31930e56f Ed H*0040      &     pickup_write_mnc, pickup_read_mnc,
b7411f1a84 Jean*0041      &     snapshot_mnc, monitor_mnc, autodiff_mnc,
5f4df5533c Ed H*0042      &     writegrid_mnc, readgrid_mnc,
                0043      &     mnc_read_bathy, mnc_read_salt, mnc_read_theta
b7411f1a84 Jean*0044       LOGICAL
f31930e56f Ed H*0045      &     mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
0bd3fd8d5f Ed H*0046      &     mnc_outdir_num, mnc_use_name_ni0, mnc_echo_gvtypes,
f31930e56f Ed H*0047      &     pickup_write_mnc, pickup_read_mnc,
b7411f1a84 Jean*0048      &     snapshot_mnc, monitor_mnc, autodiff_mnc,
5f4df5533c Ed H*0049      &     writegrid_mnc, readgrid_mnc,
                0050      &     mnc_read_bathy, mnc_read_salt, mnc_read_theta
a30418b6b9 Ed H*0051
5bc9611487 Ed H*0052 C     ===  PARM_MNC_I Common Block  ===
                0053 C     mnc_curr_iter    :: current iter for file names
                0054
                0055       COMMON /PARM_MNC_I/
21c48a3add Ed H*0056      &     mnc_def_imv, mnc_curr_iter
                0057       INTEGER mnc_def_imv(2)
5bc9611487 Ed H*0058       INTEGER mnc_curr_iter
                0059
21c48a3add Ed H*0060 C     ===  PARM_MNC_R8 Common Block  ===
ab11ba1276 Ed H*0061 C     mnc_max_fsize    :: maximum file size
                0062
21c48a3add Ed H*0063       COMMON /PARM_MNC_R8/
                0064      &     mnc_def_dmv,
01902801fa Ed H*0065      &     mnc_max_fsize, mnc_filefreq
21c48a3add Ed H*0066       REAL*8  mnc_def_dmv(2)
ab11ba1276 Ed H*0067       REAL*8  mnc_max_fsize
01902801fa Ed H*0068       REAL*8  mnc_filefreq
ab11ba1276 Ed H*0069
21c48a3add Ed H*0070 C     ===  PARM_MNC_R8 Common Block  ===
                0071       COMMON /PARM_MNC_R4/
                0072      &     mnc_def_rmv
                0073       REAL*4  mnc_def_rmv(2)
                0074
a30418b6b9 Ed H*0075 CEH3 ;;; Local Variables: ***
                0076 CEH3 ;;; mode:fortran ***
                0077 CEH3 ;;; End: ***