mirror of https://github.com/ecmwf/eccodes.git
23 lines
723 B
Modula-2
23 lines
723 B
Modula-2
# Template for wave parameters
|
|
|
|
## Direction part
|
|
unsigned[2] waveDirectionNumber : dump;
|
|
alias mars.direction = waveDirectionNumber;
|
|
alias directionNumber = waveDirectionNumber;
|
|
|
|
unsigned[2] numberOfWaveDirections = 1 : dump;
|
|
alias totalNumberOfWaveDirections = numberOfWaveDirections;
|
|
alias numberOfDirections = totalNumberOfWaveDirections;
|
|
|
|
## Frequency part
|
|
unsigned[2] waveFrequencyNumber : dump;
|
|
alias mars.frequency = waveFrequencyNumber;
|
|
alias frequencyNumber = waveFrequencyNumber;
|
|
|
|
unsigned[2] numberOfWaveFrequencies = 1 : dump;
|
|
alias totalNumberOfWaveFrequencies = numberOfWaveFrequencies;
|
|
alias numberOfFrequencies = totalNumberOfWaveFrequencies;
|
|
|
|
constant waveLevType="sfc";
|
|
alias mars.levtype = waveLevType;
|