1 |
C |
2 |
C RADCOM: CONTROL/INPUT PARAMETERS |
3 |
C |
4 |
COMMON/RADCOM/VADATA(11, 4, 3),DLAT(46),DLON(72),TAUMIN,FULGAS(18) |
5 |
A ,FRACSL,RATQSL,FOGTSL,PTLISO,TLGRAD,TKCICE,FGOLDH(18) |
6 |
B ,FLONO3,FRAYLE,FCLDTR,FCLDSR,FALGAE,FMARCL,FEMTRA(6) |
7 |
C ,WETTRA,WETSRA,DMOICE,DMLICE,LICETK,NTRACE,FZASRA(6) |
8 |
D ,ID5(5),ITR(4),IMG(2),ILG(2),LAPGAS,KWVCON,NORMS0,NV |
9 |
E ,KEEPRH,KEEPAL,ISOSCT,IHGSCT,KGASSR,KAERSR,KFRACC |
10 |
F ,MARCLD,LAYRAD,NL,NLP,JMLAT ,IMLON ,KFORCE,LASTVC |
11 |
C |
12 |
C BASIC RADCOM INPUT DATA |
13 |
C |
14 |
G ,PLB(40),HLB(40),TLB(40),TLT(40),TLM(40),U0GAS(40,9) |
15 |
H ,ULGAS(40,9),TRACER(40,4),CLDTAU(40),SHL(40),RHL(40) |
16 |
I ,POCEAN,PEARTH,POICE,PLICE,AGESN,SNOWE,SNOWOI,SNOWLI |
17 |
J ,TGO,TGE,TGOI,TGLI,TSL,WMAG,WEARTH,ZOICE,FSPARE(200) |
18 |
K ,S0,COSZ,PVT(11),BXA(153),SRBXAL(15,2),FRC(5),LUXGAS |
19 |
L ,JYEAR,JDAY,JLAT,ILON,MEANAL,KALVIS,ISPARE(25),PSIG0 |
20 |
C |
21 |
C BASIC RADCOM OUTPUT DATA |
22 |
C |
23 |
M ,TRDFLB(40),TRUFLB(40),TRNFLB(40),TRFCRL(40),TRSLCR |
24 |
N ,SRDFLB(40),SRUFLB(40),SRNFLB(40),SRFHRL(40),SRSLHR |
25 |
O ,SRIVIS,SROVIS,PLAVIS,SRINIR,SRONIR,PLANIR,SRXATM(4) |
26 |
P ,SRDVIS,SRUVIS,ALBVIS,SRDNIR,SRUNIR,ALBNIR,FSRNFG(4) |
27 |
Q ,SRTVIS,SRRVIS,SRAVIS,SRTNIR,SRRNIR,SRANIR,FTRUFG(4) |
28 |
R ,TRDFGW,TRUFGW,TRUFTW,BTEMPW,TRDFSL,TRUFSL,DTRUFG(4) |
29 |
S ,TRSLTS,TRSLTG,TRSLWV,TRSLBS,TTRUFG,LBOTCL,LTOPCL |
30 |
C |
31 |
C BLOCKD INITIALIZED DEFAULT DATA |
32 |
C |
33 |
COMMON/BLOCKD/AGOLDH(11, 5),BGOLDH(11, 5),CGOLDH(11, 5) |
34 |
T ,TRAQEX(25,11),TRAQSC(25,11),TRACOS(25,11) |
35 |
T ,TRCQEX(25, 2),TRCQSC(25, 2),TRCCOS(25, 2) |
36 |
S ,SRAQEX( 6,11),SRAQSC( 6,11),SRACOS( 6,11) |
37 |
S ,SRCQEX( 6, 2),SRCQSC( 6, 2),SRCCOS( 6, 2) |
38 |
X ,AOCEAN(25 ),AGSIDV(25, 4),CLDALB(25, 2) |
39 |
Y ,CMANO2(42 ),TRACEG(25,16),PPMV58(9),Z0(9),ZH(9) |
40 |
Z ,ASNALB(15),AOIALB(15),ALIALB(15),NAERO,NGOLDH,NKSR |
41 |
C |
42 |
COMMON/WORK4/ ITLB(40),ITLT(40),PL(40),DPL(40),UO3L(40),PSIG(40) |
43 |
T ,COSLAT(46),TRCALB(40),TRGALB(40),BGFEMT(40),BGFEMD(40) |
44 |
T ,TRAEXT(40,25),TAUN(1000),TAUSL(25),FTAUSL(25) |
45 |
T ,ENA(40),ENB(40),ENC(40),TRA(40),TRB(40),TRC(40) |
46 |
T ,WTLB(40),WTLT(40) |
47 |
T ,DFLB(40,25),UFLB(40,25),WFLB(40,25) |
48 |
T ,DFSL(25),UFSL(25),WFSL(25) |
49 |
S ,EXTAER(40,6),SCTAER(40,6),COSAER(40,6),PI0AER(40,6) |
50 |
S ,RNB(40),RNX(40),TNB(40),TNX(40),XNB(40),XNX(40) |
51 |
S ,SRB(40),SRX(40),VRU(40),VRD(40),FAC(40),O3A(40) |
52 |
S ,BVSURF,BNSURF,XVSURF,XNSURF |
53 |
X ,UXGAS(40,9),SRTAU(600) |
54 |
C |
55 |
C |
56 |
COMMON/TRDCOM/TRAX(40,25,5),TRCX(25,2),PLANCK(6250),TAUTBL(80000) |
57 |
A ,TAULAP(1000),TKPFW(630) |
58 |
B ,ITRHDR(100),MLGAS(30),MLLAP(30),NKTR,IT0,ITNEXT |
59 |
C ,JNORTH,ALVISD(22),ALNIRD(22) |
60 |
C$ D ,ISRHDR(100),SRTBL(44800) |
61 |
C |
62 |
common/ SNOWALB/FRSNALB,IFFF0 |
63 |
common/ BACKGRGHG/GHGBGR(5) |
64 |
external mth_i_dpowi |