#calculate the temperature and dewpoint sounding
#assuming linear profiles
slope=(Ttop - Tbot)/(Ptop - Pbot)
press=np.arange(Pbot, Ptop-10, -10)
Temp=(Tbot + slope*(press - Pbot));
slope=(Tdewtop - Tdewbot)/(Ptop - Pbot)
Tdew = (Tdewbot + slope*(press - Pbot))
#how big is the pressure vector?
numPoints= np.size(press);
#figure 1: cloud base at 900 hPa
plt.figure(1)
skew, ax = convecSkew(1)
#zoom the axis to focus on layer
skewLimits=convertTempToSkew([5,30],1.e3,skew)
plt.axis([skewLimits[0],skewLimits[1],1000,600])
xplot1=convertTempToSkew(Temp,press,skew)
#plot() returns a list of handles for each line plotted
Thandle, = plt.plot(xplot1,press,'k-', linewidth=2.5)
xplot2=convertTempToSkew(Tdew,press,skew)
TdHandle, = plt.plot(xplot2,press,'b--', linewidth=2.5)
plt.title('convectively unstable sounding: base at 900 hPa')
plt.show()
#print -dpdf initial_sound.pdf
#put on the top and bottom LCLs and the thetae sounding
Tlcl=np.zeros(numPoints)
eqT_bot=30 + c.Tc
eqwv_bot=14*1.e-3
sfT_bot=21 + c.Tc
sfwv_bot=3.e-3
eqwv_top=3.e-3
sfwv_top=3.e-3
ptop=410.e2
pbot=1000.e2
eqTd_bot=findTdwv(eqwv_bot,pbot)
sfTd_bot=findTdwv(sfwv_bot,pbot)
thetae_eq=thetaep(eqTd_bot,eqT_bot,pbot)
thetae_sf=thetaep(sfTd_bot,sfT_bot,pbot)
fig1 = plt.figure(1)
skew, ax1 = convecSkew(1)
pvec=np.arange(ptop, pbot, 1000)
#initialize vectors
Tvec_eq = np.zeros(pvec.size)
Tvec_sf = np.zeros(pvec.size)
wv = np.zeros(pvec.size)
wl = np.zeros(pvec.size)
xcoord_eq = np.zeros(pvec.size)
xcoord_sf = np.zeros(pvec.size)
for i in range(0, len(pvec)):
Tvec_eq[i], wv[i], wl[i] = tinvert_thetae(thetae_eq, eqwv_bot, pvec[i])
xcoord_eq[i] = convertTempToSkew(Tvec_eq[i] - c.Tc, pvec[i]*0.01, skew)
Tvec_sf[i], wv[i], wl[i] = tinvert_thetae(thetae_sf, sfwv_bot, pvec[i])
dewpoint= sound_var[:,3]
direct= sound_var[:,6]
speed= sound_var[:,7]
plt.figure(1)
plt.semilogy(temp, press)
plt.semilogy(dewpoint, press)
plt.gca().invert_yaxis()
plt.gca().set_ybound((200, 1000))
plt.gca().set_title('littlerock sounding, %s' %var_names[3])
plt.ylabel('pressure (hPa)')
plt.xlabel('temperature (deg C)')
plt.show()
plt.figure(2)
skew, ax2 = convecSkew(2)
xtemp=convertTempToSkew(temp,press,skew)
xdew=convertTempToSkew(dewpoint,press,skew)
plt.semilogy(xtemp,press,'g-',linewidth=4)
plt.semilogy(xdew,press,'b-',linewidth=4)
#use 900 hPa sounding level for adiabat
#array.argmin() finds the index of the min. value of array
p900_level = np.abs(900 - press).argmin()
thetaeVal=thetaep(dewpoint[p900_level] + c.Tc,temp[p900_level] + c.Tc,press[p900_level]*100.)
pressVals,tempVals =calcAdiabat(press[p900_level]*100.,thetaeVal,200.e2)
xTemp=convertTempToSkew(tempVals - c.Tc,pressVals*1.e-2,skew)
p900_adiabat = plt.semilogy(xTemp,pressVals*1.e-2,'r-',linewidth=4)
xleft=convertTempToSkew(-20,1.e3,skew)
xright=convertTempToSkew(25.,1.e3,skew)
pressC = 0.7e5
tempC = 5 + c.Tc
thetaA = theta(tempA, pressA)
thetaC = theta(tempC, pressC)
thetaB = thetaC
tempB = tempA
term1 = (thetaB / tempB)**(c.cpd / c.Rd)
term1 = 1. / term1
pressB = term1 * 1.e5
tempD = tempC
thetaD = thetaA
term1 = (thetaD / tempD)**(c.cpd / c.Rd)
term1 = 1. / term1
pressD = term1 * 1.e5
plt.figure(1)
skew, ax1 = convecSkew(1)
xtempA = convertTempToSkew(tempA - c.Tc, pressA * 0.01, skew)
xtempB = convertTempToSkew(tempB - c.Tc, pressB * 0.01, skew)
xtempC = convertTempToSkew(tempC - c.Tc, pressC * 0.01, skew)
xtempD = convertTempToSkew(tempD - c.Tc, pressD * 0.01, skew)
plt.text(xtempA, pressA * 0.01, "A", fontweight="bold", fontsize=22, color="b")
plt.text(xtempB, pressB * 0.01, "B", fontweight="bold", fontsize=22, color="b")
plt.text(xtempC, pressC * 0.01, "C", fontweight="bold", fontsize=22, color="b")
plt.text(xtempD, pressD * 0.01, "D", fontweight="bold", fontsize=22, color="b")
xmin = convertTempToSkew(0, pressA * 0.01, skew)
xmax = convertTempToSkew(35, pressA * 0.01, skew)
plt.axis([xmin, xmax, 1000, 600])
plt.title("forward carnot cycle")
sfT_bot = 21 + c.Tc
sfwv_bot = 3.e-3
eqwv_top = 3.e-3
sfwv_top = 3.e-3
ptop = 4e2
pbot = 1000.e2
# Perform the functions as the heat expands
eqTd_bot = findTdwv(eqwv_bot,pbot)
sfTd_bot = findTdwv(sfwv_bot,pbot)
thetae_eq = thetaep(eqTd_bot,eqT_bot,pbot)
thetae_sf = thetaep(sfTd_bot,sfT_bot,pbot)
# plot
fig1 = plt.figure(1)
skew, ax1 = convecSkew(1)
# Initialize vector arrays.
pvec = np.arange(ptop, pbot, 1000)
Tvec_eq = np.zeros(pvec.size)
Tvec_sf = np.zeros(pvec.size)
wv = np.zeros(pvec.size)
wl = np.zeros(pvec.size)
xcoord_eq = np.zeros(pvec.size)
xcoord_sf = np.zeros(pvec.size)
for i in range(0, len(pvec)):
Tvec_eq[i], wv[i], wl[i] = tinvert_thetae(thetae_eq, eqwv_bot, pvec[i])
xcoord_eq[i] = convertTempToSkew(Tvec_eq[i] - c.Tc, pvec[i]*0.01, skew)
Tvec_sf[i], wv[i], wl[i] = tinvert_thetae(thetae_sf, sfwv_bot, pvec[i])
xcoord_sf[i] = convertTempToSkew(Tvec_sf[i] - c.Tc, pvec[i]*0.01, skew)
pressC=0.7e5
tempC=5 + c.Tc;
thetaA=theta(tempA,pressA)
thetaC=theta(tempC,pressC)
thetaB=thetaC
tempB=tempA
term1=(thetaB/tempB)**(c.cpd/c.Rd)
term1=1./term1
pressB=term1*1.e5
tempD=tempC
thetaD=thetaA
term1=(thetaD/tempD)**(c.cpd/c.Rd)
term1=1./term1
pressD=term1*1.e5
plt.figure(1)
skew, ax1 =convecSkew(1)
xtempA=convertTempToSkew(tempA - c.Tc,pressA*0.01,skew)
xtempB=convertTempToSkew(tempB - c.Tc,pressB*0.01,skew)
xtempC=convertTempToSkew(tempC - c.Tc,pressC*0.01,skew)
xtempD=convertTempToSkew(tempD - c.Tc,pressD*0.01,skew)
plt.text(xtempA,pressA*0.01,'A', fontweight='bold',fontsize= 22, color='b')
plt.text(xtempB,pressB*0.01,'B', fontweight='bold',fontsize= 22,color='b')
plt.text(xtempC,pressC*0.01,'C', fontweight='bold',fontsize= 22,color='b')
plt.text(xtempD,pressD*0.01,'D', fontweight='bold',fontsize= 22, color='b')
xmin = convertTempToSkew(0,pressA*0.01,skew)
xmax = convertTempToSkew(35,pressA*0.01,skew)
plt.axis([xmin, xmax, 1000, 600])
plt.title('forward carnot cycle')
