IMPLICIT real*4 (A-H,K-Z) REAL*4 J INTEGER L$,Z$,L$1,Z$58,Z$59,S$,T$,RB$,RW$,RH$,PH$,INBIG c set the parameters: c RB$ = size of base reaction rate arrays c RW$ = size of working reaction rate arrays c RH$ = size of het reaction rate arrays c L$ = number of latitudes c Z$ = number of pressure levels c L$1 = number of latitudes for streamfunction and gravity wave scheme (set to 37) c Z$59 = number of pressure levels for streamfunction and transport scheme (set to 59) c Z$58 = number of pressure levels for chemistry in extended 58 level model(set to 58) c S$ = number of constituents c T$ = number of transported constituents c PH$ = number of photolysis rates c IL$ = number of wavelength intervals PARAMETER(L$=18) PARAMETER(Z$=46) PARAMETER(L$1=37) PARAMETER(Z$58=58) PARAMETER(Z$59=59) PARAMETER(S$=70) PARAMETER(T$=35) PARAMETER(RB$=120) PARAMETER(RW$=30) PARAMETER(RH$=7) PARAMETER(IL$=39) PARAMETER(PH$=70) COMMON/DAT100/INTTRA(T$) COMMON/DAT200/C(S$,L$,Z$),CN(S$,L$,Z$),J(PH$,L$,Z$), * K(RB$,L$,Z$),KW(RW$,L$,Z$),KH(RH$,L$,Z$), * M(L$,Z$58),RNDAY(S$,L$,Z$),C58(T$,L$,Z$58), * CN58(T$,L$,Z$58),MR58(T$,L$,Z$58) COMMON/DAT300/TFD(L$) COMMON /CCNTRL/ CONVG,ITMAX,ITWCH,IKMAX,IJMAX,ICTT,JCT(S$), * JSEQ(S$) COMMON /CCONS/ RD,WTA,RE,RCGS,RINV,RCSINV(L$),TANGENT(L$) COMMON /CGRID/ P(Z$),PRESS(Z$),PHI(L$),PHIH(L$+1),DT,DT0 COMMON /CTRDAT/ EKYY(L$,Z$58), EKYZ(L$,Z$58), EKZZ(L$,Z$58) COMMON/VWMASSAD/W1, WBAR, W, V ! These are all REAL*8 COMMON/TPCORE1/XPI, QP1, ZK, DY0, DZ0, COSC, COSE, XMR ! NEW COMMON here for PPM transport (8/96) COMMON/DATA12/KYY10(37,59,36), QV10(37,59,36), * TEMP10(37,59,36), UBAR10(37,59,36), QBARY(37,59,36), * HEAT10(37,58,36), LH10(37,7,36), SBUVMRO3(12,L$,Z$), ! Note heating rates HEAT10 still 58 levs * TROPHT(L$,360), ITROP360(L$,360), BBCADJ(37,36) C TROPHT = new NMC tropopause hgts for each day at model lats C ITROP360 = model index of trop hgts for each day at model lats COMMON/DYNMOD/TEMPALL(18,59,36), WALL(18,59,36), VALL(19,58,36), * KYYALL(18,59,36), KZZALL(18,59,36), KYZALL(18,59,36), * KZZTROP(18,59,36) c c 30 60 72 C COMMON /CATM/ZGP(L$,Z$58),Q(L$,Z$58),ZTOP(L$),EKZH(Z$58), * PRES58(Z$58) COMMON /DATLAR/NCOLGD(10,L$,Z$),TEMP(L$,Z$58),ZKM(L$,Z$58), * LAT(L$) COMMON/BKGD/AREA(L$),COLMOD(10),DENCLX(Z$,L$,2,12), * CH4MR(12,L$,Z$),N2OMR(12,L$,Z$),H2ODEN(12,L$,Z$), * TEMPSAMS(12,L$,Z$) common/aerosol/aerosol(l$,z$),hoff(10),nataer(l$,z$), * aerice(l$,z$) common/newdif/difny(t$,l$,z$58), difnz(t$,l$,z$58), * difnyz(t$,l$,z$58) common/extra/t0,dzstar COMMON /CONST1/ DZcm(z$),DY,DT1,DTH,DY1,DY2,DZ1, * DZ2,DELT,C00,GZ ,DYX,DZX,XNORM,DAYL,YP(l$), 1 ZP1(z$),ZZ(z$),RHO(z$),RSTAR(z$),h25, 2 YPP(l$),ZPP(z$),EZ2H(z$),Sl(l$),DTHDZ(z$), 3 THG(z$),TG(z$),TTOTH(z$) 4 ,CF(l$),BETA2(l$),XMM(l$,z$) COMMON/DZCOL/DELTAZ(L$,Z$58) c commons for reaction rate data common/kk/k0(rb$),e(rb$),khi(rb$),ehi(rb$),khno3(3),ehno3(3) common/kkw/k0w(rw$),ew(rw$),khiw(rw$),ehiw(rw$),ibdy(rb$), c ibdyw(rw$) common/gamhet/gs(rh$),gn(rh$),gi(rh$) COMMON/EDDY/IRK,EKZZI,EKYYI,FZZ(10),IZZ(10),FYY(10),IYY(10) COMMON/TRNSPORT/ITRANS,ST(T$,L$,Z$58) COMMON/CTRL/INDAYS,IPF,IOUTP LOGICAL YSMSCAT,YSLFPRNT LOGICAL YSHSCT,YSO3FIX LOGICAL lcolumns,lprofiles C LOGICAL LPHOT1,LPHOT2,LDAV,YSCORSR LOGICAL LDAV,YSCORSR CHARACTER*37 PHOTCHAR CHARACTER*8 LIFECHAR c commons for boundary contitions LOGICAL LSTSTATE,LBCMRTD,LBCLATTD,LBCMRSS,LBCLATSS COMMON/BCINFO/IYEARSS,IYEARBCTD(50),IYEARBCSS(10),IYRBC(50), * ISPBC(20),FRMOLWT(20),BCTDINPUT(S$,50),BVAL(S$,L$), * BCSSINPUT(S$,10),TDLAT(S$,L$),SSLAT(S$,L$) COMMON/BCLOGICAL/LSTSTATE,LBCMRTD(S$),LBCLATTD(S$), * LBCMRSS(S$),LBCLATSS(S$) c commons for photolysis calculations COMMON /CFLUX/ WVL(IL$),FLUX0(IL$),FLUX(IL$),RFLUX(IL$,L$,Z$) COMMON /CJCOEF/ PHOTCHAR(PH$) COMMON /CXSECT/ XSECT(PH$,IL$),XO2(IL$),XO3(IL$), IPHOT(PH$), * XSECTTD(25,IL$,201) COMMON /CNO2XS/ NO2T(IL$), XNO2(IL$) COMMON /CSRB1/ SR1(9,17),SR2(6,17),SRNO1(9,2),SRNO2(5,2), . INOL(2),INOU(2),NOSIG(2,L$,Z$) COMMON /CSRB2/SRL(2),PRA(4),PRAL(4),SIGNO(2,2),SIGNOUSE(4), . TLIM,SIGLM,ESIGLM,CORSR(17),ISR(2),JBL(3),JBU(3),ILLB, . INOUSE(4) COMMON /CSRB3/ XSCHRUN(20,L$,Z$),ILLSR,ILUSR COMMON /CFIT1/ WO1D(2),WN2O5(2),A0(3),A1(3),A2(3),A3(3),A4(3), * B0(3),B1(3),B2(3),B3(3),B4(3) COMMON /CFIT2/ ILO1D(2),IN2O5(2) COMMON /CFIT3/ TS320,TS300,TS230,TS225,TS220,TS180,WCH2O COMMON /CFIT4/ AS01,AS02,AS03,AS11,AS12,AS13,AS21,AS22,AS23, . AS31,AS32,AS33,AS41,AS42,AS43,AS51,AS52,AS53,AS61,AS62,AS63 common /cfit5/ hobrlam(3),hobra(3),hobrb(3) COMMON /CSOLAR1/ RSC(5),R27(4),RLAMB(6) COMMON /CSOLAR2/ D1,D2,D3,D4,D5,D6,DEC1,DEC2,DEC3,DEC4,DEC5, . DEC6,DEC7,DEC8 COMMON /CDAV/ FAVG(12,9,10),DECA(9),TAUA(12),LATR(10),ZREF, . IDA,ILATR,ITA,ITAUA(1001) COMMON /CLOGSR/ YSCORSR COMMON /CLOC/ ZP,LATP,TS,T,DAY0,DAY,CLOCK,PRP,DECD COMMON /CPHYS/ SINL,COSL,SIND,COSD,CHID(L$),OMEGAD,HBAR, . ZBAR,R0,YRL,NM,DP,DPHI,SFAC(L$),ZGRZ(L$) COMMON /CDEN/ NCOL(10),ISNCOL(10),JNCOL,JSPD,ISP, . ISO2,ISO3,ISNM COMMON /BEDO/ ALBB(Z$),YSMSCAT COMMON/MSCA/SNDZ(3,Z$),XNTAU(3,Z$),CHIMS,DECMS,LATMS,SO2, * SO3,PHLUX,LAMMS,SFACMS,IKMS COMMON /CMAT/ JLRT1,JURT1,LDAV COMMON /FLUXTAU/ FLUXMULT(IL$,L$,Z$),TAUMULT(IL$,L$,Z$), * IDAYMN(12) COMMON /CREST/TSS,CHNGX,IJCX,IKCX COMMON /CINDX/ PI,DTR,RTD,RPI,BK,AMU,CP,CL,H,ISCO2,ISCO3 COMMON /CYEAR/ IYR,DYT,DAYST,DAYIN COMMON /YEAR360/ DAY360,DYT360, IDAY360 COMMON /SOLARCYC/ SOLCYCSET,PIYRUSE,FMAXSET,FMINSET COMMON /NOXGCR/ GCR(L$,Z$) COMMON /GCRMM/ GCRMIN(L$,Z$),GCRMAX(L$,Z$) C COMMONS FOR NCB common/bcnox/ibc(l$,z$),bcclono2(l$,z$),bcbrono2(l$,z$) common/noxc/bcclo24(l$,z$),bcn2o5(l$,z$),cno2(l$,z$), c bcbro24(l$,z$),gamloc(l$,z$),zzz(10,l$,z$),yy(4,l$,z$), c xxz(4,l$,z$),alpha(l$,z$),betaz(l$,z$),isw2(l$,z$), c isw(l$,z$),icount(l$,z$) C COMMONS FOR LIFETIME CALCULATION COMMON/LIFE/CLOSS(30,L$),CLOSSST(30,L$),CLOSSTR(30,L$), * COLUMN(30,L$),RLOSS(30,L$,Z$),LIFECHAR(30), * YSLFPRNT COMMON/HOXCM/rat(l$,z$),rhoh(l$,z$) C COMMON FOR INTERACTIVE WATER VAPOR, also new ITDAY param COMMON/OORTH2O/TROPWV(L$,11,360), PRECIPYR(L$,Z$,360), ITDAY, * RAINDAY(L$,360), RAINYR(L$) C COMMON FOR Model Chemistry extension into Lower Thermosphere (levels 47-58, 90-115 km), and write-out COMMON/THERMOS/CTLOSS(T$,L$,Z$), CTPROD(T$,L$,Z$)