Changeset 4535 for palm/trunk/SOURCE/surface_data_output_mod.f90
- Timestamp:
- May 15, 2020 12:07:23 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/surface_data_output_mod.f90
r4517 r4535 25 25 ! ----------------- 26 26 ! $Id$ 27 ! bugfix for restart data format query 28 ! 29 ! 4517 2020-05-03 14:29:30Z raasch 27 30 ! added restart with MPI-IO for reading local arrays 28 31 ! … … 4954 4957 WRITE ( 14 ) average_count_surf 4955 4958 4956 ELSEIF ( TRIM( restart_data_format_output) == 'mpi' ) THEN4959 ELSEIF ( restart_data_format_output(1:3) == 'mpi' ) THEN 4957 4960 4958 4961 CALL wrd_mpi_io( 'average_count_surf', average_count_surf ) … … 4979 4982 ENDIF 4980 4983 4981 ELSEIF ( TRIM( restart_data_format_output) == 'mpi' ) THEN4984 ELSEIF ( restart_data_format_output(1:3) == 'mpi' ) THEN 4982 4985 4983 4986 IF ( ALLOCATED( surfaces%var_av ) ) CALL wrd_mpi_io( 'surfaces%var_av', surfaces%var_av )
Note: See TracChangeset
for help on using the changeset viewer.