97 lines
4 KiB
C
97 lines
4 KiB
C
/**************************************************************************** */
|
|
/* This module allows access to N-Sharp's skparams thermo-dynamic routines */
|
|
/* defined in skparams.c, to the calling program plot_indices.f which */
|
|
/* renders a planview display of these parameters via gempak calls */
|
|
/* (modelled after SNMAP). A */
|
|
/* data array of sounding data is reformatted to an NSharp sounding array, */
|
|
/* so that the routines can be accessed. */
|
|
/* A most unstable parcel trajectory is used in these computations */
|
|
/* Input parameters: */
|
|
/* lvls - Number of levels */
|
|
/* data - sounding data array */
|
|
/* */
|
|
/* Output parameters: */
|
|
/* vals - Computed parameters */
|
|
/* 0 - 500 mb Lifted Index */
|
|
/* 1 - K-Index */
|
|
/* 2 - Total Totals */
|
|
/* 3 - Precipitable Water (Inches) */
|
|
/* 4 - Cape */
|
|
/* 5 - Bulk Richardson Number */
|
|
/* 6 - LCL (ft AGL) */
|
|
/* 7 - LFC (ft AGL) */
|
|
/* 8 - EL (ft AGL) */
|
|
/* 9 - CINH */
|
|
/* 10 - Sweat Index */
|
|
/* */
|
|
/* Author: L. Hinson/AWC July 2004 */
|
|
/*****************************************************************************/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <math.h>
|
|
#include "sharp95.h"
|
|
#define calc_vals calc_vals_
|
|
|
|
void calc_vals(short *lvls, float *data, float *vals) {
|
|
int i, newlevels;
|
|
float param,presck,ct,vt,ix1,mn_dwpt;
|
|
struct _parcel pcl;
|
|
|
|
numlvl=*lvls;
|
|
newlevels = 0;
|
|
|
|
for (i=0;i<numlvl;i++) {
|
|
/* Is temp && dwpt passable? */
|
|
if (qc(data[i*6+1]) && qc(data[i*6+2])) {
|
|
sndg[newlevels][0]=0.0;
|
|
sndg[newlevels][1]=data[i*6+0];
|
|
sndg[newlevels][2]=data[i*6+5];
|
|
sndg[newlevels][3]=data[i*6+1];
|
|
sndg[newlevels][4]=data[i*6+2];
|
|
sndg[newlevels][5]=data[i*6+3];
|
|
sndg[newlevels][6]=data[i*6+4]/.51479;
|
|
newlevels++;
|
|
}
|
|
}
|
|
numlvl = newlevels;
|
|
xtnd_sndg();
|
|
/*Initialize results array*/
|
|
for (i=0;i<15;i++) {
|
|
vals[i]=-9999.0;
|
|
}
|
|
|
|
|
|
/* Most-unstable Parcel calculations */
|
|
presck = 400.0;
|
|
if(sndg[0][1]-presck < 500.0)
|
|
{
|
|
presck = sndg[0][1] - 500.0;
|
|
}
|
|
define_parcel(4,presck);
|
|
|
|
ix1 = parcel(-1, -1, lplvals.pres, lplvals.temp, lplvals.dwpt, &pcl);
|
|
vals[0]=pcl.li5;
|
|
vals[1]=k_index(¶m);
|
|
vals[2]=t_totals(¶m,&ct,&vt);
|
|
vals[3]=precip_water(¶m,-1,-1);
|
|
vals[4]=pcl.bplus;
|
|
if (! isinf(pcl.brn) && (pcl.brn >= 0.0 || pcl.brn < 5000) )
|
|
vals[5]=pcl.brn;
|
|
else
|
|
vals[5]=-999.;
|
|
vals[6]=mtof(agl(i_hght(pcl.lclpres)));
|
|
vals[7]=mtof(agl(i_hght(pcl.lfcpres)));
|
|
vals[8]=mtof(agl(i_hght(pcl.elpres)));
|
|
vals[9]=pcl.bminus;
|
|
vals[10]=sweat_index(&ix1);
|
|
/* Mean Mixlyr Parcel calculations */
|
|
define_parcel(3, presck);
|
|
ix1 = parcel(-1, -1, lplvals.pres, lplvals.temp, lplvals.dwpt, &pcl);
|
|
vals[11] = pcl.bplus;
|
|
vals[12] = pcl.bminus;
|
|
mean_dwpt(&mn_dwpt,-1,-1);
|
|
vals[13] = ctof(mn_dwpt);
|
|
|
|
}
|
|
|