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

Timestamp:

Jun 1, 2017 1:45:34 PM (7 years ago)

Author:

hellstea

Message:

index error in nesting corrected

File:

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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -21 +21 @@
 ! Current revisions:
 ! ------------------
-! 
+! A minor indexing error in pmci_init_loglaw_correction is corrected.
 ! 
 ! Former revisions:
@@ -31 +31 @@
 ! 
 ! 2229 2017-05-30 14:52:52Z hellstea
-! A minor indexing error in init_anterp_tophat is corrected.
+! A minor indexing error in pmci_init_anterp_tophat is corrected.
 ! 
 ! 2174 2017-03-13 08:18:57Z maronga
@@ -1531 +1531 @@
        nk = 1
        DO  k = 1, nzt_topo_max
-          nk = MAX( nk, CEILING( cg%dzu(k) / dzu(k) ) )
+          nk = MAX( nk, CEILING( cg%dzu(kco(k)) / dzu(k) ) )
        ENDDO
        nk = nk / 2   !  Note that this must be integer division.