- 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/sbcmod.F90
r8668 r8770 58 58 59 59 USE diurnal_bulk, ONLY: ln_diurnal_only ! diurnal SST diagnostic 60 USE iom_def, ONLY : lxios_read 60 USE iom_def, ONLY : lxios_read, lwxios 61 61 62 62 IMPLICIT NONE … … 342 342 IF( ln_wave ) CALL sbc_wave_init ! surface wave initialisation 343 343 ! 344 IF( lwxios ) THEN 345 CALL iom_set_rstw_var_active('utau_b') 346 CALL iom_set_rstw_var_active('vtau_b') 347 CALL iom_set_rstw_var_active('qns_b') 348 ! The 3D heat content due to qsr forcing is treated in traqsr 349 ! CALL iom_set_rstw_var_active('qsr_b') 350 CALL iom_set_rstw_var_active('emp_b') 351 CALL iom_set_rstw_var_active('sfx_b') 352 ENDIF 353 344 354 END SUBROUTINE sbc_init 345 355 … … 486 496 & 'at it= ', kt,' date= ', ndastp 487 497 IF(lwp) WRITE(numout,*) '~~~~' 488 CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau ) 489 CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau ) 490 CALL iom_rstput( kt, nitrst, numrow, 'qns_b' , qns ) 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 ) 491 502 ! The 3D heat content due to qsr forcing is treated in traqsr 492 503 ! CALL iom_rstput( kt, nitrst, numrow, 'qsr_b' , qsr ) 493 CALL iom_rstput( kt, nitrst, numrow, 'emp_b' , emp ) 494 CALL iom_rstput( kt, nitrst, numrow, 'sfx_b' , sfx ) 504 CALL iom_rstput( kt, nitrst, numrow, 'emp_b' , emp, ldxios = lwxios ) 505 CALL iom_rstput( kt, nitrst, numrow, 'sfx_b' , sfx, ldxios = lwxios ) 506 IF( lwxios ) CALL iom_swap( cxios_context ) 495 507 ENDIF 496 508 ! ! ---------------------------------------- !
Note: See TracChangeset
for help on using the changeset viewer.