 
 	curLevel.Value(curLevel.Value() - 1);
 
-	auto hPa150 = h->LevelForHeight(myTargetInfo->Producer(), 150.);
-
-	while (curLevel.Value() > hPa150.first.Value())
+	auto hPa100 = h->LevelForHeight(myTargetInfo->Producer(), 100.);
+
+	while (curLevel.Value() > hPa100.first.Value())
 	{
 		auto ZenvInfo = Fetch(conf, ftime, curLevel, param("HL-M"), ftype);
 		auto TenvInfo = Fetch(conf, ftime, curLevel, param("T-K"), ftype);

	InitializeArray<double>(d_Tparcel, kFloatMissing, N, stream);
	InitializeArray<unsigned char>(d_found, 0, N, stream);

	CUDA_CHECK(cudaMemcpyAsync(d_Titer, &Tsource[0], sizeof(double) * N, cudaMemcpyHostToDevice, stream));
	CUDA_CHECK(cudaMemcpyAsync(d_Piter, h_basePenv->values, sizeof(double) * N, cudaMemcpyHostToDevice, stream));
	CUDA_CHECK(cudaMemcpyAsync(d_PLCL, &PLCL[0], sizeof(double) * N, cudaMemcpyHostToDevice, stream));
	CUDA_CHECK(cudaMemcpyAsync(d_PLFC, &PLFC[0], sizeof(double) * N, cudaMemcpyHostToDevice, stream));



	level curLevel = itsBottomLevel;

	auto prevZenvInfo = Fetch(conf, ftime, curLevel, param("HL-M"), ftype);
	auto prevTenvInfo = Fetch(conf, ftime, curLevel, param("T-K"), ftype);
	auto prevPenvInfo = Fetch(conf, ftime, curLevel, param("P-HPA"), ftype);
