Changeset 2265 for palm/trunk/SOURCE/netcdf_interface_mod.f90
- Timestamp:
- Jun 8, 2017 4:58:28 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf_interface_mod.f90
r2239 r2265 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Unused variables removed. 28 ! 29 ! 2239 2017-06-01 12:04:51Z suehring 27 30 ! Bugfix xy-output of land-surface variables 28 31 ! … … 498 501 499 502 USE particle_attributes, & 500 ONLY: maximum_number_of_particles,number_of_particle_groups503 ONLY: number_of_particle_groups 501 504 502 505 USE plant_canopy_model_mod, & … … 4884 4887 312, 313, 000 ) 4885 4888 ! 4886 !-- Define particle coordinate (maximum particle number) 4887 IF ( netcdf_data_format < 3 ) THEN 4888 CALL netcdf_create_dim( id_set_prt, 'particle_number', & 4889 maximum_number_of_particles, & 4890 id_dim_prtnum, 314 ) 4891 ELSE 4892 ! 4893 !-- netCDF4 allows more than one unlimited dimension 4894 CALL netcdf_create_dim( id_set_prt, 'particle_number', & 4895 NF90_UNLIMITED, id_dim_prtnum, 314 ) 4896 ENDIF 4889 !-- netCDF4 allows more than one unlimited dimension 4890 CALL netcdf_create_dim( id_set_prt, 'particle_number', & 4891 NF90_UNLIMITED, id_dim_prtnum, 314 ) 4897 4892 4898 4893 CALL netcdf_create_var( id_set_prt, (/ id_dim_prtnum /), &
Note: See TracChangeset
for help on using the changeset viewer.