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

Timestamp:

Jul 31, 2018 10:32:34 AM (6 years ago)

Author:

sward

Message:

Reworked agent pathfinding and modified output

File:

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

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changed agent output to precision NF90_DOUBLE
+! 
+! 3165 2018-07-24 13:12:42Z sward
 ! Added agent ID output
 ! 
@@ -1992 +1995 @@
              CALL netcdf_create_var( id_set_agt, (/ id_dim_agtnum,             &
                                      id_dim_time_agt /), agt_var_names(i),     &
-                                     nc_precision(8), id_var_agt(i),           &
+                                     NF90_DOUBLE, id_var_agt(i),           &
                                      TRIM( agt_var_units(i) ),                 &
                                      TRIM( agt_var_names(i) ), 339, 340, 341 )