Changeset 4134

Timestamp:

Aug 2, 2019 6:39:57 PM (5 years ago)

Author:

suehring

Message:

Remove faulty debug write

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -6319 +6319 @@
 !      option is to correct the value again to double the urban surface layer height)
        IF ( max_raytracing_dist  <  mrl ) THEN
-       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