Ignore:
Timestamp:
Jul 19, 2018 1:26:52 PM (6 years ago)
Author:
suehring
Message:

Further adjustments for surface structure

File:
1 edited

Legend:

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

    r3147 r3152  
    2525! -----------------
    2626! $Id$
     27! Further adjustments for q_surface
     28!
     29! 3147 2018-07-18 22:38:11Z maronga
    2730! Adjustments for new surface structure
    2831!
     
    23212324                                          q(k,j,i)
    23222325          ENDIF
     2326         
     2327          surf%q_surface(m) = q(k+k_off,j+j_off,i+i_off)
    23232328!
    23242329!--       Update virtual potential temperature
    2325           surf%vpt_surface(m) = surf%pt_surface(m) *         &
    2326                      ( 1.0_wp + 0.61_wp * q(k+k_off,j+j_off,i+i_off) )
     2330          surf%vpt_surface(m) = surf%pt_surface(m) *                           &
     2331                                  ( 1.0_wp + 0.61_wp * surf%q_surface(m) )
    23272332
    23282333       
Note: See TracChangeset for help on using the changeset viewer.