- Timestamp:
- 2017-11-23T16:48:37+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r7753 r8800 32 32 USE timing ! preformance summary 33 33 USE wrk_nemo ! work arrays 34 USE iom_def, ONLY : lxios_read 34 35 35 36 IMPLICIT NONE … … 255 256 IF(lwp) WRITE(numout,*) ' dia_hsb_rst at it= ', kt,' date= ', ndastp 256 257 IF(lwp) WRITE(numout,*) '~~~~~~~' 257 CALL iom_get( numror, 'frc_v', frc_v )258 CALL iom_get( numror, 'frc_t', frc_t )259 CALL iom_get( numror, 'frc_s', frc_s )258 CALL iom_get( numror, 'frc_v', frc_v, ldxios = lxios_read ) 259 CALL iom_get( numror, 'frc_t', frc_t, ldxios = lxios_read ) 260 CALL iom_get( numror, 'frc_s', frc_s, ldxios = lxios_read ) 260 261 IF( ln_linssh ) THEN 261 CALL iom_get( numror, 'frc_wn_t', frc_wn_t )262 CALL iom_get( numror, 'frc_wn_s', frc_wn_s )262 CALL iom_get( numror, 'frc_wn_t', frc_wn_t, ldxios = lxios_read ) 263 CALL iom_get( numror, 'frc_wn_s', frc_wn_s, ldxios = lxios_read ) 263 264 ENDIF 264 CALL iom_get( numror, jpdom_autoglo, 'surf_ini', surf_ini ) ! ice sheet coupling265 CALL iom_get( numror, jpdom_autoglo, 'ssh_ini', ssh_ini(:,:) )266 CALL iom_get( numror, jpdom_autoglo, 'e3t_ini', e3t_ini(:,:,:) )267 CALL iom_get( numror, jpdom_autoglo, 'hc_loc_ini', hc_loc_ini(:,:,:) )268 CALL iom_get( numror, jpdom_autoglo, 'sc_loc_ini', sc_loc_ini(:,:,:) )265 CALL iom_get( numror, jpdom_autoglo, 'surf_ini', surf_ini, ldxios = lxios_read ) ! ice sheet coupling 266 CALL iom_get( numror, jpdom_autoglo, 'ssh_ini', ssh_ini(:,:), ldxios = lxios_read ) 267 CALL iom_get( numror, jpdom_autoglo, 'e3t_ini', e3t_ini(:,:,:), ldxios = lxios_read ) 268 CALL iom_get( numror, jpdom_autoglo, 'hc_loc_ini', hc_loc_ini(:,:,:), ldxios = lxios_read ) 269 CALL iom_get( numror, jpdom_autoglo, 'sc_loc_ini', sc_loc_ini(:,:,:), ldxios = lxios_read ) 269 270 IF( ln_linssh ) THEN 270 CALL iom_get( numror, jpdom_autoglo, 'ssh_hc_loc_ini', ssh_hc_loc_ini(:,:) )271 CALL iom_get( numror, jpdom_autoglo, 'ssh_sc_loc_ini', ssh_sc_loc_ini(:,:) )271 CALL iom_get( numror, jpdom_autoglo, 'ssh_hc_loc_ini', ssh_hc_loc_ini(:,:), ldxios = lxios_read ) 272 CALL iom_get( numror, jpdom_autoglo, 'ssh_sc_loc_ini', ssh_sc_loc_ini(:,:), ldxios = lxios_read ) 272 273 ENDIF 273 274 ELSE
Note: See TracChangeset
for help on using the changeset viewer.