Changeset 3614 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Dec 10, 2018 7:05:46 AM (6 years ago)

Author:

raasch

Message:

unused variables removed, abort renamed inifor_abort to avoid intrinsic problem in Fortran

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3560 2018-11-23 09:20:21Z raasch
 ! Some formatting adjustment
 ! 
@@ -1267 +1270 @@
 
        USE chem_modules,                                       &
-           ONLY:  do_emis, mode_emis, time_fac_type,           & 
-                  surface_csflux_name 
+           ONLY:  mode_emis, time_fac_type, surface_csflux_name
 
        USE control_parameters,                                 &
@@ -1274 +1276 @@
 
        USE indices,                                            &
-           ONLY:  nz, nx, ny, nxl, nxr, nys, nyn, nzb, nzt
+           ONLY:  nx, ny, nxl, nxr, nys, nyn
 
        IMPLICIT NONE
@@ -1281 +1283 @@
        TYPE(chem_emis_val_type), ALLOCATABLE, DIMENSION(:), INTENT(INOUT)             :: emt
     
-       CHARACTER (LEN=80)                               :: units=''              !< units of chemistry inputs
- 
        INTEGER(iwp)                                     :: ispec                 !< index for number of emission species in input
 
-       INTEGER(iwp), ALLOCATABLE, DIMENSION(:)          :: dum_var               !< value of variable read from netcdf input
-       INTEGER(iwp)                                     :: errno                 !< error number NF90_???? function
-       INTEGER(iwp)                                     :: id_var                !< variable id
-!       INTEGER(iwp)                                     :: id_emis               !< NetCDF id of input file
        INTEGER(iwp)                                     :: num_vars              !< number of variables in netcdf input file
-       INTEGER(iwp)                                     :: len_dims,len_dims_2   !< Length of dimensions
-
-       INTEGER(iwp)                                     :: max_string_length=25  !< Variable for the maximum length of a string
- 
-       CHARACTER(LEN=100), DIMENSION(:), ALLOCATABLE    :: var_names             !< Name of Variables
+       INTEGER(iwp)                                     :: len_dims              !< Length of dimension
 
        REAL(wp), ALLOCATABLE, DIMENSION(:,:,:)          :: dum_var_3d            !< variable for storing temporary data of 3-dimensional 
@@ -1562 +1554 @@
 
        USE control_parameters,                                                 &
-           ONLY:  bc_lr_cyc, bc_ns_cyc, land_surface, plant_canopy,            &
-                  urban_surface
+           ONLY:  land_surface, plant_canopy, urban_surface
 
        USE indices,                                                            &
-           ONLY:  nbgp, nx, nxl, nxr,ny, nyn, nys
+           ONLY:  nbgp, nxl, nxr, nyn, nys
 
 
@@ -2406 +2397 @@
 
        USE control_parameters,                                                 &
-           ONLY:  bc_lr_cyc, bc_ns_cyc, message_string, topography
+           ONLY:  message_string, topography
 
        USE indices,                                                            &
-           ONLY:  nbgp, nx, nxl, nxr, ny, nyn, nys, nzb
+           ONLY:  nbgp, nxl, nxr, ny, nyn, nys, nzb