- Timestamp:
- 2020-05-19T12:53:16+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart/src/OCE/SBC/sbcmod.F90
r12489 r12950 366 366 IF( ln_wave ) CALL sbc_wave_init ! surface wave initialisation 367 367 ! 368 IF( lwxios ) THEN369 CALL iom_set_rstw_var_active('utau_b')370 CALL iom_set_rstw_var_active('vtau_b')371 CALL iom_set_rstw_var_active('qns_b')372 ! The 3D heat content due to qsr forcing is treated in traqsr373 ! CALL iom_set_rstw_var_active('qsr_b')374 CALL iom_set_rstw_var_active('emp_b')375 CALL iom_set_rstw_var_active('sfx_b')376 ENDIF377 378 368 END SUBROUTINE sbc_init 379 369 … … 514 504 IF( kt == nit000 ) THEN ! set the forcing field at nit000 - 1 ! 515 505 ! ! ---------------------------------------- ! 506 IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 516 507 IF( ln_rstart .AND. & !* Restart: read in restart file 517 508 & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN … … 537 528 sfx_b (:,:) = sfx (:,:) 538 529 ENDIF 530 IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 539 531 ENDIF 540 532 ! ! ---------------------------------------- !
Note: See TracChangeset
for help on using the changeset viewer.