Ignore:
Timestamp:
Feb 9, 2018 5:16:39 PM (4 years ago)
Author:
suehring
Message:

Bugfix initialization of %pt_surface array; Output of surface temperature also for default-type surfaces

File:
1 edited

Legend:

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

    r2797 r2798  
    2525! -----------------
    2626! $Id$
     27! Minor bugfix for initialization of pt_surface
     28!
     29! 2797 2018-02-08 13:24:35Z suehring
    2730! Move output of ghf to general 2D output to output ghf also at urban-type
    2831! surfaces.
     
    40314034!--          layer
    40324035             IF ( surf_lsm_h%lambda_surface_s(m) == 0.0_wp )  THEN
    4033                 t_surface_h%var_1d(:)    = t_soil_h%var_2d(nzb_soil,m)
     4036                t_surface_h%var_1d(m)    = t_soil_h%var_2d(nzb_soil,m)
    40344037                surf_lsm_h%pt_surface(m) = t_soil_h%var_2d(nzb_soil,m) / exn
    40354038             ELSE
Note: See TracChangeset for help on using the changeset viewer.