libeccodes-data 2.0.2-5 / usr / share / eccodes / definitions / metar / runwayState2.def

if (substr(g,0,1) is "R" && ( substr(g,3,1) is "/" || substr(g,4,1) is "/" ) && length(g) > 9 ) {
      rename(g,runwayState2);
      group g : dump; non_alpha na;
			if (substr(runwayState2,3,1) is "/") {
				runwayDesignatorState2=to_string(runwayState2,1,2);
				runwayDepositCodeState2=to_string(runwayState2,4,1);
				runwayExtentOfContaminationCodeState2=to_string(runwayState2,5,1);
				runwayDepthOfDepositCodeState2=to_string(runwayState2,6,2);
				runwayFrictionCoefficientCodeState2=to_string(runwayState2,8,2);
			} else {
				runwayDesignatorState2=to_string(runwayState2,1,2);
				runwaySideCodeState2=to_string(runwayState2,3,1);
				runwayDepositCodeState2=to_string(runwayState2,5,1);
				runwayExtentOfContaminationCodeState2=to_string(runwayState2,6,1);
				runwayDepthOfDepositCodeState2=to_string(runwayState2,7,2);
				runwayFrictionCoefficientCodeState2=to_string(runwayState2,9,2);
			}
			runwayDepositState2=dict_search("metar/runwayStateDeposit.table",runwayDepositCodeState2,2);
			runwayExtentOfContaminationState2=dict_search("metar/runwayStateExtentOfContamination.table",runwayExtentOfContaminationCodeState2,2);
			runwayDepthOfDepositState2=dict_search("metar/runwayDepthOfDeposit.table",runwayDepthOfDepositCodeState2,2);
			if (is_integer(runwayFrictionCoefficientCodeState2)) {
					runwayFrictionCodeValueState2=to_integer(runwayFrictionCoefficientCodeState2);
					if (runwayFrictionCodeValueState2 < 91) {
							runwayFrictionCoefficientState2=dict_search("metar/runwayFrictionCoefficient.table",runwayFrictionCoefficientCodeState2,2);
					} else {
							runwayBrakingActionState2=dict_search("metar/runwayFrictionCoefficient.table",runwayFrictionCoefficientCodeState2,2);
					}
			} else {
					runwayBrakingActionState2=dict_search("metar/runwayFrictionCoefficient.table",runwayFrictionCoefficientCodeState2,2);
			}
}