Changeset 4133 for palm

Timestamp:

Aug 2, 2019 6:36:23 PM (5 years ago)

Author:

suehring

Message:

Bugfix in formatted WRITE

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix in formatted write statement
+! 
+! 4127 2019-07-30 14:47:10Z suehring
 ! Remove unused pch_index (merge from branch resler)
 ! 
@@ -6316 +6319 @@
 !      option is to correct the value again to double the urban surface layer height)
        IF ( max_raytracing_dist  <  mrl ) THEN
-          WRITE(message_string, '(a,f6.1)') 'Max_raytracing_dist is set less than ', &
+       write(9,*) "mrl", mrl
+       flush(9)
+          WRITE(message_string, '(a,f6.1)') 'Max_raytracing_dist is set less than ' // &
                'double the urban surface layer height, i.e. ', mrl
           CALL message('radiation_interaction_init', 'PA0521', 0, 0, -1, 6, 0)