Changeset 2798 for palm/trunk/SOURCE/write_3d_binary.f90

Timestamp:

Feb 9, 2018 5:16:39 PM (7 years ago)

Author:

suehring

Message:

Bugfix initialization of %pt_surface array; Output of surface temperature also for default-type surfaces

File:

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

palm/trunk/SOURCE/write_3d_binary.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Consider also default-type surfaces for surface temperature output. 
+! 
+! 2797 2018-02-08 13:24:35Z suehring
 ! Enable restarts for land- and urban-surface variables ghf_av, r_a_av and 
 ! tsurf_av.
@@ -390 +393 @@
           WRITE ( 14 )  'r_a_av              ';  WRITE ( 14 )  r_a_av
        ENDIF
-       IF ( ALLOCATED( tsurf_av ) )  THEN
-          WRITE ( 14 )  'tsurf_av            ';  WRITE ( 14 )  tsurf_av
-       ENDIF
+    ENDIF
+    IF ( ALLOCATED( tsurf_av ) )  THEN
+       WRITE ( 14 )  'tsurf_av            ';  WRITE ( 14 )  tsurf_av
     ENDIF