Ignore:
Timestamp:
Nov 6, 2020 12:18:28 PM (4 years ago)
Author:
raasch
Message:

Further bugfix for r4774

File:
1 edited

Legend:

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

    r4774 r4775  
    2525! -----------------
    2626! $Id$
     27! Further bugfix for r4774
     28!
     29! 4774 2020-11-06 07:50:30Z hellstea
    2730! Temporary bugfix for r4771: default for anterpolation_starting_height changed.
    2831!
     
    24772480!--    Check if the value was given by user or not
    24782481       IF ( anterpolation_starting_height > 9000000.0_wp )  THEN
    2479 !         
    2480 !--       No value was given by user, compute a default value first.
    2481 !          CALL default_anterpolation_starting_height( 99 )
    24822482!
    24832483!--       Currently, the default-value definition is not used, but kpb_anterp   
     
    24862486          anterpolation_starting_height = 0.0_wp
    24872487          RETURN
     2488       ELSEIF ( anterpolation_starting_height == -1.0_wp )  THEN
     2489!
     2490!--       As a workaround, the future default calculation of the anterpolation starting height
     2491!--       is switched on by giving -1.0
     2492          CALL default_anterpolation_starting_height( 99 )
    24882493       ENDIF
    24892494
Note: See TracChangeset for help on using the changeset viewer.