Ignore:
Timestamp:
Sep 2, 2019 3:57:02 PM (5 years ago)
Author:
suehring
Message:

Bugfix, missing initialization and clearing of soil-moisture tendency (J.Resler)

File:
1 edited

Legend:

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

    r4182 r4214  
    2828! -----------------
    2929! $Id$
     30! Bugfix, missing initialization and clearing of soil-moisture tendency
     31! (J.Resler)
     32!
     33! 4182 2019-08-22 15:20:23Z scharf
    3034! Corrected "Former revisions" section
    3135!
     
    53805384
    53815385!
    5382 !--     For horizontal surfaces                                   
     5386!--     For horizontal surfaces.
     5387!--     Set tendency array for soil moisture to zero
     5388        IF ( surf_usm_h%ns > 0 )  THEN
     5389           IF ( intermediate_timestep_count == 1 )  surf_usm_h%tswc_h_m = 0.0_wp
     5390        ENDIF
     5391       
    53835392        !$OMP PARALLEL PRIVATE (m, i, j, k, kw, lambda_h_green_sat, ke, lambda_green_temp, gtend,  &
    53845393        !$OMP&                  tend, h_vg, gamma_green_temp, m_total, root_extr_green)
Note: See TracChangeset for help on using the changeset viewer.