Changeset 3159 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Jul 20, 2018 11:20:01 AM (6 years ago)

Author:

sward

Message:

Added multi agent system

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (4 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added multi agent system
+! 
+! 3042 2018-05-25 10:44:37Z schwenkel
 ! Changed the name specific humidity to mixing ratio
 ! 
@@ -375 +378 @@
                dt_do2d_xz, dt_do2d_yz, dt_do3d, dt_domask,dt_dopts, dt_dopr,   &
                dt_dopr_listing, dt_dots, dt_dvrp, dt_run_control, end_time,    &
-               first_call_lpm, forcing, galilei_transformation, humidity,      &
-               intermediate_timestep_count, intermediate_timestep_count_max,   &
-               land_surface, large_scale_forcing,                              &
-               loop_optimization, lsf_surf, lsf_vert, masks,                   &
-               microphysics_morrison, microphysics_seifert, mid, nest_domain,  &
-               neutral, nr_timesteps_this_run, nudging,                        &
+               first_call_lpm, first_call_mas, forcing, galilei_transformation,&
+               humidity, intermediate_timestep_count,                          &
+               intermediate_timestep_count_max, land_surface,                  &
+               large_scale_forcing, loop_optimization, lsf_surf, lsf_vert,     &
+               masks, microphysics_morrison, microphysics_seifert, mid,        &
+               nest_domain, neutral, nr_timesteps_this_run, nudging,           &
                ocean, passive_scalar, prho_reference, pt_reference,            &
                pt_slope_offset, random_heatflux, rans_mode,                    &
@@ -431 +434 @@
         ONLY: collision_turbulence
 
+    USE multi_agent_system_mod,                                                &
+        ONLY:  agents_active, multi_agent_system, multi_agent_system_start
+
     USE particle_attributes,                                                   &
         ONLY:  particle_advection, particle_advection_start,                   &
@@ -706 +712 @@
 
 !
+!--       Movement of agents in multi agent system
+          IF ( agents_active  .AND.                                            &
+               simulated_time >= multi_agent_system_start  .AND.               &
+               intermediate_timestep_count == 1 )  THEN
+             CALL multi_agent_system
+             first_call_mas = .FALSE.
+          ENDIF
+
+!
 !--       Exchange of ghost points (lateral boundary conditions)
           CALL cpu_log( log_point(26), 'exchange-horiz-progn', 'start' )