Changeset 1553


Ignore:
Timestamp:
Mar 3, 2015 5:33:54 PM (7 years ago)
Author:
maronga
Message:

further adjustments in land surface model

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r1552 r1553  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Removed check for missing soil temperature profile as default values were added.
    2323!
    2424! Former revisions:
     
    961961    IF ( land_surface )  THEN
    962962 
    963        IF ( ANY(soil_temperature == 9999999.9_wp) )  THEN
    964              message_string = '&lsm_par list requires setting'//               &
    965                               'of soil_temperature(0:3)'//                     &
    966                               '/= 9999999.9'
    967              CALL message( 'check_parameters', 'PA0398', 1, 2, 0, 6, 0 )
    968        ENDIF   
    969 
    970963!
    971964!--    Dirichlet boundary conditions are required as the surface fluxes are
  • palm/trunk/SOURCE/land_surface_model.f90

    r1552 r1553  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Improved better treatment of roughness lengths. Added default soil temperature
     23! profile
    2324!
    2425! Former revisions:
     
    173174
    174175    REAL(wp), DIMENSION(nzb_soil:nzt_soil+1) ::   &
    175               soil_temperature = 9999999.9_wp !: soil temperature (K)
     176              soil_temperature = (/290.0_wp, 287.0_wp, 285.0_wp,  283.0_wp,    &
     177                                   283.0_wp /) !: soil temperature (K)
    176178
    177179#if defined( __nopointer )
     
    824826          ENDIF
    825827
     828       ELSE
     829
     830          IF ( z0_eb == 9999999.9_wp )  THEN
     831             z0_eb = roughness_length
     832          ENDIF
     833          IF ( z0h_eb == 9999999.9_wp )  THEN
     834             z0h_eb = z0_eb * z0h_factor
     835          ENDIF
     836
    826837       ENDIF
    827838
  • palm/trunk/SOURCE/package_parin.f90

    r1552 r1553  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Resorting of lsm_par
    2323!
    2424! Former revisions:
     
    178178                                  canopy_resistance_coefficient,               &
    179179                                  conserve_water_content, dewfall,             &
    180                                   f_shortwave_incoming,                        &
     180                                  f_shortwave_incoming, field_capacity,        &
    181181                                  hydraulic_conductivity,                      &
    182182                                  lambda_surface_stable,                       &
    183183                                  lambda_surface_unstable, leaf_area_index,    &
    184184                                  l_vangenuchten, min_canopy_resistance,       &
    185                                   min_soil_resistance, field_capacity,         &
    186                                   residual_moisture, saturation_moisture,      &
    187                                   wilting_point, n_vangenuchten, root_fraction,&
    188                                   soil_moisture, soil_temperature, soil_type,  &
    189                                   vegetation_coverage, veg_type, zs, z0_eb,    &
    190                                   z0h_eb
     185                                  min_soil_resistance, n_vangenuchten,         &
     186                                  residual_moisture, root_fraction,            &
     187                                  saturation_moisture, soil_moisture,          &
     188                                  soil_temperature, soil_type,                 &
     189                                  vegetation_coverage, veg_type, wilting_point,&
     190                                  zs, z0_eb, z0h_eb
    191191
    192192
Note: See TracChangeset for help on using the changeset viewer.