New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
in_out_manager.F90 in branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/IOM – NEMO

source: branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90 @ 4775

Last change on this file since 4775 was 4775, checked in by edblockley, 10 years ago

First round of chnages for restart functionality branch (UKMO11).

These changes add namelist variables to allow the user to specify the directory to read input restart files and write output restart files for NEMO & LIM2/3.
  • 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_indir  !: restart input directory
29   CHARACTER(lc) ::   cn_ocerst_out    !: suffix of ocean restart name (output)
30   CHARACTER(lc) ::   cn_ocerst_outdir !: restart output directory
31   LOGICAL       ::   ln_rstart        !: start from (F) rest or (T) a restart file
32   INTEGER       ::   nn_no            !: job number
33   INTEGER       ::   nn_rstctl        !: control of the time step (0, 1 or 2)
34   INTEGER       ::   nn_rstssh   = 0  !: hand made initilization of ssh or not (1/0)
35   INTEGER       ::   nn_it000         !: index of the first time step
36   INTEGER       ::   nn_itend         !: index of the last time step
37   INTEGER       ::   nn_date0         !: initial calendar date aammjj
38   INTEGER       ::   nn_leapy         !: Leap year calendar flag (0/1 or 30)
39   INTEGER       ::   nn_istate        !: initial state output flag (0/1)
40   INTEGER       ::   nn_write         !: model standard output frequency
41   INTEGER       ::   nn_stock         !: restart file frequency
42   LOGICAL       ::   ln_dimgnnn       !: type of dimgout. (F): 1 file for all proc
43                                                       !:                  (T): 1 file per proc
44   LOGICAL       ::   ln_mskland       !: mask land points in NetCDF outputs (costly: + ~15%)
45   LOGICAL       ::   ln_clobber       !: clobber (overwrite) an existing file
46   INTEGER       ::   nn_chunksz       !: chunksize (bytes) for NetCDF file (works only with iom_nf90 routines)
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.