pkg/mnc/MNC_PARAMS.h

C $Header: /u/gcmpack/MITgcm/pkg/mnc/MNC_PARAMS.h,v 1.14 2005/10/24 18:12:57 jmc Exp $
C $Name:  $
C

CBOP
C     !ROUTINE: MNC_PARAMS.h
C     !INTERFACE:
C     #include MNC_PARAMS.h

C     !DESCRIPTION:
C     Header file defining model "parameters".  The values from the
C     model standard input file are stored into the variables held
C     here. Notes describing the parameters can also be found here.
CEOP

C     ===  PARM_MNC_C Common Block  ===
C     mnc_outdir_str   :: name of the output directory
C     mnc_indir_str    :: name of the input directory

      COMMON /PARM_MNC_C/
     &     mnc_outdir_str,
     &     mnc_indir_str
      CHARACTER*(MAX_LEN_FNAM) mnc_outdir_str
      CHARACTER*(MAX_LEN_FNAM) mnc_indir_str

C     ===  PARM_MNC_L Common Block  ===
C     mnc_use_indir    :: use "mnc_indir_str" as input filename prefix
C     mnc_use_outdir   :: use "mnc_outdir_str" as output filename prefix
C     mnc_outdir_date  :: use a date string within the output dir name
C     mnc_outdir_num   :: use a seq. number within the output dir name 
C     mnc_use_name_ni0 :: use nIter0 in all the file names
C     mnc_echo_gvtypes :: echo type names (fails on many platforms)
C     pickup_write_mnc :: use mnc to write pickups
C     pickup_read_mnc  :: use mnc to read  pickups
C     mon_write_mnc    :: use mnc to write monitor output
C     writegrid_mnc    :: use mnc to write model-grid arrays to file
C     readgrid_mnc     :: read INI_CURVILINEAR_GRID() info using mnc

      COMMON /PARM_MNC_L/ 
     &     mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
     &     mnc_outdir_num, mnc_use_name_ni0, mnc_echo_gvtypes,
     &     pickup_write_mnc, pickup_read_mnc,
     &     timeave_mnc, snapshot_mnc, monitor_mnc, autodiff_mnc, 
     &     writegrid_mnc, readgrid_mnc
      LOGICAL 
     &     mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
     &     mnc_outdir_num, mnc_use_name_ni0, mnc_echo_gvtypes,
     &     pickup_write_mnc, pickup_read_mnc,
     &     timeave_mnc, snapshot_mnc, monitor_mnc, autodiff_mnc, 
     &     writegrid_mnc, readgrid_mnc

C     ===  PARM_MNC_I Common Block  ===
C     mnc_curr_iter    :: current iter for file names

      COMMON /PARM_MNC_I/
     &     mnc_def_imv, mnc_curr_iter
      INTEGER mnc_def_imv(2)
      INTEGER mnc_curr_iter

C     ===  PARM_MNC_R8 Common Block  ===
C     mnc_max_fsize    :: maximum file size

      COMMON /PARM_MNC_R8/
     &     mnc_def_dmv,
     &     mnc_max_fsize, mnc_filefreq
      REAL*8  mnc_def_dmv(2)
      REAL*8  mnc_max_fsize
      REAL*8  mnc_filefreq

C     ===  PARM_MNC_R8 Common Block  ===
      COMMON /PARM_MNC_R4/
     &     mnc_def_rmv
      REAL*4  mnc_def_rmv(2)

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	C $Header: /u/gcmpack/MITgcm/pkg/mnc/MNC_PARAMS.h,v 1.14 2005/10/24 18:12:57 jmc Exp $
2	C $Name: $
3	C
4
5	CBOP
6	C !ROUTINE: MNC_PARAMS.h
7	C !INTERFACE:
8	C #include MNC_PARAMS.h
9
10	C !DESCRIPTION:
11	C Header file defining model "parameters". The values from the
12	C model standard input file are stored into the variables held
13	C here. Notes describing the parameters can also be found here.
14	CEOP
15
16	C === PARM_MNC_C Common Block ===
17	C mnc_outdir_str :: name of the output directory
18	C mnc_indir_str :: name of the input directory
19
20	COMMON /PARM_MNC_C/
21	& mnc_outdir_str,
22	& mnc_indir_str
23	CHARACTER*(MAX_LEN_FNAM) mnc_outdir_str
24	CHARACTER*(MAX_LEN_FNAM) mnc_indir_str
25
26	C === PARM_MNC_L Common Block ===
27	C mnc_use_indir :: use "mnc_indir_str" as input filename prefix
28	C mnc_use_outdir :: use "mnc_outdir_str" as output filename prefix
29	C mnc_outdir_date :: use a date string within the output dir name
30	C mnc_outdir_num :: use a seq. number within the output dir name
31	C mnc_use_name_ni0 :: use nIter0 in all the file names
32	C mnc_echo_gvtypes :: echo type names (fails on many platforms)
33	C pickup_write_mnc :: use mnc to write pickups
34	C pickup_read_mnc :: use mnc to read pickups
35	C mon_write_mnc :: use mnc to write monitor output
36	C writegrid_mnc :: use mnc to write model-grid arrays to file
37	C readgrid_mnc :: read INI_CURVILINEAR_GRID() info using mnc
38
39	COMMON /PARM_MNC_L/
40	& mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
41	& mnc_outdir_num, mnc_use_name_ni0, mnc_echo_gvtypes,
42	& pickup_write_mnc, pickup_read_mnc,
43	& timeave_mnc, snapshot_mnc, monitor_mnc, autodiff_mnc,
44	& writegrid_mnc, readgrid_mnc
45	LOGICAL
46	& mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
47	& mnc_outdir_num, mnc_use_name_ni0, mnc_echo_gvtypes,
48	& pickup_write_mnc, pickup_read_mnc,
49	& timeave_mnc, snapshot_mnc, monitor_mnc, autodiff_mnc,
50	& writegrid_mnc, readgrid_mnc
51
52	C === PARM_MNC_I Common Block ===
53	C mnc_curr_iter :: current iter for file names
54
55	COMMON /PARM_MNC_I/
56	& mnc_def_imv, mnc_curr_iter
57	INTEGER mnc_def_imv(2)
58	INTEGER mnc_curr_iter
59
60	C === PARM_MNC_R8 Common Block ===
61	C mnc_max_fsize :: maximum file size
62
63	COMMON /PARM_MNC_R8/
64	& mnc_def_dmv,
65	& mnc_max_fsize, mnc_filefreq
66	REAL*8 mnc_def_dmv(2)
67	REAL*8 mnc_max_fsize
68	REAL*8 mnc_filefreq
69
70	C === PARM_MNC_R8 Common Block ===
71	COMMON /PARM_MNC_R4/
72	& mnc_def_rmv
73	REAL*4 mnc_def_rmv(2)
74
75	CEH3 ;;; Local Variables: ***
76	CEH3 ;;; mode:fortran ***
77	CEH3 ;;; End: ***