Changeset 2977 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Apr 17, 2018 10:27:57 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r2963 r2977 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Implement changes from branch radiation (r2948-2971) with minor modifications. 31 ! (moh.hefny): 32 ! Extended exn for all model domain height to avoid the need to get nzut. 33 ! 34 ! 2963 2018-04-12 14:47:44Z suehring 30 35 ! Introduce index for vegetation/wall, pavement/green-wall and water/window 31 36 ! surfaces, for clearer access of surface fraction, albedo, emissivity, etc. . … … 3303 3308 DO i = nxl, nxr 3304 3309 DO k = nzb_do, nzt_do 3305 ! print*, j,nys,nyn,i,nxl,nxr,k,nzb_do,nzt_do,local_pf(i,j,k),temp_pf(k,j,i)3306 3310 local_pf(i,j,k) = temp_pf(k,j,i) 3307 3311 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.