- Timestamp:
- 2017-05-26T12:09:41+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r6498 r8079 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 … … 970 971 ! ! ------------------- 971 972 IF(lwp) WRITE(numout,*) '---- tke-rst ----' 972 CALL iom_rstput( kt, nitrst, numrow, 'en' , en ) 973 CALL iom_rstput( kt, nitrst, numrow, 'avt' , avt_k ) 974 CALL iom_rstput( kt, nitrst, numrow, 'avm' , avm_k ) 975 CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k ) 976 CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k ) 977 CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl ) 973 IF( lwxios ) CALL iom_swap( wxios_context ) 974 CALL iom_rstput( kt, nitrst, numrow, 'en' , en , lxios = lwxios ) 975 CALL iom_rstput( kt, nitrst, numrow, 'avt' , avt_k , lxios = lwxios ) 976 CALL iom_rstput( kt, nitrst, numrow, 'avm' , avm_k , lxios = lwxios ) 977 CALL iom_rstput( kt, nitrst, numrow, 'avmu' , avmu_k, lxios = lwxios ) 978 CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k, lxios = lwxios ) 979 CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl , lxios = lwxios ) 980 IF( lwxios ) CALL iom_swap( cxios_context ) 978 981 ! 979 982 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.