- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90
r3680 r4147 19 19 PUBLIC 20 20 21 22 ! 21 23 !!---------------------------------------------------------------------- 22 24 !! namrun namelist parameters 23 25 !!---------------------------------------------------------------------- 24 CHARACTER(lc) :: cn_exp = "exp0"!: experiment name used for output filename25 CHARACTER(lc) :: cn_ocerst_in = "restart"!: suffix of ocean restart name (input)26 CHARACTER(lc) :: cn_ocerst_out = "restart"!: suffix of ocean restart name (output)27 LOGICAL :: ln_rstart = .FALSE.!: start from (F) rest or (T) a restart file28 INTEGER :: nn_no = 0!: job number29 INTEGER :: nn_rstctl = 0!: control of the time step (0, 1 or 2)30 INTEGER :: nn_rstssh = 0!: hand made initilization of ssh or not (1/0)31 INTEGER :: nn_it000 = 1!: index of the first time step32 INTEGER :: nn_itend = 10!: index of the last time step33 INTEGER :: nn_date0 = 961115!: initial calendar date aammjj34 INTEGER :: nn_leapy = 0!: Leap year calendar flag (0/1 or 30)35 INTEGER :: nn_istate = 0!: initial state output flag (0/1)36 INTEGER :: nn_write = 10!: model standard output frequency37 INTEGER :: nn_stock = 10!: restart file frequency38 LOGICAL :: ln_dimgnnn = .FALSE.!: type of dimgout. (F): 1 file for all proc26 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 39 41 !: (T): 1 file per proc 40 LOGICAL :: ln_mskland = .FALSE.!: mask land points in NetCDF outputs (costly: + ~15%)41 LOGICAL :: ln_clobber = .FALSE.!: clobber (overwrite) an existing file42 INTEGER :: nn_chunksz = 0!: chunksize (bytes) for NetCDF file (works only with iom_nf90 routines)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) 43 45 #if defined key_netcdf4 44 46 !!---------------------------------------------------------------------- … … 49 51 ! for runtime optimisation. The individual netcdf4 chunks can be optionally 50 52 ! gzipped (recommended) leading to significant reductions in I/O volumes 51 ! 52 INTEGER :: nn_nchunks_i = 1!: number of chunks required in the i-dimension53 INTEGER :: nn_nchunks_j = 1!: number of chunks required in the j-dimension54 INTEGER :: nn_nchunks_k = 1!: number of chunks required in the k-dimension55 INTEGER :: nn_nchunks_t = 1!: number of chunks required in the t-dimension56 LOGICAL :: ln_nc4zip = .TRUE.!: netcdf4 usage: (T) chunk and compress output using the HDF5 sublayers of netcdf457 ! 58 ! 53 ! !!!** variables only used with iom_nf90 routines and key_netcdf4 ** 54 INTEGER :: nn_nchunks_i !: number of chunks required in the i-dimension 55 INTEGER :: nn_nchunks_j !: number of chunks required in the j-dimension 56 INTEGER :: nn_nchunks_k !: number of chunks required in the k-dimension 57 INTEGER :: nn_nchunks_t !: number of chunks required in the t-dimension 58 LOGICAL :: ln_nc4zip !: netcdf4 usage: (T) chunk and compress output using the HDF5 sublayers of netcdf4 59 ! ! (F) ignore chunking request and use the netcdf4 library 60 ! ! to produce netcdf3-compatible files 59 61 #endif 60 62 !$AGRIF_DO_NOT_TREAT … … 87 89 !! output monitoring 88 90 !!---------------------------------------------------------------------- 89 LOGICAL :: ln_ctl = .FALSE.!: run control for debugging90 INTEGER :: nn_timing = 0!: run control for timing91 INTEGER :: nn_print = 0!: level of print (0 no print)92 INTEGER :: nn_ictls = 0!: Start i indice for the SUM control93 INTEGER :: nn_ictle = 0!: End i indice for the SUM control94 INTEGER :: nn_jctls = 0!: Start j indice for the SUM control95 INTEGER :: nn_jctle = 0!: End j indice for the SUM control96 INTEGER :: nn_isplt = 1!: number of processors following i97 INTEGER :: nn_jsplt = 1!: number of processors following j98 INTEGER :: nn_bench = 0!: benchmark parameter (0/1)91 LOGICAL :: ln_ctl !: run control for debugging 92 INTEGER :: nn_timing !: run control for timing 93 INTEGER :: nn_print !: level of print (0 no print) 94 INTEGER :: nn_ictls !: Start i indice for the SUM control 95 INTEGER :: nn_ictle !: End i indice for the SUM control 96 INTEGER :: nn_jctls !: Start j indice for the SUM control 97 INTEGER :: nn_jctle !: End j indice for the SUM control 98 INTEGER :: nn_isplt !: number of processors following i 99 INTEGER :: nn_jsplt !: number of processors following j 100 INTEGER :: nn_bench !: benchmark parameter (0/1) 99 101 INTEGER :: nn_bit_cmp = 0 !: bit reproducibility (0/1) 100 102 … … 107 109 !! logical units 108 110 !!---------------------------------------------------------------------- 109 INTEGER :: numstp = -1 !: logical unit for time step 110 INTEGER :: numtime = -1 !: logical unit for timing 111 INTEGER :: numout = 6 !: logical unit for output print 112 INTEGER :: numnam = -1 !: logical unit for namelist 113 INTEGER :: numnam_ice = -1 !: logical unit for ice namelist 114 INTEGER :: numevo_ice = -1 !: logical unit for ice variables (temp. evolution) 115 INTEGER :: numsol = -1 !: logical unit for solver statistics 116 INTEGER :: numdct_in = -1 !: logical unit for transports computing 117 INTEGER :: numdct_vol = -1 !: logical unit for voulume transports output 118 INTEGER :: numdct_heat = -1 !: logical unit for heat transports output 119 INTEGER :: numdct_salt = -1 !: logical unit for salt transports output 120 INTEGER :: numfl = -1 !: logical unit for floats ascii output 121 INTEGER :: numflo = -1 !: logical unit for floats ascii output 111 INTEGER :: numstp = -1 !: logical unit for time step 112 INTEGER :: numtime = -1 !: logical unit for timing 113 INTEGER :: numout = 6 !: logical unit for output print 114 INTEGER :: numnam_ref = -1 !: logical unit for reference namelist 115 INTEGER :: numnam_cfg = -1 !: logical unit for configuration specific namelist 116 INTEGER :: numond = 7 !: logical unit for Output Namelist Dynamics 117 INTEGER :: numnam_ice_ref = -1 !: logical unit for ice reference namelist 118 INTEGER :: numnam_ice_cfg = -1 !: logical unit for ice reference namelist 119 INTEGER :: numoni = 8 !: logical unit for Output Namelist Ice 120 INTEGER :: numevo_ice = -1 !: logical unit for ice variables (temp. evolution) 121 INTEGER :: numsol = -1 !: logical unit for solver statistics 122 INTEGER :: numdct_in = -1 !: logical unit for transports computing 123 INTEGER :: numdct_vol = -1 !: logical unit for voulume transports output 124 INTEGER :: numdct_heat = -1 !: logical unit for heat transports output 125 INTEGER :: numdct_salt = -1 !: logical unit for salt transports output 126 INTEGER :: numfl = -1 !: logical unit for floats ascii output 127 INTEGER :: numflo = -1 !: logical unit for floats ascii output 122 128 123 129 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.