Changeset 3014 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- May 9, 2018 8:42:38 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r2977 r3014 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Added pc_transpiration_rate 31 ! 32 ! 2977 2018-04-17 10:27:57Z kanani 30 33 ! Implement changes from branch radiation (r2948-2971) with minor modifications. 31 34 ! (moh.hefny): … … 264 267 !> by zero, e.g. in case fraq(0,m) + fraq(1,m) = 0?! 265 268 !> @todo Use unit 90 for OPEN/CLOSE of input files (FK) 269 !> @todo Move plant canopy stuff into plant canopy code 266 270 !------------------------------------------------------------------------------! 267 271 MODULE urban_surface_mod … … 309 313 310 314 USE plant_canopy_model_mod, & 311 ONLY: pc_heating_rate 315 ONLY: pc_heating_rate, pc_transpiration_rate 312 316 313 317 USE radiation_model_mod, & … … 2361 2365 INTEGER(iwp) :: ids,idsint,idsidx,isurf,isvf,isurfs,isurflt 2362 2366 INTEGER(iwp) :: is,js,ks,i,j,k,iwl,istat, l, m 2363 INTEGER(iwp) :: 2367 INTEGER(iwp) :: k_topo !< topography top index 2364 2368 2365 2369 dirstart = (/ startland, startwall, startwall, startwall, startwall /) … … 4539 4543 !-- in case of cthf /= 0 => we need to allocate it for our use here 4540 4544 ALLOCATE( pc_heating_rate(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ) 4545 4546 pc_heating_rate = 0.0_wp 4547 4548 ENDIF 4549 4550 IF ( .NOT. ALLOCATED( pc_transpiration_rate) ) THEN 4551 !-- then pc_heating_rate is allocated in init_plant_canopy 4552 !-- in case of cthf /= 0 => we need to allocate it for our use here 4553 ALLOCATE( pc_transpiration_rate(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ) 4554 4555 pc_transpiration_rate = 0.0_wp 4556 4557 4541 4558 ENDIF 4542 4559 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.