.MCAD 303010000 1 0 16776 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 6 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~-10
.EQN 0 14 17 0
{0:FB}NAME~20
.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.875000,26.250000,27
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {by: L.Michaud,  Sept 99.}}
}
.TXT 4 0 16182 0
Cg a23.500000,31.250000,34
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Fetch and display sounding data}}
}
.TXT 2 0 16183 0
Cg a30.625000,41.250000,52
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Ending }{\f1 a}{ denotes property
 of the sounding}}
}
.TXT 5 1 16408 0
Cg a39.875000,83.000000,61
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Fetch the }{Willis Island 17 Jan
 99 00Z sounding from file}}
}
.EQN 6 0 16184 0
{0:SDAT}NAME:{0:READPRN}NAME({0:WILLIS}NAME)
.TXT 4 -1 16742 0
Cg a18.125000,83.000000,26
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Sounding Pressure (kPa)}}
}
.EQN 5 0 16185 0
{0:P\a}NAME:(({0:SDAT}NAME){52}(1))/(10)
.TXT 6 0 16743 0
Cg a13.750000,83.000000,21
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Sounding Level (m)}}
}
.EQN 4 0 16281 0
{0:ZW}NAME:({0:SDAT}NAME){52}(2)
.TXT 6 0 16744 0
Cg a18.875000,83.000000,27
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Sounding Temperature (C)}}
}
.EQN 4 0 16186 0
{0:TC\a}NAME:({0:SDAT}NAME){52}(3)
.TXT 5 0 16745 0
Cg a17.250000,83.000000,25
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Sounding Dew Point (C)}}
}
.EQN 4 0 16187 0
{0:TD\a}NAME:({0:SDAT}NAME){52}(4)
.TXT 5 0 16746 0
Cg a22.750000,83.000000,33
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Sounding Realtive Humidity (%)}}
}
.EQN 4 0 16282 0
{0:UW}NAME:({0:SDAT}NAME){52}(5)
.TXT 5 0 16747 0
Cg a21.250000,83.000000,32
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Sounding Mixing Ratiol (g/kg)}}
}
.EQN 4 0 16285 0
{0:MW}NAME:({0:SDAT}NAME){52}(6)
.EQN 21 0 16188 0
{0:P\a}NAME={150083}?_n_u_l_l_
.EQN 0 25 16189 0
{0:TC\a}NAME={150067}?_n_u_l_l_
.EQN 0 24 16190 0
{0:TD\a}NAME={150067}?_n_u_l_l_
.TXT 29 -49 16750 0
C x1,1,0,0
.TXT 3 0 16191 0
Cg a21.375000,29.250000,32
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate sounding properties}}
}
.EQN 4 0 16192 0
{0:im}NAME:{0:last}NAME({0:P\a}NAME)
.EQN 0 29 16193 0
{0:i}NAME:1;{0:im}NAME
.EQN 3 -29 16194 0
{0:jm}NAME:{0:last}NAME({0:P\a}NAME)-1
.EQN 0 29 16195 0
{0:j}NAME:1;{0:jm}NAME
.TXT 4 -29 16733 0
Cg a20.875000,83.000000,31
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Temperature in degree Kelvin}}
}
.EQN 3 0 16196 0
{0:T\a}NAME:{0:TC\a}NAME+{0:T0}NAME
.TXT 5 0 16734 0
Cg a20.000000,83.000000,30
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Mixing Ratio from dew point}}
}
.EQN 4 0 16197 0
{0:M\a}NAME:({0:fMVL}NAME({0:P\a}NAME,{0:TD\a}NAME+{0:T0}NAME)){49}
.TXT 3 0 16735 0
Cg a5.625000,83.000000,10
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Entropy}}
}
.EQN 5 0 16198 0
{0:S\a}NAME:(({0:fST3}NAME({0:P\a}NAME,{0:T\a}NAME,{0:M\a}NAME))){49}
.TXT 4 0 16736 0
Cg a6.375000,83.000000,11
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Enthalpy}}
}
.EQN 5 0 16199 0
{0:H\a}NAME:(({0:fHT3}NAME({0:P\a}NAME,{0:T\a}NAME,{0:M\a}NAME))){49}
.TXT 4 0 16737 0
Cg a25.500000,83.000000,39
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Relative Humidity from mixing ratio-}}
}
.EQN 4 0 16293 0
{0:U\a}NAME:({0:fU3}NAME({0:P\a}NAME,{0:T\a}NAME,{0:M\a}NAME)){49}
.TXT 4 0 16738 0
Cg a14.125000,83.000000,22
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Virtual Temperature}}
}
.EQN 4 0 16200 0
{0:TV\a}NAME:({0:fTV}NAME({0:T\a}NAME,{0:M\a}NAME)){49}
.TXT 3 0 16702 0
C x1,1,0,0
.EQN 3 46 16204 0
({0:S\a}NAME)[({0:i}NAME){18995}=
.EQN 0 16 16205 0
({0:H\a}NAME)[({0:i}NAME){19040}=
.EQN 1 -62 16201 0
({0:P\a}NAME)[({0:i}NAME){19011}=
.EQN 0 7 16202 0
({0:T\a}NAME)[({0:i}NAME)=
.EQN 0 8 16203 0
({0:M\a}NAME)[({0:i}NAME)*1000=
.EQN 0 14 16296 0
({0:MW}NAME)[({0:i}NAME)=
.EQN 44 -28 16549 0
({0:P\a}NAME)[({0:i}NAME)=
.EQN 0 11 16294 0
({0:U\a}NAME)[({0:i}NAME)=
.EQN 0 9 16295 0
({0:UW}NAME)[({0:i}NAME){84529}=
.EQN 0 10 16206 0
({0:TV\a}NAME)[({0:i}NAME){18994}=
.EQN 42 -27 16699 0
0&110&(_n_u_l_l_&_n_u_l_l_)&({0:P\a}NAME)[({0:i}NAME)@400&200&(_n_u_l_l_&_n_u_l_l_)&({0:S\a}NAME)[({0:i}NAME)
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 62 38 0 3 ENTROPY OF THE SOUNDING
.TXT 49 -4 16751 0
C x1,1,0,0
.TXT 3 0 16208 0
Cg a23.250000,32.250000,35
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate lapse rate and heights}}
}
.EQN 4 0 16209 0
({0:\a}NAME)[(1):0
.EQN 4 0 16210 0
({0:\a}NAME)[({0:j}NAME+1):{0:f\a}NAME(({0:P\a}NAME)[({0:j}NAME),({0:P\a}NAME)[({0:j}NAME+1),({0:TV\a}NAME)[({0:j}NAME),({0:TV\a}NAME)[({0:j}NAME+1))
.EQN 8 0 16211 0
({0:Z}NAME)[({0:j}NAME+1):-{0:fZ}NAME(({0:P\a}NAME)[({0:j}NAME),({0:P\a}NAME)[({0:j}NAME+1),({0:TV\a}NAME)[({0:j}NAME),({0:TV\a}NAME)[({0:j}NAME+1))
.EQN 6 0 16212 0
({0:ZC}NAME)[(1):0
.EQN 0 29 16213 0
({0:ZC}NAME)[({0:j}NAME+1):({0:Z}NAME)[({0:j}NAME+1)+({0:ZC}NAME)[({0:j}NAME)
.EQN 20 27 16214 0
{0:ZW}NAME-9={150099}?_n_u_l_l_
.EQN 1 -56 16215 0
{0:\a}NAME*(-1000)={150067}?_n_u_l_l_
.EQN 0 23 16216 0
{0:Z}NAME={150080}?_n_u_l_l_
.EQN 0 13 16217 0
{0:ZC}NAME={150096}?_n_u_l_l_
.TXT 28 -36 16218 0
C x1,1,0,0
.TXT 3 0 16552 0
Cg a58.125000,83.000000,63
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {CALCULATE THE WORK WHEN SURFACE
 AIR IS RAISED ISENTROPICALLY}}
}
.TXT 3 0 16707 0
Cg b83.000000,83.000000,704
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {The base pressure reduction for
 REVERSIBLE upflow can be calculated directly
 without using the two guess method.\par 
\par The direct calculation will be used
 first so that the results of the two guess
 method can be compared to its results later.\par 
\par The direct method consists of the following
 steps:\par 1.  Calculate the properties
 of a parcel of surface air rising isentropically.\par 
2.  Calculate the static energy (}{\f1 s}{)
 of the rising parcel\par 3.  Calculate 
the work of buoyancy (WT) from the reduction
 in the parcel's static energy.\par 4.  
Calculate the reduction in temperature corresponding
 to the kinetic energy.\par 5.  Calculate
 the pressure reduction corresponding to
 the temperature reduction.  \par \par }}
}
.TXT 33 0 16219 0
Cg a24.125000,33.250000,36
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate expanded air properties}}
}
.TXT 4 1 16225 0
Cg a44.500000,64.000000,143
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Ending }{\f1 r}{ denotes property
 of the parcel at its initial location.\par 
Ending }{\f1 w}{ denotes property of the
 parcel after it is moved.}}
}
.TXT 6 -1 16224 0
Cg a63.625000,66.250000,135
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Enter temperature and pressure 
of the raised parcel are base sounding base
 condition \par plus a delta to permit sensitivity
 analysis .}}
}
.EQN 12 0 16226 0
{0:P\r}NAME:({0:P\a}NAME)[(1)
.EQN 0 25 16227 0
{0:T\r}NAME:({0:T\a}NAME)[(1)+0
.EQN 0 24 16228 0
{0:M\r}NAME:({0:M\a}NAME)[(1)+0
.TXT 5 -49 16709 0
Cg a10.750000,83.000000,17
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Parcel Entropy}}
}
.EQN 3 0 16229 0
{0:S\r}NAME:{0:fST3}NAME({0:P\r}NAME,{0:T\r}NAME,{0:M\r}NAME)
.EQN 3 38 16708 0
{0:S\r}NAME={0}?_n_u_l_l_
.TXT 2 -38 16712 0
Cg a21.000000,83.000000,35
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Parcel initial relative humidity}}
}
.EQN 3 0 16690 0
{0:U\r}NAME:{0:fU3}NAME({0:P\r}NAME,{0:T\r}NAME,{0:M\r}NAME)
.EQN 1 38 16691 0
{0:U\r}NAME={18993}?_n_u_l_l_
.TXT 4 -38 16713 0
Cg a14.125000,83.000000,21
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Parcel Temperature}}
}
.EQN 4 0 16230 0
{0:T\w}NAME:({0:fTSOL}NAME({0:S\r}NAME,{0:P\a}NAME,{0:M\r}NAME)){49}
.EQN 2 38 16231 0
{0:TC\w}NAME:{0:T\w}NAME-{0:T0}NAME
.TXT 4 -38 16714 0
Cg a25.750000,83.000000,38
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Parcel water content in vapor phase}}
}
.EQN 4 0 16232 0
{0:MV\w}NAME:(({0:fMV3}NAME({0:P\a}NAME,{0:T\w}NAME,{0:M\r}NAME))){49}
.TXT 5 0 16716 0
Cg a25.750000,83.000000,39
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Parcel water content in liquid 
phase}}
}
.EQN 4 0 16233 0
{0:ML\w}NAME:(({0:fML3}NAME({0:P\a}NAME,{0:T\w}NAME,{0:M\r}NAME))){49}
.TXT 5 0 16718 0
Cg a24.125000,83.000000,36
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Parcel water content in ice phase}}
}
.EQN 5 0 16234 0
{0:MI\w}NAME:(({0:fMI3}NAME({0:P\a}NAME,{0:T\w}NAME,{0:M\r}NAME))){49}
.TXT 4 0 16719 0
Cg a11.500000,83.000000,18
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Parcel Enthalpy}}
}
.EQN 4 0 16235 0
{0:H\w}NAME:(({0:fHT3}NAME({0:P\a}NAME,{0:T\w}NAME,{0:M\r}NAME))){49}
.TXT 2 0 16236 0
C x1,1,0,0
.EQN 11 0 16237 0
({0:H\w}NAME)[({0:i}NAME){19040}=
.EQN 0 9 16238 0
({0:TC\w}NAME)[({0:i}NAME)=
.EQN 0 10 16239 0
({0:T\w}NAME)[({0:i}NAME)=
.EQN 0 16 16240 0
({0:MV\w}NAME)[({0:i}NAME)*1000=
.EQN 0 11 16241 0
({0:ML\w}NAME)[({0:i}NAME)*1000=
.EQN 0 11 16242 0
({0:MI\w}NAME)[({0:i}NAME)*1000=
.EQN 0 16 16543 0
({0:P\a}NAME)[({0:i}NAME)=
.EQN 6 -40 16243 0
_n_u_l_l_
.TXT 36 -33 16244 0
Cg a38.875000,52.250000,55
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculation work produced when 
an air mass is raised}}
}
.TXT 4 0 16721 0
Cg a23.500000,83.000000,38
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Static Energy of the initial parcel}}
}
.EQN 4 0 16245 0
{0:\s\r}NAME:{0:f\s4}NAME({0:P\r}NAME,{0:T\r}NAME,{0:M\r}NAME,({0:ZC}NAME)[(1))
.EQN 0 46 16246 0
{0:\s\r}NAME={19025}?_n_u_l_l_
.TXT 5 -46 16722 0
Cg a24.125000,83.000000,37
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Static Energy of the raised parcel}}
}
.EQN 5 0 16247 0
{0:\s\w}NAME:({0:f\s4}NAME({0:P\a}NAME,{0:T\w}NAME,{0:M\r}NAME,{0:ZC}NAME)){49}
.TXT 5 0 16723 0
Cg a13.375000,83.000000,19
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Work of Buoyancy}}
}
.EQN 4 0 16248 0
{0:WK}NAME:(({0:\s\r}NAME-{0:\s\w}NAME)){49}
.TXT 4 0 16724 0
Cg a27.250000,83.000000,38
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Potential Energy of Condensed Water}}
}
.EQN 4 0 16249 0
{0:WP}NAME:((({0:M\r}NAME-{0:MV\w}NAME)*{0:G}NAME*{0:ZC}NAME)){49}
.TXT 5 0 16725 0
Cg a7.875000,83.000000,13
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Total Work}}
}
.EQN 5 0 16250 0
{0:WT}NAME:(({0:WK}NAME+{0:WP}NAME)){49}
.TXT 3 0 16703 0
C x1,1,0,0
.EQN 3 0 16251 0
({0:\s\w}NAME)[({0:i}NAME){19024}=
.EQN 0 11 16252 0
({0:WP}NAME)[({0:i}NAME){19008}=
.EQN 0 14 16253 0
({0:WK}NAME)[({0:i}NAME){19040}=
.EQN 0 13 16254 0
({0:WT}NAME)[({0:i}NAME){19008}=
.EQN 0 12 16255 0
({0:ZC}NAME)[({0:i}NAME){19024}=
.EQN 0 12 16256 0
({0:P\a}NAME)[({0:i}NAME)=
.TXT 48 -62 16551 0
Cg b83.000000,83.000000,584
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {The work of buoyancy is maximum
 (WK=3950 J/kg) when the surface air is 
lifted to the 10 kPa level.\par For this
 level the potential energy of the condensed
 water WP= 3331 J/kg, and the  total work
 WT= 7281 J/kg.\par The sounding indicates
 a CAPE of 1450 J/kg.  The work of buoyancy
 is considerably higher than the CAPE\par 
because CAPE based on the average properties
 of a 5 kPa layer and because CAPE is calculated
 based on\par pseudo adiabatic expansion
 without the condensed water freezing.  
The work which can be produced by raising
 surface air is generally higher than indicated
 by CAPE.}}
}
.EQN 16 9 16700 0
0&110&(110&10)&({0:P\a}NAME)[({0:i}NAME),({0:P\a}NAME)[({0:i}NAME)@85&75&(-1000&7000)&(({0:\s\w}NAME)[({0:i}NAME))/(1000),(({0:\s\w}NAME)[(1))/(1000)
0 0 1 0 10 0 1 Work (J/kg)
0 0 1 0 11 0 1 Pressure (kPa)
1 1 0 0 NO-TRACE-STRING
2 1 1 0 NO-TRACE-STRING
3 1 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
1 1 50 23 0 3 STATIC ENERGY OF PARCEL
.EQN 40 -3 16258 0
0&110&(110&10)&({0:P\a}NAME)[({0:i}NAME),({0:P\a}NAME)[({0:i}NAME),({0:P\a}NAME)[({0:i}NAME)@10000&-1000&(-1000&7000)&({0:WP}NAME)[({0:i}NAME),({0:WK}NAME)[({0:i}NAME),({0:WT}NAME)[({0:i}NAME)
0 0 1 0 11 0 1 Work (J/kg)
0 0 1 0 11 0 1 Pressure (kPa)
1 1 0 0 NO-TRACE-STRING
2 1 1 0 NO-TRACE-STRING
3 1 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 0 50 23 0 3 WORK vs  PRESSURE
.TXT 47 -6 16259 0
Cg a28.000000,36.250000,39
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Velocity and Base Pressure Reduction}}
}
.EQN 7 0 16260 0
{0:VEL}NAME:(((\(2*{0:WK}NAME))/(1+({0:M\a}NAME)[(1)))){49}
.EQN 12 0 16261 0
{0:PBASE}NAME:((({0:P\a}NAME)[(1)*(((1-({0:WK}NAME)/({0:fCPA}NAME(({0:M\a}NAME)[(1))*({0:T\a}NAME)[(1))))^((1)/({0:fKA}NAME(({0:M\a}NAME)[(1))))))){49}
.EQN 10 0 16273 0
{0:PDEL}NAME:({0:P\a}NAME)[(1)-{0:PBASE}NAME
.EQN 11 47 16274 0
({0:PDEL}NAME)[({0:i}NAME)=
.EQN 1 -43 16262 0
({0:VEL}NAME)[({0:i}NAME)=
.EQN 0 14 16275 0
({0:P\a}NAME)[({0:i}NAME)=
.EQN 0 11 16263 0
({0:PBASE}NAME)[({0:i}NAME)=
.TXT 38 -29 16704 0
C x1,1,0,0
.EQN 2 0 16264 0
0&110&(110&10)&({0:P\a}NAME)[({0:i}NAME)@6&-1&(-1&6)&({0:PDEL}NAME)[({0:i}NAME)
0 0 1 0 7 0 1 Velocity (m/s)
0 0 1 0 11 0 1 Pressure (kPa)
1 1 0 0 NO-TRACE-STRING
2 1 1 0 NO-TRACE-STRING
3 1 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 50 23 0 3 BASE PRESSURE REDUCTION
.EQN 42 2 16701 0
0&110&(110&10)&({0:P\a}NAME)[({0:i}NAME)@100&0&(-1&6)&({0:VEL}NAME)[({0:i}NAME)
0 0 1 0 10 0 1 Velocity (m/s)
0 0 1 0 11 0 1 Pressure (kPa)
1 1 0 0 NO-TRACE-STRING
2 1 1 0 NO-TRACE-STRING
3 1 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 50 23 0 3 AIR VELOCITY
.TXT 40 -2 16266 0
Cg a15.000000,20.250000,23
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Virtual Temperatures}}
}
.EQN 4 0 16267 0
{0:TV\w}NAME:({0:fTV3}NAME({0:P\a}NAME,{0:T\w}NAME,{0:M\r}NAME)){49}
.TXT 4 0 16726 0
Cg a45.125000,83.000000,64
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Virtual Temperature difference 
between parcel and environment}}
}
.EQN 4 0 16268 0
{0:\dTV}NAME:(({0:TV\w}NAME-{0:TV\a}NAME)){49}
.EQN 3 0 16276 0
({0:P\a}NAME)[({0:i}NAME)=
.EQN 0 14 16277 0
({0:TV\a}NAME)[({0:i}NAME)=
.EQN 0 17 16279 0
({0:TV\w}NAME)[({0:i}NAME)=
.EQN 0 21 16280 0
({0:\dTV}NAME)[({0:i}NAME)=
.TXT 46 -48 16269 0
Cg a35.250000,48.250000,51
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Virtual Temperature of Parcel and
 of Environment}}
}
.EQN 4 -4 16270 0
0&110&(110&10)&({0:P\a}NAME)[({0:i}NAME),({0:P\a}NAME)[({0:i}NAME)@320&160&(160&320)&({0:TV\a}NAME)[({0:i}NAME),({0:TV\w}NAME)[({0:i}NAME)
0 0 1 0 5 0 1 Virtual Temperature (K)
0 0 1 0 11 0 1 Pressure (kPa)
1 1 0 0 NO-TRACE-STRING
2 1 1 0 NO-TRACE-STRING
3 1 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 0 50 23 0 3 VIRTUAL TEMPERATURES
.EQN 41 7 16271 0
0&110&(110&10)&({0:P\a}NAME)[({0:i}NAME),({0:P\a}NAME)[({0:i}NAME)@20&-30&(-30&20)&({0:\dTV}NAME)[({0:i}NAME),0
0 0 1 0 5 0 1 Virtual Temperature Delta (K)
0 0 1 0 11 0 1 Pressure (kPa)
1 1 0 0 NO-TRACE-STRING
2 1 1 0 NO-TRACE-STRING
3 1 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 50 23 0 3 VIRTUAL TEMP. DELTA
.TXT 43 -7 16555 0
Cg b83.000000,83.000000,155
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {TWO GUESSES METHOD.\par First recalculate
 the reversible case to verify that the 
two guess method gives results which agree
 with the \par above direct method.}}
}
.TXT 12 0 16373 0
Cg a31.500000,84.625000,46
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate MPI for reversible expansion
 case}}
}
.EQN 4 0 16314 0
{0:n}NAME:12
.EQN 0 13 16315 0
{0:P3}NAME:({0:P\a}NAME)[({0:n}NAME)
.EQN 0 33 16316 0
{0:P3}NAME={0}?_n_u_l_l_
.EQN 0 20 16317 0
({0:PBASE}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -66 16615 0
C x1,1,0,0
.TXT 4 0 16557 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}}
}
.EQN 0 61 16692 0
{0:U\r}NAME={18993}?_n_u_l_l_
.TXT 4 -61 16558 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 0 61 16693 0
{0:M\r}NAME*1000={0}?_n_u_l_l_
.EQN 3 0 16696 0
{0:S\r}NAME={0}?_n_u_l_l_
.EQN 3 -61 16559 0
({0:PA2}NAME)[(1):97
.EQN 4 0 16560 0
({0:PA2}NAME)[(2):({0:PA2}NAME)[(1)-2
.TXT 4 0 16561 0
Cg a19.875000,83.000000,32
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate air properties at 2}}
}
.EQN 6 0 16562 0
{0:TA2}NAME:({0:fTSOL}NAME({0:S\r}NAME,{0:PA2}NAME,{0:M\r}NAME)){49}
.EQN 1 36 16563 0
{0:TA2}NAME={0}?_n_u_l_l_
.EQN 8 -35 16564 0
{0:HA2}NAME:({0:fHT3}NAME({0:PA2}NAME,{0:TA2}NAME,{0:M\r}NAME)){49}
.EQN 1 40 16565 0
{0:HA2}NAME={19040}?_n_u_l_l_
.TXT 4 -41 16566 0
Cg a19.875000,83.000000,32
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate air properties at 3}}
}
.EQN 7 0 16567 0
{0:TA3}NAME:({0:fTSOL}NAME({0:S\r}NAME,{0:P3}NAME,{0:M\r}NAME)){49}
.EQN 0 46 16568 0
{0:TA3}NAME={0}?_n_u_l_l_
.EQN 6 -46 16569 0
{0:HA3}NAME:({0:fHT3}NAME({0:P3}NAME,{0:TA3}NAME,{0:M\r}NAME)){49}
.EQN 1 46 16570 0
{0:HA3}NAME={19024}?_n_u_l_l_
.EQN 9 -45 16571 0
{0:\sA3}NAME:({0:f\s4}NAME({0:P3}NAME,{0:TA3}NAME,{0:M\r}NAME,({0:ZC}NAME)[({0:n}NAME))){49}
.EQN 0 46 16572 0
{0:\sA3}NAME={19040}?_n_u_l_l_
.TXT 4 -47 16573 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 0 16574 0
{0:WA}NAME:({0:HA2}NAME-{0:\sA3}NAME)
.EQN 0 47 16575 0
{0:WA}NAME={19040}?_n_u_l_l_
.TXT 5 -47 16576 0
Cg a42.125000,83.000000,60
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the pressure P2 required
 to make the work zero.}}
}
.EQN 12 0 16577 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 16578 0
{0:MPI_A}NAME={0}?_n_u_l_l_
.TXT 2 0 16739 0
Cg a25.250000,34.000000,36
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Note agreement with direct method}}
}
.EQN 3 -48 16695 0
{0:fTSOL}NAME({0:S\r}NAME,{0:MPI_A}NAME,{0:M\r}NAME)-{0:T0}NAME={0}?_n_u_l_l_
.TXT 6 -1 16579 0
Cg a41.875000,83.000000,61
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate base pressure reduction,
 the Hurricane Intensity}}
}
.EQN 4 1 16752 0
{0:HI_A}NAME:{0:P\r}NAME-{0:MPI_A}NAME
.EQN 0 49 16753 0
{0:HI_A}NAME={0}?_n_u_l_l_
.TXT 5 -50 16581 0
Cg a57.375000,82.000000,84
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Verify that the virtual temperature
 at P3 is higher than the sounding temperature}}
}
.EQN 4 1 16582 0
{0:fTV3}NAME({0:P3}NAME,{0:TA3}NAME,{0:M\r}NAME)={0}?_n_u_l_l_
.EQN 1 36 16413 0
({0:TV\a}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 0 25 16548 0
{0:P3}NAME={0}?_n_u_l_l_
.TXT 5 -62 16583 0
C x1,1,0,0
.TXT 4 1 16584 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}}
}
.EQN 4 0 16653 0
{0:n}NAME:12
.EQN 0 13 16654 0
{0:P3}NAME:({0:P\a}NAME)[({0:n}NAME)
.EQN 0 28 16664 0
{0:P3}NAME={0}?_n_u_l_l_
.TXT 5 -41 16585 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 16586 0
({0:PB2}NAME)[(1):94
.EQN 3 0 16587 0
({0:PB2}NAME)[(2):({0:PB2}NAME)[(1)-2
.TXT 7 0 16588 0
Cg a19.875000,83.000000,32
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate air properties at 2}}
}
.EQN 5 0 16589 0
{0:SB2}NAME:({0:fST3}NAME({0:PB2}NAME,{0:T\r}NAME,{0:M\r}NAME)){49}
.EQN 2 44 16590 0
{0:SB2}NAME={0}?_n_u_l_l_
.EQN 4 -43 16591 0
{0:HB2}NAME:({0:fHT3}NAME({0:PB2}NAME,{0:T\r}NAME,{0:M\r}NAME)){49}
.EQN 3 43 16592 0
{0:HB2}NAME={19040}?_n_u_l_l_
.TXT 3 -43 16593 0
Cg a19.875000,82.000000,32
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate air properties at 3}}
}
.EQN 6 -1 16594 0
{0:TB3}NAME:({0:fTSOL}NAME({0:SB2}NAME,{0:P3}NAME,{0:M\r}NAME)){49}
.EQN 0 46 16595 0
{0:TB3}NAME={0}?_n_u_l_l_
.EQN 6 -46 16596 0
{0:HB3}NAME:({0:fHT3}NAME({0:P3}NAME,{0:TB3}NAME,{0:M\r}NAME)){49}
.EQN 1 46 16597 0
{0:HB3}NAME={19024}?_n_u_l_l_
.EQN 9 -45 16598 0
{0:\sB3}NAME:({0:f\s4}NAME({0:P3}NAME,{0:TB3}NAME,{0:M\r}NAME,({0:ZC}NAME)[({0:n}NAME))){49}
.EQN 0 46 16599 0
{0:\sB3}NAME={19040}?_n_u_l_l_
.TXT 7 -46 16600 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 7 -1 16601 0
{0:WB}NAME:({0:HB2}NAME-{0:\sB3}NAME)
.EQN 0 47 16602 0
{0:WB}NAME={19040}?_n_u_l_l_
.TXT 4 -47 16603 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 16604 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 16605 0
{0:MPI_B}NAME={0}?_n_u_l_l_
.EQN 4 -48 16698 0
{0:fU3}NAME({0:MPI_B}NAME,{0:T\r}NAME,{0:M\r}NAME)={0}?_n_u_l_l_
.TXT 5 -1 16606 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 16754 0
{0:HI_B}NAME:{0:P\r}NAME-{0:MPI_B}NAME
.EQN 1 50 16755 0
{0:HI_B}NAME={0}?_n_u_l_l_
.TXT 5 -50 16608 0
Cg a25.500000,82.000000,38
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Check the virtual temperature at
 P3}}
}
.EQN 4 1 16609 0
{0:SB}NAME:{0:fST3}NAME({0:MPI_B}NAME,{0:T\r}NAME,{0:M\r}NAME)
.EQN 0 38 16610 0
{0:SB}NAME={0}?_n_u_l_l_
.EQN 3 -38 16611 0
{0:T3}NAME:{0:fTSOL}NAME({0:SB}NAME,{0:P3}NAME,{0:M\r}NAME)
.EQN 0 39 16612 0
{0:T3}NAME={0}?_n_u_l_l_
.EQN 3 -39 16613 0
{0:fTV3}NAME({0:P3}NAME,{0:T3}NAME,{0:M\r}NAME)={0}?_n_u_l_l_
.EQN 0 39 16661 0
({0:TV\a}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 3 -41 16614 0
C x1,1,0,0
.TXT 3 2 16616 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}}
}
.EQN 4 0 16656 0
{0:n}NAME:13
.EQN 0 13 16657 0
{0:P3}NAME:({0:P\a}NAME)[({0:n}NAME)
.EQN 0 33 16658 0
{0:P3}NAME={0}?_n_u_l_l_
.TXT 4 -46 16617 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 16618 0
({0:PC2}NAME)[(1):90
.EQN 3 0 16619 0
({0:PC2}NAME)[(2):({0:PC2}NAME)[(1)-2
.EQN 4 0 16652 0
{0:U2}NAME:90
.TXT 3 0 16620 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 16621 0
{0:MC2}NAME:(({0:fMVS}NAME({0:PC2}NAME,{0:T\r}NAME)*({0:U2}NAME)/(100))){49}
.EQN 0 44 16622 0
{0:MC2}NAME*1000={0}?_n_u_l_l_
.TXT 5 -44 16623 0
Cg a19.875000,82.000000,32
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate air properties at 2}}
}
.EQN 6 0 16624 0
{0:SC2}NAME:({0:fST3}NAME({0:PC2}NAME,{0:T\r}NAME,{0:MC2}NAME)){49}
.EQN 2 44 16625 0
{0:SC2}NAME={0}?_n_u_l_l_
.EQN 4 -43 16626 0
{0:HC2}NAME:({0:fHT3}NAME({0:PC2}NAME,{0:T\r}NAME,{0:MC2}NAME)){49}
.EQN 3 43 16627 0
{0:HC2}NAME={19040}?_n_u_l_l_
.TXT 2 -44 16628 0
Cg a19.875000,82.000000,32
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate air properties at 3}}
}
.EQN 7 0 16629 0
{0:TC3}NAME:({0:fTSOL}NAME({0:SC2}NAME,{0:P3}NAME,{0:MC2}NAME)){49}
.EQN 0 46 16630 0
{0:TC3}NAME={0}?_n_u_l_l_
.EQN 6 -46 16631 0
{0:HC3}NAME:({0:fHT3}NAME({0:P3}NAME,{0:TC3}NAME,{0:MC2}NAME)){49}
.EQN 1 46 16632 0
{0:HC3}NAME={19024}?_n_u_l_l_
.TXT 4 -46 16633 0
Cg a19.875000,82.000000,31
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate static energy at 3}}
}
.EQN 5 1 16634 0
{0:\sC3}NAME:({0:f\s4}NAME({0:P3}NAME,{0:TC3}NAME,{0:MC2}NAME,({0:ZC}NAME)[({0:n}NAME))){49}
.EQN 0 46 16635 0
{0:\sC3}NAME={19040}?_n_u_l_l_
.TXT 4 -46 16636 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 7 -1 16637 0
{0:WC}NAME:({0:HC2}NAME-{0:\sC3}NAME)
.EQN 0 47 16638 0
{0:WC}NAME={19040}?_n_u_l_l_
.TXT 4 -47 16639 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 16640 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 16641 0
{0:MPI_C}NAME={0}?_n_u_l_l_
.TXT 3 -49 16642 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 16756 0
{0:HI_C}NAME:{0:P\r}NAME-{0:MPI_C}NAME
.EQN 0 49 16757 0
{0:HI_C}NAME={0}?_n_u_l_l_
.TXT 4 -49 16644 0
Cg a25.500000,82.000000,38
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Check the virtual temperature at
 P3}}
}
.EQN 5 0 16645 0
{0:MC2X}NAME:{0:fMVS}NAME({0:MPI_C}NAME,{0:T\r}NAME)*({0:U2}NAME)/(100)
.EQN 1 39 16646 0
{0:MC2X}NAME*1000={0}?_n_u_l_l_
.EQN 5 -38 16647 0
{0:SC}NAME:{0:fST3}NAME({0:MPI_C}NAME,{0:T\r}NAME,{0:MC2X}NAME)
.EQN 0 38 16648 0
{0:SC}NAME={0}?_n_u_l_l_
.EQN 3 -38 16649 0
{0:TC3}NAME:{0:fTSOL}NAME({0:SC}NAME,{0:P3}NAME,{0:MC2X}NAME)
.EQN 0 39 16650 0
{0:TC3}NAME={0}?_n_u_l_l_
.EQN 3 -39 16651 0
{0:fTV3}NAME({0:P3}NAME,{0:TC3}NAME,{0:MC2X}NAME)={0}?_n_u_l_l_
.EQN 0 39 16662 0
({0:TV\a}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.TXT 4 -42 16659 0
C x1,1,0,0
.TXT 5 1 16748 0
Cg a40.375000,82.000000,62
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Calculate the pressure versus level
 for the air in the tube}}
}
.TXT 5 0 16416 0
Cg a40.875000,82.000000,60
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {H}{ydrostatic Base Pressure Calculation
 - Reversible case}}
}
.EQN 4 -1 16417 0
{0:n}NAME:12
.EQN 0 27 16420 0
({0:P\a}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 0 21 16421 0
({0:ZC}NAME)[({0:n}NAME)={19025}?_n_u_l_l_
.EQN 3 -48 16423 0
{0:PH}NAME:{0:P\r}NAME
.EQN 0 27 16424 0
{0:TH}NAME:{0:T\r}NAME
.EQN 0 21 16425 0
{0:MH}NAME:{0:M\r}NAME
.EQN 5 -48 16422 0
{0:SH}NAME:{0:fST3}NAME({0:PH}NAME,{0:TH}NAME,{0:MH}NAME)
.EQN 0 29 16426 0
{0:SH}NAME={0}?_n_u_l_l_
.EQN 3 -29 16456 0
({0:PHH}NAME)[(1):({0:P\a}NAME)[({0:n}NAME)
.EQN 3 0 16457 0
({0:PHH}NAME)[(2):({0:PHH}NAME)[(1)+5
.EQN 4 0 16432 0
{0:m}NAME:3;20
.EQN 7 0 16431 0
({0:PHH}NAME)[({0:m}NAME):((({0:PHH}NAME)[(2)+5*({0:m}NAME-2))){49}
.EQN 1 41 16539 0
({0:PHH}NAME)[(20)={0}?_n_u_l_l_
.EQN 8 -41 16427 0
{0:TH}NAME:({0:fTSOL}NAME({0:SH}NAME,{0:PHH}NAME,{0:MH}NAME)){49}
.EQN 5 0 16429 0
{0:TVH}NAME:({0:fTV3}NAME({0:PHH}NAME,{0:TH}NAME,{0:MH}NAME)){49}
.EQN 4 0 16439 0
{0:UH}NAME:({0:fU3}NAME({0:PHH}NAME,{0:TH}NAME,{0:MH}NAME)){49}
.EQN 29 0 16433 0
{0:PHH}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 17 16428 0
{0:TH}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 22 16430 0
{0:TVH}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 21 16440 0
{0:UH}NAME={19041 0 0 1 14 42 42}?_n_u_l_l_
.TXT 25 -60 16727 0
C x1,1,0,0
.EQN 8 3 16443 0
({0:ZH}NAME)[(1):({0:ZC}NAME)[({0:n}NAME)
.EQN 0 18 16455 0
({0:PHH}NAME)[(18)={0}?_n_u_l_l_
.EQN 4 -18 16541 0
{0:m}NAME:1;19
.EQN 5 0 16435 0
({0:DHZ}NAME)[({0:m}NAME):{0:fZ}NAME(({0:PHH}NAME)[({0:m}NAME),({0:PHH}NAME)[(({0:m}NAME+1)),({0:TVH}NAME)[({0:m}NAME),({0:TVH}NAME)[(({0:m}NAME+1)))
.EQN 5 0 16441 0
({0:ZH}NAME)[(({0:m}NAME+1)):({0:ZH}NAME)[({0:m}NAME)-({0:DHZ}NAME)[({0:m}NAME)
.EQN 4 41 16438 0
{0:DHZ}NAME={19025 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 16 16444 0
{0:ZH}NAME={19025 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 17 16446 0
{0:PHH}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 2 -74 16445 0
({0:PHH}NAME)[(18)={0}?_n_u_l_l_
.EQN 0 15 16448 0
({0:ZH}NAME)[(18)={0}?_n_u_l_l_
.EQN 6 -15 16449 0
({0:TVH}NAME)[(18)={0}?_n_u_l_l_
.EQN 5 0 16450 0
{0:TVH0}NAME:({0:TVH}NAME)[(18)+({0:ZH}NAME)[(18)*({0:G}NAME)/({0:CPA}NAME)
.EQN 4 0 16451 0
{0:TVH0}NAME={0}?_n_u_l_l_
.EQN 4 0 16452 0
{0:PH0}NAME:({0:PHH}NAME)[(18)*((({0:TVH0}NAME)/(({0:TVH}NAME)[(18))))^((1)/({0:fKA}NAME({0:MH}NAME)))
.EQN 8 0 16453 0
{0:PH0}NAME={0}?_n_u_l_l_
.TXT 6 0 16458 0
Cg a41.125000,82.000000,62
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {H}{ydrostatic Base Pressure Calculation
 - Irreversible case}}
}
.EQN 4 -1 16459 0
{0:n}NAME:12
.EQN 0 27 16460 0
({0:P\a}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 0 21 16461 0
({0:ZC}NAME)[({0:n}NAME)={19025}?_n_u_l_l_
.EQN 3 -48 16462 0
{0:PJ}NAME:{0:MPI_B}NAME
.EQN 0 27 16463 0
{0:TJ}NAME:({0:T\a}NAME)[(1)
.EQN 0 21 16464 0
{0:MJ}NAME:({0:M\a}NAME)[(1)
.EQN 5 -48 16465 0
{0:SJ}NAME:{0:fST3}NAME({0:PJ}NAME,{0:TJ}NAME,{0:MJ}NAME)
.EQN 0 29 16466 0
{0:SJ}NAME={0}?_n_u_l_l_
.EQN 0 21 16494 0
{0:PJ}NAME={0}?_n_u_l_l_
.EQN 3 -50 16467 0
({0:PHJ}NAME)[(1):({0:P\a}NAME)[({0:n}NAME)
.EQN 3 0 16468 0
({0:PHJ}NAME)[(2):({0:PHH}NAME)[(1)+5
.EQN 4 0 16469 0
{0:m}NAME:3;20
.EQN 7 0 16470 0
({0:PHJ}NAME)[({0:m}NAME):(({0:PHJ}NAME)[(2)+5*({0:m}NAME-2))
.EQN 9 0 16471 0
{0:TJ}NAME:({0:fTSOL}NAME({0:SJ}NAME,{0:PHJ}NAME,{0:MJ}NAME)){49}
.EQN 5 0 16472 0
{0:TVJ}NAME:({0:fTV3}NAME({0:PHJ}NAME,{0:TJ}NAME,{0:MJ}NAME)){49}
.EQN 4 0 16473 0
{0:UJ}NAME:({0:fU3}NAME({0:PHJ}NAME,{0:TJ}NAME,{0:MJ}NAME)){49}
.TXT 5 -2 16728 0
C x1,1,0,0
.EQN 24 2 16474 0
{0:PHJ}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 17 16475 0
{0:TJ}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 22 16476 0
{0:TVJ}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 21 16477 0
{0:UJ}NAME={19041 0 0 1 14 42 42}?_n_u_l_l_
.EQN 29 -57 16478 0
({0:ZJ}NAME)[(1):({0:ZC}NAME)[({0:n}NAME)
.EQN 0 18 16479 0
({0:PHJ}NAME)[(18)={0}?_n_u_l_l_
.EQN 4 -18 16480 0
{0:m}NAME:1;19
.EQN 5 0 16481 0
({0:DJZ}NAME)[({0:m}NAME):{0:fZ}NAME(({0:PHJ}NAME)[({0:m}NAME),({0:PHJ}NAME)[(({0:m}NAME+1)),({0:TVJ}NAME)[({0:m}NAME),({0:TVJ}NAME)[(({0:m}NAME+1)))
.EQN 5 0 16482 0
({0:ZJ}NAME)[(({0:m}NAME+1)):({0:ZJ}NAME)[({0:m}NAME)-({0:DJZ}NAME)[({0:m}NAME)
.EQN 4 41 16483 0
{0:DJZ}NAME={19025 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 16 16484 0
{0:ZJ}NAME={19025 0 6 1 14 42 42}?_n_u_l_l_
.EQN 0 17 16485 0
{0:PHJ}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 2 -74 16486 0
({0:PHJ}NAME)[(17)={0}?_n_u_l_l_
.EQN 0 15 16487 0
({0:ZJ}NAME)[(17)={0}?_n_u_l_l_
.EQN 6 -15 16488 0
({0:TVJ}NAME)[(17)={0}?_n_u_l_l_
.EQN 5 0 16489 0
{0:TVJ0}NAME:({0:TVJ}NAME)[(17)+({0:ZJ}NAME)[(17)*({0:G}NAME)/({0:CPA}NAME)
.EQN 4 0 16490 0
{0:TVH0}NAME={0}?_n_u_l_l_
.EQN 4 0 16491 0
{0:PJ0}NAME:({0:PHH}NAME)[(17)*((({0:TVJ0}NAME)/(({0:TVJ}NAME)[(17))))^((1)/({0:fKA}NAME({0:MJ}NAME)))
.EQN 8 0 16492 0
{0:PJ0}NAME={0}?_n_u_l_l_
.TXT 3 -5 16729 0
C x1,1,0,0
.TXT 4 5 16495 0
Cg a46.875000,82.000000,69
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {H}{ydrostatic Base Pressure Calculation
 - Air-Sea Interaction case}}
}
.EQN 4 -1 16496 0
{0:n}NAME:13
.EQN 0 27 16497 0
({0:P\a}NAME)[({0:n}NAME)={0}?_n_u_l_l_
.EQN 0 21 16498 0
({0:ZC}NAME)[({0:n}NAME)={19025}?_n_u_l_l_
.EQN 3 -48 16499 0
{0:PK}NAME:{0:MPI_C}NAME
.EQN 0 27 16500 0
{0:TK}NAME:{0:T\r}NAME
.EQN 0 21 16501 0
{0:UK}NAME:90
.EQN 3 -48 16532 0
{0:MK}NAME:{0:fMVS}NAME({0:PK}NAME,{0:TK}NAME)*({0:UK}NAME)/(100)
.EQN 0 34 16533 0
{0:MK}NAME={0}?_n_u_l_l_
.EQN 6 -34 16502 0
{0:SK}NAME:{0:fST3}NAME({0:PK}NAME,{0:TK}NAME,{0:MK}NAME)
.EQN 0 29 16503 0
{0:SK}NAME={0}?_n_u_l_l_
.EQN 0 21 16504 0
{0:PK}NAME={0}?_n_u_l_l_
.EQN 3 -50 16505 0
({0:PHK}NAME)[(1):({0:P\a}NAME)[({0:n}NAME)
.EQN 3 0 16506 0
({0:PHK}NAME)[(2):({0:PHK}NAME)[(1)+3
.EQN 4 0 16507 0
{0:m}NAME:3;20
.EQN 7 0 16508 0
({0:PHK}NAME)[({0:m}NAME):(({0:PHK}NAME)[(2)+5*({0:m}NAME-2))
.EQN 9 0 16509 0
{0:TK}NAME:({0:fTSOL}NAME({0:SK}NAME,{0:PHK}NAME,{0:MK}NAME)){49}
.EQN 5 0 16510 0
{0:TVK}NAME:({0:fTV3}NAME({0:PHK}NAME,{0:TK}NAME,{0:MK}NAME)){49}
.EQN 4 0 16511 0
{0:UK}NAME:({0:fU3}NAME({0:PHK}NAME,{0:TK}NAME,{0:MK}NAME)){49}
.EQN 29 0 16512 0
{0:PHK}NAME={0 0 6 1 14 42 42}?_n_u_l_l_
.EQN 0 17 16513 0
{0:TK}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 22 16514 0
{0:TVK}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 21 16515 0
{0:UK}NAME={19041 0 0 1 14 42 42}?_n_u_l_l_
.TXT 25 -64 16730 0
C x1,1,0,0
.EQN 4 7 16516 0
({0:ZK}NAME)[(1):({0:ZC}NAME)[({0:n}NAME)
.EQN 0 18 16517 0
({0:PHK}NAME)[(18)={0}?_n_u_l_l_
.EQN 4 -18 16518 0
{0:m}NAME:1;19
.EQN 5 0 16519 0
({0:DKZ}NAME)[({0:m}NAME):{0:fZ}NAME(({0:PHK}NAME)[({0:m}NAME),({0:PHK}NAME)[(({0:m}NAME+1)),({0:TVK}NAME)[({0:m}NAME),({0:TVK}NAME)[(({0:m}NAME+1)))
.EQN 5 0 16520 0
({0:ZK}NAME)[(({0:m}NAME+1)):({0:ZK}NAME)[({0:m}NAME)-({0:DKZ}NAME)[({0:m}NAME)
.EQN 4 41 16521 0
{0:DKZ}NAME={19025 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 16 16522 0
{0:ZK}NAME={19025 0 0 1 14 42 42}?_n_u_l_l_
.EQN 0 17 16523 0
{0:PHK}NAME={0 0 0 1 14 42 42}?_n_u_l_l_
.EQN 2 -74 16524 0
({0:PHK}NAME)[(16)={0}?_n_u_l_l_
.EQN 0 15 16525 0
({0:ZK}NAME)[(16)={0}?_n_u_l_l_
.EQN 6 -15 16526 0
({0:TVK}NAME)[(16)={0}?_n_u_l_l_
.EQN 5 0 16527 0
{0:TVK0}NAME:({0:TVK}NAME)[(16)+({0:ZK}NAME)[(16)*({0:G}NAME)/({0:CPA}NAME)
.EQN 4 0 16528 0
{0:TVH0}NAME={0}?_n_u_l_l_
.EQN 4 0 16529 0
{0:PK0}NAME:({0:PHK}NAME)[(16)*((({0:TVK0}NAME)/(({0:TVK}NAME)[(16))))^((1)/({0:fKA}NAME({0:MJ}NAME)))
.EQN 8 0 16530 0
{0:PK0}NAME={0}?_n_u_l_l_
.TXT 9 -7 16731 0
C x1,1,0,0
.EQN 6 4 16536 0
20&0&(_n_u_l_l_&_n_u_l_l_)&(({0:ZH}NAME)[({0:m}NAME))/(1000),(({0:ZJ}NAME)[({0:m}NAME))/(1000),(({0:ZK}NAME)[({0:m}NAME))/(1000),(({0:ZC}NAME)[({0:i}NAME))/(1000)@100&0&(_n_u_l_l_&_n_u_l_l_)&({0:PHH}NAME)[({0:m}NAME),({0:PHJ}NAME)[({0:m}NAME),({0:PHK}NAME
)[({0:m}NAME),({0:P\a}NAME)[({0:i}NAME)
0 1 1 1 0 0 1 
0 1 1 0 10 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 1 2 0 NO-TRACE-STRING
0 1 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 62 34 0 3 Height versus Pressure
.EQN 48 -1 16542 0
4&-2&(_n_u_l_l_&_n_u_l_l_)&(({0:ZH}NAME)[({0:m}NAME))/(1000),(({0:ZJ}NAME)[({0:m}NAME))/(1000),(({0:ZK}NAME)[({0:m}NAME))/(1000),(({0:ZC}NAME)[({0:i}NAME))/(1000)@101&81&(_n_u_l_l_&_n_u_l_l_)&({0:PHH}NAME)[({0:m}NAME),({0:PHJ}NAME)[({0:m}NAME),(
{0:PHK}NAME)[({0:m}NAME),({0:P\a}NAME)[({0:i}NAME)
0 1 1 1 0 0 1 
0 1 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 1 2 0 NO-TRACE-STRING
0 1 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 62 34 0 3 Height versus Pressure - Bottom End
.EQN 51 0 16660 0
20&10&(_n_u_l_l_&_n_u_l_l_)&(({0:ZH}NAME)[({0:m}NAME))/(1000),(({0:ZJ}NAME)[({0:m}NAME))/(1000),(({0:ZK}NAME)[({0:m}NAME))/(1000),(({0:ZC}NAME)[({0:i}NAME))/(1000)@30&0&(_n_u_l_l_&_n_u_l_l_)&({0:PHH}NAME)[({0:m}NAME),({0:PHJ}NAME)[({0:m}NAME),({0:PHK}NAME
)[({0:m}NAME),({0:P\a}NAME)[({0:i}NAME)
0 1 1 1 0 0 1 
0 1 1 0 6 0 1 
0 1 0 0 NO-TRACE-STRING
0 1 1 0 NO-TRACE-STRING
0 1 2 0 NO-TRACE-STRING
0 1 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 62 34 0 3 Height versus Pressure - Top End
.TXT 45 -3 16732 0
C x1,1,0,0
.TXT 4 1 16759 0
Cg a8.375000,82.000000,8
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain SUMMARY}
}
.TXT 2 28 16771 0
Cg a8.875000,57.000000,50
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain     MPI\par Maximum \par Potential\par 
Intensity\par    (kPa)}
}
.TXT 1 21 16775 0
Cg a8.625000,31.000000,40
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain      HI\par Hurricane \par Intensity\par 
  (kPa)}
}
.EQN 12 -23 16764 0
{0:MPI_A}NAME={0}?_n_u_l_l_
.EQN 0 23 16768 0
{0:HI_A}NAME={0}?_n_u_l_l_
.TXT 1 -49 16760 0
Cg a7.375000,82.000000,11
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain Reversible}
}
.EQN 7 26 16765 0
{0:MPI_B}NAME={0}?_n_u_l_l_
.EQN 0 23 16769 0
{0:HI_B}NAME={0}?_n_u_l_l_
.TXT 1 -49 16762 0
Cg a7.625000,82.000000,13
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain Irreversible}
}
.EQN 6 26 16767 0
{0:MPI_C}NAME={0}?_n_u_l_l_
.EQN 0 23 16770 0
{0:HI_C}NAME={0}?_n_u_l_l_
.TXT 1 -49 16763 0
Cg a13.375000,82.000000,20
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain Air-Sea Interaction}
}
.TXT 4 -1 16776 0
C x1,1,0,0
.TXT 5 1 16749 0
Cg a32.750000,82.000000,49
{\rtf1\ansi \deff0
{\fonttbl
{\f0\fnil Arial;}
{\f1\fnil Symbol;}
}
{\plain {Write data array for use by a plotting
 program}}
}
.EQN 5 5 16668 0
({0:ZPPLOT}NAME){52}(1):({0:ZC}NAME)/(1000)
.EQN 4 0 16669 0
({0:ZPPLOT}NAME){52}(2):{0:P\a}NAME
.EQN 4 0 16671 0
({0:ZPPLOT}NAME){52}(3):({0:ZH}NAME)/(1000)
.EQN 4 0 16674 0
({0:ZPPLOT}NAME){52}(4):{0:PHH}NAME
.EQN 4 0 16672 0
({0:ZPPLOT}NAME){52}(5):({0:ZJ}NAME)/(1000)
.EQN 4 0 16675 0
({0:ZPPLOT}NAME){52}(6):{0:PHJ}NAME
.EQN 5 0 16673 0
({0:ZPPLOT}NAME){52}(7):({0:ZK}NAME)/(1000)
.EQN 4 0 16676 0
({0:ZPPLOT}NAME){52}(8):{0:PHK}NAME
.EQN 5 2 16689 0
{0:P3}NAME={0}?_n_u_l_l_
.EQN 24 -2 16670 0
{0:ZPPLOT}NAME={150113}?_n_u_l_l_
.EQN 54 -1 16687 0
{0:WRITEPRN}NAME({0:ZP_PLOT}NAME):{0:ZPPLOT}NAME