git push -u origin main

2026-03-19 14:05:33 +08:00
commit 1e30b7bc63
739 changed files with 572150 additions and 0 deletions
@@ -0,0 +1,65 @@
+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
+