Changeset 3448 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Oct 29, 2018 6:14:31 PM (5 years ago)

Author:

kanani

Message:

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

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (7 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Add biometeorology
+! 
+! 3421 2018-10-24 18:39:32Z gronemeier
 ! Initialize surface data output
 ! 
@@ -533 +536 @@
                ideal_gas_law_rho, ideal_gas_law_rho_pt, barometric_formula
 
+    USE biometeorology_mod,                                                    &
+        ONLY:  biom_init, biom_init_arrays
+
     USE bulk_cloud_model_mod,                                                  &
         ONLY:  bulk_cloud_model, bcm_init, bcm_init_arrays
@@ -552 +558 @@
     USE gust_mod,                                                              &
         ONLY:  gust_init, gust_init_arrays, gust_module_enabled
-    
+
     USE indices
     
@@ -578 +584 @@
         ONLY:  chem_emis, chem_emis_att, init_3d,                              &
                netcdf_data_input_init_3d, netcdf_data_input_interpolate
-        
+
     USE nesting_offl_mod,                                                      &
         ONLY:  nesting_offl_init
@@ -628 +634 @@
         ONLY :  init_surface_arrays, init_surfaces, surf_def_h, surf_lsm_h,    &
                 surf_usm_h, get_topography_top_index_ji, vertical_surfaces_exist
-                
+   
     USE surface_output_mod,                                                    &
         ONLY:  surface_output_init
@@ -1050 +1056 @@
 !
 !-- Allocate arrays for other modules
+    IF ( biometeorology      )  CALL biom_init_arrays
     IF ( bulk_cloud_model    )  CALL bcm_init_arrays
     IF ( gust_module_enabled )  CALL gust_init_arrays
@@ -2413 +2420 @@
 
 !
+!-- If required initialize biometeorology module
+    IF ( biometeorology )  THEN
+        CALL location_message( 'initializing biometeorology module', .FALSE. )
+        CALL biom_init
+        CALL location_message( 'finished', .TRUE. )
+    ENDIF
+
+!
 !-- Initialize the ws-scheme.    
-    IF ( ws_scheme_sca .OR. ws_scheme_mom )  CALL ws_init        
+    IF ( ws_scheme_sca .OR. ws_scheme_mom )  CALL ws_init
 
 !