/[MITgcm]/MITgcm_contrib/jscott/igsm/inc/B83XX.COM
ViewVC logotype

Contents of /MITgcm_contrib/jscott/igsm/inc/B83XX.COM

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Fri Aug 11 19:33:30 2006 UTC (18 years, 11 months ago) by jscott
Branch: MAIN
CVS Tags: HEAD
atm2d package

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

  ViewVC Help
Powered by ViewVC 1.1.22