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

changes in the course of urban surface model implementation

File:
1 edited

Legend:

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

    r2001 r2007  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Added pt tendency calculation based on energy balance at urban surfaces
     23! (new urban surface model)
    2324!
    2425! Former revisions:
     
    321322        ONLY:  subsidence
    322323
     324    USE urban_surface_mod,                                                     &
     325        ONLY:  urban_surface, usm_wall_heat_flux
     326
    323327    USE user_actions_mod,                                                      &
    324328        ONLY:  user_actions
     
    614618
    615619!
     620!--          Tendency pt from wall heat flux from urban surface
     621             IF ( urban_surface )  THEN
     622                CALL usm_wall_heat_flux( i, j )
     623             ENDIF
     624
     625!
    616626!--          If required compute heating/cooling due to long wave radiation
    617627!--          processes
     
    13461356
    13471357       CALL diffusion_s( pt, shf, tswst, wall_heatflux )
     1358
     1359!
     1360!--    Tendency pt from wall heat flux from urban surface
     1361       IF ( urban_surface )  THEN
     1362          CALL usm_wall_heat_flux
     1363       ENDIF
    13481364
    13491365!
     
    22722288
    22732289!
     2290!--    Tendency pt from wall heat flux from urban surface
     2291       IF ( urban_surface )  THEN
     2292          CALL usm_wall_heat_flux
     2293       ENDIF
     2294
     2295!
    22742296!--    If required compute heating/cooling due to long wave radiation processes
    22752297       IF ( cloud_top_radiation )  THEN
Note: See TracChangeset for help on using the changeset viewer.