Ignore:
Timestamp:
Oct 29, 2018 6:14:31 PM (3 years ago)
Author:
kanani
Message:

Implementation of human thermal indices (from branch biomet_p2 at r3444)

File:
1 edited

Legend:

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

    r3421 r3448  
    2525! -----------------
    2626! $Id$
     27! Add biometeorology
     28!
     29! 3421 2018-10-24 18:39:32Z gronemeier
    2730! Surface data output
    2831!
     
    393396               v_p, w, w_p
    394397
     398    USE biometeorology_mod,                                                    &
     399        ONLY:  biom_calculate_static_grid, time_biom_results
     400
    395401    USE bulk_cloud_model_mod,                                                  &
    396402        ONLY: bulk_cloud_model, calc_liquid_water_content,                     &
     
    413419        ONLY:  advected_distance_x, advected_distance_y, air_chemistry,        &
    414420               average_count_3d, averaging_interval, averaging_interval_pr,    &
    415                bc_lr_cyc, bc_ns_cyc, bc_pt_t_val, bc_q_t_val,                  &
     421               bc_lr_cyc, bc_ns_cyc, bc_pt_t_val, bc_q_t_val, biometeorology,  &
    416422               call_psolver_at_all_substeps,  child_domain, cloud_droplets,    &
    417423               constant_flux_layer, constant_heatflux,                         &
     
    479485    USE multi_agent_system_mod,                                                &
    480486        ONLY:  agents_active, multi_agent_system
    481        
     487
    482488    USE nesting_offl_mod,                                                      &
    483489        ONLY:  nesting_offl_bc, nesting_offl_mass_conservation
     
    523529    USE surface_mod,                                                           &
    524530        ONLY:  surf_def_h, surf_lsm_h, surf_usm_h
    525        
     531
    526532    USE surface_output_mod,                                                    &
    527533        ONLY:  average_count_surf, averaging_interval_surf, dt_dosurf,         &
     
    12851291
    12861292!
     1293!--    Biometeorology calculation of stationary thermal indices
     1294       IF ( biometeorology  .AND.  time_do3d >= dt_do3d )  THEN
     1295          CALL biom_calculate_static_grid ( .FALSE. )
     1296          time_biom_results = time_since_reference_point
     1297       ENDIF
     1298
     1299!
    12871300!--    Execute the gust module actions
    12881301       IF ( gust_module_enabled )  THEN
     
    15481561
    15491562    ENDDO   ! time loop
    1550    
     1563
    15511564!
    15521565!-- Vertical nesting: Deallocate variables initialized for vertical nesting   
Note: See TracChangeset for help on using the changeset viewer.