Ignore:
Timestamp:
Aug 24, 2016 3:47:17 PM (8 years ago)
Author:
kanani
Message:

changes in the course of urban surface model implementation

File:
1 edited

Legend:

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

    r2001 r2007  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Account for urban surface model in computation of vertical kinematic heatflux
    2323!
    2424! Former revisions:
     
    183183    USE land_surface_model_mod,                                                &
    184184        ONLY:  land_surface, skip_time_do_lsm
     185       
     186    USE urban_surface_mod,                                                     &
     187        ONLY:  urban_surface
     188       
    185189
    186190    IMPLICIT NONE
     
    10571061!
    10581062!--    Compute the vertical kinematic heat flux
    1059        IF (  .NOT.  constant_heatflux .AND.  ( simulated_time <=               &
    1060             skip_time_do_lsm  .OR.  .NOT.  land_surface ) )  THEN
     1063       IF (  .NOT.  constant_heatflux  .AND.  ( simulated_time <=            &
     1064            skip_time_do_lsm  .OR.  .NOT.  land_surface )  .AND.             &
     1065            .NOT.  urban_surface )  THEN
    10611066          !$OMP PARALLEL DO
    10621067          !$acc kernels loop independent present( shf, ts, us )
Note: See TracChangeset for help on using the changeset viewer.