Changeset 3704 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Jan 29, 2019 7:51:41 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r3685 r3704 23 23 ! Current revisions: 24 24 ! ------------------ 25 ! 25 ! make nzb_wall public, required for virtual-measurements 26 26 ! 27 27 ! Former revisions: … … 1150 1150 !-- Public parameters, constants and initial values 1151 1151 PUBLIC usm_anthropogenic_heat, usm_material_model, usm_wall_mod, & 1152 usm_green_heat_model, building_pars, &1153 nz t_wall, t_wall_h, t_wall_v,&1152 usm_green_heat_model, building_pars, & 1153 nzb_wall, nzt_wall, t_wall_h, t_wall_v, & 1154 1154 t_window_h, t_window_v, building_type 1155 1155 … … 7469 7469 IMPLICIT NONE 7470 7470 7471 INTEGER(iwp) 7471 INTEGER(iwp) :: i, j, k, l, m !< running indices 7472 7472 7473 7473 INTEGER(iwp) :: i_off !< offset to determine index of surface element, seen from atmospheric grid point, for x
Note: See TracChangeset
for help on using the changeset viewer.