Changeset 4017 for palm/trunk/SOURCE/write_restart_data_mod.f90
- Timestamp:
- Jun 6, 2019 12:16:46 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/write_restart_data_mod.f90
r3994 r4017 116 116 ONLY: netcdf_precision, output_for_t0 117 117 118 USE particle_attributes, &119 ONLY: curvature_solution_effects, iran_part120 121 118 USE pegrid, & 122 119 ONLY: collective_wait, hor_index_bounds, myid, numprocs … … 324 321 WRITE ( 14 ) current_timestep_number 325 322 326 CALL wrd_write_string( 'curvature_solution_effects' )327 WRITE ( 14 ) curvature_solution_effects328 329 323 CALL wrd_write_string( 'cycle_mg' ) 330 324 WRITE ( 14 ) cycle_mg … … 371 365 CALL wrd_write_string( 'dt_run_control_1d' ) 372 366 WRITE ( 14 ) dt_run_control_1d 373 374 CALL wrd_write_string( 'dvrp_filecount' )375 WRITE ( 14 ) dvrp_filecount376 367 377 368 CALL wrd_write_string( 'dx' ) … … 707 698 WRITE ( 14 ) time_dots 708 699 709 CALL wrd_write_string( 'time_dvrp' )710 WRITE ( 14 ) time_dvrp711 712 700 CALL wrd_write_string( 'time_radiation' ) 713 701 WRITE ( 14 ) time_radiation … … 935 923 ENDIF 936 924 937 CALL wrd_write_string( 'iran' )938 WRITE ( 14 ) iran, iran_part939 940 925 CALL wrd_write_string( 'kh' ) 941 926 WRITE ( 14 ) kh
Note: See TracChangeset
for help on using the changeset viewer.