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

Timestamp:

Jun 8, 2017 4:58:28 PM (7 years ago)

Author:

schwenkel

Message:

unused variables removed

File:

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

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Unused variables removed.
+! 
+! 2239 2017-06-01 12:04:51Z suehring
 ! Bugfix xy-output of land-surface variables
 ! 
@@ -498 +501 @@
 
     USE particle_attributes,                                                   &
-        ONLY:  maximum_number_of_particles, number_of_particle_groups
+        ONLY:  number_of_particle_groups
 
     USE plant_canopy_model_mod,                                                &
@@ -4884 +4887 @@
                                   312, 313, 000 )
 !
-!--       Define particle coordinate (maximum particle number)
-          IF ( netcdf_data_format < 3 )  THEN
-             CALL netcdf_create_dim( id_set_prt, 'particle_number',            &
-                                     maximum_number_of_particles,              &
-                                     id_dim_prtnum, 314 )
-          ELSE
-!
-!--          netCDF4 allows more than one unlimited dimension
-             CALL netcdf_create_dim( id_set_prt, 'particle_number',            &
-                                     NF90_UNLIMITED, id_dim_prtnum, 314 )
-          ENDIF
+!--       netCDF4 allows more than one unlimited dimension
+          CALL netcdf_create_dim( id_set_prt, 'particle_number',            &
+                                  NF90_UNLIMITED, id_dim_prtnum, 314 )
 
           CALL netcdf_create_var( id_set_prt, (/ id_dim_prtnum /),             &