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

Timestamp:

Nov 6, 2020 12:18:28 PM (4 years ago)

Author:

raasch

Message:

Further bugfix for r4774

File:

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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Further bugfix for r4774
+!
+! 4774 2020-11-06 07:50:30Z hellstea
 ! Temporary bugfix for r4771: default for anterpolation_starting_height changed.
 !
@@ -2477 +2480 @@
 !--    Check if the value was given by user or not
        IF ( anterpolation_starting_height > 9000000.0_wp )  THEN
-!         
-!--       No value was given by user, compute a default value first.
-!          CALL default_anterpolation_starting_height( 99 )
 !
 !--       Currently, the default-value definition is not used, but kpb_anterp    
@@ -2486 +2486 @@
           anterpolation_starting_height = 0.0_wp
           RETURN
+       ELSEIF ( anterpolation_starting_height == -1.0_wp )  THEN
+!
+!--       As a workaround, the future default calculation of the anterpolation starting height
+!--       is switched on by giving -1.0
+          CALL default_anterpolation_starting_height( 99 )
        ENDIF