Ignore:
Timestamp:
Aug 17, 2017 10:49:36 AM (4 years ago)
Author:
schwenkel
Message:

bugfix for lsm data output

File:
1 edited

Legend:

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

    r2340 r2354  
    2525! -----------------
    2626! $Id$
     27! minor bugfixes
     28!
     29! 2340 2017-08-07 17:11:13Z maronga
    2730! Revised root_distribution tabel and implemented a pseudo-generic root fraction
    2831! calculation
     
    12341237       ENDDO   
    12351238    ENDIF
     1239    nzs = nzt_soil + 1
     1240
    12361241
    12371242    IF ( vegetation_type == 0 )  THEN
     
    12901295       
    12911296    ddz_soil_center = 1.0_wp / dz_soil_center
    1292     ddz_soil = 1.0_wp / dz_soil
     1297    ddz_soil(nzb_soil:nzt_soil) = 1.0_wp / dz_soil(nzb_soil:nzt_soil)
     1298
    12931299
    12941300
     
    14311437!--    for vegetation type surfaces, the thermal conductivity of the soil is
    14321438!--    needed
     1439
    14331440       IF ( surf%vegetation_surface(m) )  THEN
    14341441
Note: See TracChangeset for help on using the changeset viewer.