Changeset 1682 for palm/trunk/SOURCE/data_output_spectra.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_spectra.f90
r1354 r1682 1 SUBROUTINE data_output_spectra 2 1 !> @file data_output_spectra.f90 3 2 !--------------------------------------------------------------------------------! 4 3 ! This file is part of PALM. … … 20 19 ! Current revisions: 21 20 ! ------------------ 22 ! 21 ! Code annotations made doxygen readable 23 22 ! 24 23 ! Former revisions: … … 62 61 ! Description: 63 62 ! ------------ 64 ! Writing spectra data on file, using a special format which allows65 ! plotting of these data with PROFIL-graphic-software63 !> Writing spectra data on file, using a special format which allows 64 !> plotting of these data with PROFIL-graphic-software 66 65 !------------------------------------------------------------------------------! 66 SUBROUTINE data_output_spectra 67 67 68 #if defined( __spectra ) 68 69 … … 90 91 IMPLICIT NONE 91 92 92 INTEGER(iwp) :: cranz_x ! :93 INTEGER(iwp) :: cranz_y ! :94 INTEGER(iwp) :: m ! :95 INTEGER(iwp) :: pr ! :96 97 LOGICAL :: frame_x ! :98 LOGICAL :: frame_y ! :93 INTEGER(iwp) :: cranz_x !< 94 INTEGER(iwp) :: cranz_y !< 95 INTEGER(iwp) :: m !< 96 INTEGER(iwp) :: pr !< 97 98 LOGICAL :: frame_x !< 99 LOGICAL :: frame_y !< 99 100 100 101 CALL cpu_log( log_point(31), 'data_output_spectra', 'start' ) … … 200 201 201 202 203 !------------------------------------------------------------------------------! 204 ! Description: 205 ! ------------ 206 !> @todo Missing subroutine description. 207 !------------------------------------------------------------------------------! 202 208 SUBROUTINE output_spectra_netcdf( nsp, direction ) 203 209 #if defined( __netcdf ) … … 227 233 IMPLICIT NONE 228 234 229 CHARACTER (LEN=1), INTENT(IN) :: direction ! :230 231 INTEGER(iwp), INTENT(IN) :: nsp ! :232 233 INTEGER(iwp) :: i ! :234 INTEGER(iwp) :: k ! :235 236 REAL(wp) :: frequency ! :237 238 REAL(wp), DIMENSION(nx/2) :: netcdf_data_x ! :239 REAL(wp), DIMENSION(ny/2) :: netcdf_data_y ! :235 CHARACTER (LEN=1), INTENT(IN) :: direction !< 236 237 INTEGER(iwp), INTENT(IN) :: nsp !< 238 239 INTEGER(iwp) :: i !< 240 INTEGER(iwp) :: k !< 241 242 REAL(wp) :: frequency !< 243 244 REAL(wp), DIMENSION(nx/2) :: netcdf_data_x !< 245 REAL(wp), DIMENSION(ny/2) :: netcdf_data_y !< 240 246 241 247 … … 281 287 282 288 #if defined( __spectra ) 289 !------------------------------------------------------------------------------! 290 ! Description: 291 ! ------------ 292 !> @todo Missing subroutine description. 293 !------------------------------------------------------------------------------! 283 294 SUBROUTINE data_output_spectra_x( m, cranz, pr, frame_written ) 284 295 … … 310 321 IMPLICIT NONE 311 322 312 CHARACTER (LEN=30) :: atext ! :313 314 INTEGER(iwp) :: i ! :315 INTEGER(iwp) :: j ! :316 INTEGER(iwp) :: k ! :317 INTEGER(iwp) :: m ! :318 INTEGER(iwp) :: pr ! :319 320 LOGICAL :: frame_written ! :321 322 REAL(wp) :: frequency = 0.0_wp ! :323 CHARACTER (LEN=30) :: atext !< 324 325 INTEGER(iwp) :: i !< 326 INTEGER(iwp) :: j !< 327 INTEGER(iwp) :: k !< 328 INTEGER(iwp) :: m !< 329 INTEGER(iwp) :: pr !< 330 331 LOGICAL :: frame_written !< 332 333 REAL(wp) :: frequency = 0.0_wp !< 323 334 ! 324 335 !-- Variables needed for PROFIL-namelist 325 CHARACTER (LEN=80) :: rtext ! :326 CHARACTER (LEN=80) :: utext ! :327 CHARACTER (LEN=80) :: xtext = 'k in m>->1' ! :328 CHARACTER (LEN=80) :: ytext ! :329 330 INTEGER(iwp) :: cranz ! :331 INTEGER(iwp) :: labforx = 3 ! :332 INTEGER(iwp) :: labfory = 3 ! :333 INTEGER(iwp) :: legpos = 3 ! :334 INTEGER(iwp) :: timodex = 1 ! :335 336 INTEGER(iwp), DIMENSION(1:100) :: cucol = 1 ! :337 INTEGER(iwp), DIMENSION(1:100) :: klist = 999999 ! :338 INTEGER(iwp), DIMENSION(1:100) :: lstyle = 0 ! :339 340 LOGICAL :: datleg = .TRUE. ! :341 LOGICAL :: grid = .TRUE. ! :342 LOGICAL :: lclose = .TRUE. ! :343 LOGICAL :: rand = .TRUE. ! :344 LOGICAL :: swap = .TRUE. ! :345 LOGICAL :: twoxa = .TRUE. ! :346 LOGICAL :: xlog = .TRUE. ! :347 LOGICAL :: ylog = .TRUE. ! :348 349 REAL(wp) :: gwid = 0.1_wp ! :350 REAL(wp) :: rlegfak = 0.7_wp ! :351 REAL(wp) :: uxmin ! :352 REAL(wp) :: uxmax ! :353 REAL(wp) :: uymin ! :354 REAL(wp) :: uymax ! :336 CHARACTER (LEN=80) :: rtext !< 337 CHARACTER (LEN=80) :: utext !< 338 CHARACTER (LEN=80) :: xtext = 'k in m>->1' !< 339 CHARACTER (LEN=80) :: ytext !< 340 341 INTEGER(iwp) :: cranz !< 342 INTEGER(iwp) :: labforx = 3 !< 343 INTEGER(iwp) :: labfory = 3 !< 344 INTEGER(iwp) :: legpos = 3 !< 345 INTEGER(iwp) :: timodex = 1 !< 346 347 INTEGER(iwp), DIMENSION(1:100) :: cucol = 1 !< 348 INTEGER(iwp), DIMENSION(1:100) :: klist = 999999 !< 349 INTEGER(iwp), DIMENSION(1:100) :: lstyle = 0 !< 350 351 LOGICAL :: datleg = .TRUE. !< 352 LOGICAL :: grid = .TRUE. !< 353 LOGICAL :: lclose = .TRUE. !< 354 LOGICAL :: rand = .TRUE. !< 355 LOGICAL :: swap = .TRUE. !< 356 LOGICAL :: twoxa = .TRUE. !< 357 LOGICAL :: xlog = .TRUE. !< 358 LOGICAL :: ylog = .TRUE. !< 359 360 REAL(wp) :: gwid = 0.1_wp !< 361 REAL(wp) :: rlegfak = 0.7_wp !< 362 REAL(wp) :: uxmin !< 363 REAL(wp) :: uxmax !< 364 REAL(wp) :: uymin !< 365 REAL(wp) :: uymax !< 355 366 356 REAL(wp), DIMENSION(1:100) :: lwid = 0.6_wp ! :357 REAL(wp), DIMENSION(100) :: uyma ! :358 REAL(wp), DIMENSION(100) :: uymi ! :367 REAL(wp), DIMENSION(1:100) :: lwid = 0.6_wp !< 368 REAL(wp), DIMENSION(100) :: uyma !< 369 REAL(wp), DIMENSION(100) :: uymi !< 359 370 360 371 NAMELIST /RAHMEN/ cranz, datleg, rtext, swap … … 482 493 483 494 495 !------------------------------------------------------------------------------! 496 ! Description: 497 ! ------------ 498 !> @todo Missing subroutine description. 499 !------------------------------------------------------------------------------! 484 500 SUBROUTINE data_output_spectra_y( m, cranz, pr, frame_written ) 485 501 … … 513 529 514 530 515 CHARACTER (LEN=30) :: atext ! :516 517 INTEGER(iwp) :: i ! :518 INTEGER(iwp) :: j ! :519 INTEGER(iwp) :: k ! :520 INTEGER(iwp) :: m ! :521 INTEGER(iwp) :: pr ! :522 523 LOGICAL :: frame_written ! :524 525 REAL(wp) :: frequency = 0.0_wp ! :531 CHARACTER (LEN=30) :: atext !< 532 533 INTEGER(iwp) :: i !< 534 INTEGER(iwp) :: j !< 535 INTEGER(iwp) :: k !< 536 INTEGER(iwp) :: m !< 537 INTEGER(iwp) :: pr !< 538 539 LOGICAL :: frame_written !< 540 541 REAL(wp) :: frequency = 0.0_wp !< 526 542 527 543 ! 528 544 !-- Variables needed for PROFIL-namelist 529 CHARACTER (LEN=80) :: rtext ! :530 CHARACTER (LEN=80) :: utext ! :531 CHARACTER (LEN=80) :: xtext = 'k in m>->1' ! :532 CHARACTER (LEN=80) :: ytext ! :533 534 INTEGER(iwp) :: cranz ! :535 INTEGER(iwp) :: labforx = 3 ! :536 INTEGER(iwp) :: labfory = 3 ! :537 INTEGER(iwp) :: legpos = 3 ! :538 INTEGER(iwp) :: timodex = 1 ! :539 540 INTEGER(iwp), DIMENSION(1:100) :: cucol = 1 ! :541 INTEGER(iwp), DIMENSION(1:100) :: klist = 999999 ! :542 INTEGER(iwp), DIMENSION(1:100) :: lstyle = 0 ! :543 544 LOGICAL :: datleg = .TRUE. ! :545 LOGICAL :: grid = .TRUE. ! :546 LOGICAL :: lclose = .TRUE. ! :547 LOGICAL :: rand = .TRUE. ! :548 LOGICAL :: swap = .TRUE. ! :549 LOGICAL :: twoxa = .TRUE. ! :550 LOGICAL :: xlog = .TRUE. ! :551 LOGICAL :: ylog = .TRUE. ! :552 553 REAL(wp) :: gwid = 0.1_wp ! :554 REAL(wp) :: rlegfak = 0.7_wp ! :555 REAL(wp) :: uxmin ! :556 REAL(wp) :: uxmax ! :557 REAL(wp) :: uymin ! :558 REAL(wp) :: uymax ! :559 560 REAL(wp), DIMENSION(1:100) :: lwid = 0.6_wp ! :561 562 REAL(wp), DIMENSION(100) :: uyma ! :563 REAL(wp), DIMENSION(100) :: uymi ! :545 CHARACTER (LEN=80) :: rtext !< 546 CHARACTER (LEN=80) :: utext !< 547 CHARACTER (LEN=80) :: xtext = 'k in m>->1' !< 548 CHARACTER (LEN=80) :: ytext !< 549 550 INTEGER(iwp) :: cranz !< 551 INTEGER(iwp) :: labforx = 3 !< 552 INTEGER(iwp) :: labfory = 3 !< 553 INTEGER(iwp) :: legpos = 3 !< 554 INTEGER(iwp) :: timodex = 1 !< 555 556 INTEGER(iwp), DIMENSION(1:100) :: cucol = 1 !< 557 INTEGER(iwp), DIMENSION(1:100) :: klist = 999999 !< 558 INTEGER(iwp), DIMENSION(1:100) :: lstyle = 0 !< 559 560 LOGICAL :: datleg = .TRUE. !< 561 LOGICAL :: grid = .TRUE. !< 562 LOGICAL :: lclose = .TRUE. !< 563 LOGICAL :: rand = .TRUE. !< 564 LOGICAL :: swap = .TRUE. !< 565 LOGICAL :: twoxa = .TRUE. !< 566 LOGICAL :: xlog = .TRUE. !< 567 LOGICAL :: ylog = .TRUE. !< 568 569 REAL(wp) :: gwid = 0.1_wp !< 570 REAL(wp) :: rlegfak = 0.7_wp !< 571 REAL(wp) :: uxmin !< 572 REAL(wp) :: uxmax !< 573 REAL(wp) :: uymin !< 574 REAL(wp) :: uymax !< 575 576 REAL(wp), DIMENSION(1:100) :: lwid = 0.6_wp !< 577 578 REAL(wp), DIMENSION(100) :: uyma !< 579 REAL(wp), DIMENSION(100) :: uymi !< 564 580 565 581 NAMELIST /RAHMEN/ cranz, datleg, rtext, swap
Note: See TracChangeset
for help on using the changeset viewer.