2021-02-15 17:29:20 +00:00
|
|
|
# (C) Copyright 2005- ECMWF.
|
|
|
|
|
|
|
|
|
|
codetable[1] typeOfWavelengthInterval ('4.91.table',masterDir,localDir) : dump;
|
|
|
|
|
alias typeOfIntervalForFirstAndSecondWavelength=typeOfWavelengthInterval;
|
|
|
|
|
|
|
|
|
|
# Wavelengths in metres
|
|
|
|
|
signed[1] scaleFactorOfFirstWavelength : dump;
|
|
|
|
|
signed[4] scaledValueOfFirstWavelength : dump;
|
|
|
|
|
signed[1] scaleFactorOfSecondWavelength = missing(): can_be_missing,dump;
|
|
|
|
|
signed[4] scaledValueOfSecondWavelength = missing(): can_be_missing,dump;
|
2024-02-15 12:18:36 +00:00
|
|
|
|
|
|
|
|
meta firstWavelength from_scale_factor_scaled_value(scaleFactorOfFirstWavelength, scaledValueOfFirstWavelength);
|
|
|
|
|
meta secondWavelength from_scale_factor_scaled_value(scaleFactorOfSecondWavelength, scaledValueOfSecondWavelength);
|
|
|
|
|
alias firstWavelengthInMetres = firstWavelength;
|
|
|
|
|
alias secondWavelengthInMetres = secondWavelength;
|
|
|
|
|
|
|
|
|
|
constant oneBillionth = 1.0 / 1000000000 : hidden;
|
|
|
|
|
meta firstWavelengthInNanometres divdouble(firstWavelength, oneBillionth);
|
|
|
|
|
meta secondWavelengthInNanometres divdouble(secondWavelength, oneBillionth);
|
