Changeset 2532 for palm/trunk/SOURCE

Timestamp:

Oct 11, 2017 4:00:46 PM (7 years ago)

Author:

scharf

Message:

bugfixes in lsm_data_output_3d

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfixes in data_output_3d
+! 
+! 2516 2017-10-04 11:03:04Z suehring
 ! Remove tabs
 ! 
@@ -4205 +4208 @@
             ENDDO
          ELSE
-            DO  i = nxlg, nxrg
-               DO  j = nysg, nyng
+            DO  i = nxl, nxr
+               DO  j = nys, nyn
                   DO  k = nzb_soil, nzt_soil
                      local_pf(i,j,k) = m_soil_av(k,j,i)
@@ -4225 +4228 @@
             ENDDO
          ELSE
-            DO  i = nxlg, nxrg
-               DO  j = nysg, nyng
+            DO  i = nxl, nxr
+               DO  j = nys, nyn
                   DO  k = nzb_soil, nzt_soil
                      local_pf(i,j,k) = t_soil_av(k,j,i)