Changeset 1324 for palm/trunk/SOURCE
- Timestamp:
- Mar 21, 2014 9:13:16 AM (11 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 8 edited
-
calc_spectra.f90 (modified) (6 diffs)
-
data_output_spectra.f90 (modified) (7 diffs)
-
header.f90 (modified) (3 diffs)
-
init_masks.f90 (modified) (2 diffs)
-
package_parin.f90 (modified) (2 diffs)
-
surface_coupler.f90 (modified) (3 diffs)
-
transpose.f90 (modified) (8 diffs)
-
write_var_list.f90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/calc_spectra.f90
r1321 r1324 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Bugfix: nzb_x, nzb_yd, nyn_x, nyn_x, nzt_x, nzt_yd belong to transpose_indices 23 23 ! 24 24 ! Former revisions: … … 77 77 78 78 USE indices, & 79 ONLY: nxl, nxr, nyn, nys, nzb, nzt , nzt_x, nzt_yd79 ONLY: nxl, nxr, nyn, nys, nzb, nzt 80 80 81 81 USE kinds … … 274 274 275 275 USE indices, & 276 ONLY: nx, ny , nyn_x, nys_x, nzb_x, nzt_x276 ONLY: nx, ny 277 277 278 278 USE kinds … … 286 286 ONLY: spectrum_x 287 287 288 USE transpose_indices 288 USE transpose_indices, & 289 ONLY: nyn_x, nys_x, nzb_x, nzt_x 289 290 290 291 … … 411 412 412 413 USE indices, & 413 ONLY: nx, ny , nxl_yd, nxr_yd, nzb_yd, nzt_yd414 ONLY: nx, ny 414 415 415 416 USE kinds … … 423 424 ONLY: spectrum_y 424 425 425 USE transpose_indices 426 USE transpose_indices, & 427 ONLY: nxl_yd, nxr_yd, nzb_yd, nzt_yd 426 428 427 429 -
palm/trunk/SOURCE/data_output_spectra.f90
r1323 r1324 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Bugfix: module statistics and module spectrum added, missing variables in ONLY 23 ! arguments added 23 24 ! 24 25 ! Former revisions: … … 58 59 59 60 USE control_parameters, & 60 ONLY: average_count_sp, averaging_interval_sp, dosp_time_count 61 ONLY: average_count_sp, averaging_interval_sp, dosp_time_count, & 62 message_string, netcdf_output, run_description_header, & 63 time_since_reference_point 61 64 62 65 USE cpulog, & … … 70 73 71 74 USE spectrum, & 72 ONLY: data_output_sp 75 ONLY: data_output_sp, spectra_direction 73 76 74 77 USE statistics, & … … 274 277 SUBROUTINE data_output_spectra_x( m, cranz, pr, frame_written ) 275 278 279 USE arrays_3d, & 280 ONLY: zu, zw 276 281 USE constants, & 277 282 ONLY: pi 278 283 279 284 USE control_parameters, & 280 ONLY: averaging_interval_sp 285 ONLY: averaging_interval_sp, run_description_header, simulated_time_chr 281 286 282 287 USE grid_variables, & … … 290 295 USE pegrid 291 296 297 USE statistics, & 298 ONLY: spectrum_x 299 292 300 USE spectrum, & 293 ONLY: comp_spectra_level, n_sp_x, plot_spectra_level 301 ONLY: comp_spectra_level, header_char, lstyles, klist_x, n_sp_x, & 302 plot_spectra_level, utext_char, ytext_char 294 303 295 304 IMPLICIT NONE … … 469 478 SUBROUTINE data_output_spectra_y( m, cranz, pr, frame_written ) 470 479 480 USE arrays_3d, & 481 ONLY: zu, zw 482 471 483 USE constants, & 472 484 ONLY: pi 473 485 474 486 USE control_parameters, & 475 ONLY: averaging_interval_sp 487 ONLY: averaging_interval_sp, run_description_header, simulated_time_chr 476 488 477 489 USE grid_variables, & … … 484 496 485 497 USE pegrid 486 487 USE spectrum comp_spectra_level, plot_spectra_level 498 499 USE statistics, & 500 ONLY: spectrum_y 501 502 USE spectrum, & 503 ONLY: comp_spectra_level, header_char, klist_y, lstyles, n_sp_y, & 504 plot_spectra_level, utext_char, ytext_char 488 505 489 506 IMPLICIT NONE -
palm/trunk/SOURCE/header.f90
r1323 r1324 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Bugfix: module spectrum added 23 23 ! 24 24 ! Former revisions: … … 175 175 176 176 USE pegrid 177 178 USE spectrum, & 179 ONLY: comp_spectra_level, data_output_sp, plot_spectra_level, & 180 spectra_direction 177 181 178 182 IMPLICIT NONE … … 487 491 ENDIF 488 492 ENDIF 493 489 494 490 495 ! -
palm/trunk/SOURCE/init_masks.f90
r1321 r1324 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! Bugfix: ONLY statement for module netcdf_control removed 22 23 ! 23 24 ! Former revisions: … … 89 90 USE kinds 90 91 91 USE netcdf_control, & 92 ONLY: domask_unit 92 USE netcdf_control 93 93 94 94 USE particle_attributes, & -
palm/trunk/SOURCE/package_parin.f90
r1321 r1324 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Bugfix: Missing variable dt_data_output output added to ONLY statement 23 23 ! 24 24 ! Former revisions: … … 56 56 57 57 USE control_parameters, & 58 ONLY: averaging_interval_sp, dt_d opts, dt_dosp, dt_dvrp,&59 particle_maximum_age, skip_time_dosp, threshold58 ONLY: averaging_interval_sp, dt_data_output, dt_dopts, dt_dosp, & 59 dt_dvrp, particle_maximum_age, skip_time_dosp, threshold 60 60 61 61 USE dvrp_variables, & -
palm/trunk/SOURCE/surface_coupler.f90
r1323 r1324 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! Bugfix: ONLY statement for module pegrid removed 22 23 ! 23 !24 24 ! Former revisions: 25 25 ! ----------------- … … 435 435 USE kinds 436 436 437 USE pegrid, & 438 ONLY: comm2d, comm_inter, ierr, MPI_DOUBLE_PRECISION, myid, ngp_a, & 439 target_id 437 USE pegrid 440 438 441 439 IMPLICIT NONE … … 521 519 USE kinds 522 520 523 USE pegrid, & 524 ONLY: comm2d, comm_inter, ierr, MPI_DOUBLE_PRECISION, myid, ngp_o, & 525 target_id 521 USE pegrid 526 522 527 523 IMPLICIT NONE -
palm/trunk/SOURCE/transpose.f90
r1321 r1324 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Bugfix: ONLY statement for module pegrid removed 23 23 ! 24 24 ! Former revisions: … … 264 264 USE kinds 265 265 266 USE pegrid, & 267 ONLY: collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION, & 268 pdims, sendrecvcount_zx 266 USE pegrid 269 267 270 268 USE transpose_indices, & … … 407 405 USE kinds 408 406 409 USE pegrid, & 410 ONLY: collective_wait, comm1dy, comm2d, ierr, MPI_DOUBLE_PRECISION, & 411 numprocs, pdims, sendrecvcount_xy 407 USE pegrid 412 408 413 409 USE transpose_indices, & … … 504 500 USE kinds 505 501 506 USE pegrid, & 507 ONLY: collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION, & 508 pdims, sendrecvcount_xy 502 USE pegrid 509 503 510 504 USE transpose_indices, & … … 629 623 USE kinds 630 624 631 USE pegrid, & 632 ONLY: collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION, & 633 pdims, sendrecvcount_yz 625 USE pegrid 634 626 635 627 USE transpose_indices, & … … 767 759 USE kinds 768 760 769 USE pegrid, & 770 ONLY: collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION, & 771 pdims, sendrecvcount_zx 761 USE pegrid 772 762 773 763 USE transpose_indices, & … … 909 899 USE kinds 910 900 911 USE pegrid, & 912 ONLY: collective_wait, comm1dx, comm2d, ierr, MPI_DOUBLE_PRECISION, & 913 pdims, sendrecvcount_yz 901 USE pegrid 914 902 915 903 USE transpose_indices, & … … 1007 995 USE kinds 1008 996 1009 USE pegrid, & 1010 ONLY: collective_wait, comm1dy, comm2d, ierr, MPI_DOUBLE_PRECISION, & 1011 pdims, sendrecvcount_zyd 997 USE pegrid 1012 998 1013 999 USE transpose_indices, & -
palm/trunk/SOURCE/write_var_list.f90
r1321 r1324 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Bugfix: ONLY statement for module netcdf_control removed 23 23 ! 24 24 ! Former revisions: … … 119 119 ONLY: damp_level_1d, dt_pr_1d, dt_run_control_1d, end_time_1d 120 120 121 USE netcdf_control, & 122 ONLY: output_for_t0 121 USE netcdf_control 123 122 124 123 USE particle_attributes, &
Note: See TracChangeset
for help on using the changeset viewer.
