END WHERE

WHERE ブロックの終わりを示します。「WHERE」を参照してください。

	WHERE (pressure <= 1.0)
	  pressure = pressure + inc_pressure
	  temp = temp - 5.0
	ELSEWHERE
	  raining = .TRUE.
	END WHERE

変数 temppressure,および raining はすべて配列です。