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

Timestamp:

Nov 4, 2015 2:47:01 PM (8 years ago)

Author:

maronga

Message:

several bugfixes related to the new surface layer routine and land-surface-radiation interaction

File:

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

palm/trunk/SOURCE/write_3d_binary.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Added rad_lw_out_change_0, increased binary_version
 ! 
 ! Former revisions:
@@ -114 +114 @@
     USE radiation_model_mod,                                                   &
         ONLY: radiation, rad_net, rad_net_av, rad_lw_in, rad_lw_in_av,         &
-              rad_lw_out, rad_lw_out_av, rad_lw_cs_hr, rad_lw_cs_hr_av,        &
-              rad_lw_hr, rad_lw_hr_av, rad_sw_in, rad_sw_in_av, rad_sw_out,    &
-              rad_sw_out_av, rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr,         &
-              rad_sw_hr_av
+              rad_lw_out, rad_lw_out_av, rad_lw_out_change_0, rad_lw_cs_hr,   &
+              rad_lw_cs_hr_av, rad_lw_hr, rad_lw_hr_av, rad_sw_in,             &
+              rad_sw_in_av, rad_sw_out, rad_sw_out_av, rad_sw_cs_hr,           &
+              rad_sw_cs_hr_av, rad_sw_hr, rad_sw_hr_av
 
     USE random_function_mod,                                                   &
@@ -139 +139 @@
 !
 !-- Write arrays.
-    binary_version = '4.1'
+    binary_version = '4.2'
 
     WRITE ( 14 )  binary_version
@@ -297 +297 @@
           WRITE ( 14 )  'rad_lw_out_av       ';  WRITE ( 14 )  rad_lw_out_av  
        ENDIF 
+       IF ( ALLOCATED( rad_lw_out_change_0 ) )  THEN
+          WRITE ( 14 )  'rad_lw_out_change_0 '
+          WRITE ( 14 )  rad_lw_out_change_0
+       ENDIF
        IF ( ALLOCATED( rad_lw_cs_hr ) )  THEN
           WRITE ( 14 )  'rad_lw_cs_hr        ';  WRITE ( 14 )  rad_lw_cs_hr