- 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/ZDF/zdftke.F90
r12702 r12950 634 634 CALL tke_rst( nit000, 'READ' ) ! (en, avt_k, avm_k, dissl) 635 635 ! 636 IF( lwxios ) THEN637 CALL iom_set_rstw_var_active('en')638 CALL iom_set_rstw_var_active('avt_k')639 CALL iom_set_rstw_var_active('avm_k')640 CALL iom_set_rstw_var_active('dissl')641 ENDIF642 636 END SUBROUTINE zdf_tke_init 643 637 … … 665 659 ! ! --------------- 666 660 IF( ln_rstart ) THEN !* Read the restart file 661 IF( lrxios ) CALL iom_swap( TRIM(crxios_context) ) 667 662 id1 = iom_varid( numror, 'en' , ldstop = .FALSE. ) 668 663 id2 = iom_varid( numror, 'avt_k', ldstop = .FALSE. ) … … 682 677 ! avt_k, avm_k already set to the background value in zdf_phy_init 683 678 ENDIF 679 IF( lrxios ) CALL iom_swap( TRIM(cxios_context) ) 684 680 ELSE !* Start from rest 685 681 IF(lwp) WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.