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

Timestamp:

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

Author:

maronga

Message:

Added support for RRTMG radiation code

File:

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

palm/trunk/SOURCE/data_output_mask.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Added support for RRTMG
 ! 
 ! Former revisions:
@@ -108 +108 @@
     
     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
@@ -393 +397 @@
              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
+
           CASE ( 'rho' )
              IF ( av == 0 )  THEN