Ignore:
Timestamp:
Jun 8, 2017 4:58:28 PM (4 years ago)
Author:
schwenkel
Message:

unused variables removed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf_interface_mod.f90

    r2239 r2265  
    2525! -----------------
    2626! $Id$
     27! Unused variables removed.
     28!
     29! 2239 2017-06-01 12:04:51Z suehring
    2730! Bugfix xy-output of land-surface variables
    2831!
     
    498501
    499502    USE particle_attributes,                                                   &
    500         ONLY:  maximum_number_of_particles, number_of_particle_groups
     503        ONLY:  number_of_particle_groups
    501504
    502505    USE plant_canopy_model_mod,                                                &
     
    48844887                                  312, 313, 000 )
    48854888!
    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 )
    48974892
    48984893          CALL netcdf_create_var( id_set_prt, (/ id_dim_prtnum /),             &
Note: See TracChangeset for help on using the changeset viewer.