Changeset 8662


Ignore:
Timestamp:
2017-10-26T13:15:54+02:00 (3 years ago)
Author:
andmirek
Message:

#1962 change variable names to follow NEMO coding convention

Location:
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC
Files:
19 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

    r8651 r8662  
    309309        IF(lwp) WRITE(numout,*) ' dia_hsb_rst at it= ', kt,' date= ', ndastp 
    310310        IF(lwp) WRITE(numout,*) '~~~~~~~' 
    311         IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    312         CALL iom_rstput( kt, nitrst, numrow, 'frc_v'   , frc_v, lxios = lwxios) 
    313         CALL iom_rstput( kt, nitrst, numrow, 'frc_t'   , frc_t, lxios = lwxios) 
    314         CALL iom_rstput( kt, nitrst, numrow, 'frc_s'   , frc_s, lxios = lwxios) 
     311        IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     312        CALL iom_rstput( kt, nitrst, numrow, 'frc_v'   , frc_v, ldxios = lwxios) 
     313        CALL iom_rstput( kt, nitrst, numrow, 'frc_t'   , frc_t, ldxios = lwxios) 
     314        CALL iom_rstput( kt, nitrst, numrow, 'frc_s'   , frc_s, ldxios = lwxios) 
    315315        IF( ln_linssh ) THEN 
    316            CALL iom_rstput( kt, nitrst, numrow, 'frc_wn_t', frc_wn_t, lxios = lwxios) 
    317            CALL iom_rstput( kt, nitrst, numrow, 'frc_wn_s', frc_wn_s, lxios = lwxios ) 
     316           CALL iom_rstput( kt, nitrst, numrow, 'frc_wn_t', frc_wn_t, ldxios = lwxios) 
     317           CALL iom_rstput( kt, nitrst, numrow, 'frc_wn_s', frc_wn_s, ldxios = lwxios ) 
    318318        ENDIF 
    319         CALL iom_rstput( kt, nitrst, numrow, 'surf_ini', surf_ini, lxios = lwxios )      ! ice sheet coupling 
    320         CALL iom_rstput( kt, nitrst, numrow, 'ssh_ini', ssh_ini(:,:), lxios = lwxios ) 
    321         CALL iom_rstput( kt, nitrst, numrow, 'e3t_ini', e3t_ini(:,:,:), lxios = lwxios ) 
    322         CALL iom_rstput( kt, nitrst, numrow, 'hc_loc_ini', hc_loc_ini(:,:,:), lxios = lwxios ) 
    323         CALL iom_rstput( kt, nitrst, numrow, 'sc_loc_ini', sc_loc_ini(:,:,:), lxios = lwxios ) 
     319        CALL iom_rstput( kt, nitrst, numrow, 'surf_ini', surf_ini, ldxios = lwxios )      ! ice sheet coupling 
     320        CALL iom_rstput( kt, nitrst, numrow, 'ssh_ini', ssh_ini(:,:), ldxios = lwxios ) 
     321        CALL iom_rstput( kt, nitrst, numrow, 'e3t_ini', e3t_ini(:,:,:), ldxios = lwxios ) 
     322        CALL iom_rstput( kt, nitrst, numrow, 'hc_loc_ini', hc_loc_ini(:,:,:), ldxios = lwxios ) 
     323        CALL iom_rstput( kt, nitrst, numrow, 'sc_loc_ini', sc_loc_ini(:,:,:), ldxios = lwxios ) 
    324324        IF( ln_linssh ) THEN 
    325            CALL iom_rstput( kt, nitrst, numrow, 'ssh_hc_loc_ini', ssh_hc_loc_ini(:,:), lxios = lwxios ) 
    326            CALL iom_rstput( kt, nitrst, numrow, 'ssh_sc_loc_ini', ssh_sc_loc_ini(:,:), lxios = lwxios ) 
     325           CALL iom_rstput( kt, nitrst, numrow, 'ssh_hc_loc_ini', ssh_hc_loc_ini(:,:), ldxios = lwxios ) 
     326           CALL iom_rstput( kt, nitrst, numrow, 'ssh_sc_loc_ini', ssh_sc_loc_ini(:,:), ldxios = lwxios ) 
    327327        ENDIF 
    328328        ! 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r8661 r8662  
    408408         ENDIF 
    409409         ! calendar control 
    410          IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    411          CALL iom_rstput( kt, nitrst, numrow, 'kt'     , REAL( kt    , wp), lxios = lwxios )   ! time-step 
    412          CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp), lxios = lwxios )   ! date 
    413          CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj, lxios = lwxios            )   ! number of elapsed days since 
     410         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     411         CALL iom_rstput( kt, nitrst, numrow, 'kt'     , REAL( kt    , wp), ldxios = lwxios )   ! time-step 
     412         CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp), ldxios = lwxios )   ! date 
     413         CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj, ldxios = lwxios            )   ! number of elapsed days since 
    414414         !                                                                     ! the begining of the run [s] 
    415     CALL iom_rstput( kt, nitrst, numrow, 'ntime'  , REAL( nn_time0, wp), lxios = lwxios ) ! time 
     415    CALL iom_rstput( kt, nitrst, numrow, 'ntime'  , REAL( nn_time0, wp), ldxios = lwxios ) ! time 
    416416         IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    417417      ENDIF 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r8661 r8662  
    4747   USE wrk_nemo       ! Memory Allocation 
    4848   USE timing         ! Timing 
    49    USE iom_def, ONLY:lwxios, wxioso, rst_wfields ! write restart flag and output type 
     49   USE iom_def, ONLY:lwxios, nxioso, rst_wfields ! write restart flag and output type 
    5050   USE iom, ONLY : iom_set_rst_vars, iom_set_rstw_core 
    5151 
     
    428428!set output file type for XIOS based on NEMO namelist  
    429429         if (nn_wxios > 0) lwxios = .TRUE.  
    430          wxioso = nn_wxios 
     430         nxioso = nn_wxios 
    431431      ELSE 
    432432         IF(lwp) THEN 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r8651 r8662  
    947947         !                                   ! =================== 
    948948         IF(lwp) WRITE(numout,*) '---- dom_vvl_rst ----' 
    949          IF( lwxios ) CALL iom_swap(      wxios_context          ) 
     949         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
    950950         !                                           ! --------- ! 
    951951         !                                           ! all cases ! 
    952952         !                                           ! --------- ! 
    953          CALL iom_rstput( kt, nitrst, numrow, 'e3t_b', e3t_b(:,:,:), lxios = lwxios ) 
    954          CALL iom_rstput( kt, nitrst, numrow, 'e3t_n', e3t_n(:,:,:), lxios = lwxios ) 
     953         CALL iom_rstput( kt, nitrst, numrow, 'e3t_b', e3t_b(:,:,:), ldxios = lwxios ) 
     954         CALL iom_rstput( kt, nitrst, numrow, 'e3t_n', e3t_n(:,:,:), ldxios = lwxios ) 
    955955         !                                           ! ----------------------- ! 
    956956         IF( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN  ! z_tilde and layer cases ! 
    957957            !                                        ! ----------------------- ! 
    958             CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_b', tilde_e3t_b(:,:,:), lxios = lwxios) 
    959             CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_n', tilde_e3t_n(:,:,:), lxios = lwxios) 
     958            CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_b', tilde_e3t_b(:,:,:), ldxios = lwxios) 
     959            CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_n', tilde_e3t_n(:,:,:), ldxios = lwxios) 
    960960         END IF 
    961961         !                                           ! -------------!     
    962962         IF( ln_vvl_ztilde ) THEN                    ! z_tilde case ! 
    963963            !                                        ! ------------ ! 
    964             CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:), lxios = lwxios) 
     964            CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:), ldxios = lwxios) 
    965965         ENDIF 
    966966         ! 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r8661 r8662  
    12181218      ! 
    12191219      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN 
    1220          IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    1221          CALL iom_rstput( kt, nitrst, numrow, 'ub2_b'   , ub2_b  (:,:), lxios = lwxios ) 
    1222          CALL iom_rstput( kt, nitrst, numrow, 'vb2_b'   , vb2_b  (:,:), lxios = lwxios ) 
     1220         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     1221         CALL iom_rstput( kt, nitrst, numrow, 'ub2_b'   , ub2_b  (:,:), ldxios = lwxios ) 
     1222         CALL iom_rstput( kt, nitrst, numrow, 'vb2_b'   , vb2_b  (:,:), ldxios = lwxios ) 
    12231223         ! 
    12241224         IF (.NOT.ln_bt_av) THEN 
    1225             CALL iom_rstput( kt, nitrst, numrow, 'sshbb_e'  , sshbb_e(:,:), lxios = lwxios )  
    1226             CALL iom_rstput( kt, nitrst, numrow, 'ubb_e'    ,   ubb_e(:,:), lxios = lwxios ) 
    1227             CALL iom_rstput( kt, nitrst, numrow, 'vbb_e'    ,   vbb_e(:,:), lxios = lwxios ) 
    1228             CALL iom_rstput( kt, nitrst, numrow, 'sshb_e'   ,  sshb_e(:,:), lxios = lwxios ) 
    1229             CALL iom_rstput( kt, nitrst, numrow, 'ub_e'     ,    ub_e(:,:), lxios = lwxios ) 
    1230             CALL iom_rstput( kt, nitrst, numrow, 'vb_e'     ,    vb_e(:,:), lxios = lwxios ) 
     1225            CALL iom_rstput( kt, nitrst, numrow, 'sshbb_e'  , sshbb_e(:,:), ldxios = lwxios )  
     1226            CALL iom_rstput( kt, nitrst, numrow, 'ubb_e'    ,   ubb_e(:,:), ldxios = lwxios ) 
     1227            CALL iom_rstput( kt, nitrst, numrow, 'vbb_e'    ,   vbb_e(:,:), ldxios = lwxios ) 
     1228            CALL iom_rstput( kt, nitrst, numrow, 'sshb_e'   ,  sshb_e(:,:), ldxios = lwxios ) 
     1229            CALL iom_rstput( kt, nitrst, numrow, 'ub_e'     ,    ub_e(:,:), ldxios = lwxios ) 
     1230            CALL iom_rstput( kt, nitrst, numrow, 'vb_e'     ,    vb_e(:,:), ldxios = lwxios ) 
    12311231         ENDIF 
    12321232#if defined key_agrif 
    12331233         ! Save time integrated fluxes 
    12341234         IF ( .NOT.Agrif_Root() ) THEN 
    1235             CALL iom_rstput( kt, nitrst, numrow, 'ub2_i_b'  , ub2_i_b(:,:), lxios = lwxios ) 
    1236             CALL iom_rstput( kt, nitrst, numrow, 'vb2_i_b'  , vb2_i_b(:,:), lxios = lwxios ) 
     1235            CALL iom_rstput( kt, nitrst, numrow, 'ub2_i_b'  , ub2_i_b(:,:), ldxios = lwxios ) 
     1236            CALL iom_rstput( kt, nitrst, numrow, 'vb2_i_b'  , vb2_i_b(:,:), ldxios = lwxios ) 
    12371237         ENDIF 
    12381238#endif 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r8661 r8662  
    151151   LOGICAL       ::   lsp_area = .TRUE.     !: to make a control print over a specific area 
    152152   CHARACTER(lc) ::   cxios_context         !: context name used in xios 
    153    CHARACTER(lc) ::   wxios_context         !: context name used in xios to write restart file 
     153   CHARACTER(lc) ::   cwxios_context        !: context name used in xios to write restart file 
    154154 
    155155   !!---------------------------------------------------------------------- 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r8661 r8662  
    109109      CHARACTER(len=lc) :: clname 
    110110      INTEGER           :: ji, jkmin 
    111       LOGICAL :: lrst_context              ! is context related to restart 
     111      LOGICAL :: llrst_context              ! is context related to restart 
    112112      ! 
    113113      REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zt_bnds, zw_bnds 
     
    120120      CALL xios_context_initialize(TRIM(clname), mpi_comm_opa) 
    121121      CALL iom_swap( cdname ) 
    122       lrst_context =  (TRIM(cdname) == TRIM(wxios_context)) 
     122      llrst_context =  (TRIM(cdname) == TRIM(cwxios_context)) 
    123123 
    124124      ! Calendar type is now defined in xml file  
     
    133133 
    134134      ! horizontal grid definition 
    135       IF(.NOT.lrst_context) CALL set_scalar 
     135      IF(.NOT.llrst_context) CALL set_scalar 
    136136 
    137137      IF( TRIM(cdname) == TRIM(cxios_context) ) THEN   
     
    165165         CALL dom_grid_glo   ! Return to parent grid domain 
    166166         ! 
    167          IF( ln_cfmeta .AND. TRIM(cdname) .NE. TRIM(wxios_context)) THEN   ! Add additional grid metadata 
     167         IF( ln_cfmeta .AND. TRIM(cdname) .NE. TRIM(cwxios_context)) THEN   ! Add additional grid metadata 
    168168            CALL iom_set_domain_attr("grid_T", area = e1e2t_crs(nldi:nlei, nldj:nlej)) 
    169169            CALL iom_set_domain_attr("grid_U", area = e1u_crs(nldi:nlei, nldj:nlej) * e2u_crs(nldi:nlei, nldj:nlej)) 
     
    178178 
    179179      ! vertical grid definition 
    180       IF(.NOT.lrst_context) THEN 
     180      IF(.NOT.llrst_context) THEN 
    181181          CALL iom_set_axis_attr( "deptht", paxis = gdept_1d ) 
    182182          CALL iom_set_axis_attr( "depthu", paxis = gdept_1d ) 
     
    209209      ENDIF    
    210210      ! automatic definitions of some of the xml attributs 
    211       IF( TRIM(cdname) == TRIM(wxios_context) ) THEN 
     211      IF( TRIM(cdname) == TRIM(cwxios_context) ) THEN 
    212212!set names of the fields in restart file IF using XIOS to read/write data 
    213213       CALL iom_set_rst_context() 
     
    235235   CHARACTER(len = *), INTENT(IN) :: field 
    236236   INTEGER :: i 
    237    LOGICAL :: is_set 
    238  
    239    is_set = .FALSE. 
     237   LOGICAL :: llis_set 
     238 
     239   llis_set = .FALSE. 
    240240 
    241241   DO i = 1, max_rst_fields 
    242242       IF(TRIM(rst_wfields(i)%vname) == field) THEN  
    243243          rst_wfields(i)%active = .TRUE. 
    244           is_set = .TRUE. 
     244          llis_set = .TRUE. 
    245245          EXIT 
    246246       ENDIF 
    247247   ENDDO 
    248248!Warn if variable is not in defined in rst_wfields 
    249    IF(.NOT.is_set) THEN 
    250       IF(lwp) write(numout,*) 'E R R O R in iom_set_rstw_var_active: variable ', field ,' is available for writing but not defined'  
     249   IF(.NOT.llis_set) THEN 
     250      IF(lwp) THEN 
     251         write(numout,cform_err) 
     252         write(numout,*) 'iom_set_rstw_var_active: variable ', field ,' is available for writing but not defined'  
     253      ENDIF 
    251254        nstop = nstop + 1 
    252255   ENDIF 
     
    399402 
    400403 
    401    SUBROUTINE iom_set_rstw_active(rst_file) 
     404   SUBROUTINE iom_set_rstw_active(cdrst_file) 
    402405!sets enabled = .TRUE. for each field in restart file 
    403    CHARACTER(len=*) :: rst_file 
     406   CHARACTER(len=*) :: cdrst_file 
    404407#if defined key_iomput 
    405408   TYPE(xios_field) :: field_hdl 
     
    410413 
    411414!set name of the restart file and enable available fields 
    412         if(lwp) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',rst_file 
     415        IF(lwp) WRITE(numout,*) 'Setting restart filename (for XIOS write) to: ',cdrst_file 
    413416        CALL xios_get_handle("file_definition", filegroup_hdl ) 
    414417        CALL xios_add_child(filegroup_hdl, file_hdl, 'wrestart') 
    415         IF(wxioso.eq.1) THEN  
     418        IF(nxioso.eq.1) THEN  
    416419           CALL xios_set_file_attr( "wrestart", type="one_file", enabled=.TRUE.,&  
    417420                                    mode="write", output_freq=xios_timestep)  
    418            if(lwp) write(numout,*) 'OPEN ', trim(rst_file), ' in one_file mode'  
     421           if(lwp) write(numout,*) 'OPEN ', trim(cdrst_file), ' in one_file mode'  
    419422        ELSE   
    420423           CALL xios_set_file_attr( "wrestart", type="multiple_file", enabled=.TRUE.,&  
    421424                                    mode="write", output_freq=xios_timestep)  
    422            if(lwp) write(numout,*) 'OPEN ', trim(rst_file), ' in multiple_file mode'  
     425           if(lwp) write(numout,*) 'OPEN ', trim(cdrst_file), ' in multiple_file mode'  
    423426        ENDIF  
    424         CALL xios_set_file_attr( "wrestart", name=trim(rst_file)) 
     427        CALL xios_set_file_attr( "wrestart", name=trim(cdrst_file)) 
    425428!defin files for restart context 
    426429        DO i = 1, max_rst_fields 
     
    13691372   !!                   INTERFACE iom_rstput 
    13701373   !!---------------------------------------------------------------------- 
    1371    SUBROUTINE iom_rp0d( kt, kwrite, kiomid, cdvar, pvar, ktype, lxios ) 
     1374   SUBROUTINE iom_rp0d( kt, kwrite, kiomid, cdvar, pvar, ktype, ldxios ) 
    13721375      INTEGER         , INTENT(in)                         ::   kt       ! ocean time-step 
    13731376      INTEGER         , INTENT(in)                         ::   kwrite   ! writing time-step 
     
    13761379      REAL(wp)        , INTENT(in)                         ::   pvar     ! written field 
    13771380      INTEGER         , INTENT(in), OPTIONAL               ::   ktype    ! variable external type 
    1378       LOGICAL, OPTIONAL :: lxios   ! xios write flag 
    1379       LOGICAL :: lx                ! local xios write flag 
     1381      LOGICAL, OPTIONAL :: ldxios   ! xios write flag 
     1382      LOGICAL :: llx                ! local xios write flag 
    13801383      INTEGER :: ivid   ! variable id 
    13811384 
    1382       lx = .FALSE. 
    1383       IF(PRESENT(lxios)) lx = lxios 
    1384       IF( lx ) THEN 
     1385      llx = .FALSE. 
     1386      IF(PRESENT(ldxios)) llx = ldxios 
     1387      IF( llx ) THEN 
    13851388#ifdef key_iomput 
    13861389      IF( kt == kwrite ) THEN 
     
    14031406   END SUBROUTINE iom_rp0d 
    14041407 
    1405    SUBROUTINE iom_rp1d( kt, kwrite, kiomid, cdvar, pvar, ktype, lxios ) 
     1408   SUBROUTINE iom_rp1d( kt, kwrite, kiomid, cdvar, pvar, ktype, ldxios ) 
    14061409      INTEGER         , INTENT(in)                         ::   kt       ! ocean time-step 
    14071410      INTEGER         , INTENT(in)                         ::   kwrite   ! writing time-step 
     
    14101413      REAL(wp)        , INTENT(in), DIMENSION(          :) ::   pvar     ! written field 
    14111414      INTEGER         , INTENT(in), OPTIONAL               ::   ktype    ! variable external type 
    1412       LOGICAL, OPTIONAL :: lxios   ! xios write flag 
    1413       LOGICAL :: lx                ! local xios write flag 
     1415      LOGICAL, OPTIONAL :: ldxios   ! xios write flag 
     1416      LOGICAL :: llx                ! local xios write flag 
    14141417      INTEGER :: ivid   ! variable id 
    14151418 
    1416       lx = .FALSE. 
    1417       IF(PRESENT(lxios)) lx = lxios 
    1418       IF( lx ) THEN 
     1419      llx = .FALSE. 
     1420      IF(PRESENT(ldxios)) llx = ldxios 
     1421      IF( llx ) THEN 
    14191422#ifdef key_iomput 
    14201423      IF( kt == kwrite ) THEN 
     
    14371440   END SUBROUTINE iom_rp1d 
    14381441 
    1439    SUBROUTINE iom_rp2d( kt, kwrite, kiomid, cdvar, pvar, ktype, lxios ) 
     1442   SUBROUTINE iom_rp2d( kt, kwrite, kiomid, cdvar, pvar, ktype, ldxios ) 
    14401443      INTEGER         , INTENT(in)                         ::   kt       ! ocean time-step 
    14411444      INTEGER         , INTENT(in)                         ::   kwrite   ! writing time-step 
     
    14441447      REAL(wp)        , INTENT(in), DIMENSION(:,    :    ) ::   pvar     ! written field 
    14451448      INTEGER         , INTENT(in), OPTIONAL               ::   ktype    ! variable external type 
    1446       LOGICAL, OPTIONAL :: lxios   ! xios write flag 
    1447       LOGICAL :: lx 
     1449      LOGICAL, OPTIONAL :: ldxios   ! xios write flag 
     1450      LOGICAL :: llx 
    14481451      INTEGER :: ivid   ! variable id 
    14491452 
    1450       lx = .FALSE. 
    1451       IF(PRESENT(lxios)) lx = lxios 
    1452       IF( lx ) THEN 
     1453      llx = .FALSE. 
     1454      IF(PRESENT(ldxios)) llx = ldxios 
     1455      IF( llx ) THEN 
    14531456#ifdef key_iomput 
    14541457      IF( kt == kwrite ) THEN 
     
    14711474   END SUBROUTINE iom_rp2d 
    14721475 
    1473    SUBROUTINE iom_rp3d( kt, kwrite, kiomid, cdvar, pvar, ktype, lxios ) 
     1476   SUBROUTINE iom_rp3d( kt, kwrite, kiomid, cdvar, pvar, ktype, ldxios ) 
    14741477      INTEGER         , INTENT(in)                         ::   kt       ! ocean time-step 
    14751478      INTEGER         , INTENT(in)                         ::   kwrite   ! writing time-step 
     
    14781481      REAL(wp)        , INTENT(in),       DIMENSION(:,:,:) ::   pvar     ! written field 
    14791482      INTEGER         , INTENT(in), OPTIONAL               ::   ktype    ! variable external type 
    1480       LOGICAL, OPTIONAL :: lxios   ! xios write flag 
    1481       LOGICAL :: lx                 ! local xios write flag 
     1483      LOGICAL, OPTIONAL :: ldxios   ! xios write flag 
     1484      LOGICAL :: llx                 ! local xios write flag 
    14821485      INTEGER :: ivid   ! variable id 
    14831486 
    1484       lx = .FALSE. 
    1485       IF(PRESENT(lxios)) lx = lxios 
    1486       IF( lx ) THEN 
     1487      llx = .FALSE. 
     1488      IF(PRESENT(ldxios)) llx = ldxios 
     1489      IF( llx ) THEN 
    14871490#ifdef key_iomput 
    14881491      IF( kt == kwrite ) THEN 
     
    16921695 
    16931696 
    1694    SUBROUTINE set_grid( cdgrd, plon, plat, lxios ) 
     1697   SUBROUTINE set_grid( cdgrd, plon, plat, ldxios ) 
    16951698      !!---------------------------------------------------------------------- 
    16961699      !!                     ***  ROUTINE set_grid  *** 
     
    17051708      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zmask 
    17061709      INTEGER  :: ni,nj 
    1707       LOGICAL, INTENT(IN) :: lxios 
     1710      LOGICAL, INTENT(IN) :: ldxios 
    17081711       
    17091712      ni=nlei-nldi+1 ; nj=nlej-nldj+1 
     
    17111714      CALL iom_set_domain_attr("grid_"//cdgrd, ni_glo=jpiglo, nj_glo=jpjglo, ibegin=nimpp+nldi-2, jbegin=njmpp+nldj-2, ni=ni, nj=nj) 
    17121715      CALL iom_set_domain_attr("grid_"//cdgrd, data_dim=2, data_ibegin = 1-nldi, data_ni = jpi, data_jbegin = 1-nldj, data_nj = jpj) 
    1713       if(.NOT.lxios) CALL iom_set_domain_attr("grid_"//cdgrd, lonvalue = RESHAPE(plon(nldi:nlei, nldj:nlej),(/ ni*nj /)),   & 
     1716      if(.NOT.ldxios) CALL iom_set_domain_attr("grid_"//cdgrd, lonvalue = RESHAPE(plon(nldi:nlei, nldj:nlej),(/ ni*nj /)),   & 
    17141717         &                                     latvalue = RESHAPE(plat(nldi:nlei, nldj:nlej),(/ ni*nj /)))   
    17151718 
    1716       IF ( ln_mskland.AND.(.NOT.lxios) ) THEN 
     1719      IF ( ln_mskland.AND.(.NOT.ldxios) ) THEN 
    17171720         ! mask land points, keep values on coast line -> specific mask for U, V and W points 
    17181721         SELECT CASE ( cdgrd ) 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90

    r8644 r8662  
    4848!XIOS write restart    
    4949   LOGICAL, PUBLIC            ::   lwxios          !: read single file restart using XIOS 
    50    INTEGER, PUBLIC            ::   wxioso          !: type of restart file when writing using XIOS 1 - single, 2 - multiple 
     50   INTEGER, PUBLIC            ::   nxioso          !: type of restart file when writing using XIOS 1 - single, 2 - multiple 
    5151 
    5252 
     
    7171   END TYPE file_descriptor 
    7272   TYPE(file_descriptor), DIMENSION(jpmax_files), PUBLIC ::   iom_file !: array containing the info for all opened files 
    73  
    7473   INTEGER, PARAMETER, PUBLIC                   :: max_rst_fields = 95   
    75 !$AGRIF_END_DO_NOT_TREAT 
    76  
    7774   TYPE, PUBLIC :: RST_FIELD   
    7875    CHARACTER(len=30) :: vname = "NO_NAME" ! names of variables in restart file 
     
    8077    LOGICAL           :: active =.FALSE. ! for restart write only: true - write field, false do not write field 
    8178   END TYPE RST_FIELD 
     79!$AGRIF_END_DO_NOT_TREAT 
     80 
    8281   TYPE(RST_FIELD), PUBLIC :: rst_wfields(max_rst_fields) 
    8382 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r8661 r8662  
    6262      CHARACTER(LEN=50)   ::   clname   ! ocean output restart file name 
    6363      CHARACTER(lc)       ::   clpath   ! full path to ocean output restart file 
    64       CHARACTER(LEN=52)   ::   dlname   ! ocean output restart file name including prefix for AGRIF 
     64      CHARACTER(LEN=52)   ::   clpname   ! ocean output restart file name including prefix for AGRIF 
    6565      !!---------------------------------------------------------------------- 
    6666      ! 
     
    111111               CALL iom_open( TRIM(clpath)//TRIM(clname), numrow, ldwrt = .TRUE., kiolib = jprstlib ) 
    112112            ELSE 
    113                wxios_context = "rstw_"//TRIM(ADJUSTL(clkt)) 
     113               cwxios_context = "rstw_"//TRIM(ADJUSTL(clkt)) 
    114114               IF( TRIM(Agrif_CFixed()) == '0' ) THEN 
    115                   dlname = clname 
     115                  clpname = clname 
    116116               ELSE 
    117                   dlname = TRIM(Agrif_CFixed())//"_"//clname    
     117                  clpname = TRIM(Agrif_CFixed())//"_"//clname    
    118118               ENDIF 
    119                CALL iom_init( wxios_context, TRIM(clpath)//TRIM(dlname)) 
     119               CALL iom_init( cwxios_context, TRIM(clpath)//TRIM(clpname)) 
    120120               CALL xios_update_calendar(nitrst) 
    121121               CALL iom_swap(      cxios_context          ) 
     
    139139      INTEGER, INTENT(in) ::   kt   ! ocean time-step 
    140140      !!---------------------------------------------------------------------- 
    141                      IF(lwxios) CALL iom_swap(      wxios_context          ) 
    142                      CALL iom_rstput( kt, nitrst, numrow, 'rdt'    , rdt       , lxios = lwxios)   ! dynamics time step 
     141                     IF(lwxios) CALL iom_swap(      cwxios_context          ) 
     142                     CALL iom_rstput( kt, nitrst, numrow, 'rdt'    , rdt       , ldxios = lwxios)   ! dynamics time step 
    143143 
    144144      IF ( .NOT. ln_diurnal_only ) THEN 
    145                      CALL iom_rstput( kt, nitrst, numrow, 'ub'     , ub, lxios = lwxios        )     ! before fields 
    146                      CALL iom_rstput( kt, nitrst, numrow, 'vb'     , vb, lxios = lwxios        ) 
    147                      CALL iom_rstput( kt, nitrst, numrow, 'tb'     , tsb(:,:,:,jp_tem), lxios = lwxios ) 
    148                      CALL iom_rstput( kt, nitrst, numrow, 'sb'     , tsb(:,:,:,jp_sal), lxios = lwxios ) 
    149                      CALL iom_rstput( kt, nitrst, numrow, 'sshb'   , sshb, lxios = lwxios      ) 
     145                     CALL iom_rstput( kt, nitrst, numrow, 'ub'     , ub, ldxios = lwxios        )     ! before fields 
     146                     CALL iom_rstput( kt, nitrst, numrow, 'vb'     , vb, ldxios = lwxios        ) 
     147                     CALL iom_rstput( kt, nitrst, numrow, 'tb'     , tsb(:,:,:,jp_tem), ldxios = lwxios ) 
     148                     CALL iom_rstput( kt, nitrst, numrow, 'sb'     , tsb(:,:,:,jp_sal), ldxios = lwxios ) 
     149                     CALL iom_rstput( kt, nitrst, numrow, 'sshb'   , sshb, ldxios = lwxios      ) 
    150150                     ! 
    151                      CALL iom_rstput( kt, nitrst, numrow, 'un'     , un, lxios = lwxios        )     ! now fields 
    152                      CALL iom_rstput( kt, nitrst, numrow, 'vn'     , vn, lxios = lwxios        ) 
    153                      CALL iom_rstput( kt, nitrst, numrow, 'tn'     , tsn(:,:,:,jp_tem), lxios = lwxios ) 
    154                      CALL iom_rstput( kt, nitrst, numrow, 'sn'     , tsn(:,:,:,jp_sal), lxios = lwxios ) 
    155                      CALL iom_rstput( kt, nitrst, numrow, 'sshn'   , sshn, lxios = lwxios      ) 
    156                      CALL iom_rstput( kt, nitrst, numrow, 'rhop'   , rhop, lxios = lwxios      ) 
     151                     CALL iom_rstput( kt, nitrst, numrow, 'un'     , un, ldxios = lwxios        )     ! now fields 
     152                     CALL iom_rstput( kt, nitrst, numrow, 'vn'     , vn, ldxios = lwxios        ) 
     153                     CALL iom_rstput( kt, nitrst, numrow, 'tn'     , tsn(:,:,:,jp_tem), ldxios = lwxios ) 
     154                     CALL iom_rstput( kt, nitrst, numrow, 'sn'     , tsn(:,:,:,jp_sal), ldxios = lwxios ) 
     155                     CALL iom_rstput( kt, nitrst, numrow, 'sshn'   , sshn, ldxios = lwxios      ) 
     156                     CALL iom_rstput( kt, nitrst, numrow, 'rhop'   , rhop, ldxios = lwxios      ) 
    157157                  ! extra variable needed for the ice sheet coupling 
    158158                  IF ( ln_iscpl ) THEN  
    159                      CALL iom_rstput( kt, nitrst, numrow, 'tmask'  , tmask, lxios = lwxios ) ! need to extrapolate T/S 
    160                      CALL iom_rstput( kt, nitrst, numrow, 'umask'  , umask, lxios = lwxios ) ! need to correct barotropic velocity 
    161                      CALL iom_rstput( kt, nitrst, numrow, 'vmask'  , vmask, lxios = lwxios ) ! need to correct barotropic velocity 
    162                      CALL iom_rstput( kt, nitrst, numrow, 'smask'  , ssmask, lxios = lwxios) ! need to correct barotropic velocity 
    163                      CALL iom_rstput( kt, nitrst, numrow, 'e3t_n', e3t_n(:,:,:), lxios = lwxios )   ! need to compute temperature correction 
    164                      CALL iom_rstput( kt, nitrst, numrow, 'e3u_n', e3u_n(:,:,:), lxios = lwxios )   ! need to compute bt conservation 
    165                      CALL iom_rstput( kt, nitrst, numrow, 'e3v_n', e3v_n(:,:,:), lxios = lwxios )   ! need to compute bt conservation 
    166                      CALL iom_rstput( kt, nitrst, numrow, 'gdepw_n', gdepw_n(:,:,:), lxios = lwxios ) ! need to compute extrapolation if vvl 
     159                     CALL iom_rstput( kt, nitrst, numrow, 'tmask'  , tmask, ldxios = lwxios ) ! need to extrapolate T/S 
     160                     CALL iom_rstput( kt, nitrst, numrow, 'umask'  , umask, ldxios = lwxios ) ! need to correct barotropic velocity 
     161                     CALL iom_rstput( kt, nitrst, numrow, 'vmask'  , vmask, ldxios = lwxios ) ! need to correct barotropic velocity 
     162                     CALL iom_rstput( kt, nitrst, numrow, 'smask'  , ssmask, ldxios = lwxios) ! need to correct barotropic velocity 
     163                     CALL iom_rstput( kt, nitrst, numrow, 'e3t_n', e3t_n(:,:,:), ldxios = lwxios )   ! need to compute temperature correction 
     164                     CALL iom_rstput( kt, nitrst, numrow, 'e3u_n', e3u_n(:,:,:), ldxios = lwxios )   ! need to compute bt conservation 
     165                     CALL iom_rstput( kt, nitrst, numrow, 'e3v_n', e3v_n(:,:,:), ldxios = lwxios )   ! need to compute bt conservation 
     166                     CALL iom_rstput( kt, nitrst, numrow, 'gdepw_n', gdepw_n(:,:,:), ldxios = lwxios ) ! need to compute extrapolation if vvl 
    167167                  END IF 
    168168      ENDIF 
    169169       
    170       IF (ln_diurnal) CALL iom_rstput( kt, nitrst, numrow, 'Dsst', x_dsst, lxios = lwxios )   
     170      IF (ln_diurnal) CALL iom_rstput( kt, nitrst, numrow, 'Dsst', x_dsst, ldxios = lwxios )   
    171171      IF(lwxios) CALL iom_swap(      cxios_context          ) 
    172172      IF( kt == nitrst ) THEN 
     
    174174            CALL iom_close( numrow )     ! close the restart file (only at last time step) 
    175175         ELSE 
    176             CALL iom_context_finalize(      wxios_context          ) 
     176            CALL iom_context_finalize(      cwxios_context          ) 
    177177         ENDIF 
    178178!!gm         IF( .NOT. lk_trdmld )   lrst_oce = .FALSE. 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

    r8630 r8662  
    13431343               &                  '   data type: '      ,       sdf(jf)%cltype      ,   & 
    13441344               &                  '   land/sea mask:'   , TRIM( sdf(jf)%lsmname    ) 
     1345            call flush(numout) 
    13451346         END DO 
    13461347      ENDIF 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

    r8651 r8662  
    169169         IF(lwp) WRITE(numout,*) 'sbc_apr : ssh_ib written in ocean restart file at it= ', kt,' date= ', ndastp 
    170170         IF(lwp) WRITE(numout,*) '~~~~' 
    171          IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    172          CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib, lxios = lwxios ) 
     171         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     172         CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib, ldxios = lwxios ) 
    173173         IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    174174      ENDIF 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

    r8651 r8662  
    233233               &                    'at it= ', kt,' date= ', ndastp 
    234234            IF(lwp) WRITE(numout,*) '~~~~' 
    235             IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    236                CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:), lxios = lwxios ) 
    237                CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem), lxios = lwxios ) 
    238                CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal), lxios = lwxios ) 
     235            IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     236               CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:), ldxios = lwxios ) 
     237               CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem), ldxios = lwxios ) 
     238               CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal), ldxios = lwxios ) 
    239239            IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    240240         ENDIF 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r8651 r8662  
    496496            &                    'at it= ', kt,' date= ', ndastp 
    497497         IF(lwp) WRITE(numout,*) '~~~~' 
    498          IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    499          CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau, lxios = lwxios ) 
    500          CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau, lxios = lwxios ) 
    501          CALL iom_rstput( kt, nitrst, numrow, 'qns_b'  , qns, lxios = lwxios  ) 
     498         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     499         CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau, ldxios = lwxios ) 
     500         CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau, ldxios = lwxios ) 
     501         CALL iom_rstput( kt, nitrst, numrow, 'qns_b'  , qns, ldxios = lwxios  ) 
    502502         ! The 3D heat content due to qsr forcing is treated in traqsr 
    503503         ! CALL iom_rstput( kt, nitrst, numrow, 'qsr_b'  , qsr  ) 
    504          CALL iom_rstput( kt, nitrst, numrow, 'emp_b'  , emp, lxios = lwxios  ) 
    505          CALL iom_rstput( kt, nitrst, numrow, 'sfx_b'  , sfx, lxios = lwxios  ) 
     504         CALL iom_rstput( kt, nitrst, numrow, 'emp_b'  , emp, ldxios = lwxios  ) 
     505         CALL iom_rstput( kt, nitrst, numrow, 'sfx_b'  , sfx, ldxios = lwxios  ) 
    506506         IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    507507      ENDIF 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r8651 r8662  
    165165            &                    'at it= ', kt,' date= ', ndastp 
    166166         IF(lwp) WRITE(numout,*) '~~~~' 
    167          IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    168          CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf, lxios = lwxios ) 
    169          CALL iom_rstput( kt, nitrst, numrow, 'rnf_hc_b', rnf_tsc(:,:,jp_tem), lxios = lwxios ) 
    170          CALL iom_rstput( kt, nitrst, numrow, 'rnf_sc_b', rnf_tsc(:,:,jp_sal), lxios = lwxios ) 
     167         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     168         CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf, ldxios = lwxios ) 
     169         CALL iom_rstput( kt, nitrst, numrow, 'rnf_hc_b', rnf_tsc(:,:,jp_tem), ldxios = lwxios ) 
     170         CALL iom_rstput( kt, nitrst, numrow, 'rnf_sc_b', rnf_tsc(:,:,jp_sal), ldxios = lwxios ) 
    171171         IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    172172      ENDIF 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

    r8651 r8662  
    156156            IF(lwp) WRITE(numout,*) '~~~~~~~' 
    157157            zf_sbc = REAL( nn_fsbc, wp ) 
    158             IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    159             CALL iom_rstput( kt, nitrst, numrow, 'nn_fsbc', zf_sbc, lxios = lwxios )    ! sbc frequency 
    160             CALL iom_rstput( kt, nitrst, numrow, 'ssu_m'  , ssu_m, lxios = lwxios  )    ! sea surface mean fields 
    161             CALL iom_rstput( kt, nitrst, numrow, 'ssv_m'  , ssv_m, lxios = lwxios  ) 
    162             CALL iom_rstput( kt, nitrst, numrow, 'sst_m'  , sst_m, lxios = lwxios  ) 
    163             CALL iom_rstput( kt, nitrst, numrow, 'sss_m'  , sss_m, lxios = lwxios  ) 
    164             CALL iom_rstput( kt, nitrst, numrow, 'ssh_m'  , ssh_m, lxios = lwxios  ) 
    165             CALL iom_rstput( kt, nitrst, numrow, 'e3t_m'  , e3t_m, lxios = lwxios  ) 
    166             CALL iom_rstput( kt, nitrst, numrow, 'frq_m'  , frq_m, lxios = lwxios  ) 
     158            IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     159            CALL iom_rstput( kt, nitrst, numrow, 'nn_fsbc', zf_sbc, ldxios = lwxios )    ! sbc frequency 
     160            CALL iom_rstput( kt, nitrst, numrow, 'ssu_m'  , ssu_m, ldxios = lwxios  )    ! sea surface mean fields 
     161            CALL iom_rstput( kt, nitrst, numrow, 'ssv_m'  , ssv_m, ldxios = lwxios  ) 
     162            CALL iom_rstput( kt, nitrst, numrow, 'sst_m'  , sst_m, ldxios = lwxios  ) 
     163            CALL iom_rstput( kt, nitrst, numrow, 'sss_m'  , sss_m, ldxios = lwxios  ) 
     164            CALL iom_rstput( kt, nitrst, numrow, 'ssh_m'  , ssh_m, ldxios = lwxios  ) 
     165            CALL iom_rstput( kt, nitrst, numrow, 'e3t_m'  , e3t_m, ldxios = lwxios  ) 
     166            CALL iom_rstput( kt, nitrst, numrow, 'frq_m'  , frq_m, ldxios = lwxios  ) 
    167167            ! 
    168168            IF( lwxios ) CALL iom_swap(      cxios_context          ) 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r8651 r8662  
    296296      IF( lrst_oce ) THEN     ! write in the ocean restart file 
    297297         IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    298          CALL iom_rstput( kt, nitrst, numrow, 'qsr_hc_b'   , qsr_hc, lxios = lwxios      ) 
    299          CALL iom_rstput( kt, nitrst, numrow, 'fraqsr_1lev', fraqsr_1lev, lxios = lwxios )  
     298         CALL iom_rstput( kt, nitrst, numrow, 'qsr_hc_b'   , qsr_hc, ldxios = lwxios      ) 
     299         CALL iom_rstput( kt, nitrst, numrow, 'fraqsr_1lev', fraqsr_1lev, ldxios = lwxios )  
    300300         IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    301301      ENDIF 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

    r8630 r8662  
    148148      IF( lrst_oce ) THEN           !==  write sbc_tsc in the ocean restart file  ==! 
    149149         IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    150          CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_tsc(:,:,jp_tem), lxios = lwxios ) 
    151          CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_tsc(:,:,jp_sal), lxios = lwxios ) 
     150         CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_tsc(:,:,jp_tem), ldxios = lwxios ) 
     151         CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_tsc(:,:,jp_sal), ldxios = lwxios ) 
    152152         IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    153153      ENDIF 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r8651 r8662  
    12101210         !                                   ! ------------------- 
    12111211         IF(lwp) WRITE(numout,*) '---- gls-rst ----' 
    1212          IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    1213          CALL iom_rstput( kt, nitrst, numrow, 'en'   , en, lxios = lwxios      )  
    1214          CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k, lxios = lwxios  ) 
    1215          CALL iom_rstput( kt, nitrst, numrow, 'avm'  , avm_k, lxios = lwxios  ) 
    1216          CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k, lxios = lwxios )  
    1217          CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k, lxios = lwxios ) 
    1218          CALL iom_rstput( kt, nitrst, numrow, 'mxln' , mxln, lxios = lwxios   ) 
     1212         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     1213         CALL iom_rstput( kt, nitrst, numrow, 'en'   , en, ldxios = lwxios      )  
     1214         CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k, ldxios = lwxios  ) 
     1215         CALL iom_rstput( kt, nitrst, numrow, 'avm'  , avm_k, ldxios = lwxios  ) 
     1216         CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k, ldxios = lwxios )  
     1217         CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k, ldxios = lwxios ) 
     1218         CALL iom_rstput( kt, nitrst, numrow, 'mxln' , mxln, ldxios = lwxios   ) 
    12191219         IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    12201220         ! 
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r8651 r8662  
    890890        !                                   ! ------------------- 
    891891        IF(lwp) WRITE(numout,*) '---- tke-rst ----' 
    892         IF( lwxios ) CALL iom_swap(      wxios_context          ) 
    893         CALL iom_rstput( kt, nitrst, numrow, 'en'   , en    , lxios = lwxios ) 
    894         CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k , lxios = lwxios ) 
    895         CALL iom_rstput( kt, nitrst, numrow, 'avm'  , avm_k , lxios = lwxios ) 
    896         CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k, lxios = lwxios ) 
    897         CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k, lxios = lwxios ) 
    898         CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl , lxios = lwxios ) 
     892        IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
     893        CALL iom_rstput( kt, nitrst, numrow, 'en'   , en    , ldxios = lwxios ) 
     894        CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k , ldxios = lwxios ) 
     895        CALL iom_rstput( kt, nitrst, numrow, 'avm'  , avm_k , ldxios = lwxios ) 
     896        CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k, ldxios = lwxios ) 
     897        CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k, ldxios = lwxios ) 
     898        CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl , ldxios = lwxios ) 
    899899        IF( lwxios ) CALL iom_swap(      cxios_context          ) 
    900900        ! 
Note: See TracChangeset for help on using the changeset viewer.