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

Timestamp:

Aug 21, 2017 7:50:30 AM (7 years ago)

Author:

hellstea

Message:

Minor bugfix in nesting initialization

File:

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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! A minor indexing error in pmci_init_loglaw_correction is corrected. 
+! 
+! 2351 2017-08-15 12:03:06Z kanani
 ! Removed check (PA0420) for nopointer version
 ! 
@@ -1509 +1512 @@
        nk = 1
        DO  k = 1, nzt_topo_max
-          nk = MAX( nk, CEILING( cg%dzu(kco(k)) / dzu(k) ) )
+          nk = MAX( nk, CEILING( cg%dzu(kco(k)+1) / dzu(k) ) )
        ENDDO
        nk = nk / 2   !  Note that this must be integer division.