Ignore:
Timestamp:
Mar 26, 2019 8:40:31 AM (2 years ago)
Author:
pavelkrc
Message:

Rename conflicting variable names

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/urban_surface_mod.f90

    r3802 r3814  
    480480               iz, iy, ix,  nsurf, idsvf, ndsvf,                               &
    481481               idcsf, ndcsf, kdcsf, pct,                                       &
    482                nzub, nzut, unscheduled_radiation_calls
     482               nz_urban_b, nz_urban_t, unscheduled_radiation_calls
    483483
    484484    USE statistics,                                                            &
     
    85858585            DO i = nxl, nxr
    85868586               DO j = nys, nyn
    8587                   DO k = nzub, min(nzut,naheatlayers)
     8587                  DO k = nz_urban_b, min(nz_urban_t,naheatlayers)
    85888588                     IF ( k > get_topography_top_index_ji( j, i, 's' ) ) THEN
    85898589!
Note: See TracChangeset for help on using the changeset viewer.