Changeset 4535 for palm/trunk/SOURCE/bulk_cloud_model_mod.f90

Timestamp:

May 15, 2020 12:07:23 PM (4 years ago)

Author:

raasch

Message:

bugfix for restart data format query

File:

• palm/trunk/SOURCE/bulk_cloud_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/bulk_cloud_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for restart data format query
+! 
+! 4533 2020-05-14 14:46:46Z schwenkel
 ! Reformat intrinsic function
 ! 
@@ -3742 +3745 @@
           WRITE ( 14 )  ice_crystal_sedimentation
 
-       ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
+       ELSEIF ( restart_data_format_output(1:3) == 'mpi' )  THEN
 
           CALL wrd_mpi_io( 'c_sedimentation', c_sedimentation )
@@ -3865 +3868 @@
           ENDIF
 
-       ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
+       ELSEIF ( restart_data_format_output(1:3) == 'mpi' )  THEN
 
           IF ( ALLOCATED( prr ) )  CALL wrd_mpi_io( 'prr', prr )