.MCAD 303010000 1 0 16777 0
.CMD PLOTFORMAT
0 0 1 1 0 0 1 
0 0 1 1 0 0 1 
0 1 0 0 NO-TRACE-STRING
0 2 1 0 NO-TRACE-STRING
0 3 2 0 NO-TRACE-STRING
0 4 3 0 NO-TRACE-STRING
0 1 4 0 NO-TRACE-STRING
0 2 5 0 NO-TRACE-STRING
0 3 6 0 NO-TRACE-STRING
0 4 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 2 2 0 NO-TRACE-STRING
0 3 3 0 NO-TRACE-STRING
0 4 4 0 NO-TRACE-STRING
0 1 5 0 NO-TRACE-STRING
0 2 6 0 NO-TRACE-STRING
0 3 0 0 NO-TRACE-STRING
0 4 1 0 NO-TRACE-STRING
0 1 21 15 0 3 
.CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=2 mass length time charge temperature tr=0 vm=0
.CMD SET ORIGIN 1
.CMD SET TOL 0.001000000000000
.CMD SET PRNCOLWIDTH 8
.CMD SET PRNPRECISION 4
.CMD PRINT_SETUP 1.200000 0.000000 0.000000 0.000000 0
.CMD HEADER_FOOTER 1 1 *empty* *empty* *empty* 0 1 *empty* *empty* *empty*
.CMD HEADER_FOOTER_FONT fontID=14 family=Arial points=10 bold=0 italic=0 underline=0
.CMD HEADER_FOOTER_FONT fontID=15 family=Arial points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE_NAME fontID=0 name=Variables
.CMD DEFINE_FONTSTYLE_NAME fontID=1 name=Constants
.CMD DEFINE_FONTSTYLE_NAME fontID=2 name=Text
.CMD DEFINE_FONTSTYLE_NAME fontID=4 name=User^1
.CMD DEFINE_FONTSTYLE_NAME fontID=5 name=User^2
.CMD DEFINE_FONTSTYLE_NAME fontID=6 name=User^3
.CMD DEFINE_FONTSTYLE_NAME fontID=7 name=User^4
.CMD DEFINE_FONTSTYLE_NAME fontID=8 name=User^5
.CMD DEFINE_FONTSTYLE_NAME fontID=9 name=User^6
.CMD DEFINE_FONTSTYLE_NAME fontID=10 name=User^7
.CMD DEFINE_FONTSTYLE fontID=0 family=Arial points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=1 family=Arial points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=2 family=Arial points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=4 family=Arial points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=5 family=Courier^New points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=6 family=System points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=7 family=Script points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=8 family=Roman points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=9 family=Modern points=10 bold=0 italic=0 underline=0
.CMD DEFINE_FONTSTYLE fontID=10 family=Times^New^Roman points=10 bold=0 italic=0 underline=0
.CMD UNITS U=1
.CMD DIMENSIONS_ANALYSIS 0 0
.TXT 4 1 16167 0
Cg a36.125000,85.375000,38
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {ATMOSPHERIC THERMODYNAMIC FUNCTIONS}}
}
.TXT 3 0 16170 0
Cg b84.375000,84.375000,163
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {This section contains the standard
 thermodynamic functions\par that can be
 used with a specific procedure.\par Go 
to page 5 for the start of any specific 
calculations}}
}
.TXT 9 0 16168 0
Cg a33.000000,85.375000,47
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Enter Freezing temperature and 
freezing band}}
}
.EQN 4 0 13 0
{0:TFC}NAME~0
.EQN 0 14 17 0
{0:FB}NAME~10
.TXT 5 -14 1 0
Cg a17.500000,20.250000,23
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {1.0 Define CONSTANTS}}
}
.EQN 2 40 2 0
{0:KA}NAME~(2)/(7)
.EQN 2 -40 3 0
{0:CPA}NAME~1004.675
.EQN 0 19 4 0
{0:RA}NAME~{0:CPA}NAME*{0:KA}NAME
.EQN 6 21 5 0
{0:KV}NAME~(1)/(4)
.EQN 2 -40 6 0
{0:CPV}NAME~1846.04
.EQN 0 19 7 0
{0:RV}NAME~{0:CPV}NAME*{0:KV}NAME
.EQN 3 21 8 0
{0:\e}NAME~({0:RA}NAME)/({0:RV}NAME)
.EQN 5 -40 16330 0
{0:fCPA}NAME({0:M}NAME):{0:CPA}NAME+{0:CPV}NAME*{0:M}NAME
.EQN 0 28 16331 0
{0:fRA}NAME({0:M}NAME):{0:RA}NAME+{0:RV}NAME*{0:M}NAME
.EQN 0 25 16334 0
{0:fKA}NAME({0:M}NAME):({0:fRA}NAME({0:M}NAME))/({0:fCPA}NAME({0:M}NAME))
.EQN 9 -53 9 0
{0:P0}NAME~100
.EQN 0 19 10 0
{0:PV0}NAME~0.61068
.EQN 3 -19 12 0
{0:T0}NAME~273.15
.EQN 0 19 14 0
{0:TF}NAME~{0:T0}NAME+{0:TFC}NAME
.EQN 0 20 18 0
{0:G}NAME~9.8
.EQN 4 -39 11 0
{0:PG}NAME~70
.EQN 0 19 15 0
{0:TG}NAME~280
.EQN 0 18 16 0
{0:MG}NAME~0.01
.EQN 4 -37 19 0
{0:LV0}NAME~2500840
.EQN 0 19 20 0
{0:LF0}NAME~333660
.EQN 4 -19 21 0
{0:CW}NAME~4190
.EQN 0 19 22 0
{0:CI}NAME~2090
.EQN 4 -19 23 0
{0:\aL}NAME~52.91688
.EQN 0 19 24 0
{0:\aI}NAME~25.48597
.EQN 3 -19 25 0
{0:\bL}NAME~6806.171
.EQN 0 19 26 0
{0:\bI}NAME~6286.1912
.EQN 3 -19 27 0
{0:\GL}NAME~5.078893
.EQN 0 19 28 0
{0:\GI}NAME~0.528613
.TXT 10 -19 16180 0
C x1,1,0,0
.TXT 5 0 29 0
Cg a48.000000,65.250000,68
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {2.0  FUNCTIONS: Vapor pressure,
 mixing ratio, virtual temperature}}
}
.EQN 5 0 30 0
{0:fPVL}NAME({0:T}NAME)~{0:exp}NAME({0:\aL}NAME-({0:\bL}NAME)/({0:T}NAME)-{0:\GL}NAME*{0:ln}NAME({0:T}NAME))
.EQN 7 0 31 0
{0:fPVI}NAME({0:T}NAME)~{0:exp}NAME({0:\aI}NAME-({0:\bI}NAME)/({0:T}NAME)-{0:\GI}NAME*{0:ln}NAME({0:T}NAME))
.EQN 7 0 32 0
{0:fPV}NAME({0:T}NAME)~{0:if}NAME({0:T}NAME>{0:TF}NAME,{0:fPVL}NAME({0:T}NAME),{0:fPVI}NAME({0:T}NAME))
.EQN 6 0 33 0
{0:fMVS}NAME({0:P}NAME,{0:T}NAME)~{0:\e}NAME*(({0:fPV}NAME({0:T}NAME))/({0:P}NAME-{0:fPV}NAME({0:T}NAME)))
.EQN 7 0 16129 0
{0:fMVL}NAME({0:P}NAME,{0:T}NAME)~{0:\e}NAME*(({0:fPVL}NAME({0:T}NAME))/({0:P}NAME-{0:fPVL}NAME({0:T}NAME)))
.EQN 9 0 34 0
{0:fPV2}NAME({0:P}NAME,{0:M}NAME)~{0:M}NAME*({0:P}NAME)/({0:M}NAME+{0:\e}NAME)
.EQN 6 0 35 0
{0:fMS3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fMVS}NAME({0:P}NAME,{0:T}NAME)
.EQN 3 0 36 0
{0:fMV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:fMVS}NAME({0:P}NAME,{0:T}NAME)>{0:M}NAME,{0:M}NAME,{0:fMVS}NAME({0:P}NAME,{0:T}NAME))
.EQN 7 0 37 0
{0:fU3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME):100*(({0:fPV2}NAME({0:P}NAME,{0:M}NAME))/({0:fPVL}NAME({0:T}NAME)))
.EQN 8 0 38 0
{0:fPV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fMV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*({0:P}NAME)/({0:\e}NAME+{0:fMV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME))
.EQN 8 0 39 0
{0:fPA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:P}NAME-{0:fPV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)
.EQN 4 0 40 0
{0:fMC3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:fMVS}NAME({0:P}NAME,{0:T}NAME)<{0:M}NAME,{0:M}NAME-{0:fMVS}NAME({0:P}NAME,{0:T}NAME),0)
.EQN 4 0 41 0
{0:fMLB}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:T}NAME>{0:TF}NAME-{0:FB}NAME,{0:fMC3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*({0:T}NAME-{0:TF}NAME+{0:FB}NAME)/({0:FB}NAME),0)
.EQN 8 0 42 0
{0:fML3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:T}NAMEň{0:TF}NAME,{0:fMC3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME),{0:fMLB}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME))
.EQN 6 0 43 0
{0:fMIB}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:T}NAME<{0:TF}NAME,{0:fMC3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*({0:TF}NAME-{0:T}NAME)/({0:FB}NAME),0)
.EQN 6 0 44 0
{0:fMI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:T}NAME<{0:TF}NAME-{0:FB}NAME,{0:fMC3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME),{0:fMIB}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME))
.TXT 2 0 16179 0
C x1,1,0,0
.TXT 4 0 45 0
Cg a10.500000,11.250000,14
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {3.0 ENTROPY}}
}
.EQN 4 0 46 0
{0:fSA}NAME({0:P}NAME,{0:T}NAME)~{0:CPA}NAME*{0:ln}NAME(({0:T}NAME)/({0:T0}NAME))-{0:RA}NAME*{0:ln}NAME(({0:P}NAME)/({0:P0}NAME))
.EQN 8 0 47 0
{0:fSV}NAME({0:P}NAME,{0:T}NAME)~{0:CPV}NAME*{0:ln}NAME(({0:T}NAME)/({0:T0}NAME))-{0:RV}NAME*{0:ln}NAME(({0:P}NAME)/({0:PV0}NAME))+({0:LV0}NAME)/({0:T0}NAME)
.EQN 8 0 48 0
{0:fSL}NAME({0:T}NAME)~{0:CW}NAME*{0:ln}NAME(({0:T}NAME)/({0:T0}NAME))
.EQN 8 0 49 0
{0:fSI}NAME({0:T}NAME)~{0:CI}NAME*{0:ln}NAME(({0:T}NAME)/({0:T0}NAME))-({0:LF0}NAME)/({0:T0}NAME)
.EQN 8 0 50 0
{0:fSA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fSA}NAME({0:fPA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME),{0:T}NAME)
.EQN 3 0 51 0
{0:fSV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fMV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*{0:fSV}NAME({0:fPV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME),{0:T}NAME)
.EQN 3 0 52 0
{0:fSL3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fML3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*{0:fSL}NAME({0:T}NAME)
.EQN 3 0 53 0
{0:fSI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fMI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*{0:fSI}NAME({0:T}NAME)
.EQN 3 0 54 0
{0:fST3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fSA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:fSV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:fSL3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:fSI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)
.EQN 5 0 16130 0
{0:fSM3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME):({0:fST3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME))/((1+{0:M}NAME))
.EQN 4 0 55 0
{0:fSC}NAME({0:T}NAME)~{0:if}NAME({0:T}NAME>{0:TF}NAME,{0:fSL}NAME({0:T}NAME),{0:fSI}NAME({0:T}NAME))
.EQN 4 0 56 0
{0:fAA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fSA}NAME({0:P}NAME,{0:T}NAME)+{0:M}NAME*{0:fSC}NAME({0:T}NAME)
.EQN 6 0 57 0
{0:f\qM4}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME,{0:PC}NAME)~{0:T}NAME*((({0:PC}NAME)/({0:P}NAME)))^(({0:RA}NAME+{0:M}NAME*{0:RV}NAME)/({0:CPA}NAME+{0:M}NAME*{0:CPV}NAME))
.TXT 9 0 16173 0
C x1,1,0,0
.TXT 5 0 58 0
Cg a11.250000,12.250000,15
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {4.0 ENTHALPY}}
}
.EQN 4 0 59 0
{0:fHA}NAME({0:T}NAME)~{0:CPA}NAME*({0:T}NAME-{0:T0}NAME)
.EQN 3 0 60 0
{0:fHV}NAME({0:T}NAME)~({0:CPV}NAME*({0:T}NAME-{0:T0}NAME)+{0:LV0}NAME)
.EQN 3 0 61 0
{0:fHL}NAME({0:T}NAME)~({0:CW}NAME*({0:T}NAME-{0:T0}NAME))
.EQN 3 0 62 0
{0:fHI}NAME({0:T}NAME)~({0:CI}NAME*({0:T}NAME-{0:T0}NAME)-{0:LF0}NAME)
.EQN 4 0 63 0
{0:fHA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fHA}NAME({0:T}NAME)
.EQN 3 0 64 0
{0:fHV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fMV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*{0:fHV}NAME({0:T}NAME)
.EQN 3 0 65 0
{0:fHL3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fML3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*{0:fHL}NAME({0:T}NAME)
.EQN 3 0 66 0
{0:fHI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fMI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)*{0:fHI}NAME({0:T}NAME)
.EQN 4 0 67 0
{0:fHT3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fHA3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:fHV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:fHL3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:fHI3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)
.EQN 4 0 68 0
{0:fHC}NAME({0:T}NAME)~{0:if}NAME({0:T}NAME>{0:TF}NAME,{0:fHL}NAME({0:T}NAME),{0:fHI}NAME({0:T}NAME))
.EQN 3 0 69 0
{0:fEE3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:fHA}NAME({0:T}NAME)+{0:M}NAME*{0:fHC}NAME({0:T}NAME)
.EQN 4 0 70 0
{0:fHW4}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME,{0:W}NAME)~{0:fHA}NAME({0:T}NAME)+{0:M}NAME*{0:fHV}NAME({0:T}NAME)+{0:if}NAME({0:W}NAME>{0:TF}NAME,{0:fHL}NAME({0:W}NAME),{0:fHI}NAME({0:W}NAME))*({0:fMVS}NAME({0:P}NAME,{0:W}NAME)-{0:M}NAME)
.EQN 4 0 71 0
{0:f\s4}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME,{0:Z}NAME)~{0:fHT3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)+{0:G}NAME*(1+{0:M}NAME)*{0:Z}NAME
.TXT 6 0 72 0
Cg a32.250000,34.250000,37
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {5.0 VIRTUAL TEMPERATURE AND HEIGHT}}
}
.EQN 6 0 73 0
{0:fTV}NAME({0:T}NAME,{0:M}NAME)~{0:T}NAME*((1+({0:M}NAME)/({0:\e}NAME))/(1+{0:M}NAME))
.EQN 9 0 74 0
{0:fTV3}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME)~{0:if}NAME({0:M}NAME<{0:fMVS}NAME({0:P}NAME,{0:T}NAME),{0:fTV}NAME({0:T}NAME,{0:M}NAME),{0:fTV}NAME({0:T}NAME,{0:fMVS}NAME({0:P}NAME,{0:T}NAME))*((1+{0:fMVS}NAME({0:P}NAME,{0:T}NAME))/(1+{0:M}NAME)))
.EQN 10 0 75 0
{0:f\a}NAME({0:P1}NAME,{0:P2}NAME,{0:TV1}NAME,{0:TV2}NAME)~({0:G}NAME)/({0:RA}NAME)*(({0:ln}NAME(({0:TV2}NAME)/({0:TV1}NAME)))/({0:ln}NAME(({0:P2}NAME)/({0:P1}NAME))))
.EQN 12 0 76 0
{0:fZ}NAME({0:P1}NAME,{0:P2}NAME,{0:TV1}NAME,{0:TV2}NAME)~({0:TV2}NAME-{0:TV1}NAME)/({0:f\a}NAME({0:P1}NAME,{0:P2}NAME,{0:TV1}NAME,{0:TV2}NAME))
.TXT 5 0 16172 0
C x1,1,0,0
.TXT 8 0 16163 0
Cg a13.750000,85.375000,16
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {SOLVER BLOCKS}}
}
.TXT 3 0 16131 0
Cg a32.000000,32.250000,35
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {ISENTROPIC EXPANSION TEMPERATURE}}
}
.EQN 4 0 16132 0
{0:GIVEN}NAME
.EQN 3 0 16133 0
{0:fST3}NAME({0:P}NAME,{0:TG}NAME,{0:M}NAME)÷{0:S}NAME
.EQN 3 0 16134 0
{0:fTSOL}NAME({0:S}NAME,{0:P}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 4 0 16135 0
Cg a28.875000,29.250000,32
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {ISENTROPIC EXPANSION PRESSURE}}
}
.EQN 4 0 16136 0
{0:GIVEN}NAME
.EQN 3 0 16137 0
{0:fST3}NAME({0:PG}NAME,{0:T}NAME,{0:M}NAME)÷{0:S}NAME
.EQN 3 0 16138 0
{0:fPSOL}NAME({0:S}NAME,{0:T}NAME,{0:M}NAME):{0:FIND}NAME({0:PG}NAME)
.TXT 4 0 16139 0
Cg a33.500000,34.250000,37
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {ISENTROPIC DESSICATION TEMPERATURE}}
}
.EQN 4 0 16140 0
{0:GIVEN}NAME
.EQN 3 0 16141 0
{0:fAA3}NAME({0:P}NAME,{0:TG}NAME,{0:M}NAME)÷{0:S}NAME
.EQN 3 0 16142 0
{0:fASOL}NAME({0:S}NAME,{0:P}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 4 0 16143 0
Cg a58.000000,59.250000,62
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {ISENTHALPIC DESSICATION TEMPERATURE,
 EQUIVALENT TEMPERATURE}}
}
.EQN 4 0 16144 0
{0:GIVEN}NAME
.EQN 3 0 16145 0
{0:fEE3}NAME({0:P}NAME,{0:TG}NAME,{0:M}NAME)÷{0:H}NAME
.EQN 3 0 16146 0
{0:fESOL}NAME({0:H}NAME,{0:P}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 4 0 16147 0
Cg a24.750000,26.250000,29
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {MIXING RATIO FROM WET BULB}}
}
.EQN 4 0 16148 0
{0:GIVEN}NAME
.EQN 3 0 16149 0
{0:fHT3}NAME({0:P}NAME,{0:W}NAME,{0:fMVS}NAME({0:P}NAME,{0:W}NAME))÷{0:fHW4}NAME({0:P}NAME,{0:T}NAME,{0:MG}NAME,{0:W}NAME)
.EQN 3 0 16150 0
{0:fMSOL}NAME({0:P}NAME,{0:T}NAME,{0:W}NAME):{0:FIND}NAME({0:MG}NAME)
.TXT 4 0 16151 0
Cg a24.750000,26.250000,29
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {WET BULB FROM MIXING RATIO}}
}
.EQN 4 0 16152 0
{0:GIVEN}NAME
.EQN 3 0 16153 0
{0:fHT3}NAME({0:P}NAME,{0:TG}NAME,{0:fMVS}NAME({0:P}NAME,{0:TG}NAME))÷{0:fHW4}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME,{0:TG}NAME)
.EQN 3 0 16154 0
{0:fWSOL}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 4 0 16155 0
Cg a24.750000,26.250000,29
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {LIFTING CONDENSATION LEVEL}}
}
.EQN 4 0 16156 0
{0:GIVEN}NAME
.EQN 3 0 16157 0
{0:fU3}NAME({0:PG}NAME,{0:f\qM4}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME,{0:PG}NAME),{0:M}NAME)-100÷0
.EQN 3 0 16158 0
{0:fCSOL}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME):{0:FIND}NAME({0:PG}NAME)
.TXT 4 0 16159 0
Cg a9.125000,9.250000,12
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {DEW POINT}}
}
.EQN 4 0 16160 0
{0:GIVEN}NAME
.EQN 3 0 16161 0
{0:fPV2}NAME({0:P}NAME,{0:M}NAME)÷{0:fPV}NAME({0:TG}NAME)
.EQN 3 0 16162 0
{0:fDSOL}NAME({0:P}NAME,{0:T}NAME,{0:M}NAME):{0:FIND}NAME({0:TG}NAME)
.TXT 3 0 16169 0
C x1,1,0,0
.TXT 2 0 16181 0
Cg a17.125000,26.250000,26
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {by: L.Michaud,  Nov 99.}}
}
.TXT 5 0 16373 0
Cg a61.750000,84.625000,85
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate Maximum Potential Intensity
 (MPI), ie Minimum Eyewall Surface Pressure
  }}
}
.TXT 3 0 16688 0
Cg b83.000000,83.000000,98
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {This program uses standard heights
 for the 20 and 10 kPa surfaces \par instead
 of full sounding.  }}
}
.TXT 7 0 16693 0
Cg a40.875000,83.000000,209
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Enter the standard height in gpm
 at the upper level.  \par The standard 
height of the 20 kPa surface is 12400 m.
 \par The standard height of the 10 kPa 
surface is 16600 m.\par Set P3 and Z3 to
 the appropriate values}}
}
.EQN 12 0 16546 0
{0:P3}NAME:20
.EQN 0 15 16547 0
{0:Z3}NAME:12400
.TXT 4 -15 16725 0
Cg a19.250000,83.000000,28
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Enter the SST in Degree C}}
}
.EQN 3 0 16726 0
{0:SST}NAME:28
.TXT 4 1 16730 0
Cg a22.750000,82.000000,33
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the SST in degrees K}}
}
.EQN 3 -1 16722 0
{0:SSTK}NAME:{0:SST}NAME+{0:T0}NAME
.EQN 0 38 16728 0
{0:SSTK}NAME={0}?_n_u_l_l_
.TXT 3 -38 16727 0
Cg a40.250000,83.000000,58
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate air temperature in K 
as 1 K less than the SST}}
}
.EQN 5 0 16553 0
{0:T1}NAME:{0:SSTK}NAME-1
.EQN 0 39 16723 0
{0:T1}NAME={0}?_n_u_l_l_
.TXT 4 -39 16731 0
Cg a14.625000,83.000000,22
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Enter base pressure}}
}
.EQN 4 0 16551 0
{0:P1}NAME:101
.TXT 3 1 16776 0
Cg a47.250000,82.000000,68
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain Enter Base Relative Humidity for
 reversible and irreversible cases }
}
.EQN 4 -1 16556 0
{0:U1}NAME:80
.TXT 3 1 16777 0
Cg a41.750000,82.000000,61
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Enter Base Relative Humidity for
 Air-Sea Interaction case }}
}
.EQN 4 -1 16774 0
{0:U2}NAME:90
.TXT 4 0 16695 0
Cg a28.125000,83.000000,44
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calcualte mixing ratio of the surface
 air}}
}
.EQN 4 0 16554 0
{0:M1}NAME:{0:fMVS}NAME({0:P1}NAME,{0:T1}NAME)*({0:U1}NAME)/(100)
.EQN 0 27 16555 0
{0:M1}NAME*1000={0}?_n_u_l_l_
.TXT 5 -27 16696 0
Cg a27.875000,83.000000,43
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the entropy of the surface
 air}}
}
.EQN 4 0 16318 0
{0:S1}NAME:{0:fST3}NAME({0:P1}NAME,{0:T1}NAME,{0:M1}NAME)
.EQN 0 27 16557 0
{0:S1}NAME={0}?_n_u_l_l_
.TXT 3 -27 16713 0
C x1,1,0,0
.TXT 5 0 16590 0
Cg a36.750000,83.000000,54
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Case 1 reversible expansion - Letter
 "A" designator}}
}
.TXT 4 0 16593 0
Cg a32.375000,83.000000,46
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Enter two guesses for eyewall base
 pressure}}
}
.EQN 6 0 16559 0
({0:PA2}NAME)[(1):100
.EQN 4 0 16558 0
({0:PA2}NAME)[(2):({0:PA2}NAME)[(1)-2
.TXT 4 0 16744 0
Cg a42.875000,83.000000,65
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the properties of the
 rising air for the two guesses}}
}
.TXT 3 0 16697 0
Cg a56.625000,83.000000,82
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the temperature of the
 rising air at P2 based on isentropic expansion}}
}
.EQN 7 0 16319 0
{0:TA2}NAME:({0:fTSOL}NAME({0:S1}NAME,{0:PA2}NAME,{0:M1}NAME)){49}
.EQN 1 36 16322 0
{0:TA2}NAME={0}?_n_u_l_l_
.TXT 5 -36 16733 0
Cg a32.125000,83.000000,50
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the enthalpy of the rising
 air at P2 }}
}
.EQN 6 1 16564 0
{0:HA2}NAME:({0:fHT3}NAME({0:PA2}NAME,{0:TA2}NAME,{0:M1}NAME)){49}
.EQN 1 40 16566 0
{0:HA2}NAME={19040}?_n_u_l_l_
.TXT 5 -40 16734 0
Cg a56.625000,83.000000,82
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the temperature of the
 rising air at P3 based on isentropic expansion}}
}
.EQN 6 -1 16309 0
{0:TA3}NAME:({0:fTSOL}NAME({0:S1}NAME,{0:P3}NAME,{0:M1}NAME)){49}
.EQN 0 46 16562 0
{0:TA3}NAME={0}?_n_u_l_l_
.TXT 4 -45 16735 0
Cg a32.125000,83.000000,50
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the enthalpy of the rising
 air at P3 }}
}
.EQN 5 -1 16323 0
{0:HA3}NAME:({0:fHT3}NAME({0:P3}NAME,{0:TA3}NAME,{0:M1}NAME)){49}
.EQN 1 46 16326 0
{0:HA3}NAME={19024}?_n_u_l_l_
.TXT 4 -45 16737 0
Cg a34.875000,82.000000,54
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the static energy of 
the rising air at P3}}
}
.EQN 5 0 16324 0
{0:\sA3}NAME:({0:f\s4}NAME({0:P3}NAME,{0:TA3}NAME,{0:M1}NAME,{0:Z3}NAME)){49}
.EQN 0 46 16563 0
{0:\sA3}NAME={19040}?_n_u_l_l_
.TXT 4 -47 16699 0
Cg a62.125000,83.000000,92
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the work of buoyancy 
from the reduction in the static energy 
of the rising air.}}
}
.EQN 5 0 16313 0
{0:WA}NAME:({0:HA2}NAME-{0:\sA3}NAME)
.EQN 0 47 16325 0
{0:WA}NAME={19040}?_n_u_l_l_
.TXT 5 -47 16701 0
Cg a41.625000,83.000000,59
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the pressure P2 required
 to make the work zero}}
}
.EQN 6 0 16327 0
{0:MPI_A}NAME:({0:PA2}NAME)[(1)-(({0:PA2}NAME)[(1)-({0:PA2}NAME)[(2))*((({0:WA}NAME)[(1))/((({0:WA}NAME)[(1)-({0:WA}NAME)[(2))))
.EQN 2 49 16329 0
{0:MPI_A}NAME={0}?_n_u_l_l_
.TXT 6 -49 16703 0
Cg a24.625000,83.000000,36
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate base pressure reduction}}
}
.EQN 5 0 16746 0
{0:HI_A}NAME:{0:P1}NAME-{0:MPI_A}NAME
.EQN 0 49 16747 0
{0:HI_A}NAME={0}?_n_u_l_l_
.TXT 4 -49 16581 0
Cg a64.500000,82.000000,97
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the the virtual temperature
 of the rising air at P3 to check that the
 air is buoyant}}
}
.EQN 4 1 16412 0
{0:fTV3}NAME({0:P3}NAME,{0:TA3}NAME,{0:M1}NAME)={18993}?_n_u_l_l_
.TXT 3 -1 16712 0
C x1,1,0,0
.TXT 6 0 16650 0
Cg a37.625000,83.000000,56
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Case 2 Irreversible expansion -
 Letter "B" designator}}
}
.TXT 4 0 16651 0
Cg a32.375000,83.000000,46
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Enter two guesses for eyewall base
 pressure}}
}
.EQN 3 0 16652 0
({0:PB2}NAME)[(1):99
.EQN 3 0 16653 0
({0:PB2}NAME)[(2):({0:PB2}NAME)[(1)-2
.TXT 4 0 16743 0
Cg a42.875000,83.000000,65
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the properties of the
 rising air for the two guesses}}
}
.TXT 3 0 16719 0
Cg a57.375000,83.000000,83
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the entropy of the rising
 air at P2, based on constant enthalpy, 
T2=T1}}
}
.EQN 5 0 16618 0
{0:SB2}NAME:({0:fST3}NAME({0:PB2}NAME,{0:T1}NAME,{0:M1}NAME)){49}
.EQN 1 39 16619 0
{0:SB2}NAME={0}?_n_u_l_l_
.TXT 6 -39 16739 0
Cg a31.625000,83.000000,49
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the enthalpy of the rising
 air at P2}}
}
.EQN 5 1 16620 0
{0:HB2}NAME:({0:fHT3}NAME({0:PB2}NAME,{0:T1}NAME,{0:M1}NAME)){49}
.EQN 0 39 16621 0
{0:HB2}NAME={19040}?_n_u_l_l_
.TXT 6 -39 16720 0
Cg a62.750000,82.000000,90
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the temperature of the
 rising air at P3, based on constant entropy
 expansion }}
}
.EQN 6 -1 16622 0
{0:TB3}NAME:({0:fTSOL}NAME({0:SB2}NAME,{0:P3}NAME,{0:M1}NAME)){49}
.EQN 0 46 16623 0
{0:TB3}NAME={0}?_n_u_l_l_
.TXT 7 -45 16740 0
Cg a31.625000,82.000000,49
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the enthalpy of the rising
 air at P3}}
}
.EQN 5 -1 16624 0
{0:HB3}NAME:({0:fHT3}NAME({0:P3}NAME,{0:TB3}NAME,{0:M1}NAME)){49}
.EQN 1 46 16625 0
{0:HB3}NAME={19024}?_n_u_l_l_
.TXT 6 -45 16742 0
Cg a34.875000,82.000000,54
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the static energy of 
the rising air at P3}}
}
.EQN 6 0 16626 0
{0:\sB3}NAME:({0:f\s4}NAME({0:P3}NAME,{0:TB3}NAME,{0:M1}NAME,{0:Z3}NAME)){49}
.EQN 0 46 16627 0
{0:\sB3}NAME={19040}?_n_u_l_l_
.TXT 9 -46 16741 0
Cg a62.125000,83.000000,92
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the work of buoyancy 
from the reduction in the static energy 
of the rising air.}}
}
.EQN 5 -1 16628 0
{0:WB}NAME:({0:HB2}NAME-{0:\sB3}NAME)
.EQN 0 47 16629 0
{0:WB}NAME={19040}?_n_u_l_l_
.TXT 4 -47 16705 0
Cg a41.625000,83.000000,59
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the pressure P2 required
 to make the work zero}}
}
.EQN 7 0 16630 0
{0:MPI_B}NAME:({0:PB2}NAME)[(1)-(({0:PB2}NAME)[(1)-({0:PB2}NAME)[(2))*((({0:WB}NAME)[(1))/((({0:WB}NAME)[(1)-({0:WB}NAME)[(2))))
.EQN 2 49 16631 0
{0:MPI_B}NAME={0}?_n_u_l_l_
.TXT 4 -49 16709 0
Cg a24.625000,83.000000,36
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate base pressure reduction}}
}
.EQN 4 0 16748 0
{0:HI_B}NAME:{0:P1}NAME-{0:MPI_B}NAME
.EQN 0 50 16749 0
{0:HI_B}NAME={0}?_n_u_l_l_
.TXT 6 -50 16633 0
Cg a59.875000,82.000000,90
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the virtual temperature
 of the rising air at P3 and check that 
it is buoyant.}}
}
.EQN 4 1 16642 0
{0:SB}NAME:{0:fST3}NAME({0:MPI_B}NAME,{0:T1}NAME,{0:M1}NAME)
.EQN 0 38 16643 0
{0:SB}NAME={0}?_n_u_l_l_
.EQN 3 -38 16646 0
{0:T3}NAME:{0:fTSOL}NAME({0:SB}NAME,{0:P3}NAME,{0:M1}NAME)
.EQN 0 39 16647 0
{0:T3}NAME={0}?_n_u_l_l_
.EQN 3 -39 16648 0
{0:fTV3}NAME({0:P3}NAME,{0:T3}NAME,{0:M1}NAME)={0}?_n_u_l_l_
.TXT 2 -1 16711 0
C x1,1,0,0
.TXT 7 1 16657 0
Cg a37.625000,83.000000,56
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Case 3 Irreversible expansion -
 Letter "C" designator}}
}
.TXT 4 0 16658 0
Cg a32.375000,83.000000,46
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Enter two guesses for eyewall base
 pressure}}
}
.EQN 3 0 16659 0
({0:PC2}NAME)[(1):97
.EQN 3 0 16660 0
({0:PC2}NAME)[(2):({0:PC2}NAME)[(1)-2
.TXT 4 0 16745 0
Cg a42.875000,83.000000,65
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the properties of the
 rising air for the two guesses}}
}
.TXT 4 0 16714 0
Cg a23.625000,82.000000,37
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate surface air mixing ratio}}
}
.EQN 6 0 16682 0
{0:MC2}NAME:(({0:fMVS}NAME({0:PC2}NAME,{0:T1}NAME)*({0:U2}NAME)/(100))){49}
.EQN 0 44 16684 0
{0:MC2}NAME*1000={0}?_n_u_l_l_
.TXT 5 -44 16715 0
Cg a21.000000,82.000000,33
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate air properties at P2}}
}
.EQN 6 0 16661 0
{0:SC2}NAME:({0:fST3}NAME({0:PC2}NAME,{0:T1}NAME,{0:MC2}NAME)){49}
.EQN 2 44 16662 0
{0:SC2}NAME={0}?_n_u_l_l_
.EQN 4 -43 16663 0
{0:HC2}NAME:({0:fHT3}NAME({0:PC2}NAME,{0:T1}NAME,{0:MC2}NAME)){49}
.EQN 3 43 16664 0
{0:HC2}NAME={19040}?_n_u_l_l_
.TXT 2 -44 16716 0
Cg a21.000000,82.000000,33
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate air properties at P3}}
}
.EQN 7 0 16665 0
{0:TC3}NAME:({0:fTSOL}NAME({0:SC2}NAME,{0:P3}NAME,{0:MC2}NAME)){49}
.EQN 0 46 16666 0
{0:TC3}NAME={0}?_n_u_l_l_
.EQN 6 -46 16667 0
{0:HC3}NAME:({0:fHT3}NAME({0:P3}NAME,{0:TC3}NAME,{0:MC2}NAME)){49}
.EQN 1 46 16668 0
{0:HC3}NAME={19024}?_n_u_l_l_
.TXT 4 -46 16718 0
Cg a21.000000,82.000000,32
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate static energy at P3}}
}
.EQN 5 1 16669 0
{0:\sC3}NAME:({0:f\s4}NAME({0:P3}NAME,{0:TC3}NAME,{0:MC2}NAME,{0:Z3}NAME)){49}
.EQN 0 46 16670 0
{0:\sC3}NAME={19040}?_n_u_l_l_
.TXT 4 -46 16708 0
Cg a28.000000,83.000000,41
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the work for the two 
guesses}}
}
.EQN 5 -1 16671 0
{0:WC}NAME:({0:HC2}NAME-{0:\sC3}NAME)
.EQN 0 47 16672 0
{0:WC}NAME={19040}?_n_u_l_l_
.TXT 4 -47 16706 0
Cg a41.625000,83.000000,59
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the pressure P2 required
 to make the work zero}}
}
.EQN 7 0 16673 0
{0:MPI_C}NAME:({0:PC2}NAME)[(1)-(({0:PC2}NAME)[(1)-({0:PC2}NAME)[(2))*((({0:WC}NAME)[(1))/((({0:WC}NAME)[(1)-({0:WC}NAME)[(2))))
.EQN 2 49 16674 0
{0:MPI_C}NAME={0}?_n_u_l_l_
.TXT 3 -49 16710 0
Cg a24.625000,83.000000,36
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate base pressure reduction}}
}
.EQN 5 0 16750 0
{0:HI_C}NAME:{0:P1}NAME-{0:MPI_C}NAME
.EQN 0 50 16751 0
{0:HI_C}NAME={0}?_n_u_l_l_
.TXT 4 -50 16676 0
Cg a58.625000,82.000000,89
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the virtual temperature
 of the rising air at P3 to check that it
 is buoyant.}}
}
.EQN 5 0 16685 0
{0:MC2X}NAME:{0:fMVS}NAME({0:MPI_C}NAME,{0:T1}NAME)*({0:U2}NAME)/(100)
.EQN 1 39 16686 0
{0:MC2X}NAME*1000={0}?_n_u_l_l_
.EQN 5 -38 16677 0
{0:SC}NAME:{0:fST3}NAME({0:MPI_C}NAME,{0:T1}NAME,{0:MC2X}NAME)
.EQN 0 38 16678 0
{0:SC}NAME={0}?_n_u_l_l_
.EQN 3 -38 16679 0
{0:TC3}NAME:{0:fTSOL}NAME({0:SC}NAME,{0:P3}NAME,{0:MC2X}NAME)
.EQN 0 39 16680 0
{0:TC3}NAME={0}?_n_u_l_l_
.EQN 3 -39 16681 0
{0:fTV3}NAME({0:P3}NAME,{0:TC3}NAME,{0:MC2X}NAME)={0}?_n_u_l_l_
.TXT 3 -2 16773 0
C x1,1,0,0
.TXT 4 1 16752 0
Cg a8.375000,82.000000,10
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {SUMMARY}}
}
.EQN 4 0 16754 0
{0:SST}NAME={0}?_n_u_l_l_
.EQN 0 26 16757 0
{0:T1}NAME-{0:T0}NAME={0}?_n_u_l_l_
.EQN 3 -26 16755 0
{0:P1}NAME={0}?_n_u_l_l_
.EQN 3 0 16756 0
{0:P3}NAME={0}?_n_u_l_l_
.TXT 7 25 16771 0
Cg a8.375000,60.000000,41
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {    MPI\par Maximum\par Potential\par 
Intensity}}
}
.TXT 0 20 16772 0
Cg a8.625000,37.000000,33
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {     HI\par Hurricane \par Intensity}}
}
.TXT 12 -45 16763 0
Cg a7.375000,82.000000,13
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Reversible}}
}
.EQN 0 23 16761 0
{0:MPI_A}NAME={0}?_n_u_l_l_
.EQN 0 23 16762 0
{0:HI_A}NAME={0}?_n_u_l_l_
.EQN 4 0 16766 0
{0:HI_B}NAME={0}?_n_u_l_l_
.TXT 1 -46 16764 0
Cg a7.625000,82.000000,15
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Irreversible}}
}
.EQN 0 23 16765 0
{0:MPI_B}NAME={0}?_n_u_l_l_
.TXT 4 -23 16768 0
Cg a8.000000,82.000000,24
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Air-Sea\par Inter-action}}
}
.EQN 1 46 16770 0
{0:HI_C}NAME={0}?_n_u_l_l_
.EQN 1 -23 16769 0
{0:MPI_C}NAME={0}?_n_u_l_l_