295 | | IF ( mode == 'preprocess' ) THEN |
296 | | |
297 | | SELECT CASE ( TRIM( data_output_sp(m) ) ) |
298 | | |
299 | | CASE ( 'u', 'v', 'w', 'pt', 'q' ) |
300 | | !-- Not allowed here since these are the standard quantities used in |
301 | | !-- preprocess_spectra. |
302 | | |
303 | | CASE ( 'u*v*' ) |
304 | | pr = pr_palm+1 |
305 | | d(nzb+1:nzt,nys:nyn,nxl:nxr) = ustvst(nzb+1:nzt,nys:nyn,nxl:nxr) |
306 | | |
307 | | CASE DEFAULT |
308 | | PRINT*, '+++ user_spectra/preprocess: Spectra of ', & |
309 | | TRIM( data_output_sp(m) ), ' can not be calculated' |
310 | | |
311 | | END SELECT |
312 | | |
313 | | ELSEIF ( mode == 'data_output' ) THEN |
314 | | |
315 | | SELECT CASE ( TRIM( data_output_sp(m) ) ) |
316 | | |
317 | | CASE ( 'u', 'v', 'w', 'pt', 'q' ) |
318 | | !-- Not allowed here since these are the standard quantities used in |
319 | | !-- data_output_spectra. |
320 | | |
321 | | CASE ( 'u*v*' ) |
322 | | pr = 6 |
323 | | |
324 | | CASE DEFAULT |
325 | | PRINT*, '+++ user_spectra/data_output: Spectra of ', & |
326 | | TRIM( data_output_sp(m) ), ' are not defined' |
327 | | |
328 | | END SELECT |
329 | | |
330 | | ENDIF |
331 | | |
332 | | Note that spectra output is an optional software package (see chapter 3.7). Therefore user-defined spectra also require the package activation via mrun -p spectra. |
| 295 | {{{ IF ( mode == 'preprocess' ) THEN }}} \\ |
| 296 | {{{ SELECT CASE ( TRIM( data_output_sp(m) ) ) }}} \\ |
| 297 | {{{ CASE ( 'u', 'v', 'w', 'pt', 'q' ) |
| 298 | {{{ !-- Not allowed here since these are the standard quantities used in |
| 299 | {{{ !-- preprocess_spectra. |
| 300 | [[span({{{CASE ( 'u*v*' )}}},style=color: red)]] |
| 301 | [[span({{{pr = pr_palm+1}}},style=color: red)]] |
| 302 | [[span({{{d(nzb+1:nzt,nys:nyn,nxl:nxr) = ustvst(nzb+1:nzt,nys:nyn,nxl:nxr)}}},style=color: red)]] |
| 303 | {{{ CASE DEFAULT |
| 304 | {{{ PRINT*, '+++ user_spectra/preprocess: Spectra of ', & |
| 305 | {{{ TRIM( data_output_sp(m) ), ' can not be calculated' |
| 306 | {{{ END SELECT |
| 307 | {{{ ELSEIF ( mode == 'data_output' ) THEN |
| 308 | {{{ SELECT CASE ( TRIM( data_output_sp(m) ) ) |
| 309 | {{{ CASE ( 'u', 'v', 'w', 'pt', 'q' ) |
| 310 | {{{ !-- Not allowed here since these are the standard quantities used in |
| 311 | {{{ !-- data_output_spectra. |
| 312 | {{{ CASE ( 'u*v*' ) |
| 313 | {{{ pr = 6 |
| 314 | |
| 315 | {{{ CASE DEFAULT |
| 316 | {{{ PRINT*, '+++ user_spectra/data_output: Spectra of ', & |
| 317 | {{{ TRIM( data_output_sp(m) ), ' are not defined' |
| 318 | {{{ END SELECT |
| 319 | {{{ ENDIF |
| 320 | |
| 321 | Note that spectra output is an optional software package (see chapter 3.7). Therefore user-defined spectra also require the package activation via '''mrun''' {{{-p spectra}}}. |