Changeset 2770 for palm/trunk


Ignore:
Timestamp:
Jan 25, 2018 3:10:09 PM (7 years ago)
Author:
kanani
Message:

Correction of parameter check

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/plant_canopy_model_mod.f90

    r2768 r2770  
    2525! -----------------
    2626! $Id$
     27! Correction of parameter check
     28!
     29! 2768 2018-01-24 15:38:29Z kanani
    2730! Added check for output quantity pcm_heatrate, some formatting
    2831!
     
    277280 
    278281    USE control_parameters,                                                 &
    279         ONLY:  data_output, message_string
     282        ONLY:  data_output, message_string, urban_surface
    280283
    281284    IMPLICIT NONE
     
    288291
    289292       CASE ( 'pcm_heatrate' )
    290           IF ( cthf == 0.0_wp )  THEN
     293          IF ( cthf == 0.0_wp  .AND. .NOT.  urban_surface )  THEN
    291294             message_string = 'output of "' // TRIM( var ) // '" requi' //  &
    292295                              'res setting of parameter cthf /= 0.0'
Note: See TracChangeset for help on using the changeset viewer.