Changeset 1585 for palm/trunk/SOURCE/data_output_3d.f90

Timestamp:

Apr 30, 2015 7:05:52 AM (9 years ago)

Author:

maronga

Message:

Added support for RRTMG radiation code

File:

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

palm/trunk/SOURCE/data_output_3d.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Added support for RRTMG
 ! 
 ! Former revisions:
@@ -128 +128 @@
         
     USE pegrid
+
+    USE radiation_model_mod,                                                   &
+        ONLY:  rad_lw_in, rad_lw_in_av, rad_lw_out, rad_lw_out_av,             &
+               rad_sw_in, rad_sw_in_av, rad_sw_out, rad_sw_out_av
+
 
     IMPLICIT NONE
@@ -467 +472 @@
              ELSE
                 to_be_resorted => qv_av
+             ENDIF
+
+          CASE ( 'rad_sw_in' )
+             IF ( av == 0 )  THEN
+                to_be_resorted => rad_sw_in
+             ELSE
+                to_be_resorted => rad_sw_in_av
+             ENDIF
+
+          CASE ( 'rad_sw_out' )
+             IF ( av == 0 )  THEN
+                to_be_resorted => rad_sw_out
+             ELSE
+                to_be_resorted => rad_sw_out_av
+             ENDIF
+
+          CASE ( 'rad_lw_in' )
+             IF ( av == 0 )  THEN
+                to_be_resorted => rad_lw_in
+             ELSE
+                to_be_resorted => rad_lw_in_av
+             ENDIF
+
+          CASE ( 'rad_lw_out' )
+             IF ( av == 0 )  THEN
+                to_be_resorted => rad_lw_out
+             ELSE
+                to_be_resorted => rad_lw_out_av
              ENDIF