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

Timestamp:

Jul 27, 2016 1:28:04 PM (8 years ago)

Author:

maronga

Message:

further modularization of land surface model (2D/3D output and restart data). Bugfix for restart runs without land surface model

File:

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

palm/trunk/SOURCE/write_3d_binary.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Radiation actions are now done directly in the respective module.
+! Binary version increased to 4.5.
 ! 
 ! Former revisions:
@@ -122 +123 @@
     USE pegrid
     
-    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_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,                                                   &
         ONLY:  random_iv, random_iy
@@ -149 +143 @@
 !
 !-- Write arrays.
-    binary_version = '4.4'
+    binary_version = '4.5'
 
     WRITE ( 14 )  binary_version
@@ -254 +248 @@
        WRITE ( 14 )  'sswst               ';  WRITE ( 14 ) sswst
     ENDIF    
-    IF ( ALLOCATED( rad_net ) )  THEN
-       WRITE ( 14 )  'rad_net             ';  WRITE ( 14 )  rad_net  
-    ENDIF
-    IF ( radiation )  THEN
-       IF ( ALLOCATED( rad_net_av ) )  THEN
-          WRITE ( 14 )  'rad_net_av          ';  WRITE ( 14 )  rad_net_av  
-       ENDIF  
-       IF ( ALLOCATED( rad_lw_in ) )  THEN
-          WRITE ( 14 )  'rad_lw_in           ';  WRITE ( 14 )  rad_lw_in  
-       ENDIF
-       IF ( ALLOCATED( rad_lw_in_av ) )  THEN
-          WRITE ( 14 )  'rad_lw_in_av        ';  WRITE ( 14 )  rad_lw_in_av  
-       ENDIF 
-       IF ( ALLOCATED( rad_lw_out ) )  THEN
-          WRITE ( 14 )  'rad_lw_out          ';  WRITE ( 14 )  rad_lw_out 
-       ENDIF 
-       IF ( ALLOCATED( rad_lw_out_av ) )  THEN
-          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
-       ENDIF
-       IF ( ALLOCATED( rad_lw_cs_hr_av ) )  THEN
-          WRITE ( 14 )  'rad_lw_cs_hr_av     ';  WRITE ( 14 )  rad_lw_cs_hr_av
-       ENDIF
-       IF ( ALLOCATED( rad_lw_hr ) )  THEN
-          WRITE ( 14 )  'rad_lw_hr           ';  WRITE ( 14 )  rad_lw_hr
-       ENDIF
-       IF ( ALLOCATED( rad_lw_hr_av ) )  THEN
-          WRITE ( 14 )  'rad_lw_hr_av        ';  WRITE ( 14 )  rad_lw_hr_av
-       ENDIF
-       IF ( ALLOCATED( rad_sw_in ) )  THEN
-          WRITE ( 14 )  'rad_sw_in           ';  WRITE ( 14 )  rad_sw_in  
-       ENDIF 
-       IF ( ALLOCATED( rad_sw_in_av ) )  THEN
-          WRITE ( 14 )  'rad_sw_in_av        ';  WRITE ( 14 )  rad_sw_in_av  
-       ENDIF 
-       IF ( ALLOCATED( rad_sw_out ) )  THEN
-          WRITE ( 14 )  'rad_sw_out          ';  WRITE ( 14 )  rad_sw_out  
-       ENDIF 
-       IF ( ALLOCATED( rad_sw_out_av ) )  THEN
-          WRITE ( 14 )  'rad_sw_out_av       ';  WRITE ( 14 )  rad_sw_out_av  
-       ENDIF 
-       IF ( ALLOCATED( rad_sw_cs_hr ) )  THEN
-          WRITE ( 14 )  'rad_sw_cs_hr        ';  WRITE ( 14 )  rad_sw_cs_hr
-       ENDIF
-       IF ( ALLOCATED( rad_sw_cs_hr_av ) )  THEN
-          WRITE ( 14 )  'rad_sw_cs_hr_av     ';  WRITE ( 14 )  rad_sw_cs_hr_av
-       ENDIF
-       IF ( ALLOCATED( rad_sw_hr ) )  THEN
-          WRITE ( 14 )  'rad_sw_hr           ';  WRITE ( 14 )  rad_sw_hr
-       ENDIF
-       IF ( ALLOCATED( rad_sw_hr_av ) )  THEN
-          WRITE ( 14 )  'rad_sw_hr_av        ';  WRITE ( 14 )  rad_sw_hr_av
-       ENDIF
-    ENDIF
     IF ( ocean )  THEN
        IF ( ALLOCATED( rho_av ) )  THEN