Changeset 13056 for utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/in_out_manager.F90

Timestamp:

2020-06-07T18:26:09+02:00 (4 years ago)

Author:

rblod

Message:

ticket #2129 : cleaning domcfg

File:

• utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/in_out_manager.F90 (modified) (6 diffs)

utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/in_out_manager.F90

@@ -22 +22 @@
    !!----------------------------------------------------------------------
    CHARACTER(lc) ::   cn_exp           !: experiment name used for output filename
-   CHARACTER(lc) ::   cn_ocerst_in     !: suffix of ocean restart name (input)
-   CHARACTER(lc) ::   cn_ocerst_indir  !: restart input directory
-   CHARACTER(lc) ::   cn_ocerst_out    !: suffix of ocean restart name (output)
-   CHARACTER(lc) ::   cn_ocerst_outdir !: restart output directory
-   LOGICAL       ::   ln_rstart        !: start from (F) rest or (T) a restart file
-   LOGICAL       ::   ln_rst_list      !: output restarts at list of times (T) or by frequency (F)
-   INTEGER       ::   nn_rstctl        !: control of the time step (0, 1 or 2)
-   INTEGER       ::   nn_rstssh   = 0  !: hand made initilization of ssh or not (1/0)
    INTEGER       ::   nn_it000         !: index of the first time step
    INTEGER       ::   nn_itend         !: index of the last time step
@@ -35 +27 @@
    INTEGER       ::   nn_time0         !: initial time of day in hhmm
    INTEGER       ::   nn_leapy         !: Leap year calendar flag (0/1 or 30)
-   INTEGER       ::   nn_istate        !: initial state output flag (0/1)
-   INTEGER       ::   nn_write         !: model standard output frequency
-   INTEGER       ::   nn_stock         !: restart file frequency
-   INTEGER, DIMENSION(10) :: nn_stocklist  !: restart dump times
    LOGICAL       ::   ln_mskland       !: mask land points in NetCDF outputs (costly: + ~15%)
    LOGICAL       ::   ln_cfmeta        !: output additional data to netCDF files required for compliance with the CF metadata standard
@@ -45 +33 @@
    LOGICAL       ::   ln_xios_read     !: use xios to read single file restart
    INTEGER       ::   nn_wxios         !: write resart using xios 0 - no, 1 - single, 2 - multiple file output
-   INTEGER       ::   nn_no            !: Assimilation cycle
 
 #if defined key_netcdf4
@@ -74 +61 @@
 
    CHARACTER(lc) ::   cexper                      !: experiment name used for output filename
-   INTEGER       ::   nrstdt                      !: control of the time step (0, 1 or 2)
    INTEGER       ::   nit000                      !: index of the first time step
    INTEGER       ::   nitend                      !: index of the last time step
    INTEGER       ::   ndate0                      !: initial calendar date aammjj
    INTEGER       ::   nleapy                      !: Leap year calendar flag (0/1 or 30)
-   INTEGER       ::   ninist                      !: initial state output flag (0/1)
-   INTEGER       ::   nwrite                      !: model standard output frequency
-   INTEGER       ::   nstock                      !: restart file frequency
-   INTEGER, DIMENSION(10) :: nstocklist           !: restart dump times
-
-   !!----------------------------------------------------------------------
-   !! was in restart but moved here because of the OFF line... better solution should be found...
-   !!----------------------------------------------------------------------
-   INTEGER ::   nitrst                !: time step at which restart file should be written
-   LOGICAL ::   lrst_oce              !: logical to control the oce restart write 
-   LOGICAL ::   lrst_ice              !: logical to control the ice restart write 
-   INTEGER ::   numror = 0            !: logical unit for ocean restart (read). Init to 0 is needed for SAS (in daymod.F90)
-   INTEGER ::   numrir                !: logical unit for ice   restart (read)
-   INTEGER ::   numrow                !: logical unit for ocean restart (write)
-   INTEGER ::   numriw                !: logical unit for ice   restart (write)
-   INTEGER ::   nrst_lst              !: number of restart to output next
-
-   !!----------------------------------------------------------------------
-   !!                    output monitoring
-   !!----------------------------------------------------------------------
-   LOGICAL ::   ln_ctl           !: run control for debugging
-   TYPE :: sn_ctl                !: optional use structure for finer control over output selection
-      LOGICAL :: l_config  = .FALSE.  !: activate/deactivate finer control
-                                      !  Note if l_config is True then ln_ctl is ignored.
-                                      !  Otherwise setting ln_ctl True is equivalent to setting
-                                      !  all the following logicals in this structure True
-      LOGICAL :: l_runstat = .FALSE.  !: Produce/do not produce run.stat file (T/F)
-      LOGICAL :: l_trcstat = .FALSE.  !: Produce/do not produce tracer.stat file (T/F)
-      LOGICAL :: l_oceout  = .FALSE.  !: Produce all ocean.outputs    (T) or just one (F)
-      LOGICAL :: l_layout  = .FALSE.  !: Produce all layout.dat files (T) or just one (F)
-      LOGICAL :: l_mppout  = .FALSE.  !: Produce/do not produce mpp.output_XXXX files (T/F)
-      LOGICAL :: l_mpptop  = .FALSE.  !: Produce/do not produce mpp.top.output_XXXX files (T/F)
-                                      !  Optional subsetting of processor report files
-                                      !  Default settings of 0/1000000/1 should ensure all areas report.
-                                      !  Set to a more restrictive range to select specific areas
-      INTEGER :: procmin   = 0        !: Minimum narea to output
-      INTEGER :: procmax   = 1000000  !: Maximum narea to output
-      INTEGER :: procincr  = 1        !: narea increment to output
-      INTEGER :: ptimincr  = 1        !: timestep increment to output (time.step and run.stat)
-   END TYPE sn_ctl
-
-   TYPE (sn_ctl) :: sn_cfctl     !: run control structure for selective output
-   LOGICAL ::   ln_timing        !: run control for timing
-   LOGICAL ::   ln_diacfl        !: flag whether to create CFL diagnostics
-   INTEGER ::   nn_print         !: level of print (0 no print)
-   INTEGER ::   nn_ictls         !: Start i indice for the SUM control
-   INTEGER ::   nn_ictle         !: End   i indice for the SUM control
-   INTEGER ::   nn_jctls         !: Start j indice for the SUM control
-   INTEGER ::   nn_jctle         !: End   j indice for the SUM control
-   INTEGER ::   nn_isplt         !: number of processors following i
-   INTEGER ::   nn_jsplt         !: number of processors following j
-   INTEGER ::   nn_bench         !: benchmark parameter (0/1)
-   INTEGER ::   nn_bit_cmp = 0   !: bit reproducibility  (0/1)
-   !                                          
-   INTEGER ::   nprint, nictls, nictle, njctls, njctle, isplt, jsplt    !: OLD namelist names
-
-   INTEGER ::   ijsplt     =    1      !: nb of local domain = nb of processors
 
    !!----------------------------------------------------------------------
@@ -148 +77 @@
    INTEGER ::   numnam_cfg      =   -1      !: logical unit for configuration specific namelist
    INTEGER ::   numond          =   -1      !: logical unit for Output Namelist Dynamics
-   INTEGER ::   numnam_ice_ref  =   -1      !: logical unit for ice reference namelist
-   INTEGER ::   numnam_ice_cfg  =   -1      !: logical unit for ice reference namelist
    INTEGER ::   numoni          =   -1      !: logical unit for Output Namelist Ice
-   INTEGER ::   numevo_ice      =   -1      !: logical unit for ice variables (temp. evolution)
    INTEGER ::   numrun          =   -1      !: logical unit for run statistics
-   INTEGER ::   numdct_in       =   -1      !: logical unit for transports computing
-   INTEGER ::   numdct_vol      =   -1      !: logical unit for voulume transports output
-   INTEGER ::   numdct_heat     =   -1      !: logical unit for heat    transports output
-   INTEGER ::   numdct_salt     =   -1      !: logical unit for salt    transports output
-   INTEGER ::   numfl           =   -1      !: logical unit for floats ascii output
-   INTEGER ::   numflo          =   -1      !: logical unit for floats ascii output
 
    !!----------------------------------------------------------------------
@@ -174 +94 @@
    LOGICAL       ::   lwm      = .FALSE.    !: boolean : true on the 1st processor only (always)
    LOGICAL       ::   lwp      = .FALSE.    !: boolean : true on the 1st processor only .OR. ln_ctl
-   LOGICAL       ::   lsp_area = .TRUE.     !: to make a control print over a specific area
    CHARACTER(lc) ::   cxios_context         !: context name used in xios
    CHARACTER(lc) ::   crxios_context         !: context name used in xios to read restart