Changeset 2354


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

bugfix for lsm data output

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r2348 r2354  
    2525! -----------------
    2626! $Id$
     27! Bugfix correlated to lsm_check_data_output_pr.
     28! If-statement for following checks is essential, otherwise units for lsm output
     29! are set to 'illegal' and palm will be aborted.
     30!
     31! 2348 2017-08-10 10:40:10Z kanani
    2732! New: Check for simultaneous use of geostrophic wind and u_profile/v_profile
    2833!
     
    29032908                                            dopr_unit(i) )
    29042909
    2905              CALL lsf_nudging_check_data_output_pr( data_output_pr(i), i,      &
     2910             IF ( unit == 'illegal' )  THEN
     2911                CALL lsf_nudging_check_data_output_pr( data_output_pr(i), i,   &
    29062912                                                    unit, dopr_unit(i) )
     2913             ENDIF
    29072914
    29082915             IF ( unit == 'illegal' )  THEN
  • 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.