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.
Changeset 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/IOM – NEMO

Ignore:
Timestamp:
2013-05-03T14:35:21+02:00 (11 years ago)
Author:
clevy
Message:

Configuration Setting/Step2, see ticket:#1074

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r3875 r3901  
    2222   !!                   namrun namelist parameters 
    2323   !!---------------------------------------------------------------------- 
    24    CHARACTER(lc) ::   cn_exp        = "exp0"      !: experiment name used for output filename 
    25    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 file 
    28    INTEGER       ::   nn_no         = 0           !: job number 
    29    INTEGER       ::   nn_rstctl     = 0           !: control of the time step (0, 1 or 2) 
     24   CHARACTER(lc) ::   cn_exp           !: experiment name used for output filename 
     25   CHARACTER(lc) ::   cn_ocerst_in     !: suffix of ocean restart name (input) 
     26   CHARACTER(lc) ::   cn_ocerst_out    !: suffix of ocean restart name (output) 
     27   LOGICAL       ::   ln_rstart        !: start from (F) rest or (T) a restart file 
     28   INTEGER       ::   nn_no            !: job number 
     29   INTEGER       ::   nn_rstctl        !: control of the time step (0, 1 or 2) 
    3030   INTEGER       ::   nn_rstssh     = 0           !: hand made initilization of ssh or not (1/0) 
    31    INTEGER       ::   nn_it000      = 1           !: index of the first time step 
    32    INTEGER       ::   nn_itend      = 10          !: index of the last time step 
    33    INTEGER       ::   nn_date0      = 961115      !: initial calendar date aammjj 
    34    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 frequency 
    37    INTEGER       ::   nn_stock      =   10        !: restart file frequency 
    38    LOGICAL       ::   ln_dimgnnn    = .FALSE.     !: type of dimgout. (F): 1 file for all proc 
     31   INTEGER       ::   nn_it000         !: index of the first time step 
     32   INTEGER       ::   nn_itend         !: index of the last time step 
     33   INTEGER       ::   nn_date0         !: initial calendar date aammjj 
     34   INTEGER       ::   nn_leapy         !: Leap year calendar flag (0/1 or 30) 
     35   INTEGER       ::   nn_istate        !: initial state output flag (0/1) 
     36   INTEGER       ::   nn_write         !: model standard output frequency 
     37   INTEGER       ::   nn_stock         !: restart file frequency 
     38   LOGICAL       ::   ln_dimgnnn       !: type of dimgout. (F): 1 file for all proc 
    3939                                                       !:                  (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 file 
    42    INTEGER       ::   nn_chunksz    = 0           !: chunksize (bytes) for NetCDF file (works only with iom_nf90 routines) 
     40   LOGICAL       ::   ln_mskland       !: mask land points in NetCDF outputs (costly: + ~15%) 
     41   LOGICAL       ::   ln_clobber       !: clobber (overwrite) an existing file 
     42   INTEGER       ::   nn_chunksz       !: chunksize (bytes) for NetCDF file (works only with iom_nf90 routines) 
    4343#if defined key_netcdf4 
    4444   !!---------------------------------------------------------------------- 
     
    4949   ! for runtime optimisation. The individual netcdf4 chunks can be optionally  
    5050   ! gzipped (recommended) leading to significant reductions in I/O volumes  
    51    !                                   !!!**  variables only used with iom_nf90 routines and key_netcdf4 ** 
    52    INTEGER ::   nn_nchunks_i = 1        !: number of chunks required in the i-dimension  
    53    INTEGER ::   nn_nchunks_j = 1        !: number of chunks required in the j-dimension  
    54    INTEGER ::   nn_nchunks_k = 1        !: number of chunks required in the k-dimension  
    55    INTEGER ::   nn_nchunks_t = 1        !: number of chunks required in the t-dimension  
    56    LOGICAL ::   ln_nc4zip    = .TRUE.   !: netcdf4 usage: (T) chunk and compress output using the HDF5 sublayers of netcdf4 
    57    !                                    !                 (F) ignore chunking request and use the netcdf4 library  
    58    !                                    !                     to produce netcdf3-compatible files  
     51   !                         !!!**  variables only used with iom_nf90 routines and key_netcdf4 ** 
     52   INTEGER ::   nn_nchunks_i   !: number of chunks required in the i-dimension  
     53   INTEGER ::   nn_nchunks_j   !: number of chunks required in the j-dimension  
     54   INTEGER ::   nn_nchunks_k   !: number of chunks required in the k-dimension  
     55   INTEGER ::   nn_nchunks_t   !: number of chunks required in the t-dimension  
     56   LOGICAL ::   ln_nc4zip      !: netcdf4 usage: (T) chunk and compress output using the HDF5 sublayers of netcdf4 
     57   !                           !                 (F) ignore chunking request and use the netcdf4 library  
     58   !                           !                     to produce netcdf3-compatible files  
    5959#endif 
    6060!$AGRIF_DO_NOT_TREAT 
     
    8787   !!                    output monitoring 
    8888   !!---------------------------------------------------------------------- 
    89    LOGICAL ::   ln_ctl     = .FALSE.   !: run control for debugging 
    90    INTEGER ::   nn_timing    =    0    !: run control for timing 
    91    INTEGER ::   nn_print     =    0    !: level of print (0 no print) 
    92    INTEGER ::   nn_ictls     =    0    !: Start i indice for the SUM control 
    93    INTEGER ::   nn_ictle     =    0    !: End   i indice for the SUM control 
    94    INTEGER ::   nn_jctls     =    0    !: Start j indice for the SUM control 
    95    INTEGER ::   nn_jctle     =    0    !: End   j indice for the SUM control 
    96    INTEGER ::   nn_isplt     =    1    !: number of processors following i 
    97    INTEGER ::   nn_jsplt     =    1    !: number of processors following j 
    98    INTEGER ::   nn_bench     =    0    !: benchmark parameter (0/1) 
     89   LOGICAL ::   ln_ctl       !: run control for debugging 
     90   INTEGER ::   nn_timing    !: run control for timing 
     91   INTEGER ::   nn_print     !: level of print (0 no print) 
     92   INTEGER ::   nn_ictls     !: Start i indice for the SUM control 
     93   INTEGER ::   nn_ictle     !: End   i indice for the SUM control 
     94   INTEGER ::   nn_jctls     !: Start j indice for the SUM control 
     95   INTEGER ::   nn_jctle     !: End   j indice for the SUM control 
     96   INTEGER ::   nn_isplt     !: number of processors following i 
     97   INTEGER ::   nn_jsplt     !: number of processors following j 
     98   INTEGER ::   nn_bench     !: benchmark parameter (0/1) 
    9999   INTEGER ::   nn_bit_cmp   =    0    !: bit reproducibility  (0/1) 
    100100 
Note: See TracChangeset for help on using the changeset viewer.