Changeset 3525 for palm/trunk/SOURCE/multi_agent_system_mod.f90

Timestamp:

Nov 14, 2018 4:06:14 PM (5 years ago)

Author:

kanani

Message:

Changes related to clean-up of biometeorology (by dom_dwd_user)

File:

• palm/trunk/SOURCE/multi_agent_system_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/multi_agent_system_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changes related to clean-up of biometeorology (dom_dwd_user)
+! 
+! 3448 2018-10-29 18:14:31Z kanani
 ! Adjustment of biometeorology calls,
 ! implement some agent biometeorology
@@ -342 +345 @@
 
     USE biometeorology_mod,                                                   &
-        ONLY:  biom_calc_ipt, biom_determine_input_at
+        ONLY:  bio_calc_ipt, bio_calculate_mrt_grid, bio_get_thermal_index_input_ij
 
 
@@ -522 +525 @@
 !--    those agents to be deleted after the timestep
        deleted_agents = 0
-!
+
        IF ( biometeorology )  THEN
+!
+!--       Fill out the MRT 2D grid from appropriate source (RTM, RRTMG,...)
+          CALL bio_calculate_mrt_grid ( .FALSE. )
 !
 !--       Call of human thermal comfort mod (and UV exposure)
@@ -537 +543 @@
 !
 !--             Evaluation of social forces
-!                CALL biom_dynamic(i,j)
+!                CALL bio_dynamic( i, j )
 !
 !--             Determine local meteorological conditions
-                CALL biom_determine_input_at ( .FALSE., i, j, ta, vp, v,      &
-                                               pair, tmrt )
+                CALL bio_get_thermal_index_input_ij ( .FALSE., i, j, ta, vp,  &
+                                                      v, pair, tmrt )
 
                 DO  a = 1, number_of_agents
@@ -547 +553 @@
 !--                Calculate instationary thermal indices based on local tmrt
 
-                   CALL biom_calc_ipt ( ta, vp, v, pair, tmrt,                &
-                                        agents(a)%dt_sum,                     &
-                                        agents(a)%energy_storage,             &
-                                        agents(a)%clothing_temp,              &
-                                        agents(a)%clo,                        &
-                                        agents(a)%actlev,                     &
-                                        agents(a)%age_years,                  &
-                                        agents(a)%weight,                     &
-                                        agents(a)%height,                     &
-                                        agents(a)%work,                       &
-                                        agents(a)%sex,                        &
-                                        agents(a)%ipt )
+                   CALL bio_calc_ipt ( ta, vp, v, pair, tmrt,                 &
+                                       agents(a)%dt_sum,                      &
+                                       agents(a)%energy_storage,              &
+                                       agents(a)%clothing_temp,               &
+                                       agents(a)%clo,                         &
+                                       agents(a)%actlev,                      &
+                                       agents(a)%age_years,                   &
+                                       agents(a)%weight,                      &
+                                       agents(a)%height,                      &
+                                       agents(a)%work,                        &
+                                       agents(a)%sex,                         &
+                                       agents(a)%ipt )
                 END DO