!
! $Id: uci.h,v 1.2 2005/10/18 20:10:15 mbhat Exp $
!
!--(ZCMN21L.f)---COMMON BLOCKS For 8x10x21L (36x24x21) Stratosphere CTM (1/95)
PARAMETER(IIPAR=36,JJPAR=24,LLPAR=21,NNPAR=1,MCWPAR=36,MCDPAR=36, &
& IWPAR=36,JWPAR=24,LWPAR=21, NNSTA=40, &
& KD1PAR=24+4*NNSTA+(258+JJPAR*LLPAR+6*IIPAR*JJPAR)*NNPAR, &
!rt
!rt P KZ2PAR=(NNPAR+1)*(IIPAR*JJPAR*LLPAR+20*LLPAR+20*JJPAR)+
& KZ2PAR=(NNPAR+1)*(IIPAR*JJPAR*LLPAR+10*LLPAR+10*JJPAR)+ &
& JJPAR*LLPAR*42+IIPAR*JJPAR*22+IIPAR*LLPAR*10+600*NNSTA, &
& KD2PAR=KZ2PAR+604)
!rt
!rt
!rt
!rt run_type is set to N2O, CO2, F11, or SF6
!rt edit_type is set to debug, or no_debug
!rt
character*8 run_type
character*8 edit_type
!rt
common /app_c/ run_type
common /app_c/ edit_type
!rt
!rt
!rt
!rt storage for co2 runs
!rt
integer month_co2
real*8 tparm_co2(1,19,192,1)
!rt
common /app_i/ month_co2
common /app_r/ tparm_co2
!rt
!rt
!rt
!rt storage to return UCI latitude array
!rt
real*8 uci_lat(JJPAR)
common /app_r/ uci_lat
!rt
!rt
!rt
!c
integer lun8, lun9
integer lun10, lun12, lun13
common / lun / lun8, lun9, &
& lun10, lun12, lun13
!c
REAL*8 STT, SAVEJ, SAVEL
CHARACTER*40 TITCOM
CHARACTER*4 JMONTH,JMNTH0,XLABEL,TCNAME,TLAT,TLNG, SAVLAB
LOGICAL LCONT,LINIT,LWINDO,LSTRAT,LTROP,LSRCE,LZONE,LPUFF &
& ,LPRT,LHEADR,LREWND,LPFILT,LSOM,LCONV4,LSRC1,LSRC2,LSRC3,LSRC4
COMMON/CCLGC/ LCONT,LINIT,LWINDO,LSTRAT,LTROP,LSRCE,LZONE,LPUFF &
& ,LPRT,LHEADR,LREWND,LPFILT,LSOM,LCONV4,LSRC1,LSRC2,LSRC3,LSRC4
!--------------------------WINDS----------------------------------------
COMMON/UVP/ TAUB,TAUW,U(IWPAR,JWPAR,LWPAR),V(IWPAR,JWPAR,LWPAR), &
& P(IWPAR,JWPAR),C( 1, 1,4),R( 1, 1,2)
!-------------------------CONVECTION------------------------------------
COMMON/CWD/ TAUC,TAUCE, CWET(IWPAR,JWPAR,9), &
& CDRY(IWPAR,JWPAR,9),BLH(IWPAR,JWPAR), AVP(1,1),T(1,1,1), &
& OH(1,1,1),Q(1,1,1)
!---------------LOCALLY DEFINED WINDS/CONV------------------------------
COMMON/ABC/ ALFA(IIPAR+1,JJPAR,LLPAR),BETA(IIPAR,JJPAR+1,LLPAR), &
& GAMA(IIPAR,JJPAR,LLPAR+1), &
& BETAM(JJPAR,LLPAR),GAMAM(JJPAR,LLPAR), PW(IIPAR,JJPAR), &
& ADNEW(IIPAR,JJPAR,LLPAR),AAAIJL(IIPAR,JJPAR,LLPAR)
COMMON/CNV/CONVMX(9,9,IIPAR,JJPAR),EFFK(IIPAR,JJPAR)
COMMON/CCT/ &
& STT(IIPAR,JJPAR,LLPAR,NNPAR),SUT(IIPAR,JJPAR,LLPAR,NNPAR), &
& SVT(IIPAR,JJPAR,LLPAR,NNPAR),SWT(IIPAR,JJPAR,LLPAR,NNPAR), &
& AD(IIPAR,JJPAR,LLPAR)
!------------COMMON BLOCKS FOR S.O.M.-----------------------------------
COMMON/CCT2/ &
& SUU(IIPAR,JJPAR,LLPAR,NNPAR),SVV(IIPAR,JJPAR,LLPAR,NNPAR), &
& SWW(IIPAR,JJPAR,LLPAR,NNPAR),SUV(IIPAR,JJPAR,LLPAR,NNPAR), &
& SUW(IIPAR,JJPAR,LLPAR,NNPAR),SVW(IIPAR,JJPAR,LLPAR,NNPAR)
COMMON/CCRUN/TAUI,TAUE,TAUCD,NTBEG,NTEND,NMDAT,LMDAT,JMDAT,IMDAT
!------------CCL = 144
COMMON/CCL/XLABEL(20),TLAT(46),TLNG(72),TCNAME(4),JMONTH,JMNTH0
DIMENSION SAVLAB(144)
EQUIVALENCE (SAVLAB(1),XLABEL(1))
!------------CCX = 519
COMMON/CCX/ TAU,NTAU,IDAY,TOFDAY,JDATE,JYEAR,JDAY,MONTH,IYEAR, &
& SOLDEC,SOLDIS,I00,I0,IMX,IM,J00,J0,JMX,JM,LM,NTRACE,LCONVM,LTM, &
& FIM, NREAD,NWRITE,NAVG,NDYN,NCONV,NFILT,NDIAG,NINST,NCHEM,NSRCE, &
& LMTSOM, &
& NORDU,NINIT,NSRCX,NSTRTC,LDIFF1,LDIFFM, LMSTRT(46),IMRSLV(46), &
& DIFFKU,PTOP,PSF,AREAG,AREAH,AREAW,TWOPI,GRAV,SIG(25),SIGE(25), &
& DSIG(25), YEDGE(47),XEDGE(73),DXP(46),DYP(46),DXYP(46),DXYV(46), &
& PALTD(72,46),PLAND(72,46)
DIMENSION SAVDAT(519)
EQUIVALENCE (SAVDAT(1),TAU)
!------------CCP = 24+4*NNSTA+NNPAR*(258+6*IIPAR*JJPAR+JJPAR*LLPAR)
COMMON/CCP/ TCMASS(NNPAR),TCSCAL(NNPAR),TCWETL(NNPAR),TCVV(NNPAR), &
& TCHEMA(NNPAR),TCHEMB(NNPAR),TCHEMC(NNPAR), &
& TOTALC(NNPAR),TCRLSE(50,NNPAR),TCRIJ(IIPAR,JJPAR,NNPAR), &
& TCRXY(IIPAR,JJPAR,5,NNPAR), TVVSET(JJPAR,LLPAR,NNPAR),PDIAG(20), &
& PUFF(50,NNPAR),IPUFF(50,NNPAR),JPUFF(50,NNPAR),KPUFF(50,NNPAR), &
& JVV0,JVV1,LVV0,LVV1, &
& ISAVTC(NNSTA),JSAVTC(NNSTA),LSAVTC(NNSTA),NSAVTC(NNSTA)
DIMENSION SAVTRA(KD1PAR)
EQUIVALENCE (SAVTRA(1),TCMASS(1))
!------------CC(CHEM TABLES)---NOT SAVED IN RESTART FILE---------------
COMMON/CC/ TPARM(20,18,12,NNPAR),TLSTT(JJPAR,LLPAR,NNPAR), &
& TLSWT(JJPAR,LLPAR,NNPAR),TLSWW(JJPAR,LLPAR,NNPAR),TLSUM(3)
!------------CCA = (N+1)*(I*J*L+460)+J*L*42+I*J*22+I*L*10 +600*NNSTA+604
COMMON/CCA/ AIJL(IIPAR,JJPAR,LLPAR,NNPAR+1),AJL(JJPAR,LLPAR,42), &
& AIJ(IIPAR,JJPAR,22),AIL(IIPAR,LLPAR,10), TCOBS(600,NNSTA), &
& SAVEJ(JJPAR,10,NNPAR+1),SAVEL(LLPAR,10,NNPAR+1), &
& KDACC,KWACC,TAU0,NTAU0, &
& IDAY0,TOFDY0,JDATE0,JYEAR0,PLEV(22,2),NJDAY(365),JLAT(46,2), &
& JD50,JD51,JD52,JD53,JD54,ID15,ID16,ID17,ID18,ID19,LD41,LD42,LD43, &
& ND01,ND02,ND03,ND04,ND05,ND06,ND07,ND08,ND09,ND10,ND11,ND12,ND13, &
& ND14,ND15,ND16,ND17,ND18,ND19,ND20,ND21,ND22,ND23,ND24,ND25,ND26, &
& ND27,ND28,ND29,ND30,ND31,ND32,ND33,ND34,ND35,ND36,ND37,ND38,ND39, &
& ND40,ND41,ND42,ND43,ND44,ND45,ND46,ND47,ND48,ND49,ND50,ND51,ND52, &
& ND53,ND54,ND55,ND56,ND57,ND58,ND59,ND60,ND61,ND62,ND63,ND64,ND65, &
& ND66,ND67,ND68,ND69,ND70,ND71,ND72,ND73,ND74,ND75
DIMENSION SAVACC(KD2PAR)
EQUIVALENCE (SAVACC(1),AIJL(1,1,1,1))
!-----------DATA INITIALIZATION
!---MAXAJL < 8+N*17, MAXAIJ < 4+N*9, MAXAIL < 2+N*4
DATA MAXAJL,MAXAIJ,MAXAIL /42,22,10/, MAXSTA/NNSTA/
DATA MAXCW,MAXCD /MCWPAR,MCDPAR/
DATA KLAB,KDAT,KTRA,KACC,KACCZ /144,519,KD1PAR,KD2PAR,KZ2PAR/
!---DIMENSIONS OF TRACER ARRAYS & WIND TAPE:
DATA NZDAT,LZDAT,JZDAT,IZDAT/ NNPAR,LLPAR,JJPAR,IIPAR /
DATA IMWIND,JMWIND,LMWIND /IWPAR,JWPAR,LWPAR/
DATA TITCOM /' COMM:unix1 36x24x21x1 8x10+SOM'/