source: branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90 @ 5746

Last change on this file since 5746 was 5746, checked in by rfurner, 5 years ago

changes to name restart files with date instead of time stamp

  • Property svn:keywords set to Id
File size: 9.8 KB
Line 
1MODULE in_out_manager   
2   !!======================================================================
3   !!                       ***  MODULE  in_out_manager  ***
4   !! I/O manager utilities : Defines run parameters together with logical units
5   !!=====================================================================
6   !! History :   1.0  !  2002-06  (G. Madec)   original code
7   !!             2.0  !  2006-07  (S. Masson)  iom, add ctl_stop, ctl_warn
8   !!             3.0  !  2008-06  (G. Madec)   add ctmp4 to ctmp10
9   !!             3.2  !  2009-08  (S. MAsson)  add new ctl_opn
10   !!             3.3  !  2010-10  (A. Coward)  add NetCDF4 usage
11   !!----------------------------------------------------------------------
12
13   !!----------------------------------------------------------------------
14   USE par_oce       ! ocean parameter
15   USE lib_print     ! formated print library
16   USE nc4interface  ! NetCDF4 interface
17
18   IMPLICIT NONE
19   PUBLIC
20
21 
22   !
23   !!----------------------------------------------------------------------
24   !!                   namrun namelist parameters
25   !!----------------------------------------------------------------------
26   CHARACTER(lc) ::   cn_exp           !: experiment name used for output filename
27   CHARACTER(lc) ::   cn_ocerst_in     !: suffix of ocean restart name (input)
28   CHARACTER(lc) ::   cn_ocerst_out    !: suffix of ocean restart name (output)
29   LOGICAL       ::   ln_rstart        !: start from (F) rest or (T) a restart file
30   INTEGER       ::   nn_no            !: job number
31   INTEGER       ::   nn_rstctl        !: control of the time step (0, 1 or 2)
32   INTEGER       ::   nn_rstssh   = 0  !: hand made initilization of ssh or not (1/0)
33   INTEGER       ::   nn_it000         !: index of the first time step
34   INTEGER       ::   nn_itend         !: index of the last time step
35   INTEGER       ::   nn_date0         !: initial calendar date aammjj
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
40   LOGICAL       ::   ln_dimgnnn       !: type of dimgout. (F): 1 file for all proc
41                                                       !:                  (T): 1 file per proc
42   LOGICAL       ::   ln_mskland       !: mask land points in NetCDF outputs (costly: + ~15%)
43   LOGICAL       ::   ln_clobber       !: clobber (overwrite) an existing file
44   INTEGER       ::   nn_chunksz       !: chunksize (bytes) for NetCDF file (works only with iom_nf90 routines)
45! included for rstdate, should be moved to seperate branch!
46   LOGICAL       ::   ln_rstdate       !: datestamping of restarts
47#if defined key_netcdf4
48   !!----------------------------------------------------------------------
49   !!                   namnc4 namelist parameters                         (key_netcdf4)
50   !!----------------------------------------------------------------------
51   ! The following four values determine the partitioning of the output fields
52   ! into netcdf4 chunks. They are unrelated to the nn_chunk_sz setting which is
53   ! for runtime optimisation. The individual netcdf4 chunks can be optionally
54   ! gzipped (recommended) leading to significant reductions in I/O volumes
55   !                         !!!**  variables only used with iom_nf90 routines and key_netcdf4 **
56   INTEGER ::   nn_nchunks_i   !: number of chunks required in the i-dimension
57   INTEGER ::   nn_nchunks_j   !: number of chunks required in the j-dimension
58   INTEGER ::   nn_nchunks_k   !: number of chunks required in the k-dimension
59   INTEGER ::   nn_nchunks_t   !: number of chunks required in the t-dimension
60   LOGICAL ::   ln_nc4zip      !: netcdf4 usage: (T) chunk and compress output using the HDF5 sublayers of netcdf4
61   !                           !                 (F) ignore chunking request and use the netcdf4 library
62   !                           !                     to produce netcdf3-compatible files
63#endif
64!$AGRIF_DO_NOT_TREAT
65   TYPE(snc4_ctl)     :: snc4set        !: netcdf4 chunking control structure (always needed for decision making)
66!$AGRIF_END_DO_NOT_TREAT
67
68
69   !! conversion of DOCTOR norm namelist name into model name
70   !! (this should disappear in a near futur)
71
72   CHARACTER(lc) ::   cexper                      !: experiment name used for output filename
73   INTEGER       ::   no                          !: job number
74   INTEGER       ::   nrstdt                      !: control of the time step (0, 1 or 2)
75   INTEGER       ::   nit000                      !: index of the first time step
76   INTEGER       ::   nitend                      !: index of the last time step
77   INTEGER       ::   ndate0                      !: initial calendar date aammjj
78   INTEGER       ::   nleapy                      !: Leap year calendar flag (0/1 or 30)
79   INTEGER       ::   ninist                      !: initial state output flag (0/1)
80   INTEGER       ::   nwrite                      !: model standard output frequency
81   INTEGER       ::   nstock                      !: restart file frequency
82
83   !!----------------------------------------------------------------------
84   !! was in restart but moved here because of the OFF line... better solution should be found...
85   !!----------------------------------------------------------------------
86   INTEGER ::   nitrst                !: time step at which restart file should be written
87   LOGICAL ::   lrst_oce              !: logical to control the oce restart write
88   INTEGER ::   numror, numrow        !: logical unit for cean restart (read and write)
89
90   !!----------------------------------------------------------------------
91   !!                    output monitoring
92   !!----------------------------------------------------------------------
93   LOGICAL ::   ln_ctl       !: run control for debugging
94   INTEGER ::   nn_timing    !: run control for timing
95   INTEGER ::   nn_print     !: level of print (0 no print)
96   INTEGER ::   nn_ictls     !: Start i indice for the SUM control
97   INTEGER ::   nn_ictle     !: End   i indice for the SUM control
98   INTEGER ::   nn_jctls     !: Start j indice for the SUM control
99   INTEGER ::   nn_jctle     !: End   j indice for the SUM control
100   INTEGER ::   nn_isplt     !: number of processors following i
101   INTEGER ::   nn_jsplt     !: number of processors following j
102   INTEGER ::   nn_bench     !: benchmark parameter (0/1)
103   INTEGER ::   nn_bit_cmp   =    0    !: bit reproducibility  (0/1)
104
105   !                                         
106   INTEGER ::   nprint, nictls, nictle, njctls, njctle, isplt, jsplt, nbench    !: OLD namelist names
107
108   INTEGER ::   ijsplt     =    1      !: nb of local domain = nb of processors
109
110   !!----------------------------------------------------------------------
111   !!                        logical units
112   !!----------------------------------------------------------------------
113   INTEGER ::   numstp          =   -1      !: logical unit for time step
114   INTEGER ::   numtime         =   -1      !: logical unit for timing
115   INTEGER ::   numout          =    6      !: logical unit for output print
116   INTEGER ::   numnam_ref      =   -1      !: logical unit for reference namelist
117   INTEGER ::   numnam_cfg      =   -1      !: logical unit for configuration specific namelist
118   INTEGER ::   numond          =    7      !: logical unit for Output Namelist Dynamics
119   INTEGER ::   numnam_ice_ref  =   -1      !: logical unit for ice reference namelist
120   INTEGER ::   numnam_ice_cfg  =   -1      !: logical unit for ice reference namelist
121   INTEGER ::   numoni          =    8      !: logical unit for Output Namelist Ice
122   INTEGER ::   numevo_ice      =   -1      !: logical unit for ice variables (temp. evolution)
123   INTEGER ::   numsol          =   -1      !: logical unit for solver statistics
124   INTEGER ::   numdct_in       =   -1      !: logical unit for transports computing
125   INTEGER ::   numdct_vol      =   -1      !: logical unit for voulume transports output
126   INTEGER ::   numdct_heat     =   -1      !: logical unit for heat    transports output
127   INTEGER ::   numdct_salt     =   -1      !: logical unit for salt    transports output
128   INTEGER ::   numfl           =   -1      !: logical unit for floats ascii output
129   INTEGER ::   numflo          =   -1      !: logical unit for floats ascii output
130
131   !!----------------------------------------------------------------------
132   !!                          Run control 
133   !!----------------------------------------------------------------------
134   INTEGER       ::   nstop = 0             !: error flag (=number of reason for a premature stop run)
135   INTEGER       ::   nwarn = 0             !: warning flag (=number of warning found during the run)
136   CHARACTER(lc) ::   ctmp1, ctmp2, ctmp3   !: temporary characters 1 to 3
137   CHARACTER(lc) ::   ctmp4, ctmp5, ctmp6   !: temporary characters 4 to 6
138   CHARACTER(lc) ::   ctmp7, ctmp8, ctmp9   !: temporary characters 7 to 9
139   CHARACTER(lc) ::   ctmp10                !: temporary character 10
140   CHARACTER(lc) ::   cform_err = "(/,' ===>>> : E R R O R',     /,'         ===========',/)"       !:
141   CHARACTER(lc) ::   cform_war = "(/,' ===>>> : W A R N I N G', /,'         ===============',/)"   !:
142   LOGICAL       ::   lwm      = .FALSE.    !: boolean : true on the 1st processor only (always)
143   LOGICAL       ::   lwp      = .FALSE.    !: boolean : true on the 1st processor only .OR. ln_ctl
144   LOGICAL       ::   lsp_area = .TRUE.     !: to make a control print over a specific area
145
146   !!----------------------------------------------------------------------
147   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
148   !! $Id$
149   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
150   !!=====================================================================
151END MODULE in_out_manager
Note: See TracBrowser for help on using the repository browser.