Changeset 2298 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Jun 29, 2017 9:28:18 AM (7 years ago)

Author:

raasch

Message:

write_binary is of type LOGICAL now, MPI2-related code removed, obsolete variables removed, sendrecv_in_background related parts removed, missing variable descriptions added

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! type of write_binary changed from CHARACTER to LOGICAL
+! 
+! 2296 2017-06-28 07:53:56Z maronga
 ! Added output of rad_sw_out for radiation_scheme = 'constant'
 ! 
@@ -3342 +3345 @@
     IMPLICIT NONE
 
-    IF ( write_binary(1:4) == 'true' )  THEN
+    IF ( write_binary )  THEN
        IF ( ALLOCATED( rad_net ) )  THEN
           WRITE ( 14 )  'rad_net             ';  WRITE ( 14 )  rad_net