Changeset 4133 for palm/trunk


Ignore:
Timestamp:
Aug 2, 2019 6:36:23 PM (5 years ago)
Author:
suehring
Message:

Bugfix in formatted WRITE

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r4127 r4133  
    2828! -----------------
    2929! $Id$
     30! Bugfix in formatted write statement
     31!
     32! 4127 2019-07-30 14:47:10Z suehring
    3033! Remove unused pch_index (merge from branch resler)
    3134!
     
    63166319!      option is to correct the value again to double the urban surface layer height)
    63176320       IF ( max_raytracing_dist  <  mrl ) THEN
    6318           WRITE(message_string, '(a,f6.1)') 'Max_raytracing_dist is set less than ', &
     6321       write(9,*) "mrl", mrl
     6322       flush(9)
     6323          WRITE(message_string, '(a,f6.1)') 'Max_raytracing_dist is set less than ' // &
    63196324               'double the urban surface layer height, i.e. ', mrl
    63206325          CALL message('radiation_interaction_init', 'PA0521', 0, 0, -1, 6, 0)
Note: See TracChangeset for help on using the changeset viewer.