Ignore:
Timestamp:
Jul 18, 2018 10:36:19 PM (3 years ago)
Author:
maronga
Message:

major bugfix in calculation of Obukhov length and subsequent handling of surface information

File:
1 edited

Legend:

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

    r3143 r3146  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Adjustments for new surface structure
    2323!
    2424! Former revisions:
     
    23202320!
    23212321!--       Update virtual potential temperature
    2322           vpt(k+k_off,j+j_off,i+i_off) = pt(k+k_off,j+j_off,i+i_off) *         &
     2322          surf%vpt_surface(m) = surf%pt_surface(m) *         &
    23232323                     ( 1.0_wp + 0.61_wp * q(k+k_off,j+j_off,i+i_off) )
    23242324
     2325       
     2326                     
    23252327       ENDDO
    23262328
Note: See TracChangeset for help on using the changeset viewer.