Changeset 14239
- Timestamp:
- 2020-12-23T09:57:16+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 79 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/INSTALL.rst
r14229 r14239 268 268 Once changed, one needs to recompile ``nemo`` in order for this change to be taken in account. 269 269 Note 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_ iomputkey_agrif key_qco1 bld::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_ iomputkey_qco1 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_ iomputkey_linssh1 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_ iomputkey_linssh1 bld::tool::fppkeys key_top key_my_trc key_xios key_linssh 2 2 inc $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_ iomput1 bld::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_ iomputkey_qco1 bld::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_ iomputkey_qco1 bld::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_ iomput1 bld::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_ iomput1 bld::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_ iomput1 bld::tool::fppkeys key_si3 key_linssh key_xios -
NEMO/trunk/cfgs/SHARED/README.rst
r11747 r14239 17 17 Much more information is available from the :xios:`XIOS homepage<>` above and from the NEMO manual. 18 18 19 Use of XIOS for diagnostics is activated using the pre-compiler key ``key_ iomput``.19 Use of XIOS for diagnostics is activated using the pre-compiler key ``key_xios``. 20 20 21 21 Extracting and installing XIOS -
NEMO/trunk/cfgs/SHARED/namelist_ref
r14229 r14239 57 57 ! ! = -1 do not do any restart 58 58 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_ iomputis 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) 60 60 ! ! = 0 force to write output files only at the end of the run 61 61 ! ! = -1 do not do any output file -
NEMO/trunk/cfgs/SPITZ12/cpp_SPITZ12.fcm
r14229 r14239 1 bld::tool::fppkeys key_ iomputkey_si3 key_qco1 bld::tool::fppkeys key_xios key_si3 key_qco -
NEMO/trunk/cfgs/WED025/cpp_WED025.fcm
r14232 r14239 1 bld::tool::fppkeys key_ iomputkey_si31 bld::tool::fppkeys key_xios key_si3 -
NEMO/trunk/doc/latex/TOP/subfiles/miscellaneous.tex
r14229 r14239 24 24 % 25 25 \begin{minted}{bash} 26 bld::tool::fppkeys key_ iomputkey_top26 bld::tool::fppkeys key_xios key_top 27 27 \end{minted} 28 28 … … 42 42 % 43 43 \begin{minted}{bash} 44 bld::tool::fppkeys key_ iomputkey_top44 bld::tool::fppkeys key_xios key_top 45 45 46 46 src::MYBGC::initialization <MYBGCPATH>/initialization … … 60 60 %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 61 61 % 62 %bld::tool::fppkeys key_zdftke key_dynspg_ts key_ iomputkey_top62 %bld::tool::fppkeys key_zdftke key_dynspg_ts key_xios key_top 63 63 %inc <MYBGCPATH>/MYBGC.fcm 64 64 %This will enable a more portable compilation structure for all MYBGC related configurations. -
NEMO/trunk/doc/namelists/namrun
r11703 r14239 26 26 ! ! = -1 do not do any restart 27 27 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_ iomputis 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) 29 29 ! ! = 0 force to write output files only at the end of the run 30 30 ! ! = -1 do not do any output file -
NEMO/trunk/src/ABL/ablmod.F90
r14235 r14239 537 537 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... 538 538 ! 539 #if defined key_ iomput539 #if defined key_xios 540 540 ! 2D & first ABL level 541 541 IF ( iom_use("pblh" ) ) CALL iom_put ( "pblh", pblh(:,: ) ) -
NEMO/trunk/src/ABL/sbcabl.F90
r14235 r14239 36 36 USE sbc_ice, ONLY : wndm_ice, utau_ice, vtau_ice 37 37 #endif 38 #if ! defined key_ iomput38 #if ! defined key_xios 39 39 USE diawri , ONLY : dia_wri_alloc_abl 40 40 #endif … … 149 149 CALL iom_close( inum ) 150 150 151 #if ! defined key_ iomput151 #if ! defined key_xios 152 152 IF( dia_wri_alloc_abl() /= 0 ) CALL ctl_stop( 'STOP', 'abl_init : unable to allocate arrays' ) 153 153 #endif -
NEMO/trunk/src/ICE/icerst.F90
r14072 r14239 88 88 CALL iom_open( TRIM(clpath)//TRIM(clname), numriw, ldwrt = .TRUE., kdlev = jpl, cdcomp = 'ICE' ) 89 89 ELSE 90 #if defined key_ iomput90 #if defined key_xios 91 91 cw_icerst_cxt = "rstwi_"//TRIM(ADJUSTL(clkt)) 92 92 IF( TRIM(Agrif_CFixed()) == '0' ) THEN -
NEMO/trunk/src/OCE/C1D/step_c1d.F90
r14227 r14239 142 142 IF( lrst_oce ) CALL rst_write( kstp, Nbb, Nnn ) ! write output ocean restart file 143 143 ! 144 #if defined key_ iomput144 #if defined key_xios 145 145 IF( kstp == nitend .OR. nstop > 0 ) CALL xios_context_finalize() ! needed for XIOS 146 146 ! -
NEMO/trunk/src/OCE/DIA/diadetide.F90
r12489 r14239 12 12 USE phycst , ONLY : rpi 13 13 USE tide_mod 14 #if defined key_ iomput14 #if defined key_xios 15 15 USE xios 16 16 #endif … … 47 47 48 48 lk_diadetide = .FALSE. 49 #if defined key_ iomput49 #if defined key_xios 50 50 ! Enquire detiding activation state (test for presence of detiding-related 51 51 ! weights field and output file group) -
NEMO/trunk/src/OCE/DIA/diamlr.F90
r13237 r14239 15 15 USE iom , ONLY : iom_put, iom_use, iom_update_file_name 16 16 USE timing , ONLY : timing_start, timing_stop 17 #if defined key_ iomput17 #if defined key_xios 18 18 USE xios 19 19 #endif … … 64 64 !! 65 65 !!---------------------------------------------------------------------- 66 #if defined key_ iomput66 #if defined key_xios 67 67 68 68 TYPE(xios_fieldgroup) :: slxhdl_fldgrp -
NEMO/trunk/src/OCE/DIA/diawri.F90
r14179 r14239 70 70 PUBLIC dia_wri_state 71 71 PUBLIC dia_wri_alloc ! Called by nemogcm module 72 #if ! defined key_ iomput72 #if ! defined key_xios 73 73 PUBLIC dia_wri_alloc_abl ! Called by sbcabl module (if ln_abl = .true.) 74 74 #endif … … 95 95 CONTAINS 96 96 97 #if defined key_ iomput97 #if defined key_xios 98 98 !!---------------------------------------------------------------------- 99 !! 'key_ iomput' use IOM library99 !! 'key_xios' use IOM library 100 100 !!---------------------------------------------------------------------- 101 101 INTEGER FUNCTION dia_wri_alloc() -
NEMO/trunk/src/OCE/DOM/domain.F90
r14223 r14239 423 423 WRITE(numout,*) ' frequency of restart file nn_stock = ', nn_stock 424 424 ENDIF 425 #if ! defined key_ iomput425 #if ! defined key_xios 426 426 WRITE(numout,*) ' frequency of output file nn_write = ', nn_write 427 427 #endif … … 500 500 ENDIF 501 501 ENDIF 502 #if ! defined key_ iomput502 #if ! defined key_xios 503 503 IF( nn_write == -1 ) CALL ctl_warn( 'nn_write = -1 --> no output files will be done' ) 504 504 IF ( nn_write == 0 ) THEN -
NEMO/trunk/src/OCE/FLO/flowri.F90
r13286 r14239 199 199 !---------------------- 200 200 201 #if defined key_ iomput201 #if defined key_xios 202 202 CALL iom_put( "traj_lon" , zlon ) 203 203 CALL iom_put( "traj_lat" , zlat ) -
NEMO/trunk/src/OCE/ICB/icbstp.F90
r14030 r14239 126 126 ! !* Gridded diagnostics 127 127 ! ! To get these iom_put's and those preceding to actually do something 128 ! ! use key_ iomputin cpp file and create content for XML file128 ! ! use key_xios in cpp file and create content for XML file 129 129 ! 130 130 CALL iom_put( "calving" , berg_grid%calving (:,:) ) ! 'calving mass input' -
NEMO/trunk/src/OCE/IOM/iom.F90
r14072 r14239 36 36 USE phycst ! physical constants 37 37 USE dianam ! build name of file 38 #if defined key_ iomput38 #if defined key_xios 39 39 USE xios 40 40 # endif … … 52 52 PUBLIC ! must be public to be able to access iom_def through iom 53 53 54 #if defined key_ iomput54 #if defined key_xios 55 55 LOGICAL, PUBLIC, PARAMETER :: lk_iomput = .TRUE. !: iom_put flag 56 56 #else … … 69 69 PRIVATE iom_p1d_sp, iom_p2d_sp, iom_p3d_sp, iom_p4d_sp 70 70 PRIVATE iom_p1d_dp, iom_p2d_dp, iom_p3d_dp, iom_p4d_dp 71 #if defined key_ iomput71 #if defined key_xios 72 72 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 73 73 PRIVATE set_grid, set_grid_bounds, set_scalar, set_xmlatt, set_mooring, iom_sdate … … 115 115 INTEGER , OPTIONAL, INTENT(in) :: kdid 116 116 LOGICAL , OPTIONAL, INTENT(in) :: ld_closedef 117 #if defined key_ iomput117 #if defined key_xios 118 118 ! 119 119 TYPE(xios_duration) :: dtime = xios_duration(0, 0, 0, 0, 0, 0) … … 308 308 !!---------------------------------------------------------------------- 309 309 CHARACTER(len=*), OPTIONAL, INTENT(IN) :: cdname 310 #if defined key_ iomput310 #if defined key_xios 311 311 LOGICAL :: llrstw 312 312 … … 343 343 INTEGER, INTENT(IN) :: idnum 344 344 345 #if defined key_ iomput345 #if defined key_xios 346 346 INTEGER :: ndims, nvars, natts, unlimitedDimId, dimlen, xtype,mdims 347 347 TYPE(xios_field) :: field_hdl … … 449 449 !!--------------------------------------------------------------------- 450 450 CHARACTER(len=*) :: cdrst_file 451 #if defined key_ iomput451 #if defined key_xios 452 452 TYPE(xios_file) :: file_hdl 453 453 TYPE(xios_filegroup) :: filegroup_hdl … … 488 488 REAL(dp), OPTIONAL, INTENT(IN), DIMENSION(:, :, :) :: rd3 489 489 REAL(sp), OPTIONAL, INTENT(IN), DIMENSION(:, :, :) :: rs3 490 #if defined key_ iomput490 #if defined key_xios 491 491 TYPE(xios_field) :: field_hdl 492 492 TYPE(xios_file) :: file_hdl … … 593 593 LOGICAL, INTENT(IN) :: ld_rstr 594 594 INTEGER :: ji 595 #if defined key_ iomput595 #if defined key_xios 596 596 TYPE(xios_domaingroup) :: domaingroup_hdl 597 597 TYPE(xios_domain) :: domain_hdl … … 666 666 !!--------------------------------------------------------------------- 667 667 CHARACTER(len=*), INTENT(in) :: cdname 668 #if defined key_ iomput668 #if defined key_xios 669 669 TYPE(xios_context) :: nemo_hdl 670 670 IF( TRIM(Agrif_CFixed()) == '0' ) THEN … … 955 955 ENDIF 956 956 ELSE 957 #if defined key_ iomput957 #if defined key_xios 958 958 IF(lwp) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 959 959 CALL iom_swap(context) … … 1003 1003 ENDIF 1004 1004 ELSE 1005 #if defined key_ iomput1005 #if defined key_xios 1006 1006 IF(lwp) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 1007 1007 CALL iom_swap(context) … … 1367 1367 ! 1368 1368 ELSE ! read using XIOS. Only if KEY_IOMPUT is defined 1369 #if defined key_ iomput1369 #if defined key_xios 1370 1370 !would be good to be able to check which context is active and swap only if current is not restart 1371 1371 idvar = iom_varid( kiomid, cdvar ) … … 1422 1422 CHARACTER(LEN=*), INTENT(in ) :: cdname 1423 1423 REAL(wp), DIMENSION(jpi,jpj) :: z2d 1424 #if defined key_ iomput1424 #if defined key_xios 1425 1425 IF( xios_field_is_active( cdname, at_current_timestep_arg = .TRUE. ) ) THEN 1426 1426 z2d(:,:) = 0._wp … … 1605 1605 1606 1606 IF( llx ) THEN 1607 #ifdef key_ iomput1607 #ifdef key_xios 1608 1608 IF( kt == kwrite ) THEN 1609 1609 IF(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) … … 1645 1645 1646 1646 IF( llx ) THEN 1647 #ifdef key_ iomput1647 #ifdef key_xios 1648 1648 IF( kt == kwrite ) THEN 1649 1649 IF(lwp) write(numout,*) 'RESTART: write (XIOS 0D) ',trim(cdvar) … … 1686 1686 1687 1687 IF( llx ) THEN 1688 #ifdef key_ iomput1688 #ifdef key_xios 1689 1689 IF( kt == kwrite ) THEN 1690 1690 IF(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) … … 1726 1726 1727 1727 IF( llx ) THEN 1728 #ifdef key_ iomput1728 #ifdef key_xios 1729 1729 IF( kt == kwrite ) THEN 1730 1730 IF(lwp) write(numout,*) 'RESTART: write (XIOS 1D) ',trim(cdvar) … … 1767 1767 1768 1768 IF( llx ) THEN 1769 #ifdef key_ iomput1769 #ifdef key_xios 1770 1770 IF( kt == kwrite ) THEN 1771 1771 IF(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) … … 1807 1807 1808 1808 IF( llx ) THEN 1809 #ifdef key_ iomput1809 #ifdef key_xios 1810 1810 IF( kt == kwrite ) THEN 1811 1811 IF(lwp) write(numout,*) 'RESTART: write (XIOS 2D) ',trim(cdvar) … … 1848 1848 1849 1849 IF( llx ) THEN 1850 #ifdef key_ iomput1850 #ifdef key_xios 1851 1851 IF( kt == kwrite ) THEN 1852 1852 IF(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) … … 1888 1888 1889 1889 IF( llx ) THEN 1890 #ifdef key_ iomput1890 #ifdef key_xios 1891 1891 IF( kt == kwrite ) THEN 1892 1892 IF(lwp) write(numout,*) 'RESTART: write (XIOS 3D) ',trim(cdvar) … … 1966 1966 REAL(sp) , INTENT(in) :: pfield0d 1967 1967 !! REAL(wp) , DIMENSION(jpi,jpj) :: zz ! masson 1968 #if defined key_ iomput1968 #if defined key_xios 1969 1969 !!clem zz(:,:)=pfield0d 1970 1970 !!clem CALL xios_send_field(cdname, zz) … … 1979 1979 REAL(dp) , INTENT(in) :: pfield0d 1980 1980 !! REAL(wp) , DIMENSION(jpi,jpj) :: zz ! masson 1981 #if defined key_ iomput1981 #if defined key_xios 1982 1982 !!clem zz(:,:)=pfield0d 1983 1983 !!clem CALL xios_send_field(cdname, zz) … … 1992 1992 CHARACTER(LEN=*) , INTENT(in) :: cdname 1993 1993 REAL(sp), DIMENSION(:), INTENT(in) :: pfield1d 1994 #if defined key_ iomput1994 #if defined key_xios 1995 1995 CALL xios_send_field( cdname, RESHAPE( (/pfield1d/), (/1,1,SIZE(pfield1d)/) ) ) 1996 1996 #else … … 2002 2002 CHARACTER(LEN=*) , INTENT(in) :: cdname 2003 2003 REAL(dp), DIMENSION(:), INTENT(in) :: pfield1d 2004 #if defined key_ iomput2004 #if defined key_xios 2005 2005 CALL xios_send_field( cdname, RESHAPE( (/pfield1d/), (/1,1,SIZE(pfield1d)/) ) ) 2006 2006 #else … … 2013 2013 REAL(sp), DIMENSION(:,:), INTENT(in) :: pfield2d 2014 2014 IF( iom_use(cdname) ) THEN 2015 #if defined key_ iomput2015 #if defined key_xios 2016 2016 CALL xios_send_field( cdname, pfield2d ) 2017 2017 #else … … 2025 2025 REAL(dp), DIMENSION(:,:), INTENT(in) :: pfield2d 2026 2026 IF( iom_use(cdname) ) THEN 2027 #if defined key_ iomput2027 #if defined key_xios 2028 2028 CALL xios_send_field( cdname, pfield2d ) 2029 2029 #else … … 2037 2037 REAL(sp), DIMENSION(:,:,:), INTENT(in) :: pfield3d 2038 2038 IF( iom_use(cdname) ) THEN 2039 #if defined key_ iomput2039 #if defined key_xios 2040 2040 CALL xios_send_field( cdname, pfield3d ) 2041 2041 #else … … 2049 2049 REAL(dp), DIMENSION(:,:,:), INTENT(in) :: pfield3d 2050 2050 IF( iom_use(cdname) ) THEN 2051 #if defined key_ iomput2051 #if defined key_xios 2052 2052 CALL xios_send_field( cdname, pfield3d ) 2053 2053 #else … … 2061 2061 REAL(sp), DIMENSION(:,:,:,:), INTENT(in) :: pfield4d 2062 2062 IF( iom_use(cdname) ) THEN 2063 #if defined key_ iomput2063 #if defined key_xios 2064 2064 CALL xios_send_field (cdname, pfield4d ) 2065 2065 #else … … 2073 2073 REAL(dp), DIMENSION(:,:,:,:), INTENT(in) :: pfield4d 2074 2074 IF( iom_use(cdname) ) THEN 2075 #if defined key_ iomput2075 #if defined key_xios 2076 2076 CALL xios_send_field (cdname, pfield4d ) 2077 2077 #else … … 2081 2081 END SUBROUTINE iom_p4d_dp 2082 2082 2083 #if defined key_ iomput2083 #if defined key_xios 2084 2084 !!---------------------------------------------------------------------- 2085 !! 'key_ iomput' XIOS interface2085 !! 'key_xios' XIOS interface 2086 2086 !!---------------------------------------------------------------------- 2087 2087 … … 2713 2713 #else 2714 2714 !!---------------------------------------------------------------------- 2715 !! NOT 'key_ iomput' a few dummy routines2715 !! NOT 'key_xios' a few dummy routines 2716 2716 !!---------------------------------------------------------------------- 2717 2717 SUBROUTINE iom_setkt( kt, cdname ) … … 2735 2735 LOGICAL FUNCTION iom_use( cdname ) 2736 2736 CHARACTER(LEN=*), INTENT(in) :: cdname 2737 #if defined key_ iomput2737 #if defined key_xios 2738 2738 iom_use = xios_field_is_active( cdname ) 2739 2739 #else … … 2746 2746 REAL(wp) , INTENT(out) :: pmiss_val 2747 2747 REAL(dp) :: ztmp_pmiss_val 2748 #if defined key_ iomput2748 #if defined key_xios 2749 2749 ! get missing value 2750 2750 CALL xios_get_field_attr( cdname, default_value = ztmp_pmiss_val ) -
NEMO/trunk/src/OCE/IOM/restart.F90
r14179 r14239 119 119 CALL iom_open( TRIM(clpath)//TRIM(clname), numrow, ldwrt = .TRUE. ) 120 120 ELSE 121 #if defined key_ iomput121 #if defined key_xios 122 122 cw_ocerst_cxt = "rstw_"//TRIM(ADJUSTL(clkt)) 123 123 IF( TRIM(Agrif_CFixed()) == '0' ) THEN -
NEMO/trunk/src/OCE/TRD/trd_oce.F90
r14045 r14239 27 27 LOGICAL , PUBLIC :: l_trddyn !: momentum trend flag (set from namelist in trdini) 28 28 29 # if ( defined key_trdtrc && defined key_ iomput) || defined key_trdmxl_trc29 # if ( defined key_trdtrc && defined key_xios ) || defined key_trdmxl_trc 30 30 LOGICAL , PUBLIC :: l_trdtrc = .TRUE. !: tracers trend flag 31 31 # else -
NEMO/trunk/src/OCE/USR/README.rst
r11743 r14239 37 37 .. code-block:: console 38 38 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' 40 40 41 41 Option 3: Use the SIREN tools to subset an existing model -
NEMO/trunk/src/OCE/nemogcm.F90
r14229 r14239 233 233 CALL nemo_closefile 234 234 ! 235 #if defined key_ iomput235 #if defined key_xios 236 236 CALL xios_finalize ! end mpp communications with xios 237 237 IF( lk_oasis ) CALL cpl_finalize ! end coupling and mpp communications with OASIS … … 271 271 ! !-------------------------------------------------! 272 272 ! 273 #if defined key_ iomput273 #if defined key_xios 274 274 IF( Agrif_Root() ) THEN 275 275 IF( lk_oasis ) THEN -
NEMO/trunk/src/OCE/step.F90
r14227 r14239 97 97 ENDIF 98 98 IF( kstp == nit000 + 1 ) lk_agrif_fstep = .FALSE. 99 # if defined key_ iomput99 # if defined key_xios 100 100 IF( Agrif_Nbstepint() == 0 ) CALL iom_swap( cxios_context ) 101 101 # endif … … 384 384 IF( lk_oasis .AND. nstop == 0 ) CALL sbc_cpl_snd( kstp, Nbb, Nnn ) ! coupled mode : field exchanges 385 385 ! 386 #if defined key_ iomput386 #if defined key_xios 387 387 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 388 388 ! Finalize contextes if end of simulation or error detected -
NEMO/trunk/src/OCE/step_oce.F90
r14143 r14239 104 104 USE timing ! Timing 105 105 106 #if defined key_ iomput106 #if defined key_xios 107 107 USE xios ! I/O server 108 108 #endif -
NEMO/trunk/src/OCE/stpmlf.F90
r14227 r14239 105 105 ENDIF 106 106 IF( kstp == nit000 + 1 ) lk_agrif_fstep = .FALSE. 107 # if defined key_ iomput107 # if defined key_xios 108 108 IF( Agrif_Nbstepint() == 0 ) CALL iom_swap( cxios_context ) 109 109 # endif … … 408 408 IF( lk_oasis .AND. nstop == 0 ) CALL sbc_cpl_snd( kstp, Nbb, Nnn ) ! coupled mode : field exchanges 409 409 ! 410 #if defined key_ iomput410 #if defined key_xios 411 411 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 412 412 ! Finalize contextes if end of simulation or error detected -
NEMO/trunk/src/OFF/nemogcm.F90
r14229 r14239 57 57 USE mppini ! shared/distributed memory setting (mpp_init routine) 58 58 USE lib_mpp ! distributed memory computing 59 #if defined key_ iomput59 #if defined key_xios 60 60 USE xios ! xIOserver 61 61 #endif … … 175 175 END DO 176 176 ! 177 #if defined key_ iomput177 #if defined key_xios 178 178 CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF 179 179 #endif … … 194 194 CALL nemo_closefile 195 195 ! 196 #if defined key_ iomput196 #if defined key_xios 197 197 CALL xios_finalize ! end mpp communications with xios 198 198 #else … … 230 230 ! !-------------------------------------------------! 231 231 ! 232 #if defined key_ iomput232 #if defined key_xios 233 233 CALL xios_initialize( "for_xios_mpi_id", return_comm=ilocal_comm ) ! nemo local communicator given by xios 234 234 CALL mpp_start( ilocal_comm ) -
NEMO/trunk/src/SAO/nemogcm.F90
r14227 r14239 35 35 USE lbcnfd , ONLY : isendto, nsndto ! Setup of north fold exchanges 36 36 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 37 #if defined key_ iomput37 #if defined key_xios 38 38 USE xios ! xIOserver 39 39 #endif … … 107 107 ! !-------------------------------------------------! 108 108 ! 109 #if defined key_ iomput109 #if defined key_xios 110 110 IF( Agrif_Root() ) THEN 111 111 IF( lk_oasis ) THEN -
NEMO/trunk/src/SAS/diawri.F90
r12933 r14239 52 52 PUBLIC dia_wri_state 53 53 PUBLIC dia_wri_alloc ! Called by nemogcm module 54 #if ! defined key_ iomput54 #if ! defined key_xios 55 55 PUBLIC dia_wri_alloc_abl ! Called by sbcabl module (if ln_abl = .true.) 56 56 #endif … … 71 71 CONTAINS 72 72 73 # if defined key_ iomput74 !!---------------------------------------------------------------------- 75 !! 'key_ iomput' use IOM library73 # if defined key_xios 74 !!---------------------------------------------------------------------- 75 !! 'key_xios' use IOM library 76 76 !!---------------------------------------------------------------------- 77 77 INTEGER FUNCTION dia_wri_alloc() -
NEMO/trunk/src/SAS/nemogcm.F90
r14229 r14239 42 42 USE lbcnfd , ONLY : isendto, nsndto ! Setup of north fold exchanges 43 43 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 44 #if defined key_ iomput44 #if defined key_xios 45 45 USE xios ! xIOserver 46 46 #endif … … 185 185 CALL nemo_closefile 186 186 ! 187 #if defined key_ iomput187 #if defined key_xios 188 188 CALL xios_finalize ! end mpp communications with xios 189 189 IF( lk_oasis ) CALL cpl_finalize ! end coupling and mpp communications with OASIS … … 228 228 ! !-------------------------------------------------! 229 229 ! 230 #if defined key_ iomput230 #if defined key_xios 231 231 IF( Agrif_Root() ) THEN 232 232 IF( lk_oasis ) THEN -
NEMO/trunk/src/SAS/step.F90
r14227 r14239 32 32 USE lbclnk ! 33 33 USE timing ! Timing 34 #if defined key_ iomput34 #if defined key_xios 35 35 USE xios 36 36 #endif … … 84 84 ENDIF 85 85 IF( kstp == nit000 + 1 ) lk_agrif_fstep = .FALSE. 86 # if defined key_ iomput86 # if defined key_xios 87 87 IF( Agrif_Nbstepint() == 0 ) CALL iom_swap( cxios_context ) 88 88 # endif … … 156 156 IF( lk_oasis .AND. nstop == 0 ) CALL sbc_cpl_snd( kstp, Nbb, Nnn ) ! coupled mode : field exchanges if OASIS-coupled ice 157 157 158 #if defined key_ iomput158 #if defined key_xios 159 159 IF( kstp == nitrst ) THEN 160 160 IF(.NOT.lwxios) THEN -
NEMO/trunk/src/SWE/nemogcm.F90
r14229 r14239 135 135 CALL nemo_closefile 136 136 ! 137 #if defined key_ iomput137 #if defined key_xios 138 138 CALL xios_finalize ! end mpp communications with xios 139 139 #else … … 170 170 ! !-------------------------------------------------! 171 171 ! 172 #if defined key_ iomput172 #if defined key_xios 173 173 CALL xios_initialize( "for_xios_mpi_id", return_comm=ilocal_comm ) ! nemo local communicator given by xios 174 174 CALL mpp_start( ilocal_comm ) -
NEMO/trunk/src/SWE/stp_oce.F90
r14137 r14239 102 102 USE timing ! Timing 103 103 104 #if defined key_ iomput104 #if defined key_xios 105 105 USE xios ! I/O server 106 106 #endif -
NEMO/trunk/src/SWE/stpmlf.F90
r14137 r14239 231 231 232 232 ! 233 #if defined key_ iomput233 #if defined key_xios 234 234 IF( kstp == nitend .OR. indic < 0 ) THEN 235 235 !!st : cxios_context needed ? because opened earlier ??? -
NEMO/trunk/src/SWE/stprk3.F90
r14179 r14239 328 328 329 329 ! 330 #if defined key_ iomput330 #if defined key_xios 331 331 IF( kstp == nitend .OR. indic < 0 ) THEN 332 332 CALL iom_context_finalize( cxios_context ) -
NEMO/trunk/src/TOP/AGE/trcwri_age.F90
r12377 r14239 6 6 !! History : 1.0 ! 2009-05 (C. Ethe) Original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_top && defined key_ iomput8 #if defined key_top && defined key_xios 9 9 !!---------------------------------------------------------------------- 10 10 !! trc_wri_age : outputs of concentration fields -
NEMO/trunk/src/TOP/C14/trcwri_c14.F90
r13295 r14239 7 7 !! History : 2.0 ! 2015 (A. Mouchet) adapted code for C14 8 8 !!---------------------------------------------------------------------- 9 #if defined key_top && defined key_ iomput9 #if defined key_top && defined key_xios 10 10 !!---------------------------------------------------------------------- 11 11 !! trc_wri_c14 : outputs of ventilation fields -
NEMO/trunk/src/TOP/CFC/trcwri_cfc.F90
r12377 r14239 6 6 !! History : 1.0 ! 2009-05 (C. Ethe) Original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_top && defined key_ iomput8 #if defined key_top && defined key_xios 9 9 !!---------------------------------------------------------------------- 10 10 !! trc_wri_cfc : outputs of concentration fields -
NEMO/trunk/src/TOP/MY_TRC/trcwri_my_trc.F90
r12377 r14239 4 4 !! trc_wri_my_trc : outputs of concentration fields 5 5 !!====================================================================== 6 #if defined key_top && defined key_ iomput6 #if defined key_top && defined key_xios 7 7 !!---------------------------------------------------------------------- 8 8 !! History : ! 2007 (C. Ethe, G. Madec) Original code -
NEMO/trunk/src/TOP/PISCES/SED/sedrst.F90
r14039 r14239 84 84 CALL iom_open( TRIM(clpath)//TRIM(clname), numrsw, ldwrt = .TRUE., kdlev = jpksed, cdcomp = 'SED' ) 85 85 ELSE 86 #if defined key_ iomput86 #if defined key_xios 87 87 cw_sedrst_cxt = "rstws_"//TRIM(ADJUSTL(clkt)) 88 88 IF( TRIM(Agrif_CFixed()) == '0' ) THEN -
NEMO/trunk/src/TOP/PISCES/trcwri_pisces.F90
r13295 r14239 6 6 !! History : 1.0 ! 2009-05 (C. Ethe) Original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_top && defined key_ iomput8 #if defined key_top && defined key_xios 9 9 !!---------------------------------------------------------------------- 10 10 !! trc_wri_pisces : outputs of concentration fields -
NEMO/trunk/src/TOP/README.rst
r14229 r14239 62 62 Here below the list of preprocessing keys that applies to the TOP interface (beside ``key_top``): 63 63 64 ``key_ iomput``64 ``key_xios`` 65 65 use XIOS I/O 66 66 … … 320 320 .. code-block:: perl 321 321 322 bld::tool::fppkeys key_ iomputkey_top322 bld::tool::fppkeys key_xios key_top 323 323 324 324 the compilation with :file:`makenemo` will be executed through the following syntax … … 348 348 .. code-block:: perl 349 349 350 bld::tool::fppkeys key_ iomputkey_top350 bld::tool::fppkeys key_xios key_top 351 351 352 352 src::MYBGC::initialization <MYBGCPATH>/initialization … … 376 376 .. code-block:: perl 377 377 378 bld::tool::fppkeys key_zdftke key_dynspg_ts key_ iomputkey_top378 bld::tool::fppkeys key_zdftke key_dynspg_ts key_xios key_top 379 379 inc <MYBGCPATH>/MYBGC.fcm 380 380 -
NEMO/trunk/src/TOP/TRP/trdtrc_oce.F90
r10425 r14239 24 24 LOGICAL, DIMENSION(:), ALLOCATABLE :: ln_trdtrc !: large trends diagnostic to write or not (namelist) 25 25 26 # if defined key_trdtrc && defined key_ iomput26 # if defined key_trdtrc && defined key_xios 27 27 LOGICAL, PARAMETER :: lk_trdtrc = .TRUE. 28 28 # else -
NEMO/trunk/src/TOP/trcnam.F90
r14086 r14239 31 31 PUBLIC trc_nam ! called in trcini 32 32 33 TYPE(PTRACER), DIMENSION(jpmaxtrc), PUBLIC :: sn_tracer !: type of tracer for saving if not key_ iomput33 TYPE(PTRACER), DIMENSION(jpmaxtrc), PUBLIC :: sn_tracer !: type of tracer for saving if not key_xios 34 34 35 35 !!---------------------------------------------------------------------- -
NEMO/trunk/src/TOP/trcrst.F90
r14086 r14239 96 96 CALL iom_open( TRIM(clpath)//TRIM(clname), numrtw, ldwrt = .TRUE. ) 97 97 ELSE 98 #if defined key_ iomput98 #if defined key_xios 99 99 cw_toprst_cxt = "rstwt_"//TRIM(ADJUSTL(clkt)) 100 100 IF( TRIM(Agrif_CFixed()) == '0' ) THEN -
NEMO/trunk/src/TOP/trcwri.F90
r13237 r14239 6 6 !! History : 1.0 ! 2009-05 (C. Ethe) Original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_top && defined key_ iomput8 #if defined key_top && defined key_xios 9 9 !!---------------------------------------------------------------------- 10 10 !! 'key_top' TOP models -
NEMO/trunk/tests/C1D_ASICS/cpp_C1D_ASICS.fcm
r14229 r14239 1 bld::tool::fppkeys key_c1d key_qco key_ iomput1 bld::tool::fppkeys key_c1d key_qco key_xios -
NEMO/trunk/tests/CANAL/cpp_CANAL.fcm
r14229 r14239 1 bld::tool::fppkeys key_ iomputkey_qco1 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_ iomputkey_oasis3 key_qco1 bld::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_ iomputkey_agrif key_linssh1 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_ iomput1 bld::tool::fppkeys key_si3 key_qco key_xios -
NEMO/trunk/tests/ICB/MY_SRC/step.F90
r14227 r14239 98 98 ENDIF 99 99 IF( kstp == nit000 + 1 ) lk_agrif_fstep = .FALSE. 100 # if defined key_ iomput100 # if defined key_xios 101 101 IF( Agrif_Nbstepint() == 0 ) CALL iom_swap( cxios_context ) 102 102 # endif … … 150 150 ENDIF 151 151 ! 152 #if defined key_ iomput152 #if defined key_xios 153 153 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 154 154 ! Finalize contextes if end of simulation or error detected -
NEMO/trunk/tests/ICB/cpp_ICB.fcm
r14229 r14239 1 bld::tool::fppkeys key_ iomputkey_qco1 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_ iomputkey_linssh1 bld::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_ iomput1 bld::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_ iomput1 bld::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_ iomput1 bld::tool::fppkeys key_si3 key_linssh key_xios -
NEMO/trunk/tests/ISOMIP+/cpp_ISOMIP+.fcm
r14229 r14239 1 bld::tool::fppkeys key_ iomput1 bld::tool::fppkeys key_xios -
NEMO/trunk/tests/ISOMIP/cpp_ISOMIP.fcm
r14229 r14239 1 bld::tool::fppkeys key_ iomput1 bld::tool::fppkeys key_xios -
NEMO/trunk/tests/LOCK_EXCHANGE/cpp_LOCK_EXCHANGE.fcm
r14229 r14239 1 bld::tool::fppkeys key_qco key_ iomput1 bld::tool::fppkeys key_qco key_xios -
NEMO/trunk/tests/OVERFLOW/cpp_OVERFLOW.fcm
r14229 r14239 1 bld::tool::fppkeys key_qco key_ iomput1 bld::tool::fppkeys key_qco key_xios -
NEMO/trunk/tests/STATION_ASF/MY_SRC/diawri.F90
r14072 r14239 63 63 CONTAINS 64 64 65 #if defined key_ iomput66 !!---------------------------------------------------------------------- 67 !! 'key_ iomput' use IOM library65 #if defined key_xios 66 !!---------------------------------------------------------------------- 67 !! 'key_xios' use IOM library 68 68 !!---------------------------------------------------------------------- 69 69 INTEGER FUNCTION dia_wri_alloc() -
NEMO/trunk/tests/STATION_ASF/MY_SRC/nemogcm.F90
r14229 r14239 34 34 USE mppini ! shared/distributed memory setting (mpp_init routine) 35 35 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 36 #if defined key_ iomput36 #if defined key_xios 37 37 USE xios ! xIOserver 38 38 #endif … … 113 113 CALL nemo_closefile 114 114 ! 115 #if defined key_ iomput115 #if defined key_xios 116 116 CALL xios_finalize ! end mpp communications with xios 117 117 #else … … 148 148 ! !-------------------------------------------------! 149 149 ! 150 #if defined key_ iomput150 #if defined key_xios 151 151 IF( Agrif_Root() ) THEN 152 152 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 79 79 IF( lrst_oce ) CALL rst_write( kstp, Nbb, Nnn ) ! write output ocean restart file 80 80 ! 81 #if defined key_ iomput81 #if defined key_xios 82 82 IF( kstp == nitend .OR. nstop > 0 ) CALL xios_context_finalize() ! needed for XIOS 83 83 ! -
NEMO/trunk/tests/STATION_ASF/cpp_STATION_ASF.fcm
r14229 r14239 1 bld::tool::fppkeys key_si3 key_c1d key_qco key_ iomput1 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_ iomputkey_qco key_RK31 bld::tool::fppkeys key_xios key_qco key_RK3 -
NEMO/trunk/tests/TSUNAMI/MY_SRC/stpmlf.F90
r14225 r14239 98 98 ENDIF 99 99 IF( kstp == nit000 + 1 ) lk_agrif_fstep = .FALSE. 100 # if defined key_ iomput100 # if defined key_xios 101 101 IF( Agrif_Nbstepint() == 0 ) CALL iom_swap( cxios_context ) 102 102 # endif … … 181 181 ENDIF 182 182 183 #if defined key_ iomput183 #if defined key_xios 184 184 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 185 185 ! 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_ iomput1 bld::tool::fppkeys key_qco key_xios -
NEMO/trunk/tests/VORTEX/cpp_VORTEX.fcm
r14229 r14239 1 bld::tool::fppkeys key_ iomputkey_agrif key_qco1 bld::tool::fppkeys key_xios key_agrif key_qco -
NEMO/trunk/tests/WAD/cpp_WAD.fcm
r14229 r14239 1 bld::tool::fppkeys key_ iomputkey_qco1 bld::tool::fppkeys key_xios key_qco
Note: See TracChangeset
for help on using the changeset viewer.