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

Timestamp:

May 9, 2018 8:42:38 AM (6 years ago)

Author:

maronga

Message:

series of bugfixes

File:

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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Fixed a bug in the IF condition to call pcm_tendency in case of 
+! potential temperature
+! 
+! 2815 2018-02-19 11:29:57Z kanani
 ! Rename chem_tendency to chem_prognostic_equations,
 ! implement vector version for air chemistry
@@ -298 +302 @@
                timestep_scheme, tsc, use_subsidence_tendencies,                &
                use_upstream_for_tke, wind_turbine, ws_scheme_mom,              & 
-               ws_scheme_sca
+               ws_scheme_sca, urban_surface, land_surface
 
     USE cpulog,                                                                &
@@ -759 +763 @@
 !
 !--          Consideration of heat sources within the plant canopy
-             IF ( plant_canopy  .AND.  cthf /= 0.0_wp )  THEN
+             IF ( plant_canopy  .AND.                                          &
+                (cthf /= 0.0_wp  .OR. urban_surface  .OR.  land_surface) )  THEN
                 CALL pcm_tendency( i, j, 4 )
              ENDIF
@@ -1325 +1330 @@
 
 
-
-
     CALL cpu_log( log_point(32), 'all progn.equations', 'stop' )
 
@@ -1671 +1674 @@
 !
 !--    Consideration of heat sources within the plant canopy
-       IF ( plant_canopy .AND. ( cthf /= 0.0_wp ) ) THEN
+       IF ( plant_canopy  .AND.                                          &
+            (cthf /= 0.0_wp  .OR. urban_surface  .OR.  land_surface) )  THEN
           CALL pcm_tendency( 4 )
        ENDIF
@@ -1718 +1722 @@
           ENDDO
        ENDDO
-
 !
 !--    Calculate tendencies for the next Runge-Kutta step