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

Timestamp:

Jun 13, 2017 11:34:50 AM (7 years ago)

Author:

suehring

Message:

Clean-up unnecessary index access to surface type

File:

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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -5671 +5671 @@
 !--          For simplicity anterpolate within buildings and under elevated
 !--          terrain too
-             DO  kk = kcb, kct
+             DO  kk = kcb, kct-1
 !
 !--             ijfc and kfc are precomputed in pmci_init_anterp_tophat
@@ -5690 +5690 @@
 
              ENDDO
+             fc(kct,jj,ii) = fc(kct,jj,ii)
+
           ENDDO
        ENDDO