vof.inc

关于二维射流计算源程序

        INTEGER     WL, WR, WT, WB
        CHARACTER*2 GRAPHICS
        PARAMETER   (MI=710, MJ=100, LP=300 )
        
        COMMON /COS/RHO,GY,VISCOS,PI,CNU,CNK,SGMAK,SGMAE,SGMAC,CL
        COMMON /CO1/CE1, CE2, ALPHA, OMG,SOUND, RCSQ, EMF, EMF1 
        COMMON /CO2/EM6, EM10,EPSI,  EP10,PRTDT,TOTALT,AVG, SKE
        COMMON /FD1/U(MI,MJ),  UN(MI,MJ),  V(MI,MJ),  VN(MI,MJ)
        COMMON /FF1/P(MI,MJ),  PN(MI,MJ),  F(MI,MJ),  FN(MI,MJ)
        COMMON /FF2/TK(MI,MJ), TKN(MI,MJ), TE(MI,MJ), TEN(MI,MJ)
        COMMON /FF3/VIS(MI,MJ),VISN(MI,MJ),DELTX(MI),DELTXU(MI)
        COMMON /FF4/PETA(MI,MJ),BETA(MI,MJ),RTJ(15)
		COMMON /FF5/TC(MI,MJ),TCN(MI,MJ),alphc
        COMMON /FD2/NNPRE,IPW(LP),JPW(LP),NNETA,IETA(LP)
        COMMON /GRD/IM1,IM2,NXX,JM1,JM2,NYY,NF(MI,MJ), NFN(MI,MJ)
        COMMON /GD1/Y(MJ),YV(MJ),DELTY(MJ),DELTYV(MJ),X(MI),XU(MI)
        COMMON /GD2/IBAR,JBAR,IMAX,JMAX,NP(MI,MJ),WAVE_L
        COMMON /FD4/AR(LP,2), AT(LP,2), VC(LP), NB(LP)
        COMMON /F41/ANB(LP),PETB(LP),ARR,ARL,ATT,ATB,VCC
        COMMON /F42/PX1(LP),PX2(LP),PY1(LP),PY2(LP),ETAA(MI),FLHT(MI)
        COMMON /FD5/Npoint,IN(LP),JN(LP),NOCON, NOBS1,NOBS2,NOBS3
        COMMON /FD6/Xpoint(LP),Ypoint(LP), XXXP(LP), YYYP(LP), YP(LP)
        COMMON /OBT/NPRINT,ICYCLE,ITER,NFLGC,IWAVE,IOBS1,IOBS2
        COMMON /TIE/T,DELT,AUTOT,FLGC,FNOC,SUMF,UBASE
        COMMON /TI1/FLAG,WB,WL,WR,WT,NSUM,NTEVE,WAVEQQ(MJ)
        COMMON /WAE/THETA0,WOMG,WOMGR,FLHT0,UMK,UOP,GRAPHICS
        COMMON /WA1/TFW,TFL,SITA,FLHTOP,WNK,WNKOP,CW,XMK,TWAVE
        COMMON /DDD/DR1,DR2,DL1,DL2,DD1,DD2,D0,DN1,UMAX,NWAVEL
        COMMON /DD1/IOBS(LP),JOBS(LP),Ibegin1,Ibegin2,Iend1,Iend2,jad1
		COMMON /CURRENT/CURRENTU(MJ),TMAKE,ISTYLE,TPOUT1,TOUT1
		COMMON /WAVESTAR/WAVEU(MJ),WAVEV(MJ),ETAS,wsu(mj)
		COMMON /JET/JETS,JETE,TJET,CV,CV1,CV11,VJET,UJET,TPOUT2,TOUT2
		COMMON /yplus/YPLUSN(MI),TAUN(MI),ELOG,VISSC(MI),JJS,PP(MJ)
	   	COMMON /stars/tks(mj),TES(MJ),VISS(MJ),WCC,WNK2,WCC2,SKS
		COMMON /ual/uall,uallp(3),uallmin(2),diffq,iuall,currentu1(MJ)
		COMMON /wcj/nspe,spu(150),imake,ETAAN(MI),TINY,tca