Need to set the tropopause minimum to be 5000 to prevent boundary lay…

…er shenanigans

src/extract.jl

@@ -192,7 +192,7 @@ function extractwwtg(
             if schname == "TDG"
                 tmin = tabs[1,it,ids]
                 itrop = 2
-                while tabs[itrop,it,ids] < tmin
+                while (tabs[itrop,it,ids] < tmin) || (z[itrop,ids] < 5000)
                     tmin = tabs[itrop,it,ids]
                     itrop += 1
                 end