Ignore:
Timestamp:
2013-11-04T12:51:55+01:00 (7 years ago)
Author:
cetlod
Message:

merge in dev_LOCEAN_2013, the 1st development branch dev_r3853_CNRS9_Confsetting, from its starting point ( r3853 ) on the trunk: see ticket #1169

File:
1 edited

Legend:

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

    r3680 r4147  
    1919   PUBLIC 
    2020 
     21  
     22   ! 
    2123   !!---------------------------------------------------------------------- 
    2224   !!                   namrun namelist parameters 
    2325   !!---------------------------------------------------------------------- 
    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) 
    30    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 
     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 
    3941                                                       !:                  (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) 
     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) 
    4345#if defined key_netcdf4 
    4446   !!---------------------------------------------------------------------- 
     
    4951   ! for runtime optimisation. The individual netcdf4 chunks can be optionally  
    5052   ! 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  
     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  
    5961#endif 
    6062!$AGRIF_DO_NOT_TREAT 
     
    8789   !!                    output monitoring 
    8890   !!---------------------------------------------------------------------- 
    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) 
     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) 
    99101   INTEGER ::   nn_bit_cmp   =    0    !: bit reproducibility  (0/1) 
    100102 
     
    107109   !!                        logical units 
    108110   !!---------------------------------------------------------------------- 
    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 
    122128 
    123129   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.