Changeset 3771 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

Feb 28, 2019 12:19:33 PM (5 years ago)

Author:

raasch

Message:

rrtmg preprocessor for directives moved/added, save attribute added to temporary pointers to avoid compiler warnings about outlived pointer targets, statement added to avoid compiler warning about unused variable

File:

• palm/trunk/SOURCE/prognostic_equations.f90 (modified) (6 diffs)

palm/trunk/SOURCE/prognostic_equations.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! preprocessor directivs fro rrtmg added
+! 
+! 3761 2019-02-25 15:31:42Z raasch
 ! unused variable removed
 ! 
@@ -425 +428 @@
         ONLY:  cthf, pcm_tendency
 
+#if defined( __rrtmg )
     USE radiation_model_mod,                                                   &
         ONLY:  radiation, radiation_tendency,                                  &
                skip_time_do_radiation
+#endif
                           
     USE salsa_mod,                                                             &
@@ -943 +948 @@
              ENDIF
 
+#if defined( __rrtmg )
 !
 !--          If required, add tendency due to radiative heating/cooling
@@ -949 +955 @@
                 CALL radiation_tendency ( i, j, tend )
              ENDIF
-
+#endif
 
              CALL module_interface_actions( i, j, 'pt-tendency' )
@@ -1957 +1963 @@
        ENDIF
 
+#if defined( __rrtmg )
 !
 !--    If required, add tendency due to radiative heating/cooling
@@ -1963 +1970 @@
             CALL radiation_tendency ( tend )
        ENDIF
+#endif
 
        CALL module_interface_actions( 'pt-tendency' )