source: NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/OCE/IOM/in_out_manager.F90 @ 11624

Last change on this file since 11624 was 11624, checked in by acc, 17 months ago

Branch 2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles. Substantive changes required to replace all namelists with internal files. These are the key changes only; to compile and run tests all REWIND and CLOSE operations on the (no longer) units have to be removed. These changes affect many more files but can be scripted so are not included here in order to make a later merge easier. The scripts used to prepare code for testing are included on: wiki:2019WP/ENHANCE-04_AndrewC-reporting/Internal_Namelists. With these additional changes this code passes most SETTE tests but the AGRIF preprocessor does not currently accept the new allocatable character strings. To be investigated.

  • Property svn:keywords set to Id
File size: 12.4 KB
RevLine 
[544]1MODULE in_out_manager   
2   !!======================================================================
3   !!                       ***  MODULE  in_out_manager  ***
[3294]4   !! I/O manager utilities : Defines run parameters together with logical units
[544]5   !!=====================================================================
[1581]6   !! History :   1.0  !  2002-06  (G. Madec)   original code
[1056]7   !!             2.0  !  2006-07  (S. Masson)  iom, add ctl_stop, ctl_warn
[1581]8   !!             3.0  !  2008-06  (G. Madec)   add ctmp4 to ctmp10
9   !!             3.2  !  2009-08  (S. MAsson)  add new ctl_opn
[2528]10   !!             3.3  !  2010-10  (A. Coward)  add NetCDF4 usage
[544]11   !!----------------------------------------------------------------------
12
13   !!----------------------------------------------------------------------
[2528]14   USE par_oce       ! ocean parameter
15   USE nc4interface  ! NetCDF4 interface
[544]16
17   IMPLICIT NONE
18   PUBLIC
19
20   !!----------------------------------------------------------------------
21   !!                   namrun namelist parameters
22   !!----------------------------------------------------------------------
[4147]23   CHARACTER(lc) ::   cn_exp           !: experiment name used for output filename
24   CHARACTER(lc) ::   cn_ocerst_in     !: suffix of ocean restart name (input)
[5341]25   CHARACTER(lc) ::   cn_ocerst_indir  !: restart input directory
[4147]26   CHARACTER(lc) ::   cn_ocerst_out    !: suffix of ocean restart name (output)
[5341]27   CHARACTER(lc) ::   cn_ocerst_outdir !: restart output directory
[4147]28   LOGICAL       ::   ln_rstart        !: start from (F) rest or (T) a restart file
[5341]29   LOGICAL       ::   ln_rst_list      !: output restarts at list of times (T) or by frequency (F)
[4147]30   INTEGER       ::   nn_rstctl        !: control of the time step (0, 1 or 2)
31   INTEGER       ::   nn_rstssh   = 0  !: hand made initilization of ssh or not (1/0)
32   INTEGER       ::   nn_it000         !: index of the first time step
33   INTEGER       ::   nn_itend         !: index of the last time step
34   INTEGER       ::   nn_date0         !: initial calendar date aammjj
[6140]35   INTEGER       ::   nn_time0         !: initial time of day in hhmm
[4147]36   INTEGER       ::   nn_leapy         !: Leap year calendar flag (0/1 or 30)
37   INTEGER       ::   nn_istate        !: initial state output flag (0/1)
38   INTEGER       ::   nn_write         !: model standard output frequency
39   INTEGER       ::   nn_stock         !: restart file frequency
[5341]40   INTEGER, DIMENSION(10) :: nn_stocklist  !: restart dump times
[4147]41   LOGICAL       ::   ln_mskland       !: mask land points in NetCDF outputs (costly: + ~15%)
[5363]42   LOGICAL       ::   ln_cfmeta        !: output additional data to netCDF files required for compliance with the CF metadata standard
[4147]43   LOGICAL       ::   ln_clobber       !: clobber (overwrite) an existing file
44   INTEGER       ::   nn_chunksz       !: chunksize (bytes) for NetCDF file (works only with iom_nf90 routines)
[9367]45   LOGICAL       ::   ln_xios_read     !: use xios to read single file restart
46   INTEGER       ::   nn_wxios         !: write resart using xios 0 - no, 1 - single, 2 - multiple file output
[9490]47   INTEGER       ::   nn_no            !: Assimilation cycle
[7646]48
[2528]49#if defined key_netcdf4
50   !!----------------------------------------------------------------------
51   !!                   namnc4 namelist parameters                         (key_netcdf4)
52   !!----------------------------------------------------------------------
53   ! The following four values determine the partitioning of the output fields
54   ! into netcdf4 chunks. They are unrelated to the nn_chunk_sz setting which is
55   ! for runtime optimisation. The individual netcdf4 chunks can be optionally
56   ! gzipped (recommended) leading to significant reductions in I/O volumes
[4147]57   !                         !!!**  variables only used with iom_nf90 routines and key_netcdf4 **
58   INTEGER ::   nn_nchunks_i   !: number of chunks required in the i-dimension
59   INTEGER ::   nn_nchunks_j   !: number of chunks required in the j-dimension
60   INTEGER ::   nn_nchunks_k   !: number of chunks required in the k-dimension
61   INTEGER ::   nn_nchunks_t   !: number of chunks required in the t-dimension
62   LOGICAL ::   ln_nc4zip      !: netcdf4 usage: (T) chunk and compress output using the HDF5 sublayers of netcdf4
63   !                           !                 (F) ignore chunking request and use the netcdf4 library
64   !                           !                     to produce netcdf3-compatible files
[2528]65#endif
[7646]66
[2528]67!$AGRIF_DO_NOT_TREAT
68   TYPE(snc4_ctl)     :: snc4set        !: netcdf4 chunking control structure (always needed for decision making)
69!$AGRIF_END_DO_NOT_TREAT
[1601]70
[2528]71
[1601]72   !! conversion of DOCTOR norm namelist name into model name
73   !! (this should disappear in a near futur)
74
[2528]75   CHARACTER(lc) ::   cexper                      !: experiment name used for output filename
76   INTEGER       ::   nrstdt                      !: control of the time step (0, 1 or 2)
77   INTEGER       ::   nit000                      !: index of the first time step
78   INTEGER       ::   nitend                      !: index of the last time step
79   INTEGER       ::   ndate0                      !: initial calendar date aammjj
80   INTEGER       ::   nleapy                      !: Leap year calendar flag (0/1 or 30)
81   INTEGER       ::   ninist                      !: initial state output flag (0/1)
[1601]82
[544]83   !!----------------------------------------------------------------------
[557]84   !! was in restart but moved here because of the OFF line... better solution should be found...
85   !!----------------------------------------------------------------------
[3680]86   INTEGER ::   nitrst                !: time step at which restart file should be written
87   LOGICAL ::   lrst_oce              !: logical to control the oce restart write
[9019]88   LOGICAL ::   lrst_ice              !: logical to control the ice restart write
[5518]89   INTEGER ::   numror = 0            !: logical unit for ocean restart (read). Init to 0 is needed for SAS (in daymod.F90)
[9019]90   INTEGER ::   numrir                !: logical unit for ice   restart (read)
[5518]91   INTEGER ::   numrow                !: logical unit for ocean restart (write)
[9019]92   INTEGER ::   numriw                !: logical unit for ice   restart (write)
[5341]93   INTEGER ::   nrst_lst              !: number of restart to output next
[1601]94
[557]95   !!----------------------------------------------------------------------
[544]96   !!                    output monitoring
97   !!----------------------------------------------------------------------
[7646]98   LOGICAL ::   ln_ctl           !: run control for debugging
[10570]99   TYPE :: sn_ctl                !: optional use structure for finer control over output selection
100      LOGICAL :: l_config  = .FALSE.  !: activate/deactivate finer control
101                                      !  Note if l_config is True then ln_ctl is ignored.
102                                      !  Otherwise setting ln_ctl True is equivalent to setting
103                                      !  all the following logicals in this structure True
104      LOGICAL :: l_runstat = .FALSE.  !: Produce/do not produce run.stat file (T/F)
105      LOGICAL :: l_trcstat = .FALSE.  !: Produce/do not produce tracer.stat file (T/F)
106      LOGICAL :: l_oceout  = .FALSE.  !: Produce all ocean.outputs    (T) or just one (F)
107      LOGICAL :: l_layout  = .FALSE.  !: Produce all layout.dat files (T) or just one (F)
108      LOGICAL :: l_mppout  = .FALSE.  !: Produce/do not produce mpp.output_XXXX files (T/F)
109      LOGICAL :: l_mpptop  = .FALSE.  !: Produce/do not produce mpp.top.output_XXXX files (T/F)
110                                      !  Optional subsetting of processor report files
111                                      !  Default settings of 0/1000000/1 should ensure all areas report.
112                                      !  Set to a more restrictive range to select specific areas
113      INTEGER :: procmin   = 0        !: Minimum narea to output
114      INTEGER :: procmax   = 1000000  !: Maximum narea to output
115      INTEGER :: procincr  = 1        !: narea increment to output
116      INTEGER :: ptimincr  = 1        !: timestep increment to output (time.step and run.stat)
117   END TYPE
[10817]118   TYPE(sn_ctl), SAVE :: sn_cfctl     !: run control structure for selective output, must have SAVE for default init. of sn_ctl
[9019]119   LOGICAL ::   ln_timing        !: run control for timing
120   LOGICAL ::   ln_diacfl        !: flag whether to create CFL diagnostics
[7646]121   INTEGER ::   nn_print         !: level of print (0 no print)
122   INTEGER ::   nn_ictls         !: Start i indice for the SUM control
123   INTEGER ::   nn_ictle         !: End   i indice for the SUM control
124   INTEGER ::   nn_jctls         !: Start j indice for the SUM control
125   INTEGER ::   nn_jctle         !: End   j indice for the SUM control
126   INTEGER ::   nn_isplt         !: number of processors following i
127   INTEGER ::   nn_jsplt         !: number of processors following j
[2528]128   !                                         
[7646]129   INTEGER ::   nprint, nictls, nictle, njctls, njctle, isplt, jsplt    !: OLD namelist names
[1601]130
[2528]131   INTEGER ::   ijsplt     =    1      !: nb of local domain = nb of processors
[1601]132
[544]133   !!----------------------------------------------------------------------
134   !!                        logical units
135   !!----------------------------------------------------------------------
[4147]136   INTEGER ::   numstp          =   -1      !: logical unit for time step
137   INTEGER ::   numtime         =   -1      !: logical unit for timing
[9490]138   INTEGER ::   numout          =    6      !: logical unit for output print; Set to stdout to ensure any
[10425]139   INTEGER ::   numnul          =   -1      !: logical unit for /dev/null
[9490]140      !                                     !  early output can be collected; do not change
[4990]141   INTEGER ::   numond          =   -1      !: logical unit for Output Namelist Dynamics
142   INTEGER ::   numoni          =   -1      !: logical unit for Output Namelist Ice
[4147]143   INTEGER ::   numevo_ice      =   -1      !: logical unit for ice variables (temp. evolution)
[9019]144   INTEGER ::   numrun          =   -1      !: logical unit for run statistics
[4147]145   INTEGER ::   numdct_in       =   -1      !: logical unit for transports computing
[11624]146   INTEGER ::   numdct_vol      =   -1      !: logical unit for volume transports output
147   INTEGER ::   numdct_heat     =   -1      !: logical unit for heat   transports output
148   INTEGER ::   numdct_salt     =   -1      !: logical unit for salt   transports output
[4147]149   INTEGER ::   numfl           =   -1      !: logical unit for floats ascii output
150   INTEGER ::   numflo          =   -1      !: logical unit for floats ascii output
[11624]151      !
152   CHARACTER(LEN=:), ALLOCATABLE :: numnam_ref      !: character buffer for reference namelist
153   CHARACTER(LEN=:), ALLOCATABLE :: numnam_cfg      !: character buffer for configuration specific namelist
154   CHARACTER(LEN=:), ALLOCATABLE :: numnam_ice_ref  !: character buffer for ice reference namelist
155   CHARACTER(LEN=:), ALLOCATABLE :: numnam_ice_cfg  !: character buffer for ice configuration specific namelist
[544]156
157   !!----------------------------------------------------------------------
158   !!                          Run control 
159   !!----------------------------------------------------------------------
[7646]160   INTEGER       ::   no_print = 0          !: optional argument of fld_fill (if present, suppress some control print)
[2528]161   INTEGER       ::   nstop = 0             !: error flag (=number of reason for a premature stop run)
162   INTEGER       ::   nwarn = 0             !: warning flag (=number of warning found during the run)
163   CHARACTER(lc) ::   ctmp1, ctmp2, ctmp3   !: temporary characters 1 to 3
164   CHARACTER(lc) ::   ctmp4, ctmp5, ctmp6   !: temporary characters 4 to 6
165   CHARACTER(lc) ::   ctmp7, ctmp8, ctmp9   !: temporary characters 7 to 9
166   CHARACTER(lc) ::   ctmp10                !: temporary character 10
[4624]167   LOGICAL       ::   lwm      = .FALSE.    !: boolean : true on the 1st processor only (always)
168   LOGICAL       ::   lwp      = .FALSE.    !: boolean : true on the 1st processor only .OR. ln_ctl
[2528]169   LOGICAL       ::   lsp_area = .TRUE.     !: to make a control print over a specific area
[5407]170   CHARACTER(lc) ::   cxios_context         !: context name used in xios
[9367]171   CHARACTER(lc) ::   crxios_context         !: context name used in xios to read restart
172   CHARACTER(lc) ::   cwxios_context        !: context name used in xios to write restart file
[2528]173
[544]174   !!----------------------------------------------------------------------
[9570]175   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
[1146]176   !! $Id$
[10068]177   !! Software governed by the CeCILL license (see ./LICENSE)
[544]178   !!=====================================================================
179END MODULE in_out_manager
Note: See TracBrowser for help on using the repository browser.