Ignore:
Timestamp:
Jan 2, 2018 4:27:15 PM (4 years ago)
Author:
kanani
Message:

update of palm version

File:
1 edited

Legend:

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

    r2718 r2720  
    2626! -----------------
    2727! $Id$
     28! Correction of comment
     29!
     30! 2718 2018-01-02 08:49:38Z maronga
    2831! Corrected "Former revisions" section
    2932!
     
    69086911!--        data from the last time step is used here.
    69096912
    6910 !--        Workarounf to keep resistances positive
     6913!--        Workaround: use single r_a as stability is only treated for the
     6914!--        average temperature
    69116915           r_a = ( surf_usm_h%pt1(m) - surf_usm_h%pt_surface(m) ) /                            &
    69126916                 ( surf_usm_h%ts(m) * surf_usm_h%us(m) + 1.0E-20_wp )   
Note: See TracChangeset for help on using the changeset viewer.