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

Timestamp:

Feb 8, 2018 1:24:35 PM (6 years ago)

Author:

suehring

Message:

Output of ground-heat flux at natural- and urban-type surfaces in one output variable; enable restart data of _av variables that belong to both land- and urban-surface model

File:

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

palm/trunk/SOURCE/write_3d_binary.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Enable restarts for land- and urban-surface variables ghf_av, r_a_av and 
+! tsurf_av.
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -135 +139 @@
 
     USE control_parameters,                                                    &
-        ONLY:  iran, humidity, passive_scalar, cloud_physics, cloud_droplets,  &
-               microphysics_morrison, microphysics_seifert, ocean, topography
+        ONLY:  cloud_physics, cloud_droplets, humidity, iran,                  &
+               land_surface, microphysics_morrison, microphysics_seifert,      &
+               ocean, passive_scalar, topography, urban_surface
                 
     USE indices,                                                               &
@@ -378 +383 @@
        WRITE ( 14 )  'z0q_av              ';  WRITE ( 14 )  z0q_av
     ENDIF
+    IF ( land_surface  .OR.  urban_surface )  THEN
+       IF ( ALLOCATED( ghf_av ) )  THEN
+          WRITE ( 14 )  'ghf_av              ';  WRITE ( 14 )  ghf_av
+       ENDIF
+       IF ( ALLOCATED( r_a_av ) )  THEN
+          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
 
 !