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

Timestamp:

Nov 30, 2018 1:52:19 PM (6 years ago)

Author:

sward

Message:

Added MAS substep time to agent output

File:

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

palm/trunk/SOURCE/multi_agent_system_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added output of agent substep time
+! 
+! 3525 2018-11-14 16:06:14Z kanani
 ! Changes related to clean-up of biometeorology (dom_dwd_user)
 ! 
@@ -160 +163 @@
 
     REAL(wp) ::  agent_maximum_age = 9999999.9_wp          !< namelist parameter (see documentation)
+    REAL(wp) ::  agent_substep_time = 0.0_wp               !< time measurement during one LES timestep
     REAL(wp) ::  alloc_factor_mas = 20.0_wp                !< namelist parameter (see documentation)
     REAL(wp) ::  coll_t_0 = 3.                             !< namelist parameter (see documentation)
@@ -374 +378 @@
 !-- those agents to be deleted after the timestep
     deleted_agents = 0
+    agent_substep_time = 0.0_wp
 !
 !-- If necessary, release new set of agents
@@ -400 +405 @@
 !--    Write agent data at current time on file.
        time_write_agent_data = time_write_agent_data + dt_agent
+       agent_substep_time    = agent_substep_time    + dt_agent
        IF ( time_write_agent_data >= dt_write_agent_data )  THEN
 #if defined( __netcdf )
@@ -1370 +1376 @@
 
           nc_stat = NF90_PUT_VAR( id_set_agt, id_var_time_agt,                 &
-                                  (/ time_since_reference_point /),            &
+                                  (/ time_since_reference_point + agent_substep_time /),            &
                                   start = (/ agt_time_count /),                &
                                   count = (/ 1 /) )
@@ -3283 +3289 @@
 
        WRITE(message_string,'(A,I8,A)')                                        &
-                         'The maximumn number of agents durin this run was',   &
+                         'The maximumn number of agents during this run was',  &
                          maximum_number_of_agents,                             &
                          '&Consider adjusting the INPUT parameter'//           &