Changeset 1701 for palm/trunk/SOURCE/data_output_2d.f90

Timestamp:

Nov 2, 2015 7:43:04 AM (8 years ago)

Author:

maronga

Message:

minor bugfixes for radiation model. bugfix in subjob

File:

• palm/trunk/SOURCE/data_output_2d.f90 (modified) (9 diffs)

palm/trunk/SOURCE/data_output_2d.f90

@@ -15 +15 @@
 !
 ! Copyright 1997-2015 Leibniz Universitaet Hannover
-!--------------------------------------------------------------------------------!
+ !--------------------------------------------------------------------------------!
 !
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix in output of RRTGM data
 ! 
 ! Former revisions:
@@ -953 +953 @@
                    to_be_resorted => rad_lw_in_av
                 ENDIF
+                IF ( mode == 'xy' )  level_z = zu
 
              CASE ( 'rad_lw_out_xy', 'rad_lw_out_xz', 'rad_lw_out_yz' )
@@ -960 +961 @@
                    to_be_resorted => rad_lw_out_av
                 ENDIF
+                IF ( mode == 'xy' )  level_z = zu
 
              CASE ( 'rad_lw_cs_hr_xy', 'rad_lw_cs_hr_xz', 'rad_lw_cs_hr_yz' )
@@ -967 +969 @@
                    to_be_resorted => rad_lw_cs_hr_av
                 ENDIF
+                IF ( mode == 'xy' )  level_z = zw
 
              CASE ( 'rad_lw_hr_xy', 'rad_lw_hr_xz', 'rad_lw_hr_yz' )
@@ -974 +977 @@
                    to_be_resorted => rad_lw_hr_av
                 ENDIF
+                IF ( mode == 'xy' )  level_z = zw
 
              CASE ( 'rad_sw_in_xy', 'rad_sw_in_xz', 'rad_sw_in_yz' )
@@ -981 +985 @@
                    to_be_resorted => rad_sw_in_av
                 ENDIF
+                IF ( mode == 'xy' )  level_z = zu
 
              CASE ( 'rad_sw_out_xy', 'rad_sw_out_xz', 'rad_sw_out_yz' )
@@ -988 +993 @@
                    to_be_resorted => rad_sw_out_av
                 ENDIF
+                IF ( mode == 'xy' )  level_z = zu
 
              CASE ( 'rad_sw_cs_hr_xy', 'rad_sw_cs_hr_xz', 'rad_sw_cs_hr_yz' )
@@ -995 +1001 @@
                    to_be_resorted => rad_sw_cs_hr_av
                 ENDIF
+                IF ( mode == 'xy' )  level_z = zw
 
              CASE ( 'rad_sw_hr_xy', 'rad_sw_hr_xz', 'rad_sw_hr_yz' )
@@ -1002 +1009 @@
                    to_be_resorted => rad_sw_hr_av
                 ENDIF
+                IF ( mode == 'xy' )  level_z = zw
 
              CASE ( 'rho_xy', 'rho_xz', 'rho_yz' )