- 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/ZDF/zdftke.F90
r8668 r8770 53 53 USE timing ! Timing 54 54 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 55 USE iom_def, ONLY : lwxios 55 56 #if defined key_agrif 56 57 USE agrif_opa_interp … … 815 816 CALL tke_rst( nit000, 'READ' ) !* read or initialize all required files 816 817 ! 818 IF( lwxios ) THEN 819 CALL iom_set_rstw_var_active('en') 820 CALL iom_set_rstw_var_active('avt') 821 CALL iom_set_rstw_var_active('avm') 822 CALL iom_set_rstw_var_active('avmu') 823 CALL iom_set_rstw_var_active('avmv') 824 CALL iom_set_rstw_var_active('dissl') 825 ENDIF 826 817 827 END SUBROUTINE zdf_tke_init 818 828 … … 881 891 ! ! ------------------- 882 892 IF(lwp) WRITE(numout,*) '---- tke-rst ----' 883 CALL iom_rstput( kt, nitrst, numrow, 'en' , en ) 884 CALL iom_rstput( kt, nitrst, numrow, 'avt' , avt_k ) 885 CALL iom_rstput( kt, nitrst, numrow, 'avm' , avm_k ) 886 CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k ) 887 CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k ) 888 CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl ) 893 IF( lwxios ) CALL iom_swap( cwxios_context ) 894 CALL iom_rstput( kt, nitrst, numrow, 'en' , en , ldxios = lwxios ) 895 CALL iom_rstput( kt, nitrst, numrow, 'avt' , avt_k , ldxios = lwxios ) 896 CALL iom_rstput( kt, nitrst, numrow, 'avm' , avm_k , ldxios = lwxios ) 897 CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k, ldxios = lwxios ) 898 CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k, ldxios = lwxios ) 899 CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl , ldxios = lwxios ) 900 IF( lwxios ) CALL iom_swap( cxios_context ) 889 901 ! 890 902 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.