Ignore:
Timestamp:
Nov 14, 2018 1:36:44 PM (3 years ago)
Author:
raasch
Message:

unused variables removed, missing working precision added, missing preprocessor directives added, bugfix concerning allocation of t_surf_wall_v in nopointer case, declaration statements rearranged to avoid compile time errors, mpi_abort arguments replaced to avoid compile errors

File:
1 edited

Legend:

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

    r3502 r3524  
    2828! -----------------
    2929! $Id$
     30! bugfix concerning allocation of t_surf_wall_v
     31!
     32! 3502 2018-11-07 14:45:23Z suehring
    3033! Disable initialization of building roofs with ground-floor-level properties,
    3134! since this causes strong oscillations of surface temperature during the
     
    73737376                IF ( k == 1 )  THEN
    73747377                   IF ( .NOT.  ALLOCATED( t_surf_wall_v(0)%t ) )                    &
    7375                       ALLOCATE( t_surf_v(0)%t(1:surf_usm_v(0)%ns) )
     7378                      ALLOCATE( t_surf_wall_v(0)%t(1:surf_usm_v(0)%ns) )
    73767379                   READ ( 13 )  tmp_surf_wall_v(0)%t
    73777380                ENDIF
Note: See TracChangeset for help on using the changeset viewer.