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/init_3d_model.f90

    r3421 r3448  
    2525! -----------------
    2626! $Id$
     27! Add biometeorology
     28!
     29! 3421 2018-10-24 18:39:32Z gronemeier
    2730! Initialize surface data output
    2831!
     
    533536               ideal_gas_law_rho, ideal_gas_law_rho_pt, barometric_formula
    534537
     538    USE biometeorology_mod,                                                    &
     539        ONLY:  biom_init, biom_init_arrays
     540
    535541    USE bulk_cloud_model_mod,                                                  &
    536542        ONLY:  bulk_cloud_model, bcm_init, bcm_init_arrays
     
    552558    USE gust_mod,                                                              &
    553559        ONLY:  gust_init, gust_init_arrays, gust_module_enabled
    554    
     560
    555561    USE indices
    556562   
     
    578584        ONLY:  chem_emis, chem_emis_att, init_3d,                              &
    579585               netcdf_data_input_init_3d, netcdf_data_input_interpolate
    580        
     586
    581587    USE nesting_offl_mod,                                                      &
    582588        ONLY:  nesting_offl_init
     
    628634        ONLY :  init_surface_arrays, init_surfaces, surf_def_h, surf_lsm_h,    &
    629635                surf_usm_h, get_topography_top_index_ji, vertical_surfaces_exist
    630                 
     636   
    631637    USE surface_output_mod,                                                    &
    632638        ONLY:  surface_output_init
     
    10501056!
    10511057!-- Allocate arrays for other modules
     1058    IF ( biometeorology      )  CALL biom_init_arrays
    10521059    IF ( bulk_cloud_model    )  CALL bcm_init_arrays
    10531060    IF ( gust_module_enabled )  CALL gust_init_arrays
     
    24132420
    24142421!
     2422!-- If required initialize biometeorology module
     2423    IF ( biometeorology )  THEN
     2424        CALL location_message( 'initializing biometeorology module', .FALSE. )
     2425        CALL biom_init
     2426        CALL location_message( 'finished', .TRUE. )
     2427    ENDIF
     2428
     2429!
    24152430!-- Initialize the ws-scheme.   
    2416     IF ( ws_scheme_sca .OR. ws_scheme_mom )  CALL ws_init       
     2431    IF ( ws_scheme_sca .OR. ws_scheme_mom )  CALL ws_init
    24172432
    24182433!
Note: See TracChangeset for help on using the changeset viewer.