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