Changeset 3198 for palm/trunk/SOURCE/netcdf_interface_mod.f90

Timestamp:

Aug 15, 2018 9:23:10 AM (6 years ago)

Author:

sward

Message:

Added MAS end time, used time_since_reference_point, corrected tolerance_dp in nav_mesh

File:

• palm/trunk/SOURCE/netcdf_interface_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Redefined MAS limited time dimension to fit usage of multi_agent_system_end
+! 
+! 3187 2018-07-31 10:32:34Z sward
 ! Changed agent output to precision NF90_DOUBLE
 ! 
@@ -283 +286 @@
 
     USE control_parameters,                                                    &
-        ONLY:  max_masks, fl_max, var_fl_max, varnamelength
+        ONLY:  fl_max, max_masks, multi_agent_system_end,                      &
+               multi_agent_system_start, var_fl_max, varnamelength
     USE kinds
 #if defined( __netcdf )
@@ -1968 +1972 @@
           ELSE
              CALL netcdf_create_dim( id_set_agt, 'time',                       &
-                                     INT(end_time/dt_write_agent_data*1.2),    &
+                                     INT( ( MIN( multi_agent_system_end,       &
+                                                 end_time ) -                  &
+                                            multi_agent_system_start ) /       &
+                                            dt_write_agent_data * 1.1 ),       &
                                      id_dim_time_agt, 331 )
           ENDIF