Changeset 3665 for palm/trunk/SOURCE
- Timestamp:
- Jan 10, 2019 8:28:24 AM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 9 edited
-
advec_s_pw.f90 (modified) (3 diffs)
-
advec_s_up.f90 (modified) (3 diffs)
-
data_output_mask.f90 (modified) (2 diffs)
-
date_and_time_mod.f90 (modified) (5 diffs)
-
gust_mod.f90 (modified) (15 diffs)
-
init_masks.f90 (modified) (2 diffs)
-
multi_agent_system_mod.f90 (modified) (3 diffs)
-
netcdf_interface_mod.f90 (modified) (2 diffs)
-
virtual_measurement_mod.f90 (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_s_pw.f90
r3655 r3665 25 25 ! ----------------- 26 26 ! $Id$ 27 ! unused variables removed 28 ! 29 ! 3655 2019-01-07 16:51:22Z knoop 27 30 ! nopointer option removed 28 31 ! … … 125 128 126 129 USE indices, & 127 ONLY: nxl, nx lg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt130 ONLY: nxl, nxr, nyn, nys, nzb, nzt 128 131 129 132 USE kinds … … 192 195 193 196 USE indices, & 194 ONLY: n xlg, nxrg, nyng, nysg, nzb, nzt197 ONLY: nzb, nzt 195 198 196 199 USE kinds -
palm/trunk/SOURCE/advec_s_up.f90
r3655 r3665 25 25 ! ----------------- 26 26 ! $Id$ 27 ! unused variables removed 28 ! 29 ! 3655 2019-01-07 16:51:22Z knoop 27 30 ! nopointer option removed 28 31 ! … … 122 125 123 126 USE indices, & 124 ONLY: nxl, nx lg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt127 ONLY: nxl, nxr, nyn, nys, nzb, nzt 125 128 126 129 USE kinds … … 198 201 199 202 USE indices, & 200 ONLY: n xlg, nxrg, nyng, nysg, nzb, nzt203 ONLY: nzb, nzt 201 204 202 205 USE kinds -
palm/trunk/SOURCE/data_output_mask.f90
r3655 r3665 25 25 ! ----------------- 26 26 ! $Id$ 27 ! unused variables removed 28 ! 29 ! 3655 2019-01-07 16:51:22Z knoop 27 30 ! Fix output time levels (use time_since_reference_point) 28 31 ! … … 204 207 205 208 USE surface_mod, & 206 ONLY : surf_def_h, surf_lsm_h, surf_usm_h, get_topography_top_index_ji209 ONLY : get_topography_top_index_ji 207 210 208 211 IMPLICIT NONE -
palm/trunk/SOURCE/date_and_time_mod.f90
r3655 r3665 25 25 ! ----------------- 26 26 ! $Id$ 27 ! further tabs removed, unused variables removed 28 ! 29 ! 3655 2019-01-07 16:51:22Z knoop 27 30 ! further tabs removed 28 31 ! … … 100 103 INTEGER(iwp) :: hour_call_emis=0 !< index used to call the emissions just once every hour 101 104 102 INTEGER(iwp) :: ihour103 105 INTEGER(iwp) :: index_mm !< index months of the default emission mode 104 106 INTEGER(iwp) :: index_dd !< index days of the default emission mode 105 107 INTEGER(iwp) :: index_hh !< index hours of the emission mode 106 INTEGER(iwp) :: hours_since_reference_point !< hours of current simulation107 108 108 109 REAL(wp) :: time_utc !< current model time in UTC … … 297 298 298 299 !-- Variables Definition 299 INTEGER 300 INTEGER :: i_mon !< Index for going through the different months 300 301 301 302 !> Update simulation time in seconds … … 494 495 !> ------------------------------------------------------------------------ 495 496 496 INTEGER 497 INTEGER :: weekday 497 498 498 499 !> CONSTANTS … … 542 543 543 544 !> IN/OUTPUT 544 INTEGER, INTENT(INOUT) 545 INTEGER, INTENT(INOUT) 546 INTEGER, INTENT(INOUT) 547 INTEGER, INTENT(INOUT) 545 INTEGER, INTENT(INOUT) :: mo !> Month 546 INTEGER, INTENT(INOUT) :: hh !> Hour 547 INTEGER, INTENT(INOUT) :: dd !> Day 548 INTEGER, INTENT(INOUT) :: index_hh !> Index Hour 548 549 549 550 !> Additional Variables for calculateing indices 550 INTEGER 551 INTEGER 552 INTEGER 553 INTEGER 551 INTEGER :: index_mm !> Index Month 552 INTEGER :: index_dd !> Index Day 553 INTEGER :: i_mon !> Index for going through the different months 554 INTEGER :: sum_dd !> Sum days 554 555 555 556 !> CONSTANTS 556 INTEGER, PARAMETER :: nmonth=12 557 INTEGER, PARAMETER :: nday = 7 558 INTEGER, PARAMETER :: nhour = 24 557 INTEGER, PARAMETER :: nhour = 24 559 558 INTEGER, PARAMETER, DIMENSION(12) :: days = (/31,28,31,30,31,30,31,31,30,31,30,31/) ! no leap year 560 559 -
palm/trunk/SOURCE/gust_mod.f90
r3655 r3665 25 25 ! ----------------- 26 26 ! $Id$ 27 ! dummy statements added to avoid compiler warnings about unused variables 28 ! 29 ! 3655 2019-01-07 16:51:22Z knoop 27 30 ! Bugfix: domain bounds of local_pf corrected 28 31 ! … … 52 55 IMPLICIT NONE 53 56 54 LOGICAL :: gust_module_enabled = .FALSE. !< switch, if the entire module is used at all 57 INTEGER(iwp) :: idum !< dummy variable used to avoid compiler warnings about unused variables 58 59 LOGICAL :: dummy_logical = .FALSE. !< switch to avoid compiler warnings about unused variables 60 LOGICAL :: gust_module_enabled = .FALSE. !< switch, if the entire module is used at all 55 61 56 62 SAVE … … 228 234 INTEGER(iwp) :: var_count !< 229 235 236 ! 237 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 238 IF ( dummy_logical ) idum = LEN( unit ) + LEN( variable ) + LEN( dopr_unit ) + var_count 230 239 231 240 END SUBROUTINE gust_check_data_output_pr … … 244 253 CHARACTER (LEN=*) :: var !< 245 254 255 ! 256 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 257 IF ( dummy_logical ) idum = LEN( var ) + LEN( unit ) 246 258 247 259 END SUBROUTINE gust_check_data_output … … 277 289 CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_label 278 290 291 ! 292 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 293 IF ( dummy_logical ) idum = dots_num + dots_max + LEN( dots_unit(1) ) + LEN( dots_label(1) ) 279 294 280 295 END SUBROUTINE gust_init … … 299 314 CHARACTER (LEN=*), INTENT(IN) :: grid_z !< 300 315 316 ! 317 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 318 IF ( found ) idum = LEN( var ) + LEN( grid_x ) + LEN( grid_y ) + LEN( grid_z ) 301 319 302 320 END SUBROUTINE gust_define_netcdf_grid … … 315 333 INTEGER(iwp), INTENT(IN) :: io !< Unit of the output file 316 334 335 ! 336 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 337 IF ( dummy_logical ) idum = io 317 338 318 339 END SUBROUTINE gust_header … … 331 352 CHARACTER (LEN=*) :: location !< 332 353 354 ! 355 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 356 IF ( dummy_logical ) idum = LEN( location ) 333 357 334 358 END SUBROUTINE gust_actions … … 350 374 INTEGER(iwp) :: j 351 375 376 ! 377 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 378 IF ( dummy_logical ) idum = i + j + LEN( location ) 352 379 353 380 END SUBROUTINE gust_actions_ij … … 364 391 IMPLICIT NONE 365 392 366 INTEGER, INTENT(IN) :: mod_count 367 393 INTEGER, INTENT(IN) :: mod_count 394 395 ! 396 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 397 IF ( dummy_logical ) idum = mod_count 368 398 369 399 END SUBROUTINE gust_swap_timelevel … … 384 414 CHARACTER (LEN=*) :: variable !< 385 415 416 ! 417 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 418 IF ( dummy_logical ) idum = LEN( mode ) + LEN( variable ) 386 419 387 420 END SUBROUTINE gust_3d_data_averaging … … 415 448 !< array to which output data is resorted to 416 449 450 ! 451 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 452 IF ( found .AND. two_d ) idum = av + LEN( variable ) + LEN( grid ) + local_pf(nxl,nys,nzb_do) + fill_value 417 453 418 454 END SUBROUTINE gust_data_output_2d … … 441 477 442 478 REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) :: local_pf !< local 443 !< array to which output data is resorted to 444 479 !< array to which output data is resorted to 480 481 ! 482 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 483 IF ( found ) idum = av + LEN( variable ) + fill_value + local_pf(nxl,nys,nzb_do) 445 484 446 485 END SUBROUTINE gust_data_output_3d … … 457 496 IMPLICIT NONE 458 497 459 CHARACTER (LEN=*) :: mode !< 460 461 INTEGER(iwp) :: sr !< 462 INTEGER(iwp) :: tn !< 498 CHARACTER (LEN=*) :: mode !< 499 463 500 INTEGER(iwp) :: dots_max !< 464 501 INTEGER(iwp) :: sr !< 502 INTEGER(iwp) :: tn !< 503 504 ! 505 !-- Next line is just to avoid compiler warnings about unused variables. You may remove it. 506 IF ( dummy_logical ) idum = dots_max + sr + tn + LEN( mode ) 465 507 466 508 END SUBROUTINE gust_statistics … … 543 585 REAL(wp), DIMENSION(nzb:nzt+1,nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_3d !< 544 586 545 ! 546 !-- Here the reading of user-defined restart data follows: 547 !-- Sample for user-defined output 548 549 587 588 ! 589 !-- Next lins are just to avoid compiler warnings about unused variables in case of empty user interface routine. 590 !-- You may remove them. 591 IF ( dummy_logical ) THEN 592 idum = i + k + nxlc + nxlf + nxrc + nxrf + nync + nynf + nysc + nysf + & 593 tmp_2d(nys_on_file,nxl_on_file) + tmp_3d(nzb,nys_on_file,nxl_on_file) 594 ENDIF 595 596 ! 597 !-- Here the reading of user-defined restart data follows: 598 !-- Sample for user-defined output 550 599 found = .TRUE. 551 552 600 553 601 SELECT CASE ( restart_string(1:length) ) -
palm/trunk/SOURCE/init_masks.f90
r3655 r3665 25 25 ! ----------------- 26 26 ! $Id$ 27 ! unused variables removed 28 ! 29 ! 3655 2019-01-07 16:51:22Z knoop 27 30 ! Move the control parameter "salsa" from salsa_mod to control_parameters 28 31 ! (M. Kurppa) … … 196 199 197 200 USE radiation_model_mod, & 198 ONLY: radiation , radiation_check_data_output201 ONLY: radiation_check_data_output 199 202 200 203 USE salsa_mod, & -
palm/trunk/SOURCE/multi_agent_system_mod.f90
r3602 r3665 25 25 ! ----------------- 26 26 ! $Id$ 27 ! unused variables removed 28 ! 29 ! 3602 2018-12-04 16:03:51Z sward 27 30 ! Added check for missing NAVIGATION_DATA input file 28 31 ! … … 1442 1445 1443 1446 #endif 1444 agents => NULL()1447 NULLIFY( agents ) 1445 1448 #if defined( __parallel ) 1446 1449 IF ( ALLOCATED( out_agents ) ) DEALLOCATE( out_agents ) … … 2763 2766 2764 2767 USE arrays_3d, & 2765 ONLY: u, v, pt, hyp,exner2768 ONLY: u, v, pt, exner 2766 2769 2767 2770 ! USE chemistry_model_mod, & -
palm/trunk/SOURCE/netcdf_interface_mod.f90
r3655 r3665 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Statement added to prevent compiler warning about unused variable 28 ! 29 ! 3655 2019-01-07 16:51:22Z knoop 27 30 ! Move the control parameter "salsa" from salsa_mod to control_parameters 28 31 ! (M. Kurppa) … … 6777 6780 INTEGER, INTENT(IN) :: errno 6778 6781 INTEGER, INTENT(OUT) :: id 6782 INTEGER :: idum !< dummy variable used to avoid compiler warnings about unused variables 6779 6783 LOGICAL, INTENT(IN) :: parallel 6780 6784 6785 ! 6786 !-- Next line is just to avoid compiler warning about unused variable 6787 IF ( parallel ) idum = 0 6781 6788 6782 6789 ! -
palm/trunk/SOURCE/virtual_measurement_mod.f90
r3522 r3665 25 25 ! ----------------- 26 26 ! $Id$ 27 ! unused variables removed 28 ! 29 ! 3522 2018-11-13 12:14:36Z suehring 27 30 ! Sampling of variables 28 31 ! … … 184 187 INTEGER(iwp) :: id_vm !< NetCDF file id for virtual measurements 185 188 INTEGER(iwp) :: nvm = 0 !< number of virtual measurements 186 INTEGER(iwp) :: observation_coverage_xy = 0 !< horizontal distance from the measurement point where observations should be taken in the surrounding 187 INTEGER(iwp) :: observation_coverage_z = 0 !< vertical distance from the measurement point where observations should be taken in the surrounding 189 ! INTEGER(iwp) :: observation_coverage_xy = 0 !< horizontal distance from the measurement point where observations should be taken in the surrounding 190 ! INTEGER(iwp) :: observation_coverage_z = 0 !< vertical distance from the measurement point where observations should be taken in the surrounding 188 191 189 192 LOGICAL :: use_virtual_measurement = .FALSE. !< Namelist parameter … … 316 319 317 320 USE netcdf_data_input_mod, & 318 ONLY: init_model, input_file_vm, & 319 netcdf_data_input_get_dimension_length, & 321 ONLY: input_file_vm, netcdf_data_input_get_dimension_length, & 320 322 netcdf_data_input_att, netcdf_data_input_var 321 323 … … 329 331 CHARACTER(LEN=10), DIMENSION(50) :: measured_variables = '' !< dummy array with all measured variables that are allowed 330 332 331 INTEGER(iwp) :: dim_eutm !< dimension size of UTM easting coordinate332 INTEGER(iwp) :: dim_nutm !< dimension size of UTM northing coordinate333 ! INTEGER(iwp) :: dim_eutm !< dimension size of UTM easting coordinate 334 ! INTEGER(iwp) :: dim_nutm !< dimension size of UTM northing coordinate 333 335 INTEGER(iwp) :: dim_ntime !< dimension size of time coordinate 334 INTEGER(iwp) :: dim_zag !< dimension size of height coordinate335 INTEGER(iwp) :: i !< grid index of virtual observation point in x-direction336 INTEGER(iwp) :: ii !< running index over all coordinate points of a measurement336 ! INTEGER(iwp) :: dim_zag !< dimension size of height coordinate 337 ! INTEGER(iwp) :: i !< grid index of virtual observation point in x-direction 338 ! INTEGER(iwp) :: ii !< running index over all coordinate points of a measurement 337 339 INTEGER(iwp) :: is !< grid index of real observation point of the respective station in x-direction 338 INTEGER(iwp) :: j !< grid index of observation point in x-direction340 ! INTEGER(iwp) :: j !< grid index of observation point in x-direction 339 341 INTEGER(iwp) :: js !< grid index of real observation point of the respective station in y-direction 340 INTEGER(iwp) :: k !< grid index of observation point in x-direction342 ! INTEGER(iwp) :: k !< grid index of observation point in x-direction 341 343 INTEGER(iwp) :: kl !< lower vertical index of surrounding grid points of an observation coordinate 342 344 INTEGER(iwp) :: ks !< grid index of real observation point of the respective station in z-direction … … 712 714 IMPLICIT NONE 713 715 714 CHARACTER(LEN=10) :: trimvar !< dummy for the measured variable name716 ! CHARACTER(LEN=10) :: trimvar !< dummy for the measured variable name 715 717 716 718 INTEGER(iwp) :: i !< grid index in x-direction
Note: See TracChangeset
for help on using the changeset viewer.
