66 lines
2.2 KiB
Fortran
66 lines
2.2 KiB
Fortran
C
|
|
C Basic parameters of the model atmosphere
|
|
C
|
|
COMMON/MODELP/DM(MDEPTH),
|
|
* TEMP(MDEPTH),
|
|
* ELEC(MDEPTH),
|
|
* DENS(MDEPTH),
|
|
* ZD(MDEPTH),
|
|
* VTURB(MDEPTH),VTB,
|
|
* ABSTD(MDEPTH),
|
|
* ABSTDW(MFREQC,MDEPTH),
|
|
* POPUL(MLEVEL,MDEPTH),
|
|
* POPREL(MLEVEL,MDEPTH),
|
|
* DMR0(MDEPTH),
|
|
* DMRP(MDEPTH),
|
|
* SBF(MLEVEL),
|
|
* USUM(MIOEX),
|
|
* WOP(MLEVEL,MDEPTH),
|
|
* WNHINT(NLMX,MDEPTH),
|
|
* WNHE2(NLMX,MDEPTH),
|
|
* RRR(MDEPTH,MION,MATOM),
|
|
* JT(MDEPTH),
|
|
* TI0(MDEPTH),
|
|
* TI1(MDEPTH),
|
|
* TI2(MDEPTH)
|
|
character*8 cmol(mmolec)
|
|
COMMON/MOLPAR/RRMOL(MMOLEC,MDEPTH),
|
|
* DOPMOL(MMOLEC,MDEPTH),
|
|
* AMMOL(MMOLEC),
|
|
* CMOL,
|
|
* anh2(mdepth),anch(mdepth),anoh(mdepth),
|
|
* anhm(mdepth)
|
|
C
|
|
COMMON/OPACAT/OPATM(MATOM,MFREQ,MDEPTH),
|
|
* EMATM(MATOM,MFREQ,MDEPTH),
|
|
* OPATML(MATOM,MFREQ),
|
|
* GRADAT(MATOM,MDEPTH),
|
|
* GRADFA(MATOM,MDEPTH),
|
|
* POPAT(MATOM,MDEPTH),
|
|
* DGRAD0(MATOM,MATOM,MDEPTH),
|
|
* DGRADP(MATOM,MATOM,MDEPTH)
|
|
C
|
|
COMMON/RADFLD/RAD(MFREQ,MDEPTH),
|
|
c * FAK(MFREQ,MDEPTH),
|
|
c * ALI(MFREQ,MDEPTH),
|
|
c * FLXH(MFREQ,MDEPTH),
|
|
* RAD0(MFREQ,MDEPTH),
|
|
* FLX0(MFREQ,MDEPTH),
|
|
* flxt(mdepth),
|
|
* flxi(mdepth)
|
|
C
|
|
COMMON/XENPRF/PRFXB(MLINH,MHWL,MHT,MHE),
|
|
* PRFXR(MLINH,MHWL,MHT,MHE),
|
|
* PRFB(MLINH,MDEPTH,MHWL),
|
|
* PRFR(MLINH,MDEPTH,MHWL),
|
|
* ALXEN(MLINH,MHWL),
|
|
* XTXEN(MHT,MLINH),
|
|
* XNEXEN(MHE,MLINH),XNEMIN,
|
|
* NWLXEN(MLINH),
|
|
* NTHXEN(MLINH),
|
|
* NEHXEN(MLINH),
|
|
* ILXEN(4,22),
|
|
* IHXENB
|
|
C
|
|
|