Changeset 3587 for palm/trunk/SOURCE


Ignore:
Timestamp:
Nov 30, 2018 1:52:19 PM (5 years ago)
Author:
sward
Message:

Added MAS substep time to agent output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/multi_agent_system_mod.f90

    r3525 r3587  
    2525! -----------------
    2626! $Id$
     27! Added output of agent substep time
     28!
     29! 3525 2018-11-14 16:06:14Z kanani
    2730! Changes related to clean-up of biometeorology (dom_dwd_user)
    2831!
     
    160163
    161164    REAL(wp) ::  agent_maximum_age = 9999999.9_wp          !< namelist parameter (see documentation)
     165    REAL(wp) ::  agent_substep_time = 0.0_wp               !< time measurement during one LES timestep
    162166    REAL(wp) ::  alloc_factor_mas = 20.0_wp                !< namelist parameter (see documentation)
    163167    REAL(wp) ::  coll_t_0 = 3.                             !< namelist parameter (see documentation)
     
    374378!-- those agents to be deleted after the timestep
    375379    deleted_agents = 0
     380    agent_substep_time = 0.0_wp
    376381!
    377382!-- If necessary, release new set of agents
     
    400405!--    Write agent data at current time on file.
    401406       time_write_agent_data = time_write_agent_data + dt_agent
     407       agent_substep_time    = agent_substep_time    + dt_agent
    402408       IF ( time_write_agent_data >= dt_write_agent_data )  THEN
    403409#if defined( __netcdf )
     
    13701376
    13711377          nc_stat = NF90_PUT_VAR( id_set_agt, id_var_time_agt,                 &
    1372                                   (/ time_since_reference_point /),            &
     1378                                  (/ time_since_reference_point + agent_substep_time /),            &
    13731379                                  start = (/ agt_time_count /),                &
    13741380                                  count = (/ 1 /) )
     
    32833289
    32843290       WRITE(message_string,'(A,I8,A)')                                        &
    3285                          'The maximumn number of agents durin this run was',   &
     3291                         'The maximumn number of agents during this run was',  &
    32863292                         maximum_number_of_agents,                             &
    32873293                         '&Consider adjusting the INPUT parameter'//           &
Note: See TracChangeset for help on using the changeset viewer.