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 |
| 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 | [[span({{{CASE ( 'u*v*' )}}},style=color: red)]] \\ |
| 313 | [[span({{{pr = 6}}},style=color: red)]] \\ |
| 314 | {{{ CASE DEFAULT }}} \\ |
| 315 | {{{ PRINT*, '+++ user_spectra/data_output: Spectra of ', & }}} \\ |
| 316 | {{{ TRIM( data_output_sp(m) ), ' are not defined' }}} \\ |
| 317 | {{{ END SELECT }}} \\ |
| 318 | {{{ ENDIF }}} \\ |