New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8793 for branches – NEMO

Changeset 8793 for branches


Ignore:
Timestamp:
2017-11-23T13:02:23+01:00 (6 years ago)
Author:
andmirek
Message:

#1953 and #1962 change lxios_read to lrxios to be consistent with write branch

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

Legend:

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

    r8770 r8793  
    3333   USE wrk_nemo        ! work arrays 
    3434   USE iom_def, ONLY : lwxios 
    35    USE iom_def, ONLY : lxios_read 
     35   USE iom_def, ONLY : lrxios 
    3636 
    3737   IMPLICIT NONE 
     
    257257           IF(lwp) WRITE(numout,*) ' dia_hsb_rst at it= ', kt,' date= ', ndastp 
    258258           IF(lwp) WRITE(numout,*) '~~~~~~~' 
    259            CALL iom_get( numror, 'frc_v', frc_v, ldxios = lxios_read  ) 
    260            CALL iom_get( numror, 'frc_t', frc_t, ldxios = lxios_read ) 
    261            CALL iom_get( numror, 'frc_s', frc_s, ldxios = lxios_read ) 
     259           CALL iom_get( numror, 'frc_v', frc_v, ldxios = lrxios  ) 
     260           CALL iom_get( numror, 'frc_t', frc_t, ldxios = lrxios ) 
     261           CALL iom_get( numror, 'frc_s', frc_s, ldxios = lrxios ) 
    262262           IF( ln_linssh ) THEN 
    263               CALL iom_get( numror, 'frc_wn_t', frc_wn_t, ldxios = lxios_read ) 
    264               CALL iom_get( numror, 'frc_wn_s', frc_wn_s, ldxios = lxios_read ) 
     263              CALL iom_get( numror, 'frc_wn_t', frc_wn_t, ldxios = lrxios ) 
     264              CALL iom_get( numror, 'frc_wn_s', frc_wn_s, ldxios = lrxios ) 
    265265           ENDIF 
    266            CALL iom_get( numror, jpdom_autoglo, 'surf_ini', surf_ini, ldxios = lxios_read ) ! ice sheet coupling 
    267            CALL iom_get( numror, jpdom_autoglo, 'ssh_ini', ssh_ini(:,:), ldxios = lxios_read ) 
    268            CALL iom_get( numror, jpdom_autoglo, 'e3t_ini', e3t_ini(:,:,:), ldxios = lxios_read ) 
    269            CALL iom_get( numror, jpdom_autoglo, 'hc_loc_ini', hc_loc_ini(:,:,:), ldxios = lxios_read ) 
    270            CALL iom_get( numror, jpdom_autoglo, 'sc_loc_ini', sc_loc_ini(:,:,:), ldxios = lxios_read ) 
     266           CALL iom_get( numror, jpdom_autoglo, 'surf_ini', surf_ini, ldxios = lrxios ) ! ice sheet coupling 
     267           CALL iom_get( numror, jpdom_autoglo, 'ssh_ini', ssh_ini(:,:), ldxios = lrxios ) 
     268           CALL iom_get( numror, jpdom_autoglo, 'e3t_ini', e3t_ini(:,:,:), ldxios = lrxios ) 
     269           CALL iom_get( numror, jpdom_autoglo, 'hc_loc_ini', hc_loc_ini(:,:,:), ldxios = lrxios ) 
     270           CALL iom_get( numror, jpdom_autoglo, 'sc_loc_ini', sc_loc_ini(:,:,:), ldxios = lrxios ) 
    271271           IF( ln_linssh ) THEN 
    272               CALL iom_get( numror, jpdom_autoglo, 'ssh_hc_loc_ini', ssh_hc_loc_ini(:,:), ldxios = lxios_read ) 
    273               CALL iom_get( numror, jpdom_autoglo, 'ssh_sc_loc_ini', ssh_sc_loc_ini(:,:), ldxios = lxios_read ) 
     272              CALL iom_get( numror, jpdom_autoglo, 'ssh_hc_loc_ini', ssh_hc_loc_ini(:,:), ldxios = lrxios ) 
     273              CALL iom_get( numror, jpdom_autoglo, 'ssh_sc_loc_ini', ssh_sc_loc_ini(:,:), ldxios = lrxios ) 
    274274           ENDIF 
    275275       ELSE 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r8770 r8793  
    3434   USE restart        ! restart 
    3535   USE iom_def, ONLY : lwxios 
    36    USE iom_def, ONLY : lxios_read 
     36   USE iom_def, ONLY : lrxios 
    3737 
    3838   IMPLICIT NONE 
     
    328328         IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN 
    329329            ! Get Calendar informations 
    330             CALL iom_get( numror, 'kt', zkt, ldxios = lxios_read )   ! last time-step of previous run 
     330            CALL iom_get( numror, 'kt', zkt, ldxios = lrxios )   ! last time-step of previous run 
    331331            IF(lwp) THEN 
    332332               WRITE(numout,*) ' *** Info read in restart : ' 
     
    347347            IF ( nrstdt == 2 ) THEN 
    348348               ! read the parameters corresponding to nit000 - 1 (last time step of previous run) 
    349                CALL iom_get( numror, 'ndastp', zndastp, ldxios = lxios_read ) 
     349               CALL iom_get( numror, 'ndastp', zndastp, ldxios = lrxios ) 
    350350               ndastp = NINT( zndastp ) 
    351                CALL iom_get( numror, 'adatrj', adatrj, ldxios = lxios_read ) 
    352           CALL iom_get( numror, 'ntime', ktime, ldxios = lxios_read ) 
     351               CALL iom_get( numror, 'adatrj', adatrj, ldxios = lrxios ) 
     352          CALL iom_get( numror, 'ntime', ktime, ldxios = lrxios ) 
    353353          nn_time0=INT(ktime) 
    354354               ! calculate start time in hours and minutes 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r8770 r8793  
    4949   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 
    51    USE iom_def, ONLY : lxios_read 
     51   USE iom_def, ONLY : lrxios 
    5252 
    5353   IMPLICIT NONE 
     
    365365      neuler = nn_euler 
    366366      IF( TRIM(Agrif_CFixed()) == '0') THEN  
    367        lxios_read = ln_xios_read.AND.ln_rstart 
     367       lrxios = ln_xios_read.AND.ln_rstart 
    368368      ENDIF 
    369369      IF ( neuler == 1 .AND. .NOT. ln_rstart ) THEN 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r8770 r8793  
    3333   USE wrk_nemo        ! Memory allocation 
    3434   USE timing          ! Timing 
    35    USE iom_def, ONLY : lxios_read, lwxios 
     35   USE iom_def, ONLY : lrxios, lwxios 
    3636 
    3737   IMPLICIT NONE 
     
    818818         IF( ln_rstart ) THEN                   !* Read the restart file 
    819819            CALL rst_read_open                  !  open the restart file if necessary 
    820             CALL iom_get( numror, jpdom_autoglo, 'sshn'   , sshn, ldxios = lxios_read    ) 
     820            CALL iom_get( numror, jpdom_autoglo, 'sshn'   , sshn, ldxios = lrxios    ) 
    821821            ! 
    822822            id1 = iom_varid( numror, 'e3t_b', ldstop = .FALSE. ) 
     
    829829            !                             ! --------- ! 
    830830            IF( MIN( id1, id2 ) > 0 ) THEN       ! all required arrays exist 
    831                CALL iom_get( numror, jpdom_autoglo, 'e3t_b', e3t_b(:,:,:), ldxios = lxios_read ) 
    832                CALL iom_get( numror, jpdom_autoglo, 'e3t_n', e3t_n(:,:,:), ldxios = lxios_read ) 
     831               CALL iom_get( numror, jpdom_autoglo, 'e3t_b', e3t_b(:,:,:), ldxios = lrxios ) 
     832               CALL iom_get( numror, jpdom_autoglo, 'e3t_n', e3t_n(:,:,:), ldxios = lrxios ) 
    833833               ! needed to restart if land processor not computed  
    834834               IF(lwp) write(numout,*) 'dom_vvl_rst : e3t_b and e3t_n found in restart files' 
     
    844844               IF(lwp) write(numout,*) 'e3t_n set equal to e3t_b.' 
    845845               IF(lwp) write(numout,*) 'neuler is forced to 0' 
    846                CALL iom_get( numror, jpdom_autoglo, 'e3t_b', e3t_b(:,:,:), ldxios = lxios_read ) 
     846               CALL iom_get( numror, jpdom_autoglo, 'e3t_b', e3t_b(:,:,:), ldxios = lrxios ) 
    847847               e3t_n(:,:,:) = e3t_b(:,:,:) 
    848848               neuler = 0 
     
    851851               IF(lwp) write(numout,*) 'e3t_b set equal to e3t_n.' 
    852852               IF(lwp) write(numout,*) 'neuler is forced to 0' 
    853                CALL iom_get( numror, jpdom_autoglo, 'e3t_n', e3t_n(:,:,:), ldxios = lxios_read ) 
     853               CALL iom_get( numror, jpdom_autoglo, 'e3t_n', e3t_n(:,:,:), ldxios = lrxios ) 
    854854               e3t_b(:,:,:) = e3t_n(:,:,:) 
    855855               neuler = 0 
     
    876876               !                          ! ----------------------- ! 
    877877               IF( MIN( id3, id4 ) > 0 ) THEN  ! all required arrays exist 
    878                   CALL iom_get( numror, jpdom_autoglo, 'tilde_e3t_b', tilde_e3t_b(:,:,:), ldxios = lxios_read ) 
    879                   CALL iom_get( numror, jpdom_autoglo, 'tilde_e3t_n', tilde_e3t_n(:,:,:), ldxios = lxios_read ) 
     878                  CALL iom_get( numror, jpdom_autoglo, 'tilde_e3t_b', tilde_e3t_b(:,:,:), ldxios = lrxios ) 
     879                  CALL iom_get( numror, jpdom_autoglo, 'tilde_e3t_n', tilde_e3t_n(:,:,:), ldxios = lrxios ) 
    880880               ELSE                            ! one at least array is missing 
    881881                  tilde_e3t_b(:,:,:) = 0.0_wp 
     
    886886                  !                       ! ------------ ! 
    887887                  IF( id5 > 0 ) THEN  ! required array exists 
    888                      CALL iom_get( numror, jpdom_autoglo, 'hdiv_lf', hdiv_lf(:,:,:), ldxios = lxios_read ) 
     888                     CALL iom_get( numror, jpdom_autoglo, 'hdiv_lf', hdiv_lf(:,:,:), ldxios = lrxios ) 
    889889                  ELSE                ! array is missing 
    890890                     hdiv_lf(:,:,:) = 0.0_wp 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/DOM/iscplrst.F90

    r8668 r8793  
    2525   USE iscplini        ! ice sheet coupling: initialisation 
    2626   USE iscplhsb        ! ice sheet coupling: conservation 
    27    USE iom_def, ONLY : lxios_read 
     27   USE iom_def, ONLY : lrxios 
    2828 
    2929   IMPLICIT NONE 
     
    6565 
    6666      !! get restart variable 
    67       CALL iom_get( numror, jpdom_autoglo, 'tmask'  , ztmask_b, ldxios = lxios_read   ) ! need to extrapolate T/S 
    68       CALL iom_get( numror, jpdom_autoglo, 'umask'  , zumask_b, ldxios = lxios_read   ) ! need to correct barotropic velocity 
    69       CALL iom_get( numror, jpdom_autoglo, 'vmask'  , zvmask_b, ldxios = lxios_read   ) ! need to correct barotropic velocity 
    70       CALL iom_get( numror, jpdom_autoglo, 'smask'  , zsmask_b, ldxios = lxios_read   ) ! need to correct barotropic velocity 
    71       CALL iom_get( numror, jpdom_autoglo, 'e3t_n'  , ze3t_b(:,:,:), ldxios = lxios_read )  ! need to compute temperature correction 
    72       CALL iom_get( numror, jpdom_autoglo, 'e3u_n'  , ze3u_b(:,:,:), ldxios = lxios_read )  ! need to correct barotropic velocity 
    73       CALL iom_get( numror, jpdom_autoglo, 'e3v_n'  , ze3v_b(:,:,:), ldxios = lxios_read )  ! need to correct barotropic velocity 
    74       CALL iom_get( numror, jpdom_autoglo, 'gdepw_n', zdepw_b(:,:,:), ldxios = lxios_read ) ! need to interpol vertical profile (vvl) 
     67      CALL iom_get( numror, jpdom_autoglo, 'tmask'  , ztmask_b, ldxios = lrxios   ) ! need to extrapolate T/S 
     68      CALL iom_get( numror, jpdom_autoglo, 'umask'  , zumask_b, ldxios = lrxios   ) ! need to correct barotropic velocity 
     69      CALL iom_get( numror, jpdom_autoglo, 'vmask'  , zvmask_b, ldxios = lrxios   ) ! need to correct barotropic velocity 
     70      CALL iom_get( numror, jpdom_autoglo, 'smask'  , zsmask_b, ldxios = lrxios   ) ! need to correct barotropic velocity 
     71      CALL iom_get( numror, jpdom_autoglo, 'e3t_n'  , ze3t_b(:,:,:), ldxios = lrxios )  ! need to compute temperature correction 
     72      CALL iom_get( numror, jpdom_autoglo, 'e3u_n'  , ze3u_b(:,:,:), ldxios = lrxios )  ! need to correct barotropic velocity 
     73      CALL iom_get( numror, jpdom_autoglo, 'e3v_n'  , ze3v_b(:,:,:), ldxios = lrxios )  ! need to correct barotropic velocity 
     74      CALL iom_get( numror, jpdom_autoglo, 'gdepw_n', zdepw_b(:,:,:), ldxios = lrxios ) ! need to interpol vertical profile (vvl) 
    7575 
    7676      !! read namelist 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r8770 r8793  
    5656   USE asminc          ! Assimilation increment 
    5757#endif 
    58    USE iom_def, ONLY : lxios_read, lwxios 
     58   USE iom_def, ONLY : lrxios, lwxios 
    5959 
    6060 
     
    11991199      ! 
    12001200      IF( TRIM(cdrw) == 'READ' ) THEN 
    1201          CALL iom_get( numror, jpdom_autoglo, 'ub2_b'  , ub2_b  (:,:), ldxios = lxios_read )    
    1202          CALL iom_get( numror, jpdom_autoglo, 'vb2_b'  , vb2_b  (:,:), ldxios = lxios_read )  
     1201         CALL iom_get( numror, jpdom_autoglo, 'ub2_b'  , ub2_b  (:,:), ldxios = lrxios )    
     1202         CALL iom_get( numror, jpdom_autoglo, 'vb2_b'  , vb2_b  (:,:), ldxios = lrxios )  
    12031203         IF( .NOT.ln_bt_av ) THEN 
    1204             CALL iom_get( numror, jpdom_autoglo, 'sshbb_e'  , sshbb_e(:,:), ldxios = lxios_read )    
    1205             CALL iom_get( numror, jpdom_autoglo, 'ubb_e'    ,   ubb_e(:,:), ldxios = lxios_read )    
    1206             CALL iom_get( numror, jpdom_autoglo, 'vbb_e'    ,   vbb_e(:,:), ldxios = lxios_read ) 
    1207             CALL iom_get( numror, jpdom_autoglo, 'sshb_e'   ,  sshb_e(:,:), ldxios = lxios_read )  
    1208             CALL iom_get( numror, jpdom_autoglo, 'ub_e'     ,    ub_e(:,:), ldxios = lxios_read )    
    1209             CALL iom_get( numror, jpdom_autoglo, 'vb_e'     ,    vb_e(:,:), ldxios = lxios_read ) 
     1204            CALL iom_get( numror, jpdom_autoglo, 'sshbb_e'  , sshbb_e(:,:), ldxios = lrxios )    
     1205            CALL iom_get( numror, jpdom_autoglo, 'ubb_e'    ,   ubb_e(:,:), ldxios = lrxios )    
     1206            CALL iom_get( numror, jpdom_autoglo, 'vbb_e'    ,   vbb_e(:,:), ldxios = lrxios ) 
     1207            CALL iom_get( numror, jpdom_autoglo, 'sshb_e'   ,  sshb_e(:,:), ldxios = lrxios )  
     1208            CALL iom_get( numror, jpdom_autoglo, 'ub_e'     ,    ub_e(:,:), ldxios = lrxios )    
     1209            CALL iom_get( numror, jpdom_autoglo, 'vb_e'     ,    vb_e(:,:), ldxios = lrxios ) 
    12101210         ENDIF 
    12111211#if defined key_agrif 
    12121212         ! Read time integrated fluxes 
    12131213         IF ( .NOT.Agrif_Root() ) THEN 
    1214             CALL iom_get( numror, jpdom_autoglo, 'ub2_i_b'  , ub2_i_b(:,:), ldxios = lxios_read )    
    1215             CALL iom_get( numror, jpdom_autoglo, 'vb2_i_b'  , vb2_i_b(:,:), ldxios = lxios_read ) 
     1214            CALL iom_get( numror, jpdom_autoglo, 'ub2_i_b'  , ub2_i_b(:,:), ldxios = lrxios )    
     1215            CALL iom_get( numror, jpdom_autoglo, 'vb2_i_b'  , vb2_i_b(:,:), ldxios = lrxios ) 
    12161216         ENDIF 
    12171217#endif 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90

    r8792 r8793  
    4444   INTEGER, PARAMETER, PUBLIC ::   jpmax_digits =  5   !: maximum number of digits for the cpu number in the file name 
    4545 
     46 
    4647!$AGRIF_DO_NOT_TREAT 
    4748   INTEGER, PUBLIC            ::   iom_open_init = 0   !: used to initialize iom_file(:)%nfid to 0 
    4849!XIOS write restart    
    49    LOGICAL, PUBLIC            ::   lwxios          !: read single file restart using XIOS 
     50   LOGICAL, PUBLIC            ::   lwxios          !: write single file restart using XIOS 
    5051   INTEGER, PUBLIC            ::   nxioso          !: type of restart file when writing using XIOS 1 - single, 2 - multiple 
    5152!XIOS read restart    
    52    LOGICAL, PUBLIC            ::   lxios_read          !: read single file restart using XIOS 
     53   LOGICAL, PUBLIC            ::   lrxios          !: read single file restart using XIOS 
    5354   LOGICAL, PUBLIC            ::   lxios_sini = .FALSE. ! is restart in a single file 
    5455   LOGICAL, PUBLIC            ::   lxios_set  = .FALSE.  
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r8785 r8793  
    218218! can handle checking if variable is in the restart file (there will be no need to open 
    219219! restart) 
    220          IF(.NOT.lxios_set) lxios_read = lxios_read.AND.lxios_sini 
    221          IF( lxios_read) THEN 
     220         IF(.NOT.lxios_set) lrxios = lrxios.AND.lxios_sini 
     221         IF( lrxios) THEN 
    222222           crxios_context = 'nemo_rst' 
    223223         if(.NOT.lxios_set) then 
     
    227227         endif 
    228228         ENDIF 
    229          IF( TRIM(Agrif_CFixed()) /= '0' .AND. lxios_read) THEN 
     229         IF( TRIM(Agrif_CFixed()) /= '0' .AND. lrxios) THEN 
    230230            CALL iom_init( crxios_context ) 
    231231            IF(lwp) WRITE(numout,*) 'Enable restart reading by XIOS for AGRIF' 
     
    256256      ! Check dynamics and tracer time-step consistency and force Euler restart if changed 
    257257      IF( iom_varid( numror, 'rdt', ldstop = .FALSE. ) > 0 )   THEN 
    258          CALL iom_get( numror, 'rdt', zrdt, ldxios = lxios_read ) 
     258         CALL iom_get( numror, 'rdt', zrdt, ldxios = lrxios ) 
    259259         IF( zrdt /= rdt )   neuler = 0 
    260260      ENDIF 
    261261 
    262262      ! Diurnal DSST  
    263       IF( ln_diurnal ) CALL iom_get( numror, jpdom_autoglo, 'Dsst' , x_dsst, ldxios = lxios_read )  
     263      IF( ln_diurnal ) CALL iom_get( numror, jpdom_autoglo, 'Dsst' , x_dsst, ldxios = lrxios )  
    264264      IF ( ln_diurnal_only ) THEN  
    265265         IF(lwp) WRITE( numout, * ) & 
    266266         &   "rst_read:- ln_diurnal_only set, setting rhop=rau0"  
    267267         rhop = rau0 
    268          CALL iom_get( numror, jpdom_autoglo, 'tn'     , w3d, ldxios = lxios_read )  
     268         CALL iom_get( numror, jpdom_autoglo, 'tn'     , w3d, ldxios = lrxios )  
    269269         tsn(:,:,1,jp_tem) = w3d(:,:,1) 
    270270         RETURN  
     
    272272       
    273273      IF( iom_varid( numror, 'ub', ldstop = .FALSE. ) > 0 ) THEN 
    274          CALL iom_get( numror, jpdom_autoglo, 'ub'     , ub, ldxios = lxios_read                )   ! before fields 
    275          CALL iom_get( numror, jpdom_autoglo, 'vb'     , vb, ldxios = lxios_read                ) 
    276          CALL iom_get( numror, jpdom_autoglo, 'tb'     , tsb(:,:,:,jp_tem), ldxios = lxios_read ) 
    277          CALL iom_get( numror, jpdom_autoglo, 'sb'     , tsb(:,:,:,jp_sal), ldxios = lxios_read ) 
    278          CALL iom_get( numror, jpdom_autoglo, 'sshb'   , sshb, ldxios = lxios_read              ) 
     274         CALL iom_get( numror, jpdom_autoglo, 'ub'     , ub, ldxios = lrxios                )   ! before fields 
     275         CALL iom_get( numror, jpdom_autoglo, 'vb'     , vb, ldxios = lrxios                ) 
     276         CALL iom_get( numror, jpdom_autoglo, 'tb'     , tsb(:,:,:,jp_tem), ldxios = lrxios ) 
     277         CALL iom_get( numror, jpdom_autoglo, 'sb'     , tsb(:,:,:,jp_sal), ldxios = lrxios ) 
     278         CALL iom_get( numror, jpdom_autoglo, 'sshb'   , sshb, ldxios = lrxios              ) 
    279279      ELSE 
    280280         neuler = 0 
    281281      ENDIF 
    282282      ! 
    283       CALL iom_get( numror, jpdom_autoglo, 'un'     , un, ldxios = lxios_read )   ! now    fields 
    284       CALL iom_get( numror, jpdom_autoglo, 'vn'     , vn, ldxios = lxios_read ) 
    285       CALL iom_get( numror, jpdom_autoglo, 'tn'     , tsn(:,:,:,jp_tem), ldxios = lxios_read ) 
    286       CALL iom_get( numror, jpdom_autoglo, 'sn'     , tsn(:,:,:,jp_sal), ldxios = lxios_read ) 
    287       CALL iom_get( numror, jpdom_autoglo, 'sshn'   , sshn, ldxios = lxios_read ) 
     283      CALL iom_get( numror, jpdom_autoglo, 'un'     , un, ldxios = lrxios )   ! now    fields 
     284      CALL iom_get( numror, jpdom_autoglo, 'vn'     , vn, ldxios = lrxios ) 
     285      CALL iom_get( numror, jpdom_autoglo, 'tn'     , tsn(:,:,:,jp_tem), ldxios = lrxios ) 
     286      CALL iom_get( numror, jpdom_autoglo, 'sn'     , tsn(:,:,:,jp_sal), ldxios = lrxios ) 
     287      CALL iom_get( numror, jpdom_autoglo, 'sshn'   , sshn, ldxios = lrxios ) 
    288288      IF( iom_varid( numror, 'rhop', ldstop = .FALSE. ) > 0 ) THEN 
    289          CALL iom_get( numror, jpdom_autoglo, 'rhop'   , rhop, ldxios = lxios_read )   ! now    potential density 
     289         CALL iom_get( numror, jpdom_autoglo, 'rhop'   , rhop, ldxios = lrxios )   ! now    potential density 
    290290      ELSE 
    291291         CALL eos( tsn, rhd, rhop, gdept_n(:,:,:) )    
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

    r8770 r8793  
    6666      CHARACTER(len=100) ::  cn_dir   ! Root directory for location of ssr files 
    6767      TYPE(FLD_N)        ::  sn_apr   ! informations about the fields to be read 
    68       LOGICAL            ::  lxios_read ! read restart using XIOS? 
     68      LOGICAL            ::  lrxios ! read restart using XIOS? 
    6969      !! 
    7070      NAMELIST/namsbc_apr/ cn_dir, sn_apr, ln_ref_apr, rn_pref, ln_apr_obc 
     
    157157         IF( ln_rstart .AND. iom_varid( numror, 'ssh_ibb', ldstop = .FALSE. ) > 0 ) THEN  
    158158            IF(lwp) WRITE(numout,*) 'sbc_apr:   ssh_ibb read in the restart file' 
    159             CALL iom_get( numror, jpdom_autoglo, 'ssh_ibb', ssh_ibb, ldxios = lxios_read )   ! before inv. barometer ssh 
     159            CALL iom_get( numror, jpdom_autoglo, 'ssh_ibb', ssh_ibb, ldxios = lrxios )   ! before inv. barometer ssh 
    160160            ! 
    161161         ELSE                                         !* no restart: set from nit000 values 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

    r8770 r8793  
    2727   USE timing          ! Timing 
    2828   USE lib_fortran     ! glob_sum 
    29    USE iom_def, ONLY : lxios_read, lwxios 
     29   USE iom_def, ONLY : lrxios, lwxios 
    3030 
    3131   IMPLICIT NONE 
     
    219219                 & iom_varid( numror, 'fwf_isf_b', ldstop = .FALSE. ) > 0 ) THEN 
    220220               IF(lwp) WRITE(numout,*) '          nit000-1 isf tracer content forcing fields read in the restart file' 
    221                CALL iom_get( numror, jpdom_autoglo, 'fwf_isf_b', fwfisf_b(:,:), ldxios = lxios_read )   ! before salt content isf_tsc trend 
    222                CALL iom_get( numror, jpdom_autoglo, 'isf_sc_b', risf_tsc_b(:,:,jp_sal), ldxios = lxios_read )   ! before salt content isf_tsc trend 
    223                CALL iom_get( numror, jpdom_autoglo, 'isf_hc_b', risf_tsc_b(:,:,jp_tem), ldxios = lxios_read )   ! before salt content isf_tsc trend 
     221               CALL iom_get( numror, jpdom_autoglo, 'fwf_isf_b', fwfisf_b(:,:), ldxios = lrxios )   ! before salt content isf_tsc trend 
     222               CALL iom_get( numror, jpdom_autoglo, 'isf_sc_b', risf_tsc_b(:,:,jp_sal), ldxios = lrxios )   ! before salt content isf_tsc trend 
     223               CALL iom_get( numror, jpdom_autoglo, 'isf_hc_b', risf_tsc_b(:,:,jp_tem), ldxios = lrxios )   ! before salt content isf_tsc trend 
    224224           ELSE 
    225225               fwfisf_b(:,:)    = fwfisf(:,:) 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r8770 r8793  
    5858 
    5959   USE diurnal_bulk, ONLY:   ln_diurnal_only   ! diurnal SST diagnostic 
    60    USE iom_def, ONLY : lxios_read, lwxios 
     60   USE iom_def, ONLY : lrxios, lwxios 
    6161 
    6262   IMPLICIT NONE 
     
    468468            & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN 
    469469            IF(lwp) WRITE(numout,*) '          nit000-1 surface forcing fields red in the restart file' 
    470             CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b, ldxios = lxios_read )   ! before i-stress  (U-point) 
    471             CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b, ldxios = lxios_read )   ! before j-stress  (V-point) 
    472             CALL iom_get( numror, jpdom_autoglo, 'qns_b' , qns_b, ldxios = lxios_read  )   ! before non solar heat flux (T-point) 
     470            CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b, ldxios = lrxios )   ! before i-stress  (U-point) 
     471            CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b, ldxios = lrxios )   ! before j-stress  (V-point) 
     472            CALL iom_get( numror, jpdom_autoglo, 'qns_b' , qns_b, ldxios = lrxios  )   ! before non solar heat flux (T-point) 
    473473            ! The 3D heat content due to qsr forcing is treated in traqsr 
    474             ! CALL iom_get( numror, jpdom_autoglo, 'qsr_b' , qsr_b, ldxios = lxios_read  ) ! before     solar heat flux (T-point) 
    475             CALL iom_get( numror, jpdom_autoglo, 'emp_b', emp_b, ldxios = lxios_read  )    ! before     freshwater flux (T-point) 
     474            ! CALL iom_get( numror, jpdom_autoglo, 'qsr_b' , qsr_b, ldxios = lrxios  ) ! before     solar heat flux (T-point) 
     475            CALL iom_get( numror, jpdom_autoglo, 'emp_b', emp_b, ldxios = lrxios  )    ! before     freshwater flux (T-point) 
    476476            ! To ensure restart capability with 3.3x/3.4 restart files    !! to be removed in v3.6 
    477477            IF( iom_varid( numror, 'sfx_b', ldstop = .FALSE. ) > 0 ) THEN 
    478                CALL iom_get( numror, jpdom_autoglo, 'sfx_b', sfx_b, ldxios = lxios_read )  ! before salt flux (T-point) 
     478               CALL iom_get( numror, jpdom_autoglo, 'sfx_b', sfx_b, ldxios = lrxios )  ! before salt flux (T-point) 
    479479            ELSE 
    480480               sfx_b (:,:) = sfx(:,:) 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r8770 r8793  
    2828   USE lib_mpp        ! MPP library 
    2929   USE wrk_nemo       ! Memory allocation 
    30    USE iom_def, ONLY : lxios_read, lwxios 
     30   USE iom_def, ONLY : lrxios, lwxios 
    3131 
    3232   IMPLICIT NONE 
     
    148148         IF( ln_rstart .AND.    &                               !* Restart: read in restart file 
    149149            & iom_varid( numror, 'rnf_b', ldstop = .FALSE. ) > 0 ) THEN 
    150             IF(lwp) WRITE(numout,*) '          nit000-1 runoff forcing fields red in the restart file', lxios_read 
    151             CALL iom_get( numror, jpdom_autoglo, 'rnf_b', rnf_b, ldxios = lxios_read )     ! before runoff 
    152             CALL iom_get( numror, jpdom_autoglo, 'rnf_hc_b', rnf_tsc_b(:,:,jp_tem), ldxios = lxios_read )   ! before heat content of runoff 
    153             CALL iom_get( numror, jpdom_autoglo, 'rnf_sc_b', rnf_tsc_b(:,:,jp_sal), ldxios = lxios_read )   ! before salinity content of runoff 
     150            IF(lwp) WRITE(numout,*) '          nit000-1 runoff forcing fields red in the restart file', lrxios 
     151            CALL iom_get( numror, jpdom_autoglo, 'rnf_b', rnf_b, ldxios = lrxios )     ! before runoff 
     152            CALL iom_get( numror, jpdom_autoglo, 'rnf_hc_b', rnf_tsc_b(:,:,jp_tem), ldxios = lrxios )   ! before heat content of runoff 
     153            CALL iom_get( numror, jpdom_autoglo, 'rnf_sc_b', rnf_tsc_b(:,:,jp_sal), ldxios = lrxios )   ! before salinity content of runoff 
    154154         ELSE                                                   !* no restart: set from nit000 values 
    155155            IF(lwp) WRITE(numout,*) '          nit000-1 runoff forcing fields set to nit000' 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

    r8770 r8793  
    2222   USE prtctl         ! Print control 
    2323   USE iom            ! IOM library 
    24    USE iom_def, ONLY : lxios_read, lwxios 
     24   USE iom_def, ONLY : lrxios, lwxios 
    2525 
    2626   IMPLICIT NONE 
     
    209209         IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc', ldstop = .FALSE. ) > 0 ) THEN 
    210210            l_ssm_mean = .TRUE. 
    211             CALL iom_get( numror               , 'nn_fsbc', zf_sbc, ldxios = lxios_read )    ! sbc frequency of previous run 
    212             CALL iom_get( numror, jpdom_autoglo, 'ssu_m'  , ssu_m, ldxios = lxios_read  )    ! sea surface mean velocity    (U-point) 
    213             CALL iom_get( numror, jpdom_autoglo, 'ssv_m'  , ssv_m, ldxios = lxios_read  )    !   "         "    velocity    (V-point) 
    214             CALL iom_get( numror, jpdom_autoglo, 'sst_m'  , sst_m, ldxios = lxios_read  )    !   "         "    temperature (T-point) 
    215             CALL iom_get( numror, jpdom_autoglo, 'sss_m'  , sss_m, ldxios = lxios_read  )    !   "         "    salinity    (T-point) 
    216             CALL iom_get( numror, jpdom_autoglo, 'ssh_m'  , ssh_m, ldxios = lxios_read  )    !   "         "    height      (T-point) 
    217             CALL iom_get( numror, jpdom_autoglo, 'e3t_m'  , e3t_m, ldxios = lxios_read  )    ! 1st level thickness          (T-point) 
    218             CALL iom_get( numror, jpdom_autoglo, 'e3t_m', e3t_m, ldxios = lxios_read ) 
     211            CALL iom_get( numror               , 'nn_fsbc', zf_sbc, ldxios = lrxios )    ! sbc frequency of previous run 
     212            CALL iom_get( numror, jpdom_autoglo, 'ssu_m'  , ssu_m, ldxios = lrxios  )    ! sea surface mean velocity    (U-point) 
     213            CALL iom_get( numror, jpdom_autoglo, 'ssv_m'  , ssv_m, ldxios = lrxios  )    !   "         "    velocity    (V-point) 
     214            CALL iom_get( numror, jpdom_autoglo, 'sst_m'  , sst_m, ldxios = lrxios  )    !   "         "    temperature (T-point) 
     215            CALL iom_get( numror, jpdom_autoglo, 'sss_m'  , sss_m, ldxios = lrxios  )    !   "         "    salinity    (T-point) 
     216            CALL iom_get( numror, jpdom_autoglo, 'ssh_m'  , ssh_m, ldxios = lrxios  )    !   "         "    height      (T-point) 
     217            CALL iom_get( numror, jpdom_autoglo, 'e3t_m'  , e3t_m, ldxios = lrxios  )    ! 1st level thickness          (T-point) 
     218            CALL iom_get( numror, jpdom_autoglo, 'e3t_m', e3t_m, ldxios = lrxios ) 
    219219            ! fraction of solar net radiation absorbed in 1st T level 
    220220            IF( iom_varid( numror, 'frq_m', ldstop = .FALSE. ) > 0 ) THEN 
    221                CALL iom_get( numror, jpdom_autoglo, 'frq_m'  , frq_m, ldxios = lxios_read  ) 
     221               CALL iom_get( numror, jpdom_autoglo, 'frq_m'  , frq_m, ldxios = lrxios  ) 
    222222            ELSE 
    223223               frq_m(:,:) = 1._wp   ! default definition 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r8770 r8793  
    3636   USE wrk_nemo       ! Memory Allocation 
    3737   USE timing         ! Timing 
    38    USE iom_def, ONLY : lxios_read, lwxios 
     38   USE iom_def, ONLY : lrxios, lwxios 
    3939   IMPLICIT NONE 
    4040   PRIVATE 
     
    139139            IF(lwp) WRITE(numout,*) '          nit000-1 qsr tracer content forcing field read in the restart file' 
    140140            z1_2 = 0.5_wp 
    141             CALL iom_get( numror, jpdom_autoglo, 'qsr_hc_b', qsr_hc_b, ldxios = lxios_read )   ! before heat content trend due to Qsr flux 
     141            CALL iom_get( numror, jpdom_autoglo, 'qsr_hc_b', qsr_hc_b, ldxios = lrxios )   ! before heat content trend due to Qsr flux 
    142142         ELSE                                           ! No restart or restart not found: Euler forward time stepping 
    143143            z1_2 = 1._wp 
     
    432432      ! 1st ocean level attenuation coefficient (used in sbcssm) 
    433433      IF( iom_varid( numror, 'fraqsr_1lev', ldstop = .FALSE. ) > 0 ) THEN 
    434          CALL iom_get( numror, jpdom_autoglo, 'fraqsr_1lev'  , fraqsr_1lev, ldxios = lxios_read  ) 
     434         CALL iom_get( numror, jpdom_autoglo, 'fraqsr_1lev'  , fraqsr_1lev, ldxios = lrxios  ) 
    435435      ELSE 
    436436         fraqsr_1lev(:,:) = 1._wp   ! default : no penetration 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

    r8770 r8793  
    3434   USE wrk_nemo       ! Memory Allocation 
    3535   USE timing         ! Timing 
    36    USE iom_def, ONLY : lxios_read, lwxios 
     36   USE iom_def, ONLY : lrxios, lwxios 
    3737 
    3838   IMPLICIT NONE 
     
    109109            zfact = 0.5_wp 
    110110            sbc_tsc(:,:,:) = 0._wp 
    111             CALL iom_get( numror, jpdom_autoglo, 'sbc_hc_b', sbc_tsc_b(:,:,jp_tem), ldxios = lxios_read )   ! before heat content sbc trend 
    112             CALL iom_get( numror, jpdom_autoglo, 'sbc_sc_b', sbc_tsc_b(:,:,jp_sal), ldxios = lxios_read )   ! before salt content sbc trend 
     111            CALL iom_get( numror, jpdom_autoglo, 'sbc_hc_b', sbc_tsc_b(:,:,jp_tem), ldxios = lrxios )   ! before heat content sbc trend 
     112            CALL iom_get( numror, jpdom_autoglo, 'sbc_sc_b', sbc_tsc_b(:,:,jp_sal), ldxios = lrxios )   ! before salt content sbc trend 
    113113         ELSE                                   ! No restart or restart not found: Euler forward time stepping 
    114114            zfact = 1._wp 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r8770 r8793  
    3434   USE timing         ! Timing 
    3535   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    36    USE iom_def, ONLY : lxios_read, lwxios 
     36   USE iom_def, ONLY : lrxios, lwxios 
    3737 
    3838   IMPLICIT NONE 
     
    11851185            ! 
    11861186            IF( MIN( id1, id2, id3, id4, id5, id6 ) > 0 ) THEN        ! all required arrays exist 
    1187                CALL iom_get( numror, jpdom_autoglo, 'en'    , en, ldxios = lxios_read     ) 
    1188                CALL iom_get( numror, jpdom_autoglo, 'avt'   , avt, ldxios = lxios_read    ) 
    1189                CALL iom_get( numror, jpdom_autoglo, 'avm'   , avm, ldxios = lxios_read    ) 
    1190                CALL iom_get( numror, jpdom_autoglo, 'avmu'  , avmu, ldxios = lxios_read   ) 
    1191                CALL iom_get( numror, jpdom_autoglo, 'avmv'  , avmv, ldxios = lxios_read   ) 
    1192                CALL iom_get( numror, jpdom_autoglo, 'mxln'  , mxln, ldxios = lxios_read   ) 
     1187               CALL iom_get( numror, jpdom_autoglo, 'en'    , en, ldxios = lrxios     ) 
     1188               CALL iom_get( numror, jpdom_autoglo, 'avt'   , avt, ldxios = lrxios    ) 
     1189               CALL iom_get( numror, jpdom_autoglo, 'avm'   , avm, ldxios = lrxios    ) 
     1190               CALL iom_get( numror, jpdom_autoglo, 'avmu'  , avmu, ldxios = lrxios   ) 
     1191               CALL iom_get( numror, jpdom_autoglo, 'avmv'  , avmv, ldxios = lrxios   ) 
     1192               CALL iom_get( numror, jpdom_autoglo, 'mxln'  , mxln, ldxios = lrxios   ) 
    11931193            ELSE                         
    11941194               IF(lwp) WRITE(numout,*) ' ===>>>> : previous run without gls scheme, en and mxln computed by iterative loop' 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

    r8668 r8793  
    2828   USE iom             ! IOM library 
    2929   USE lib_mpp         ! distribued memory computing 
    30    USE iom_def, ONLY : lxios_read 
     30   USE iom_def, ONLY : lrxios 
    3131 
    3232   IMPLICIT NONE 
     
    160160         ! file in traadv_cen2 end read here.  
    161161         IF( iom_varid( numror, 'avmb', ldstop = .FALSE. ) > 0 ) THEN 
    162             CALL iom_get( numror, jpdom_unknown, 'avmb', avmb, ldxios = lxios_read ) 
    163             CALL iom_get( numror, jpdom_unknown, 'avtb', avtb, ldxios = lxios_read ) 
     162            CALL iom_get( numror, jpdom_unknown, 'avmb', avmb, ldxios = lrxios ) 
     163            CALL iom_get( numror, jpdom_unknown, 'avtb', avtb, ldxios = lrxios ) 
    164164         ENDIF 
    165165      ENDIF 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r8770 r8793  
    5858   USE agrif_opa_update 
    5959#endif 
    60    USE iom_def, ONLY : lxios_read 
     60   USE iom_def, ONLY : lrxios 
    6161 
    6262   IMPLICIT NONE 
     
    856856           ! 
    857857           IF( id1 > 0 ) THEN                       ! 'en' exists 
    858               CALL iom_get( numror, jpdom_autoglo, 'en', en, ldxios = lxios_read ) 
     858              CALL iom_get( numror, jpdom_autoglo, 'en', en, ldxios = lrxios ) 
    859859              IF( MIN( id2, id3, id4, id5, id6 ) > 0 ) THEN        ! all required arrays exist 
    860                  CALL iom_get( numror, jpdom_autoglo, 'avt'  , avt, ldxios = lxios_read   ) 
    861                  CALL iom_get( numror, jpdom_autoglo, 'avm'  , avm, ldxios = lxios_read   ) 
    862                  CALL iom_get( numror, jpdom_autoglo, 'avmu' , avmu, ldxios = lxios_read  ) 
    863                  CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv, ldxios = lxios_read  ) 
    864                  CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl, ldxios = lxios_read ) 
     860                 CALL iom_get( numror, jpdom_autoglo, 'avt'  , avt, ldxios = lrxios   ) 
     861                 CALL iom_get( numror, jpdom_autoglo, 'avm'  , avm, ldxios = lrxios   ) 
     862                 CALL iom_get( numror, jpdom_autoglo, 'avmu' , avmu, ldxios = lrxios  ) 
     863                 CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv, ldxios = lrxios  ) 
     864                 CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl, ldxios = lrxios ) 
    865865              ELSE                                                 ! one at least array is missing 
    866866                 CALL tke_avn                                          ! compute avt, avm, avmu, avmv and dissl (approximation) 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/step.F90

    r8668 r8793  
    345345      IF( kstp == nitend .OR. indic < 0 ) THEN  
    346346                      CALL iom_context_finalize(      cxios_context          ) ! needed for XIOS+AGRIF 
    347                       IF(lxios_read) CALL iom_context_finalize(      crxios_context          ) 
     347                      IF(lrxios) CALL iom_context_finalize(      crxios_context          ) 
    348348         IF( ln_crs ) CALL iom_context_finalize( trim(cxios_context)//"_crs" ) !  
    349349      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.