Ignore:
Timestamp:
Apr 17, 2018 10:27:57 AM (3 years ago)
Author:
kanani
Message:

Fixes for radiative transfer model

File:
1 edited

Legend:

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

    r2963 r2977  
    2828! -----------------
    2929! $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
    3035! Introduce index for vegetation/wall, pavement/green-wall and water/window
    3136! surfaces, for clearer access of surface fraction, albedo, emissivity, etc. .
     
    33033308            DO  i = nxl, nxr
    33043309                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)
    33063310                    local_pf(i,j,k) = temp_pf(k,j,i)
    33073311                ENDDO
Note: See TracChangeset for help on using the changeset viewer.