| 1 |
jscott |
1.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 |
Parent Directory
| 
Revision Log
| 
Revision Graph