/[MITgcm]/MITgcm/pkg/mnc/MNC_PARAMS.h
ViewVC logotype

Diff of /MITgcm/pkg/mnc/MNC_PARAMS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by edhill, Sun Oct 10 06:08:49 2004 UTC revision 1.13 by edhill, Wed Sep 14 19:27:31 2005 UTC
# Line 16  CEOP Line 16  CEOP
16  C     ===  PARM_MNC_C Common Block  ===  C     ===  PARM_MNC_C Common Block  ===
17  C     mnc_outdir_str   :: name of the output directory  C     mnc_outdir_str   :: name of the output directory
18  C     mnc_indir_str    :: name of the input directory  C     mnc_indir_str    :: name of the input directory
19    
20        COMMON /PARM_MNC_C/        COMMON /PARM_MNC_C/
21       &     mnc_outdir_str,       &     mnc_outdir_str,
22       &     mnc_indir_str       &     mnc_indir_str
23        CHARACTER*(MAX_LEN_FNAM) mnc_outdir_str        CHARACTER*(MAX_LEN_FNAM) mnc_outdir_str
24        CHARACTER*(MAX_LEN_FNAM) mnc_indir_str        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     readgrid_mnc     :: read INI_CURVILINEAR_GRID() info using mnc
37    
38          COMMON /PARM_MNC_L/
39         &     mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
40         &     mnc_outdir_num, mnc_use_name_ni0, mnc_echo_gvtypes,
41         &     pickup_write_mnc, pickup_read_mnc,
42         &     timeave_mnc, snapshot_mnc, monitor_mnc, autodiff_mnc,
43         &     readgrid_mnc
44          LOGICAL
45         &     mnc_use_indir, mnc_use_outdir, mnc_outdir_date,
46         &     mnc_outdir_num, mnc_use_name_ni0, mnc_echo_gvtypes,
47         &     pickup_write_mnc, pickup_read_mnc,
48         &     timeave_mnc, snapshot_mnc, monitor_mnc, autodiff_mnc,
49         &     readgrid_mnc
50    
51    C     ===  PARM_MNC_I Common Block  ===
52    C     mnc_curr_iter    :: current iter for file names
53    
54          COMMON /PARM_MNC_I/
55         &     mnc_curr_iter
56          INTEGER mnc_curr_iter
57    
58    C     ===  PARM_MNC_R Common Block  ===
59    C     mnc_max_fsize    :: maximum file size
60    
61          COMMON /PARM_MNC_R/
62         &     mnc_max_fsize, mnc_filefreq
63          REAL*8  mnc_max_fsize
64          REAL*8  mnc_filefreq
65    
66  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
67  CEH3 ;;; mode:fortran ***  CEH3 ;;; mode:fortran ***

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.22