Ignore:
Timestamp:
Mar 8, 2016 5:49:27 AM (6 years ago)
Author:
raasch
Message:

pmc-change in server-client get-put, spectra-directives removed, spectra-package modularized

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/modules.f90

    r1784 r1786  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! module spectrum moved to new separate module
    2222!
    2323! Former revisions:
     
    12771277 END MODULE profil_parameter
    12781278
    1279 
    1280 !------------------------------------------------------------------------------!
    1281 ! Description:
    1282 ! ------------
    1283 !> Definition of quantities used for computing spectra.
    1284 !------------------------------------------------------------------------------!
    1285  MODULE spectrum
    1286 
    1287     USE kinds
    1288 
    1289     CHARACTER (LEN=6),  DIMENSION(1:5) ::  header_char = (/ 'PS(u) ', 'PS(v) ',&
    1290                                            'PS(w) ', 'PS(pt)', 'PS(q) ' /)
    1291     CHARACTER (LEN=2),  DIMENSION(10)  ::  spectra_direction = 'x'
    1292     CHARACTER (LEN=10), DIMENSION(10)  ::  data_output_sp  = ' '
    1293     CHARACTER (LEN=25), DIMENSION(1:5) ::  utext_char =                    &
    1294                                            (/ '-power spectrum of u     ', &
    1295                                               '-power spectrum of v     ', &
    1296                                               '-power spectrum of w     ', &
    1297                                               '-power spectrum of ^1185 ', &
    1298                                               '-power spectrum of q     ' /)
    1299     CHARACTER (LEN=39), DIMENSION(1:5) ::  ytext_char =                        &
    1300                                  (/ 'k ^2236 ^2566^2569<u(k) in m>2s>->2    ', &
    1301                                     'k ^2236 ^2566^2569<v(k) in m>2s>->2    ', &
    1302                                     'k ^2236 ^2566^2569<w(k) in m>2s>->2    ', &
    1303                                     'k ^2236 ^2566^2569<^1185(k) in m>2s>->2', &
    1304                                     'k ^2236 ^2566^2569<q(k) in m>2s>->2    ' /)
    1305 
    1306     INTEGER(iwp) ::  klist_x = 0, klist_y = 0, n_sp_x = 0, n_sp_y = 0
    1307 
    1308     INTEGER(iwp) ::  comp_spectra_level(100) = 999999,                   &
    1309                      lstyles(100) = (/ 0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
    1310                                        0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
    1311                                        0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
    1312                                        0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
    1313                                        0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
    1314                                        0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
    1315                                        0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
    1316                                        0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
    1317                                        0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
    1318                                        0, 7, 3, 10, 1, 4, 9, 2, 6, 8 /), &
    1319                      plot_spectra_level(100) = 999999
    1320 
    1321     REAL(wp)    ::  time_to_start_sp = 0.0_wp
    1322 
    1323     SAVE
    1324 
    1325  END MODULE spectrum
    1326 
    1327 
    13281279!------------------------------------------------------------------------------!
    13291280! Description:
     
    13651316
    13661317
     1318
    13671319!------------------------------------------------------------------------------!
    13681320! Description:
Note: See TracChangeset for help on using the changeset viewer.