Changeset 1585 for palm/trunk/SOURCE/prognostic_equations.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/prognostic_equations.f90 (modified) (4 diffs)

palm/trunk/SOURCE/prognostic_equations.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! Added call for temperature tendency calculation due to radiative flux divergence
 ! 
 ! Former revisions:
@@ -277 +277 @@
         ONLY:  production_e, production_e_acc
 
+    USE radiation_model_mod,                                                   &
+        ONLY:  radiation, radiation_scheme, radiation_tendency
+
     USE statistics,                                                            &
         ONLY:  hom
@@ -593 +596 @@
                 CALL subsidence( i, j, tend, pt, pt_init, 2 )
              ENDIF
+
+!
+!--          If required, add tendency due to radiative heating/cooling
+             IF ( radiation .AND. radiation_scheme == 'rrtmg' )  THEN
+                CALL radiation_tendency ( i, j, tend )
+             ENDIF
+
 
              CALL user_actions( i, j, 'pt-tendency' )
@@ -1246 +1256 @@
             .NOT. use_subsidence_tendencies )  THEN
           CALL subsidence( tend, pt, pt_init, 2 )
+       ENDIF
+
+!
+!--    If required, add tendency due to radiative heating/cooling
+       IF ( radiation .AND. radiation_scheme == 'rrtmg' )  THEN
+          CALL radiation_tendency ( tend )
        ENDIF