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 14789 for NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/src/OCE/IOM/in_out_manager.F90 – NEMO

Ignore:
Timestamp:
2021-05-05T13:18:04+02:00 (3 years ago)
Author:
mcastril
Message:

[2021/HPC-11_mcastril_HPDAonline_DiagGPU] Update externals

Location:
NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU

    • Property svn:externals
      •  

        old new  
        33^/utils/build/mk@HEAD         mk 
        44^/utils/tools@HEAD            tools 
        5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF 
         5^/vendors/AGRIF/dev@HEAD      ext/AGRIF 
        66^/vendors/FCM@HEAD            ext/FCM 
        77^/vendors/IOIPSL@HEAD         ext/IOIPSL 
         8^/vendors/PPR@HEAD            ext/PPR 
        89 
        910# SETTE 
        10 ^/utils/CI/sette@13559        sette 
         11^/utils/CI/sette@14244        sette 
  • NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/src/OCE/IOM/in_out_manager.F90

    r13286 r14789  
    1 MODULE in_out_manager    
     1MODULE in_out_manager 
    22   !!====================================================================== 
    33   !!                       ***  MODULE  in_out_manager  *** 
     
    5353   ! The following four values determine the partitioning of the output fields 
    5454   ! into netcdf4 chunks. They are unrelated to the nn_chunk_sz setting which is 
    55    ! for runtime optimisation. The individual netcdf4 chunks can be optionally  
    56    ! gzipped (recommended) leading to significant reductions in I/O volumes  
     55   ! for runtime optimisation. The individual netcdf4 chunks can be optionally 
     56   ! gzipped (recommended) leading to significant reductions in I/O volumes 
    5757   !                         !!!**  variables only used with iom_nf90 routines and key_netcdf4 ** 
    58    INTEGER ::   nn_nchunks_i   !: number of chunks required in the i-dimension  
    59    INTEGER ::   nn_nchunks_j   !: number of chunks required in the j-dimension  
    60    INTEGER ::   nn_nchunks_k   !: number of chunks required in the k-dimension  
    61    INTEGER ::   nn_nchunks_t   !: number of chunks required in the t-dimension  
     58   INTEGER ::   nn_nchunks_i   !: number of chunks required in the i-dimension 
     59   INTEGER ::   nn_nchunks_j   !: number of chunks required in the j-dimension 
     60   INTEGER ::   nn_nchunks_k   !: number of chunks required in the k-dimension 
     61   INTEGER ::   nn_nchunks_t   !: number of chunks required in the t-dimension 
    6262   LOGICAL ::   ln_nc4zip      !: netcdf4 usage: (T) chunk and compress output using the HDF5 sublayers of netcdf4 
    63    !                           !                 (F) ignore chunking request and use the netcdf4 library  
    64    !                           !                     to produce netcdf3-compatible files  
     63   !                           !                 (F) ignore chunking request and use the netcdf4 library 
     64   !                           !                     to produce netcdf3-compatible files 
    6565#endif 
    6666 
     
    8585   !!---------------------------------------------------------------------- 
    8686   INTEGER ::   nitrst                !: time step at which restart file should be written 
    87    LOGICAL ::   lrst_oce              !: logical to control the oce restart write  
    88    LOGICAL ::   lrst_ice              !: logical to control the ice restart write  
    89    LOGICAL ::   lrst_abl              !: logical to control the abl restart write  
     87   LOGICAL ::   lrst_oce              !: logical to control the oce restart write 
     88   LOGICAL ::   lrst_ice              !: logical to control the ice restart write 
     89   LOGICAL ::   lrst_abl              !: logical to control the abl restart write 
    9090   INTEGER ::   numror = 0            !: logical unit for ocean restart (read). Init to 0 is needed for SAS (in daymod.F90) 
    91    INTEGER ::   numrir                !: logical unit for ice   restart (read) 
    92    INTEGER ::   numrar                !: logical unit for abl   restart (read) 
    93    INTEGER ::   numrow                !: logical unit for ocean restart (write) 
    94    INTEGER ::   numriw                !: logical unit for ice   restart (write) 
    95    INTEGER ::   numraw                !: logical unit for abl   restart (write) 
     91   INTEGER ::   numrir = 0            !: logical unit for ice   restart (read) 
     92   INTEGER ::   numrar = 0            !: logical unit for abl   restart (read) 
     93   INTEGER ::   numrow = 0            !: logical unit for ocean restart (write) 
     94   INTEGER ::   numriw = 0            !: logical unit for ice   restart (write) 
     95   INTEGER ::   numraw = 0            !: logical unit for abl   restart (write) 
     96   INTEGER ::   numrtr = 0            !: trc restart (read ) 
     97   INTEGER ::   numrtw = 0            !: trc restart (write ) 
     98   INTEGER ::   numrsr = 0            !: logical unit for sed restart (read) 
     99   INTEGER ::   numrsw = 0            !: logical unit for sed restart (write) 
     100 
    96101   INTEGER ::   nrst_lst              !: number of restart to output next 
    97102 
     
    150155 
    151156   !!---------------------------------------------------------------------- 
    152    !!                          Run control   
     157   !!                          Run control 
    153158   !!---------------------------------------------------------------------- 
    154159   INTEGER       ::   no_print = 0          !: optional argument of fld_fill (if present, suppress some control print) 
     
    165170   LOGICAL       ::   lwp      = .FALSE.    !: boolean : true on the 1st processor only .OR. sn_cfctl%l_oceout=T 
    166171   LOGICAL       ::   lsp_area = .TRUE.     !: to make a control print over a specific area 
    167    CHARACTER(lc) ::   cxios_context         !: context name used in xios 
    168    CHARACTER(lc) ::   crxios_context         !: context name used in xios to read restart 
    169    CHARACTER(lc) ::   cwxios_context        !: context name used in xios to write restart file 
     172   CHARACTER(LEN=lc) ::   cxios_context     !: context name used in xios 
     173   CHARACTER(LEN=lc) ::   cr_ocerst_cxt     !: context name used in xios to read OCE restart 
     174   CHARACTER(LEN=lc) ::   cw_ocerst_cxt     !: context name used in xios to write OCE restart file 
     175   CHARACTER(LEN=lc) ::   cr_icerst_cxt     !: context name used in xios to read SI3 restart 
     176   CHARACTER(LEN=lc) ::   cw_icerst_cxt     !: context name used in xios to write SI3 restart file 
     177   CHARACTER(LEN=lc) ::   cr_ablrst_cxt     !: context name used in xios to read ABL restart 
     178   CHARACTER(LEN=lc) ::   cw_ablrst_cxt     !: context name used in xios to write ABL restart file 
     179   CHARACTER(LEN=lc) ::   cr_toprst_cxt     !: context name used in xios to read TOP restart 
     180   CHARACTER(LEN=lc) ::   cw_toprst_cxt     !: context name used in xios to write TOP restart file 
     181   CHARACTER(LEN=lc) ::   cr_sedrst_cxt     !: context name used in xios to read SEDIMENT restart 
     182   CHARACTER(LEN=lc) ::   cw_sedrst_cxt     !: context name used in xios to write SEDIMENT restart file 
     183 
     184 
     185 
    170186 
    171187   !! * Substitutions 
Note: See TracChangeset for help on using the changeset viewer.