Changeset 3614 for palm/trunk/SOURCE/netcdf_data_input_mod.f90
- Timestamp:
- Dec 10, 2018 7:05:46 AM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf_data_input_mod.f90
r3560 r3614 25 25 ! ----------------- 26 26 ! $Id$ 27 ! unused variables removed 28 ! 29 ! 3560 2018-11-23 09:20:21Z raasch 27 30 ! Some formatting adjustment 28 31 ! … … 1267 1270 1268 1271 USE chem_modules, & 1269 ONLY: do_emis, mode_emis, time_fac_type, & 1270 surface_csflux_name 1272 ONLY: mode_emis, time_fac_type, surface_csflux_name 1271 1273 1272 1274 USE control_parameters, & … … 1274 1276 1275 1277 USE indices, & 1276 ONLY: n z, nx, ny, nxl, nxr, nys, nyn, nzb, nzt1278 ONLY: nx, ny, nxl, nxr, nys, nyn 1277 1279 1278 1280 IMPLICIT NONE … … 1281 1283 TYPE(chem_emis_val_type), ALLOCATABLE, DIMENSION(:), INTENT(INOUT) :: emt 1282 1284 1283 CHARACTER (LEN=80) :: units='' !< units of chemistry inputs1284 1285 1285 INTEGER(iwp) :: ispec !< index for number of emission species in input 1286 1286 1287 INTEGER(iwp), ALLOCATABLE, DIMENSION(:) :: dum_var !< value of variable read from netcdf input1288 INTEGER(iwp) :: errno !< error number NF90_???? function1289 INTEGER(iwp) :: id_var !< variable id1290 ! INTEGER(iwp) :: id_emis !< NetCDF id of input file1291 1287 INTEGER(iwp) :: num_vars !< number of variables in netcdf input file 1292 INTEGER(iwp) :: len_dims,len_dims_2 !< Length of dimensions 1293 1294 INTEGER(iwp) :: max_string_length=25 !< Variable for the maximum length of a string 1295 1296 CHARACTER(LEN=100), DIMENSION(:), ALLOCATABLE :: var_names !< Name of Variables 1288 INTEGER(iwp) :: len_dims !< Length of dimension 1297 1289 1298 1290 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: dum_var_3d !< variable for storing temporary data of 3-dimensional … … 1562 1554 1563 1555 USE control_parameters, & 1564 ONLY: bc_lr_cyc, bc_ns_cyc, land_surface, plant_canopy, & 1565 urban_surface 1556 ONLY: land_surface, plant_canopy, urban_surface 1566 1557 1567 1558 USE indices, & 1568 ONLY: nbgp, nx , nxl, nxr,ny, nyn, nys1559 ONLY: nbgp, nxl, nxr, nyn, nys 1569 1560 1570 1561 … … 2406 2397 2407 2398 USE control_parameters, & 2408 ONLY: bc_lr_cyc, bc_ns_cyc,message_string, topography2399 ONLY: message_string, topography 2409 2400 2410 2401 USE indices, & 2411 ONLY: nbgp, nx , nxl, nxr, ny, nyn, nys, nzb2402 ONLY: nbgp, nxl, nxr, ny, nyn, nys, nzb 2412 2403 2413 2404
Note: See TracChangeset
for help on using the changeset viewer.