Ignore:
Timestamp:
Oct 15, 2018 2:21:08 PM (3 years ago)
Author:
suehring
Message:

Offline nesting revised and separated from large_scale_forcing_mod; Time-dependent synthetic turbulence generator; bugfixes in USM/LSM radiation model and init_pegrid

File:
1 edited

Legend:

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

    r3274 r3347  
    2525! -----------------
    2626! $Id$
     27! Assign real value instead of integer
     28!
     29! 3341 2018-10-15 10:31:27Z suehring
    2730! Modularization of all bulk cloud physics code components
    2831!
     
    27812784                         vegetation_type_f%var(j,i)                 = 1 ! bare soil
    27822785                         soil_type_f%var_2d(j,i)                    = 1
    2783                          surface_fraction_f%frac(ind_veg_wall,j,i)  = 1
    2784                          surface_fraction_f%frac(ind_pav_green,j,i) = 0
    2785                          surface_fraction_f%frac(ind_wat_win,j,i)   = 0
     2786                         surface_fraction_f%frac(ind_veg_wall,j,i)  = 1.0_wp
     2787                         surface_fraction_f%frac(ind_pav_green,j,i) = 0.0_wp
     2788                         surface_fraction_f%frac(ind_wat_win,j,i)   = 0.0_wp
    27862789                      ENDIF
    27872790                     
Note: See TracChangeset for help on using the changeset viewer.