! ! !################################################################## !################################################################## !###### ###### !###### CUMUCST.INC ###### !###### Developed by ###### !###### Center for Analysis and Prediction of Storms ###### !###### University of Oklahoma ###### !###### ###### !################################################################## !################################################################## ! ! !----------------------------------------------------------------------- ! ! PURPOSE: ! ! Include file 'cumucst.inc'. ! !----------------------------------------------------------------------- ! ! AUTHOR: ! ! MODIFICATION HISTORY: ! ! 04/05/1995 (Yuhe Liu) ! Documentation clean up. ! !----------------------------------------------------------------------- ! INTEGER :: nkp PARAMETER(nkp=80) INTEGER :: kcon,klcl,klfc,ketl,kct,igo,kmt REAL :: zmid,cdzmin,dzlow,dzhigh,plcl,tlcl,dzlcl COMMON/cpars /kcon,klcl,klfc,ketl,kct,igo,kmt, & zmid,cdzmin,dzlow,dzhigh,plcl,tlcl,dzlcl REAL :: cpr,alvl,aliv,aklv,akiv COMMON/const/ cpr,alvl,aliv,aklv,akiv REAL :: ucon(nkp),vcon(nkp),wcon(nkp),thtcon(nkp) & ,qvcon(nkp),picon(nkp),tmpcon(nkp) & ,dncon(nkp),zcon(nkp),zzcon(nkp) & ,upe(nkp),vpe(nkp),wpe(nkp) & ,ze(nkp),te(nkp),the(nkp),pe(nkp),rte(nkp) & ,pke(nkp),rhoe(nkp),thve(nkp),zc(nkp) & ,rve(nkp),thee(nkp) & ,qvct1(nkp),qvct2(nkp),qvct3(nkp),qvct4(nkp) COMMON/cpenv / ucon,vcon,wcon,thtcon & ,qvcon,picon,tmpcon & ,dncon,zcon,zzcon & ,upe,vpe,wpe & ,ze,te,the,pe,rte & ,pke,rhoe,thve,zc & ,rve,thee & ,qvct1,qvct2,qvct3,qvct4 REAL :: theu(nkp),rsu(nkp),thu(nkp),tu(nkp) & ,thd(nkp),wtd(nkp),thcon(nkp),rtcon(nkp) COMMON/cpcon/ theu,rsu,thu,tu & ,thd,wtd,thcon,rtcon REAL :: vheat(nkp),vmois(nkp),vmdry(nkp) & ,frcon(nkp),ftcon(nkp),cprecip,msflux & ,tcon(nkp),rcon(nkp) COMMON/cptend/ vheat,vmois,vmdry & ,frcon,ftcon,cprecip,msflux & ,tcon,rcon