- Timestamp:
- 2017-11-21T17:21:22+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90
r8668 r8770 27 27 USE timing ! Timing 28 28 USE lib_fortran ! glob_sum 29 USE iom_def, ONLY : lxios_read 29 USE iom_def, ONLY : lxios_read, lwxios 30 30 31 31 IMPLICIT NONE … … 233 233 & 'at it= ', kt,' date= ', ndastp 234 234 IF(lwp) WRITE(numout,*) '~~~~' 235 CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:) ) 236 CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem) ) 237 CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal) ) 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 ) 239 IF( lwxios ) CALL iom_swap( cxios_context ) 238 240 ENDIF 239 241 ! … … 394 396 END DO 395 397 398 IF( lwxios ) THEN 399 CALL iom_set_rstw_var_active('fwf_isf_b') 400 CALL iom_set_rstw_var_active('isf_hc_b') 401 CALL iom_set_rstw_var_active('isf_sc_b') 402 ENDIF 403 404 396 405 END SUBROUTINE sbc_isf_init 397 406
Note: See TracChangeset
for help on using the changeset viewer.