Changeset 3814 for palm/trunk/SOURCE/urban_surface_mod.f90

Timestamp:

Mar 26, 2019 8:40:31 AM (6 years ago)

Author:

pavelkrc

Message:

Rename conflicting variable names

File:

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

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -480 +480 @@
                iz, iy, ix,  nsurf, idsvf, ndsvf,                               &
                idcsf, ndcsf, kdcsf, pct,                                       &
-               nzub, nzut, unscheduled_radiation_calls
+               nz_urban_b, nz_urban_t, unscheduled_radiation_calls
 
     USE statistics,                                                            &
@@ -8585 +8585 @@
             DO i = nxl, nxr
                DO j = nys, nyn
-                  DO k = nzub, min(nzut,naheatlayers)
+                  DO k = nz_urban_b, min(nz_urban_t,naheatlayers)
                      IF ( k > get_topography_top_index_ji( j, i, 's' ) ) THEN
 !