Changeset 4039 for palm/trunk/SOURCE/write_restart_data_mod.f90
- Timestamp:
- Jun 18, 2019 10:32:41 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/write_restart_data_mod.f90
r4017 r4039 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Modularize diagnostic output 28 ! 29 ! 4017 2019-06-06 12:16:46Z schwenkel 27 30 ! output of turbulence intensity added 28 31 ! … … 95 98 ONLY: day_of_year_init, time_utc_init 96 99 97 USE diagnostic_output_quantities_mod, &98 ONLY: ti_av99 100 100 USE grid_variables, & 101 101 ONLY: dx, dy … … 1067 1067 ENDIF 1068 1068 1069 IF ( ALLOCATED( ti_av ) ) THEN1070 CALL wrd_write_string( 'ti_av' )1071 WRITE ( 14 ) ti_av1072 ENDIF1073 1074 1069 IF ( ALLOCATED( ts_av ) ) THEN 1075 1070 CALL wrd_write_string( 'ts_av' )
Note: See TracChangeset
for help on using the changeset viewer.