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

Timestamp:

May 16, 2018 8:14:20 AM (6 years ago)

Author:

maronga

Message:

bugfixes for nested runs

File:

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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: variable lcr was defined as INTENT(OUT) instead of INTENT(INOUT)
+! 
+! 3020 2018-05-14 10:45:48Z hellstea
 ! Bugfix in pmci_define_loglaw_correction_parameters
 ! 
@@ -2691 +2694 @@
        LOGICAL      ::  more                                   !<             
 
-       REAL(wp), DIMENSION(0:ncorr-1), INTENT(OUT) ::  lcr     !<
+       REAL(wp), DIMENSION(0:ncorr-1), INTENT(INOUT) ::  lcr   !<
        REAL(wp), INTENT(IN)      ::  z0_l                      !<