Condesable Atmosphere

define KRC_Cond_Gas(){

if($ARGC == 0){

   printf (" Uses the adequate Clausius Clapeyron Coefficients to predict the frost point \n")
   printf (" Feeds KRC with SatPrA, SatPrB, FANON, AMW \n")
   printf (" $1: Body \n")
   printf (" Currently Supported: \"Mars\" or \"Pluto\" or \"Titan\" \n")
	}

Body = $1

if(Body == "Mars"){

 	SatPrB = 3182.48

SatPrA = 27.9546 AMW = 43.54 #Sylvain's own calculation

   FANON  = 0.040                                                                        #Paul R. Mahaffy, Science 2013 (SAM)

KPREF = 1 }

if(Body == "Pluto"){

 	SatPrB = 9.2338

SatPrA = -724.9720 AMW = 27. FANON = 0.1 KPREF = 0 }

	if(Body == "Titan"){
 	SatPrB = 9.2338

SatPrA = -724.9720

		AMW   = 28.8
  	FANON = 0.016

KPREF = 0 }

if(Body != "Mars" && Body != "Titan" && Body != "Pluto") { printf("Only Mars, Pluto, and Titan currently support Condensable Gas defaults\n") return(-999.) } else { out = {} out.SatPrA = SatPrA out.SatPrB = SatPrB out.AMW = AMW out.FANON = FANON out.KPREF = KPREF return(out) } }