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

Timestamp:

Nov 26, 2019 2:12:36 PM (4 years ago)

Author:

maronga

Message:

your commit message

File:

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

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Adjusted output of multi-agent system for biometeorology
+! 
+! 4227 2019-09-10 18:04:34Z gronemeier
 ! Replace function date_time_string by call to get_date_time
 ! 
@@ -139 +142 @@
           (/ 'ag_id           ', 'ag_x            ', 'ag_y            ',       &
              'ag_wind         ', 'ag_temp         ', 'ag_group        ',       &
-             'PM10            ', 'PM25            ', 'ag_iPT          ',       &
-             'ag_uv           ', 'not_used        ', 'not_used        ',       &
+             'ag_iPT          ', 'ag_PM10         ', 'ag_PM25         ',       &
+             'not_used        ', 'not_used        ', 'not_used        ',       &
              'not_used        ' /)
 
@@ -146 +149 @@
           (/ 'dim_less        ', 'meters          ', 'meters          ',       &
              'm/s             ', 'K               ', 'dim_less        ',       &
-             'tbd             ', 'tbd             ', 'tbd             ',       &
+             'C               ', 'tbd             ', 'tbd             ',       &
              'tbd             ', 'not_used        ', 'not_used        ',       &
              'not_used        ' /)
@@ -2355 +2358 @@
 !
 !--       Define vars for biometeorology
-          CALL netcdf_create_var( id_set_agt, (/ id_dim_agtnum,                &
-                                  id_dim_time_agt /), agt_var_names(9),        &
-                                  nc_precision(8), id_var_agt(9),              &
-                                  TRIM( agt_var_units(9) ),                    &
-                                  TRIM( agt_var_names(9) ), 339, 340, 341 )
-
+          IF ( biometeorology )  THEN
+             CALL netcdf_create_var( id_set_agt, (/ id_dim_agtnum,             &
+                                     id_dim_time_agt /), agt_var_names(7),     &
+                                     nc_precision(8), id_var_agt(7),           &
+                                     TRIM( agt_var_units(7) ),                 &
+                                     TRIM( agt_var_names(7) ), 339, 340, 341 )                      
+          ENDIF
 !
 !--       Leave netCDF define mode