Ignore:
Timestamp:
Jul 19, 2018 1:26:52 PM (6 years ago)
Author:
suehring
Message:

Further adjustments for surface structure

File:
1 edited

Legend:

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

    r3151 r3152  
    2828! -----------------
    2929! $Id$
     30! Initialize q_surface, which might be used in surface_layer_fluxes
     31!
     32! 3151 2018-07-19 08:45:38Z raasch
    3033! remaining preprocessor define strings __check removed
    3134!
     
    313316   
    314317    USE control_parameters,                                                    &
    315         ONLY:  coupling_start_time, topography, dt_3d,                         &
     318        ONLY:  coupling_start_time, topography, dt_3d, humidity,               &
    316319               intermediate_timestep_count, initializing_actions,              &
    317320               intermediate_timestep_count_max, simulated_time, end_time,      &
     
    47064709            ENDDO
    47074710#endif
     4711!
     4712!--         For the sake of correct initialization, set also q_surface.
     4713!--         Note, at urban surfaces q_surface is initialized with 0.
     4714            IF ( humidity )  THEN
     4715               DO  m = 1, surf_usm_h%ns
     4716                  surf_usm_h%q_surface(m) = 0.0_wp
     4717               ENDDO
     4718               DO  l = 0, 3
     4719                  DO  m = 1, surf_usm_v(l)%ns
     4720                     surf_usm_v(l)%q_surface(m) = 0.0_wp
     4721                  ENDDO
     4722               ENDDO
     4723            ENDIF
    47084724     
    47094725!--         initial values for t_wall
Note: See TracChangeset for help on using the changeset viewer.