Changeset 2770 for palm

Timestamp:

Jan 25, 2018 3:10:09 PM (6 years ago)

Author:

kanani

Message:

Correction of parameter check

File:

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

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Correction of parameter check
+! 
+! 2768 2018-01-24 15:38:29Z kanani
 ! Added check for output quantity pcm_heatrate, some formatting
 ! 
@@ -277 +280 @@
  
     USE control_parameters,                                                 &
-        ONLY:  data_output, message_string
+        ONLY:  data_output, message_string, urban_surface
 
     IMPLICIT NONE
@@ -288 +291 @@
 
        CASE ( 'pcm_heatrate' )
-          IF ( cthf == 0.0_wp )  THEN
+          IF ( cthf == 0.0_wp  .AND. .NOT.  urban_surface )  THEN
              message_string = 'output of "' // TRIM( var ) // '" requi' //  &
                               'res setting of parameter cthf /= 0.0'