Changeset 14239


Ignore:
Timestamp:
2020-12-23T09:57:16+01:00 (2 months ago)
Author:
smasson
Message:

trunk: replace key_iomput by key_xios

Location:
NEMO/trunk
Files:
79 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/INSTALL.rst

    r14229 r14239  
    268268Once changed, one needs to recompile ``nemo`` in order for this change to be taken in account. 
    269269Note that most NEMO configurations will need to specify the following CPP keys: 
    270 ``key_iomput`` for IOs. MPI parallelism is activated by default. Use ``key_mpi_off`` to compile without MPI. 
     270``key_xios`` for IOs. MPI parallelism is activated by default. Use ``key_mpi_off`` to compile without MPI. 
  • NEMO/trunk/cfgs/AGRIF_DEMO/cpp_AGRIF_DEMO.fcm

    r14229 r14239  
    1 bld::tool::fppkeys   key_si3 key_top key_iomput key_agrif key_qco 
     1bld::tool::fppkeys   key_si3 key_top key_xios key_agrif key_qco 
  • NEMO/trunk/cfgs/AMM12/cpp_AMM12.fcm

    r14229 r14239  
    1  bld::tool::fppkeys   key_diainstant key_iomput key_qco 
     1 bld::tool::fppkeys   key_diainstant key_xios key_qco 
  • NEMO/trunk/cfgs/C1D_PAPA/cpp_C1D_PAPA.fcm

    r14229 r14239  
    1  bld::tool::fppkeys   key_c1d key_iomput key_linssh 
     1 bld::tool::fppkeys   key_c1d key_xios key_linssh 
  • NEMO/trunk/cfgs/GYRE_BFM/cpp_GYRE_BFM.fcm

    r14229 r14239  
    1 bld::tool::fppkeys   key_top key_my_trc key_iomput key_linssh 
     1bld::tool::fppkeys   key_top key_my_trc key_xios key_linssh 
    22inc $BFMDIR/src/nemo/bfm.fcm 
  • NEMO/trunk/cfgs/GYRE_PISCES/cpp_GYRE_PISCES.fcm

    r14229 r14239  
    1 bld::tool::fppkeys   key_top key_linssh key_iomput 
     1bld::tool::fppkeys   key_top key_linssh key_xios 
  • NEMO/trunk/cfgs/ORCA2_ICE_ABL/cpp_ORCA2_ICE_ABL.fcm

    r14229 r14239  
    1 bld::tool::fppkeys key_si3 key_iomput key_qco 
     1bld::tool::fppkeys key_si3 key_xios key_qco 
  • NEMO/trunk/cfgs/ORCA2_ICE_PISCES/cpp_ORCA2_ICE_PISCES.fcm

    r14229 r14239  
    1 bld::tool::fppkeys   key_si3 key_top key_iomput key_qco  
     1bld::tool::fppkeys   key_si3 key_top key_xios key_qco  
  • NEMO/trunk/cfgs/ORCA2_OFF_PISCES/cpp_ORCA2_OFF_PISCES.fcm

    r14229 r14239  
    1 bld::tool::fppkeys   key_top key_iomput 
     1bld::tool::fppkeys   key_top key_xios 
  • NEMO/trunk/cfgs/ORCA2_OFF_TRC/cpp_ORCA2_OFF_TRC.fcm

    r14229 r14239  
    1 bld::tool::fppkeys   key_top key_iomput 
     1bld::tool::fppkeys   key_top key_xios 
  • NEMO/trunk/cfgs/ORCA2_SAS_ICE/cpp_ORCA2_SAS_ICE.fcm

    r14229 r14239  
    1  bld::tool::fppkeys   key_si3 key_linssh key_iomput 
     1 bld::tool::fppkeys   key_si3 key_linssh key_xios 
  • NEMO/trunk/cfgs/SHARED/README.rst

    r11747 r14239  
    1717Much more information is available from the :xios:`XIOS homepage<>` above and from the NEMO manual. 
    1818 
    19 Use of XIOS for diagnostics is activated using the pre-compiler key ``key_iomput``. 
     19Use of XIOS for diagnostics is activated using the pre-compiler key ``key_xios``. 
    2020 
    2121Extracting and installing XIOS 
  • NEMO/trunk/cfgs/SHARED/namelist_ref

    r14229 r14239  
    5757      !                          !    = -1 do not do any restart 
    5858   nn_stocklist = 0,0,0,0,0,0,0,0,0,0 ! List of timesteps when a restart file is to be written 
    59    nn_write    =       0   !  used only if key_iomput is not defined: output frequency (modulo referenced to nn_it000) 
     59   nn_write    =       0   !  used only if key_xios is not defined: output frequency (modulo referenced to nn_it000) 
    6060      !                          !    =  0 force to write output files only at the end of the run 
    6161      !                          !    = -1 do not do any output file 
  • NEMO/trunk/cfgs/SPITZ12/cpp_SPITZ12.fcm

    r14229 r14239  
    1  bld::tool::fppkeys key_iomput key_si3 key_qco 
     1 bld::tool::fppkeys key_xios key_si3 key_qco 
  • NEMO/trunk/cfgs/WED025/cpp_WED025.fcm

    r14232 r14239  
    1  bld::tool::fppkeys key_iomput key_si3 
     1 bld::tool::fppkeys key_xios key_si3 
  • NEMO/trunk/doc/latex/TOP/subfiles/miscellaneous.tex

    r14229 r14239  
    2424% 
    2525\begin{minted}{bash} 
    26     bld::tool::fppkeys   key_iomput key_top 
     26    bld::tool::fppkeys   key_xios key_top 
    2727\end{minted} 
    2828 
     
    4242% 
    4343\begin{minted}{bash} 
    44    bld::tool::fppkeys   key_iomput key_top 
     44   bld::tool::fppkeys   key_xios key_top 
    4545 
    4646   src::MYBGC::initialization         <MYBGCPATH>/initialization 
     
    6060%Note that, the additional lines specific for the BGC model source and build paths, can be written into a separate file, e.g. named MYBGC.fcm, and then simply included in the cpp_NEMO_MYBGC.fcm as follow 
    6161% 
    62 %bld::tool::fppkeys  key_zdftke key_dynspg_ts key_iomput key_top 
     62%bld::tool::fppkeys  key_zdftke key_dynspg_ts key_xios key_top 
    6363%inc <MYBGCPATH>/MYBGC.fcm 
    6464%This will enable a more portable compilation structure for all MYBGC related configurations. 
  • NEMO/trunk/doc/namelists/namrun

    r11703 r14239  
    2626      !                          !    = -1 do not do any restart 
    2727   nn_stocklist = 0,0,0,0,0,0,0,0,0,0 ! List of timesteps when a restart file is to be written 
    28    nn_write    =       0   !  used only if key_iomput is not defined: output frequency (modulo referenced to nn_it000) 
     28   nn_write    =       0   !  used only if key_xios is not defined: output frequency (modulo referenced to nn_it000) 
    2929      !                          !    =  0 force to write output files only at the end of the run 
    3030      !                          !    = -1 do not do any output file 
  • NEMO/trunk/src/ABL/ablmod.F90

    r14235 r14239  
    537537      CALL lbc_lnk_multi( 'ablmod', tq_abl(:,:,:,nt_a,jp_ta), 'T', 1._wp , tq_abl(:,:,:,nt_a,jp_qa), 'T',  1._wp , kfillmode = jpfillnothing )   ! ++++ this should not be needed... 
    538538      ! 
    539 #if defined key_iomput 
     539#if defined key_xios 
    540540      ! 2D & first ABL level 
    541541      IF ( iom_use("pblh"   ) ) CALL iom_put (    "pblh",    pblh(:,:             ) ) 
  • NEMO/trunk/src/ABL/sbcabl.F90

    r14235 r14239  
    3636   USE sbc_ice, ONLY : wndm_ice, utau_ice, vtau_ice 
    3737#endif 
    38 #if ! defined key_iomput 
     38#if ! defined key_xios 
    3939   USE diawri    , ONLY : dia_wri_alloc_abl 
    4040#endif 
     
    149149      CALL iom_close( inum ) 
    150150 
    151 #if ! defined key_iomput 
     151#if ! defined key_xios 
    152152      IF( dia_wri_alloc_abl()  /= 0 ) CALL ctl_stop( 'STOP', 'abl_init : unable to allocate arrays' ) 
    153153#endif 
  • NEMO/trunk/src/ICE/icerst.F90

    r14072 r14239  
    8888               CALL iom_open( TRIM(clpath)//TRIM(clname), numriw, ldwrt = .TRUE., kdlev = jpl, cdcomp = 'ICE' ) 
    8989            ELSE 
    90 #if defined key_iomput 
     90#if defined key_xios 
    9191               cw_icerst_cxt = "rstwi_"//TRIM(ADJUSTL(clkt)) 
    9292               IF( TRIM(Agrif_CFixed()) == '0' ) THEN 
  • NEMO/trunk/src/OCE/C1D/step_c1d.F90

    r14227 r14239  
    142142      IF( lrst_oce       )   CALL rst_write( kstp, Nbb, Nnn )  ! write output ocean restart file 
    143143      ! 
    144 #if defined key_iomput 
     144#if defined key_xios 
    145145      IF( kstp == nitend .OR. nstop > 0 )   CALL xios_context_finalize()   ! needed for XIOS 
    146146      ! 
  • NEMO/trunk/src/OCE/DIA/diadetide.F90

    r12489 r14239  
    1212   USE phycst         , ONLY :   rpi 
    1313   USE tide_mod 
    14 #if defined key_iomput 
     14#if defined key_xios 
    1515   USE xios 
    1616#endif 
     
    4747 
    4848      lk_diadetide = .FALSE. 
    49 #if defined key_iomput 
     49#if defined key_xios 
    5050      ! Enquire detiding activation state (test for presence of detiding-related 
    5151      ! weights field and output file group) 
  • NEMO/trunk/src/OCE/DIA/diamlr.F90

    r13237 r14239  
    1515   USE iom            , ONLY :   iom_put, iom_use, iom_update_file_name 
    1616   USE timing         , ONLY :   timing_start, timing_stop 
    17 #if defined key_iomput 
     17#if defined key_xios 
    1818   USE xios 
    1919#endif 
     
    6464      !! 
    6565      !!---------------------------------------------------------------------- 
    66 #if defined key_iomput 
     66#if defined key_xios 
    6767 
    6868      TYPE(xios_fieldgroup)                       ::   slxhdl_fldgrp 
  • NEMO/trunk/src/OCE/DIA/diawri.F90

    r14179 r14239  
    7070   PUBLIC   dia_wri_state 
    7171   PUBLIC   dia_wri_alloc           ! Called by nemogcm module 
    72 #if ! defined key_iomput    
     72#if ! defined key_xios    
    7373   PUBLIC   dia_wri_alloc_abl       ! Called by sbcabl  module (if ln_abl = .true.) 
    7474#endif 
     
    9595CONTAINS 
    9696 
    97 #if defined key_iomput 
     97#if defined key_xios 
    9898   !!---------------------------------------------------------------------- 
    99    !!   'key_iomput'                                        use IOM library 
     99   !!   'key_xios'                                        use IOM library 
    100100   !!---------------------------------------------------------------------- 
    101101   INTEGER FUNCTION dia_wri_alloc() 
  • NEMO/trunk/src/OCE/DOM/domain.F90

    r14223 r14239  
    423423            WRITE(numout,*) '      frequency of restart file       nn_stock        = ', nn_stock 
    424424         ENDIF 
    425 #if ! defined key_iomput 
     425#if ! defined key_xios 
    426426         WRITE(numout,*) '      frequency of output file        nn_write        = ', nn_write 
    427427#endif 
     
    500500         ENDIF 
    501501      ENDIF 
    502 #if ! defined key_iomput 
     502#if ! defined key_xios 
    503503      IF( nn_write == -1 )   CALL ctl_warn( 'nn_write = -1 --> no output files will be done' ) 
    504504      IF ( nn_write == 0 ) THEN 
  • NEMO/trunk/src/OCE/FLO/flowri.F90

    r13286 r14239  
    199199      !---------------------- 
    200200 
    201 #if defined key_iomput 
     201#if defined key_xios 
    202202         CALL iom_put( "traj_lon"     , zlon ) 
    203203         CALL iom_put( "traj_lat"     , zlat ) 
  • NEMO/trunk/src/OCE/ICB/icbstp.F90

    r14030 r14239  
    126126      !                                   !* Gridded diagnostics 
    127127      !                                   !  To get these iom_put's and those preceding to actually do something 
    128       !                                   !  use key_iomput in cpp file and create content for XML file 
     128      !                                   !  use key_xios in cpp file and create content for XML file 
    129129      ! 
    130130      CALL iom_put( "calving"           , berg_grid%calving      (:,:)   )  ! 'calving mass input' 
  • NEMO/trunk/src/OCE/IOM/iom.F90

    r14072 r14239  
    3636   USE phycst          ! physical constants 
    3737   USE dianam          ! build name of file 
    38 #if defined key_iomput 
     38#if defined key_xios 
    3939   USE xios 
    4040# endif 
     
    5252   PUBLIC   !   must be public to be able to access iom_def through iom 
    5353 
    54 #if defined key_iomput 
     54#if defined key_xios 
    5555   LOGICAL, PUBLIC, PARAMETER ::   lk_iomput = .TRUE.        !: iom_put flag 
    5656#else 
     
    6969   PRIVATE iom_p1d_sp, iom_p2d_sp, iom_p3d_sp, iom_p4d_sp 
    7070   PRIVATE iom_p1d_dp, iom_p2d_dp, iom_p3d_dp, iom_p4d_dp 
    71 #if defined key_iomput 
     71#if defined key_xios 
    7272   PRIVATE iom_set_domain_attr, iom_set_axis_attr, iom_set_field_attr, iom_set_file_attr, iom_get_file_attr, iom_set_grid_attr 
    7373   PRIVATE set_grid, set_grid_bounds, set_scalar, set_xmlatt, set_mooring, iom_sdate 
     
    115115      INTEGER         , OPTIONAL, INTENT(in)  :: kdid 
    116116      LOGICAL         , OPTIONAL, INTENT(in)  :: ld_closedef 
    117 #if defined key_iomput 
     117#if defined key_xios 
    118118      ! 
    119119      TYPE(xios_duration) :: dtime    = xios_duration(0, 0, 0, 0, 0, 0) 
     
    308308      !!---------------------------------------------------------------------- 
    309309      CHARACTER(len=*), OPTIONAL, INTENT(IN) :: cdname 
    310 #if defined key_iomput 
     310#if defined key_xios 
    311311      LOGICAL :: llrstw 
    312312 
     
    343343      INTEGER, INTENT(IN) :: idnum 
    344344 
    345 #if defined key_iomput 
     345#if defined key_xios 
    346346      INTEGER                                    :: ndims, nvars, natts, unlimitedDimId, dimlen, xtype,mdims 
    347347      TYPE(xios_field)                           :: field_hdl 
     
    449449      !!--------------------------------------------------------------------- 
    450450      CHARACTER(len=*) :: cdrst_file 
    451 #if defined key_iomput 
     451#if defined key_xios 
    452452      TYPE(xios_file) :: file_hdl 
    453453      TYPE(xios_filegroup) :: filegroup_hdl 
     
    488488      REAL(dp), OPTIONAL, INTENT(IN), DIMENSION(:, :, :) :: rd3 
    489489      REAL(sp), OPTIONAL, INTENT(IN), DIMENSION(:, :, :) :: rs3 
    490 #if defined key_iomput 
     490#if defined key_xios 
    491491      TYPE(xios_field) :: field_hdl 
    492492      TYPE(xios_file) :: file_hdl 
     
    593593      LOGICAL, INTENT(IN)               :: ld_rstr 
    594594      INTEGER :: ji 
    595 #if defined key_iomput 
     595#if defined key_xios 
    596596      TYPE(xios_domaingroup)            :: domaingroup_hdl 
    597597      TYPE(xios_domain)                 :: domain_hdl 
     
    666666      !!--------------------------------------------------------------------- 
    667667      CHARACTER(len=*), INTENT(in) :: cdname 
    668 #if defined key_iomput 
     668#if defined key_xios 
    669669      TYPE(xios_context) :: nemo_hdl 
    670670      IF( TRIM(Agrif_CFixed()) == '0' ) THEN 
     
    955955         ENDIF 
    956956      ELSE 
    957 #if defined key_iomput 
     957#if defined key_xios 
    958958         IF(lwp) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 
    959959         CALL iom_swap(context) 
     
    10031003         ENDIF 
    10041004      ELSE 
    1005 #if defined key_iomput 
     1005#if defined key_xios 
    10061006         IF(lwp) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 
    10071007         CALL iom_swap(context) 
     
    13671367         ! 
    13681368      ELSE        ! read using XIOS. Only if KEY_IOMPUT is defined 
    1369 #if defined key_iomput 
     1369#if defined key_xios 
    13701370!would be good to be able to check which context is active and swap only if current is not restart 
    13711371         idvar = iom_varid( kiomid, cdvar ) 
     
    14221422      CHARACTER(LEN=*), INTENT(in ) ::   cdname 
    14231423      REAL(wp), DIMENSION(jpi,jpj) ::   z2d 
    1424 #if defined key_iomput 
     1424#if defined key_xios 
    14251425      IF( xios_field_is_active( cdname, at_current_timestep_arg = .TRUE. ) ) THEN 
    14261426         z2d(:,:) = 0._wp 
     
    16051605 
    16061606      IF( llx ) THEN 
    1607 #ifdef key_iomput 
     1607#ifdef key_xios 
    16081608         IF( kt == kwrite ) THEN 
    16091609            IF(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) 
     
    16451645 
    16461646      IF( llx ) THEN 
    1647 #ifdef key_iomput 
     1647#ifdef key_xios 
    16481648         IF( kt == kwrite ) THEN 
    16491649            IF(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) 
     
    16861686 
    16871687      IF( llx ) THEN 
    1688 #ifdef key_iomput 
     1688#ifdef key_xios 
    16891689         IF( kt == kwrite ) THEN 
    16901690            IF(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) 
     
    17261726 
    17271727      IF( llx ) THEN 
    1728 #ifdef key_iomput 
     1728#ifdef key_xios 
    17291729         IF( kt == kwrite ) THEN 
    17301730            IF(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) 
     
    17671767 
    17681768      IF( llx ) THEN 
    1769 #ifdef key_iomput 
     1769#ifdef key_xios 
    17701770         IF( kt == kwrite ) THEN 
    17711771            IF(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) 
     
    18071807 
    18081808      IF( llx ) THEN 
    1809 #ifdef key_iomput 
     1809#ifdef key_xios 
    18101810         IF( kt == kwrite ) THEN 
    18111811            IF(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) 
     
    18481848 
    18491849      IF( llx ) THEN 
    1850 #ifdef key_iomput 
     1850#ifdef key_xios 
    18511851         IF( kt == kwrite ) THEN 
    18521852            IF(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) 
     
    18881888 
    18891889      IF( llx ) THEN 
    1890 #ifdef key_iomput 
     1890#ifdef key_xios 
    18911891         IF( kt == kwrite ) THEN 
    18921892            IF(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) 
     
    19661966      REAL(sp)        , INTENT(in) ::   pfield0d 
    19671967      !!      REAL(wp)        , DIMENSION(jpi,jpj) ::   zz     ! masson 
    1968 #if defined key_iomput 
     1968#if defined key_xios 
    19691969!!clem      zz(:,:)=pfield0d 
    19701970!!clem      CALL xios_send_field(cdname, zz) 
     
    19791979      REAL(dp)        , INTENT(in) ::   pfield0d 
    19801980!!      REAL(wp)        , DIMENSION(jpi,jpj) ::   zz     ! masson 
    1981 #if defined key_iomput 
     1981#if defined key_xios 
    19821982!!clem      zz(:,:)=pfield0d 
    19831983!!clem      CALL xios_send_field(cdname, zz) 
     
    19921992      CHARACTER(LEN=*)          , INTENT(in) ::   cdname 
    19931993      REAL(sp),     DIMENSION(:), INTENT(in) ::   pfield1d 
    1994 #if defined key_iomput 
     1994#if defined key_xios 
    19951995      CALL xios_send_field( cdname, RESHAPE( (/pfield1d/), (/1,1,SIZE(pfield1d)/) ) ) 
    19961996#else 
     
    20022002      CHARACTER(LEN=*)          , INTENT(in) ::   cdname 
    20032003      REAL(dp),     DIMENSION(:), INTENT(in) ::   pfield1d 
    2004 #if defined key_iomput 
     2004#if defined key_xios 
    20052005      CALL xios_send_field( cdname, RESHAPE( (/pfield1d/), (/1,1,SIZE(pfield1d)/) ) ) 
    20062006#else 
     
    20132013      REAL(sp),     DIMENSION(:,:), INTENT(in) ::   pfield2d 
    20142014      IF( iom_use(cdname) ) THEN 
    2015 #if defined key_iomput 
     2015#if defined key_xios 
    20162016         CALL xios_send_field( cdname, pfield2d ) 
    20172017#else 
     
    20252025      REAL(dp),     DIMENSION(:,:), INTENT(in) ::   pfield2d 
    20262026      IF( iom_use(cdname) ) THEN 
    2027 #if defined key_iomput 
     2027#if defined key_xios 
    20282028         CALL xios_send_field( cdname, pfield2d ) 
    20292029#else 
     
    20372037      REAL(sp),       DIMENSION(:,:,:), INTENT(in) ::   pfield3d 
    20382038      IF( iom_use(cdname) ) THEN 
    2039 #if defined key_iomput 
     2039#if defined key_xios 
    20402040         CALL xios_send_field( cdname, pfield3d ) 
    20412041#else 
     
    20492049      REAL(dp),       DIMENSION(:,:,:), INTENT(in) ::   pfield3d 
    20502050      IF( iom_use(cdname) ) THEN 
    2051 #if defined key_iomput 
     2051#if defined key_xios 
    20522052         CALL xios_send_field( cdname, pfield3d ) 
    20532053#else 
     
    20612061      REAL(sp),       DIMENSION(:,:,:,:), INTENT(in) ::   pfield4d 
    20622062      IF( iom_use(cdname) ) THEN 
    2063 #if defined key_iomput 
     2063#if defined key_xios 
    20642064         CALL xios_send_field (cdname, pfield4d ) 
    20652065#else 
     
    20732073      REAL(dp),       DIMENSION(:,:,:,:), INTENT(in) ::   pfield4d 
    20742074      IF( iom_use(cdname) ) THEN 
    2075 #if defined key_iomput 
     2075#if defined key_xios 
    20762076         CALL xios_send_field (cdname, pfield4d ) 
    20772077#else 
     
    20812081   END SUBROUTINE iom_p4d_dp 
    20822082 
    2083 #if defined key_iomput 
     2083#if defined key_xios 
    20842084   !!---------------------------------------------------------------------- 
    2085    !!   'key_iomput'                                         XIOS interface 
     2085   !!   'key_xios'                                         XIOS interface 
    20862086   !!---------------------------------------------------------------------- 
    20872087 
     
    27132713#else 
    27142714   !!---------------------------------------------------------------------- 
    2715    !!   NOT 'key_iomput'                               a few dummy routines 
     2715   !!   NOT 'key_xios'                               a few dummy routines 
    27162716   !!---------------------------------------------------------------------- 
    27172717   SUBROUTINE iom_setkt( kt, cdname ) 
     
    27352735   LOGICAL FUNCTION iom_use( cdname ) 
    27362736      CHARACTER(LEN=*), INTENT(in) ::   cdname 
    2737 #if defined key_iomput 
     2737#if defined key_xios 
    27382738      iom_use = xios_field_is_active( cdname ) 
    27392739#else 
     
    27462746      REAL(wp)        , INTENT(out) ::   pmiss_val 
    27472747      REAL(dp)                      ::   ztmp_pmiss_val 
    2748 #if defined key_iomput 
     2748#if defined key_xios 
    27492749      ! get missing value 
    27502750      CALL xios_get_field_attr( cdname, default_value = ztmp_pmiss_val ) 
  • NEMO/trunk/src/OCE/IOM/restart.F90

    r14179 r14239  
    119119               CALL iom_open( TRIM(clpath)//TRIM(clname), numrow, ldwrt = .TRUE. ) 
    120120            ELSE 
    121 #if defined key_iomput 
     121#if defined key_xios 
    122122               cw_ocerst_cxt = "rstw_"//TRIM(ADJUSTL(clkt)) 
    123123               IF( TRIM(Agrif_CFixed()) == '0' ) THEN 
  • NEMO/trunk/src/OCE/TRD/trd_oce.F90

    r14045 r14239  
    2727   LOGICAL , PUBLIC ::   l_trddyn        !: momentum trend flag (set from namelist in trdini) 
    2828    
    29 # if ( defined key_trdtrc && defined key_iomput )  ||  defined key_trdmxl_trc 
     29# if ( defined key_trdtrc && defined key_xios )  ||  defined key_trdmxl_trc 
    3030   LOGICAL , PUBLIC ::   l_trdtrc = .TRUE.        !: tracers  trend flag 
    3131# else 
  • NEMO/trunk/src/OCE/USR/README.rst

    r11743 r14239  
    3737.. code-block:: console 
    3838 
    39    $ ./makenemo –n 'ORCA2_ICE_PISCES_MINE' -r 'ORCA2_ICE_PISCES' -m 'my_arch' del_key 'key_iomput' add_key 'key_diahth' 
     39   $ ./makenemo –n 'ORCA2_ICE_PISCES_MINE' -r 'ORCA2_ICE_PISCES' -m 'my_arch' del_key 'key_xios' add_key 'key_diahth' 
    4040 
    4141Option 3: Use the SIREN tools to subset an existing model 
  • NEMO/trunk/src/OCE/nemogcm.F90

    r14229 r14239  
    233233      CALL nemo_closefile 
    234234      ! 
    235 #if defined key_iomput 
     235#if defined key_xios 
    236236                                    CALL xios_finalize  ! end mpp communications with xios 
    237237      IF( lk_oasis     )            CALL cpl_finalize   ! end coupling and mpp communications with OASIS 
     
    271271      !                             !-------------------------------------------------! 
    272272      ! 
    273 #if defined key_iomput 
     273#if defined key_xios 
    274274      IF( Agrif_Root() ) THEN 
    275275         IF( lk_oasis ) THEN 
  • NEMO/trunk/src/OCE/step.F90

    r14227 r14239  
    9797      ENDIF 
    9898      IF( kstp == nit000 + 1 )   lk_agrif_fstep = .FALSE. 
    99 # if defined key_iomput 
     99# if defined key_xios 
    100100      IF( Agrif_Nbstepint() == 0 )   CALL iom_swap( cxios_context ) 
    101101# endif 
     
    384384      IF( lk_oasis .AND. nstop == 0 )   CALL sbc_cpl_snd( kstp, Nbb, Nnn )     ! coupled mode : field exchanges 
    385385      ! 
    386 #if defined key_iomput 
     386#if defined key_xios 
    387387      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    388388      ! Finalize contextes if end of simulation or error detected 
  • NEMO/trunk/src/OCE/step_oce.F90

    r14143 r14239  
    104104   USE timing          ! Timing 
    105105 
    106 #if defined key_iomput 
     106#if defined key_xios 
    107107   USE xios            ! I/O server 
    108108#endif 
  • NEMO/trunk/src/OCE/stpmlf.F90

    r14227 r14239  
    105105      ENDIF 
    106106      IF( kstp == nit000 + 1 )   lk_agrif_fstep = .FALSE. 
    107 # if defined key_iomput 
     107# if defined key_xios 
    108108      IF( Agrif_Nbstepint() == 0 )   CALL iom_swap( cxios_context ) 
    109109# endif 
     
    408408      IF( lk_oasis .AND. nstop == 0 )   CALL sbc_cpl_snd( kstp, Nbb, Nnn )     ! coupled mode : field exchanges 
    409409      ! 
    410 #if defined key_iomput 
     410#if defined key_xios 
    411411      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    412412      ! Finalize contextes if end of simulation or error detected 
  • NEMO/trunk/src/OFF/nemogcm.F90

    r14229 r14239  
    5757   USE mppini         ! shared/distributed memory setting (mpp_init routine) 
    5858   USE lib_mpp        ! distributed memory computing 
    59 #if defined key_iomput 
     59#if defined key_xios 
    6060   USE xios           ! xIOserver 
    6161#endif  
     
    175175      END DO 
    176176      ! 
    177 #if defined key_iomput 
     177#if defined key_xios 
    178178      CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF 
    179179#endif 
     
    194194      CALL nemo_closefile 
    195195      ! 
    196 #if defined key_iomput 
     196#if defined key_xios 
    197197                     CALL xios_finalize   ! end mpp communications with xios 
    198198#else 
     
    230230      !                             !-------------------------------------------------! 
    231231      ! 
    232 #if defined key_iomput 
     232#if defined key_xios 
    233233      CALL xios_initialize( "for_xios_mpi_id", return_comm=ilocal_comm )   ! nemo local communicator given by xios 
    234234      CALL mpp_start( ilocal_comm ) 
  • NEMO/trunk/src/SAO/nemogcm.F90

    r14227 r14239  
    3535   USE lbcnfd  , ONLY : isendto, nsndto ! Setup of north fold exchanges  
    3636   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    37 #if defined key_iomput 
     37#if defined key_xios 
    3838   USE xios           ! xIOserver 
    3939#endif 
     
    107107      !                             !-------------------------------------------------! 
    108108      ! 
    109 #if defined key_iomput 
     109#if defined key_xios 
    110110      IF( Agrif_Root() ) THEN 
    111111         IF( lk_oasis ) THEN 
  • NEMO/trunk/src/SAS/diawri.F90

    r12933 r14239  
    5252   PUBLIC   dia_wri_state 
    5353   PUBLIC   dia_wri_alloc           ! Called by nemogcm module 
    54 #if ! defined key_iomput    
     54#if ! defined key_xios    
    5555   PUBLIC   dia_wri_alloc_abl       ! Called by sbcabl  module (if ln_abl = .true.) 
    5656#endif 
     
    7171CONTAINS 
    7272 
    73 # if defined key_iomput 
    74    !!---------------------------------------------------------------------- 
    75    !!   'key_iomput'                                        use IOM library 
     73# if defined key_xios 
     74   !!---------------------------------------------------------------------- 
     75   !!   'key_xios'                                        use IOM library 
    7676   !!---------------------------------------------------------------------- 
    7777   INTEGER FUNCTION dia_wri_alloc() 
  • NEMO/trunk/src/SAS/nemogcm.F90

    r14229 r14239  
    4242   USE lbcnfd  , ONLY : isendto, nsndto ! Setup of north fold exchanges 
    4343   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    44 #if defined key_iomput 
     44#if defined key_xios 
    4545   USE xios           ! xIOserver 
    4646#endif 
     
    185185      CALL nemo_closefile 
    186186      ! 
    187 #if defined key_iomput 
     187#if defined key_xios 
    188188                                    CALL xios_finalize  ! end mpp communications with xios 
    189189      IF( lk_oasis     )            CALL cpl_finalize   ! end coupling and mpp communications with OASIS 
     
    228228      !                             !-------------------------------------------------! 
    229229      ! 
    230 #if defined key_iomput 
     230#if defined key_xios 
    231231      IF( Agrif_Root() ) THEN 
    232232         IF( lk_oasis ) THEN 
  • NEMO/trunk/src/SAS/step.F90

    r14227 r14239  
    3232   USE lbclnk           ! 
    3333   USE timing           ! Timing             
    34 #if defined key_iomput 
     34#if defined key_xios 
    3535   USE xios 
    3636#endif 
     
    8484      ENDIF 
    8585      IF( kstp == nit000 + 1 )   lk_agrif_fstep = .FALSE. 
    86 # if defined key_iomput 
     86# if defined key_xios 
    8787      IF( Agrif_Nbstepint() == 0 )   CALL iom_swap( cxios_context ) 
    8888# endif    
     
    156156      IF( lk_oasis .AND. nstop == 0 ) CALL sbc_cpl_snd( kstp, Nbb, Nnn )       ! coupled mode : field exchanges if OASIS-coupled ice 
    157157 
    158 #if defined key_iomput 
     158#if defined key_xios 
    159159      IF( kstp == nitrst ) THEN 
    160160         IF(.NOT.lwxios) THEN 
  • NEMO/trunk/src/SWE/nemogcm.F90

    r14229 r14239  
    135135      CALL nemo_closefile 
    136136      ! 
    137 #if defined key_iomput 
     137#if defined key_xios 
    138138                       CALL xios_finalize  ! end mpp communications with xios 
    139139#else 
     
    170170      !                             !-------------------------------------------------! 
    171171      ! 
    172 #if defined key_iomput 
     172#if defined key_xios 
    173173      CALL xios_initialize( "for_xios_mpi_id", return_comm=ilocal_comm )   ! nemo local communicator given by xios 
    174174      CALL mpp_start( ilocal_comm ) 
  • NEMO/trunk/src/SWE/stp_oce.F90

    r14137 r14239  
    102102   USE timing          ! Timing 
    103103 
    104 #if defined key_iomput 
     104#if defined key_xios 
    105105   USE xios            ! I/O server 
    106106#endif 
  • NEMO/trunk/src/SWE/stpmlf.F90

    r14137 r14239  
    231231 
    232232      ! 
    233 #if defined key_iomput 
     233#if defined key_xios 
    234234      IF( kstp == nitend .OR. indic < 0 ) THEN 
    235235!!st : cxios_context needed ? because opened earlier ???          
  • NEMO/trunk/src/SWE/stprk3.F90

    r14179 r14239  
    328328 
    329329      ! 
    330 #if defined key_iomput 
     330#if defined key_xios 
    331331      IF( kstp == nitend .OR. indic < 0 ) THEN  
    332332         CALL iom_context_finalize( cxios_context ) 
  • NEMO/trunk/src/TOP/AGE/trcwri_age.F90

    r12377 r14239  
    66   !! History :   1.0  !  2009-05 (C. Ethe)  Original code 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_top &&  defined key_iomput 
     8#if defined key_top &&  defined key_xios 
    99   !!---------------------------------------------------------------------- 
    1010   !! trc_wri_age   :  outputs of concentration fields 
  • NEMO/trunk/src/TOP/C14/trcwri_c14.F90

    r13295 r14239  
    77   !! History :   2.0  !  2015 (A. Mouchet)  adapted code for C14 
    88   !!---------------------------------------------------------------------- 
    9 #if defined key_top && defined key_iomput 
     9#if defined key_top && defined key_xios 
    1010   !!---------------------------------------------------------------------- 
    1111   !! trc_wri_c14   :  outputs of ventilation fields 
  • NEMO/trunk/src/TOP/CFC/trcwri_cfc.F90

    r12377 r14239  
    66   !! History :   1.0  !  2009-05 (C. Ethe)  Original code 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_top && defined key_iomput 
     8#if defined key_top && defined key_xios 
    99   !!---------------------------------------------------------------------- 
    1010   !! trc_wri_cfc   :  outputs of concentration fields 
  • NEMO/trunk/src/TOP/MY_TRC/trcwri_my_trc.F90

    r12377 r14239  
    44   !!     trc_wri_my_trc   :  outputs of concentration fields 
    55   !!====================================================================== 
    6 #if defined key_top && defined key_iomput 
     6#if defined key_top && defined key_xios 
    77   !!---------------------------------------------------------------------- 
    88   !! History :      !  2007  (C. Ethe, G. Madec)  Original code 
  • NEMO/trunk/src/TOP/PISCES/SED/sedrst.F90

    r14039 r14239  
    8484            CALL iom_open( TRIM(clpath)//TRIM(clname), numrsw, ldwrt = .TRUE., kdlev = jpksed, cdcomp = 'SED' ) 
    8585         ELSE 
    86 #if defined key_iomput 
     86#if defined key_xios 
    8787            cw_sedrst_cxt = "rstws_"//TRIM(ADJUSTL(clkt)) 
    8888            IF( TRIM(Agrif_CFixed()) == '0' ) THEN 
  • NEMO/trunk/src/TOP/PISCES/trcwri_pisces.F90

    r13295 r14239  
    66   !! History :   1.0  !  2009-05 (C. Ethe)  Original code 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_top && defined key_iomput  
     8#if defined key_top && defined key_xios  
    99   !!---------------------------------------------------------------------- 
    1010   !! trc_wri_pisces   :  outputs of concentration fields 
  • NEMO/trunk/src/TOP/README.rst

    r14229 r14239  
    6262Here below the list of preprocessing keys that applies to the TOP interface (beside ``key_top``): 
    6363 
    64 ``key_iomput`` 
     64``key_xios`` 
    6565   use XIOS I/O 
    6666 
     
    320320.. code-block:: perl 
    321321 
    322    bld::tool::fppkeys key_iomput key_top 
     322   bld::tool::fppkeys key_xios key_top 
    323323 
    324324the compilation with :file:`makenemo` will be executed through the following syntax 
     
    348348.. code-block:: perl 
    349349 
    350    bld::tool::fppkeys  key_iomput key_top 
     350   bld::tool::fppkeys  key_xios key_top 
    351351 
    352352   src::MYBGC::initialization         <MYBGCPATH>/initialization 
     
    376376   .. code-block:: perl 
    377377 
    378       bld::tool::fppkeys  key_zdftke key_dynspg_ts key_iomput key_top 
     378      bld::tool::fppkeys  key_zdftke key_dynspg_ts key_xios key_top 
    379379      inc <MYBGCPATH>/MYBGC.fcm 
    380380 
  • NEMO/trunk/src/TOP/TRP/trdtrc_oce.F90

    r10425 r14239  
    2424   LOGICAL, DIMENSION(:), ALLOCATABLE ::   ln_trdtrc   !: large trends diagnostic to write or not (namelist) 
    2525 
    26 # if defined key_trdtrc && defined key_iomput 
     26# if defined key_trdtrc && defined key_xios 
    2727   LOGICAL, PARAMETER ::   lk_trdtrc = .TRUE.  
    2828# else 
  • NEMO/trunk/src/TOP/trcnam.F90

    r14086 r14239  
    3131   PUBLIC   trc_nam      ! called in trcini 
    3232 
    33    TYPE(PTRACER), DIMENSION(jpmaxtrc), PUBLIC  :: sn_tracer  !: type of tracer for saving if not key_iomput 
     33   TYPE(PTRACER), DIMENSION(jpmaxtrc), PUBLIC  :: sn_tracer  !: type of tracer for saving if not key_xios 
    3434 
    3535   !!---------------------------------------------------------------------- 
  • NEMO/trunk/src/TOP/trcrst.F90

    r14086 r14239  
    9696            CALL iom_open( TRIM(clpath)//TRIM(clname), numrtw, ldwrt = .TRUE. ) 
    9797         ELSE 
    98 #if defined key_iomput 
     98#if defined key_xios 
    9999            cw_toprst_cxt = "rstwt_"//TRIM(ADJUSTL(clkt)) 
    100100            IF( TRIM(Agrif_CFixed()) == '0' ) THEN 
  • NEMO/trunk/src/TOP/trcwri.F90

    r13237 r14239  
    66   !! History :   1.0  !  2009-05 (C. Ethe)  Original code 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_top && defined key_iomput 
     8#if defined key_top && defined key_xios 
    99   !!---------------------------------------------------------------------- 
    1010   !!   'key_top'                                           TOP models 
  • NEMO/trunk/tests/C1D_ASICS/cpp_C1D_ASICS.fcm

    r14229 r14239  
    1  bld::tool::fppkeys   key_c1d key_qco key_iomput 
     1 bld::tool::fppkeys   key_c1d key_qco key_xios 
  • NEMO/trunk/tests/CANAL/cpp_CANAL.fcm

    r14229 r14239  
    1  bld::tool::fppkeys key_iomput key_qco  
     1 bld::tool::fppkeys key_xios key_qco  
  • NEMO/trunk/tests/CPL_OASIS/cpp_CPL_OASIS.fcm

    r14229 r14239  
    1 bld::tool::fppkeys   key_si3 key_top key_iomput key_oasis3 key_qco 
     1bld::tool::fppkeys   key_si3 key_top key_xios key_oasis3 key_qco 
  • NEMO/trunk/tests/DOME/cpp_DOME.fcm

    r14229 r14239  
    1  bld::tool::fppkeys key_iomput key_agrif key_linssh 
     1 bld::tool::fppkeys key_xios key_agrif key_linssh 
  • NEMO/trunk/tests/DONUT/cpp_DONUT.fcm

    r14229 r14239  
    1  bld::tool::fppkeys key_si3 key_qco key_iomput 
     1 bld::tool::fppkeys key_si3 key_qco key_xios 
  • NEMO/trunk/tests/ICB/MY_SRC/step.F90

    r14227 r14239  
    9898      ENDIF 
    9999      IF( kstp == nit000 + 1 )   lk_agrif_fstep = .FALSE. 
    100 # if defined key_iomput 
     100# if defined key_xios 
    101101      IF( Agrif_Nbstepint() == 0 )   CALL iom_swap( cxios_context ) 
    102102# endif 
     
    150150      ENDIF 
    151151      ! 
    152 #if defined key_iomput 
     152#if defined key_xios 
    153153      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    154154      ! Finalize contextes if end of simulation or error detected 
  • NEMO/trunk/tests/ICB/cpp_ICB.fcm

    r14229 r14239  
    1  bld::tool::fppkeys   key_iomput key_qco  
     1 bld::tool::fppkeys   key_xios key_qco  
  • NEMO/trunk/tests/ICE_ADV1D/cpp_ICE_ADV1D.fcm

    r14232 r14239  
    1 bld::tool::fppkeys key_si3 key_iomput key_linssh 
     1bld::tool::fppkeys key_si3 key_xios key_linssh 
  • NEMO/trunk/tests/ICE_ADV2D/cpp_ICE_ADV2D.fcm

    r14232 r14239  
    1 bld::tool::fppkeys key_si3 key_linssh key_iomput 
     1bld::tool::fppkeys key_si3 key_linssh key_xios 
  • NEMO/trunk/tests/ICE_AGRIF/cpp_ICE_AGRIF.fcm

    r14229 r14239  
    1 bld::tool::fppkeys key_agrif key_si3 key_linssh key_iomput 
     1bld::tool::fppkeys key_agrif key_si3 key_linssh key_xios 
  • NEMO/trunk/tests/ICE_RHEO/cpp_ICE_RHEO.fcm

    r14232 r14239  
    1 bld::tool::fppkeys key_si3 key_linssh key_iomput 
     1bld::tool::fppkeys key_si3 key_linssh key_xios 
  • NEMO/trunk/tests/ISOMIP+/cpp_ISOMIP+.fcm

    r14229 r14239  
    1  bld::tool::fppkeys   key_iomput  
     1 bld::tool::fppkeys   key_xios  
  • NEMO/trunk/tests/ISOMIP/cpp_ISOMIP.fcm

    r14229 r14239  
    1  bld::tool::fppkeys   key_iomput  
     1 bld::tool::fppkeys   key_xios  
  • NEMO/trunk/tests/LOCK_EXCHANGE/cpp_LOCK_EXCHANGE.fcm

    r14229 r14239  
    1  bld::tool::fppkeys   key_qco key_iomput  
     1 bld::tool::fppkeys   key_qco key_xios  
  • NEMO/trunk/tests/OVERFLOW/cpp_OVERFLOW.fcm

    r14229 r14239  
    1 bld::tool::fppkeys   key_qco key_iomput  
     1bld::tool::fppkeys   key_qco key_xios  
  • NEMO/trunk/tests/STATION_ASF/MY_SRC/diawri.F90

    r14072 r14239  
    6363CONTAINS 
    6464 
    65 #if defined key_iomput 
    66    !!---------------------------------------------------------------------- 
    67    !!   'key_iomput'                                        use IOM library 
     65#if defined key_xios 
     66   !!---------------------------------------------------------------------- 
     67   !!   'key_xios'                                        use IOM library 
    6868   !!---------------------------------------------------------------------- 
    6969   INTEGER FUNCTION dia_wri_alloc() 
  • NEMO/trunk/tests/STATION_ASF/MY_SRC/nemogcm.F90

    r14229 r14239  
    3434   USE mppini         ! shared/distributed memory setting (mpp_init routine) 
    3535   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    36 #if defined key_iomput 
     36#if defined key_xios 
    3737   USE xios           ! xIOserver 
    3838#endif 
     
    113113      CALL nemo_closefile 
    114114      ! 
    115 #if defined key_iomput 
     115#if defined key_xios 
    116116      CALL xios_finalize  ! end mpp communications with xios 
    117117#else 
     
    148148      !                             !-------------------------------------------------! 
    149149      ! 
    150 #if defined key_iomput 
     150#if defined key_xios 
    151151      IF( Agrif_Root() ) THEN 
    152152         CALL xios_initialize( "for_xios_mpi_id", return_comm=ilocal_comm )   ! nemo local communicator given by xios 
  • NEMO/trunk/tests/STATION_ASF/MY_SRC/step_c1d.F90

    r14227 r14239  
    7979      IF( lrst_oce       )   CALL rst_write( kstp, Nbb, Nnn )  ! write output ocean restart file 
    8080      ! 
    81 #if defined key_iomput 
     81#if defined key_xios 
    8282      IF( kstp == nitend .OR. nstop > 0 )   CALL xios_context_finalize()   ! needed for XIOS 
    8383      ! 
  • NEMO/trunk/tests/STATION_ASF/cpp_STATION_ASF.fcm

    r14229 r14239  
    1  bld::tool::fppkeys   key_si3 key_c1d key_qco key_iomput 
     1 bld::tool::fppkeys   key_si3 key_c1d key_qco key_xios 
  • NEMO/trunk/tests/SWG/cpp_SWG.fcm

    r14229 r14239  
    1 bld::tool::fppkeys key_iomput key_qco key_RK3 
     1bld::tool::fppkeys key_xios key_qco key_RK3 
  • NEMO/trunk/tests/TSUNAMI/MY_SRC/stpmlf.F90

    r14225 r14239  
    9898      ENDIF 
    9999      IF( kstp == nit000 + 1 )   lk_agrif_fstep = .FALSE. 
    100 # if defined key_iomput 
     100# if defined key_xios 
    101101      IF( Agrif_Nbstepint() == 0 )   CALL iom_swap( cxios_context ) 
    102102# endif 
     
    181181      ENDIF 
    182182 
    183 #if defined key_iomput 
     183#if defined key_xios 
    184184      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    185185      ! Finalize contextes if end of simulation or error detected 
  • NEMO/trunk/tests/TSUNAMI/cpp_TSUNAMI.fcm

    r14229 r14239  
    1  bld::tool::fppkeys key_qco key_iomput 
     1 bld::tool::fppkeys key_qco key_xios 
  • NEMO/trunk/tests/VORTEX/cpp_VORTEX.fcm

    r14229 r14239  
    1  bld::tool::fppkeys key_iomput key_agrif key_qco  
     1 bld::tool::fppkeys key_xios key_agrif key_qco  
  • NEMO/trunk/tests/WAD/cpp_WAD.fcm

    r14229 r14239  
    1  bld::tool::fppkeys   key_iomput key_qco  
     1 bld::tool::fppkeys   key_xios key_qco  
Note: See TracChangeset for help on using the changeset viewer.