Changeset 4774 for palm/trunk/SOURCE/pmc_interface_mod.f90

Timestamp:

Nov 6, 2020 7:50:30 AM (4 years ago)

Author:

hellstea

Message:

Temporary bugfix for r4771: default for anterpolation_starting_height changed

File:

• palm/trunk/SOURCE/pmc_interface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Temporary bugfix for r4771: default for anterpolation_starting_height changed.
+!
+! 4773 2020-11-04 16:30:24Z hellstea
 ! Canopy-restricted anterpolation introduced. New namelist parameter anterpolation_starting_height
 ! introduced for controlling canopy-restricted anterpolation.
@@ -2476 +2479 @@
 !         
 !--       No value was given by user, compute a default value first.
-          CALL default_anterpolation_starting_height( 99 )
+!          CALL default_anterpolation_starting_height( 99 )
+!
+!--       Currently, the default-value definition is not used, but kpb_anterp    
+!--       is simply left to zero. The default value-definition will be
+!--       activated later.
+          anterpolation_starting_height = 0.0_wp
+          RETURN
        ENDIF