!----jv_cmn.h---COMMON BLOCKS for new FAST-J code (wild/prather 7/99) ! ! Parameters ! ---------- ! ! NB Number of levels in CTM plus one for above model top ! NC Number of levels in the fundamental Fast-J grid ! NS Maximum number of species which require J-values calculating ! NW Maximum number of wavelength bins that can be used ! NP Maximum number of aerosol/cloud types that can be used ! NH Maximum number of Herzberg X-sections that can be used ! MX Number of aerosol/cloud types supplied from CTM ! ! Note: THETA(NL) no longer used ! HISTORY ! January 5, 2005 - Jules Kouatchou ! Changed the values of NW and MX. !----------------------------------------------------------------------- INTEGER NB, NC, NS, NW, NP, NH, MX ! PARAMETER (NB=LPAR+1, NC=2*NB, NS=51, NW=15, NP=21, NH=7, MX=3) ! PARAMETER (NS=51, NW=7, NP=21, NH=7, MX=3) PARAMETER (NS=51, NW=15, NP=56, NH=7, MX=35) INTEGER, parameter :: NB_MAX = LPAR_MAX+1 ! Added for GMI {PJC} INTEGER, parameter :: NC_MAX = 2*NB_MAX ! Added for GMI {PJC} CHARACTER*20 TITLEA(NP) CHARACTER*78 TITLE0 CHARACTER*7 TITLEJ(3,NS), jlabel(jppj_max), hzlab(nh) INTEGER jind(jppj_max),jadsub(nc_max),nhz,hzind(nh) INTEGER NJVAL,NW1,NW2,MIEDX,NAA,NLBATM,npdep,jpdep(NS) REAL*8 TJ,PJ,DM,DO3,Z,AER,AMF,RAD,RFLECT,SZA,U0,TANHT,ZZHT REAL*8 WBIN,WL,FL,QO2,QO3,Q1D,QQQ,QRAYL,TQQ,FFF,VALJ,WAA,QAA,PAA REAL*8 RAA,SSA,TREF,OREF,BREF,QBC,DBC,zpdep(NW,3) REAL*8 dtaumax,szamax,zj(jpnl_max,jppj_max),jfacta(jppj_max) REAL*8 dtausub,dsubdiv REAL*8 hzo2,hzo3,hztoa(nh),fhz(jpnl_max) COMMON /TITLS/TITLE0,TITLEJ,TITLEA COMMON /ATMOS/TJ(NB_MAX),PJ(NB_MAX+1),DM(NB_MAX),DO3(NB_MAX), & & DBC(NB_MAX),Z(NB_MAX),AER(MX,NB_MAX), & & AMF(NB_MAX,NB_MAX),RAD,RFLECT,SZA,U0,TANHT,ZZHT COMMON /CCWVL/WBIN(NW+1),WL(NW),FL(NW),QO2(NW,3),QO3(NW,3), & & Q1D(NW,3),QQQ(NW,2,NS-3),QRAYL(NW+1),TQQ(3,NS), & & FFF(NW,jpnl_max),VALJ(NS),WAA(4,NP),QAA(4,NP), & & PAA(8,4,NP),RAA(4,NP),SSA(4,NP),QBC(NW), & & NJVAL,NW1,NW2,MIEDX(MX),NAA,NLBATM COMMON /CLIM/ TREF(51,18,12),OREF(51,18,12),BREF(51) COMMON /JCNTR/dtaumax,szamax COMMON /JVALS/zj,jfacta,zpdep,npdep,jpdep,jind,jlabel COMMON /JVSUB/jadsub,dtausub,dsubdiv COMMON /HERZ/hzo2,hzo3,hztoa,fhz,nhz,hzind,hzlab COMMON /dims2/ NB, NC ! Added for GMI !-----------------------------------------------------------------------