Changeset 2239

Timestamp:

Jun 1, 2017 12:04:51 PM (7 years ago)

Author:

suehring

Message:

Bugfix xy-output of land-surface variables

File:

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

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix xy-output of land-surface variables
+! 
+! 2233 2017-05-30 18:08:54Z suehring
 !
 ! 2232 2017-05-30 17:47:52Z suehring
@@ -1914 +1917 @@
 
              ns_do = 1
-             DO WHILE ( section(ns_do,1) /= -9999  .AND.  ns <= nzs )
+             DO WHILE ( section(ns_do,1) /= -9999  .AND.  ns_do < nzs )
                 ns_do = ns_do + 1
              ENDDO