Ignore:
Timestamp:
Oct 7, 2015 11:56:08 PM (6 years ago)
Author:
knoop
Message:

Code annotations made doxygen readable

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
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! ------------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    6261! Description:
    6362! ------------
    64 ! Writing spectra data on file, using a special format which allows
    65 ! plotting of these data with PROFIL-graphic-software
     63!> Writing spectra data on file, using a special format which allows
     64!> plotting of these data with PROFIL-graphic-software
    6665!------------------------------------------------------------------------------!
     66 SUBROUTINE data_output_spectra
     67 
    6768#if defined( __spectra )
    6869
     
    9091    IMPLICIT NONE
    9192
    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 !<
    99100
    100101    CALL cpu_log( log_point(31), 'data_output_spectra', 'start' )
     
    200201
    201202
     203!------------------------------------------------------------------------------!
     204! Description:
     205! ------------
     206!> @todo Missing subroutine description.
     207!------------------------------------------------------------------------------!
    202208 SUBROUTINE output_spectra_netcdf( nsp, direction )
    203209#if defined( __netcdf )
     
    227233    IMPLICIT NONE
    228234
    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 !<
    240246
    241247
     
    281287
    282288#if defined( __spectra )
     289!------------------------------------------------------------------------------!
     290! Description:
     291! ------------
     292!> @todo Missing subroutine description.
     293!------------------------------------------------------------------------------!
    283294 SUBROUTINE data_output_spectra_x( m, cranz, pr, frame_written )
    284295
     
    310321    IMPLICIT NONE
    311322
    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 !<
    323334!
    324335!-- 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            !<
    355366     
    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          !<
    359370
    360371    NAMELIST /RAHMEN/  cranz, datleg, rtext, swap
     
    482493
    483494
     495!------------------------------------------------------------------------------!
     496! Description:
     497! ------------
     498!> @todo Missing subroutine description.
     499!------------------------------------------------------------------------------!
    484500 SUBROUTINE data_output_spectra_y( m, cranz, pr, frame_written )
    485501
     
    513529
    514530   
    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 !<
    526542
    527543!
    528544!-- 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          !<
    564580
    565581    NAMELIST /RAHMEN/  cranz, datleg, rtext, swap
Note: See TracChangeset for help on using the changeset viewer.