c GEMEINSAME COMMON-BLOECKE UND FELDER: c include 'param_grid_60.f' c----------- c common /myfeld/ rmyan1(igit,nb,kgit,3),rmywn1(igit,nb,kgit) common /felder/ an0(nb,kgit,igit,3),an1(nb,kgit,igit,3), & an2(nb,kgit,igit,3), $ fphi_0(nb,igit), $ philb0(nb,igit),philb1(nb,igit),philb2(nb,igit) c COMMON/adams/funm1(nb,kgit,igit),fvnm1(nb,kgit,igit), c $ ftnm1(nb,kgit,igit) c---------- common/wufi/wn1(nb,kgit+1,igit),fin1(nb,kgit,igit),delfi(nb,igit), & firn0(nb,igit),firn1(nb,igit),firn2(nb,igit) c--------- dimension un0(nb,kgit,igit),un1(nb,kgit,igit),un2(nb,kgit,igit), & vn0(nb,kgit,igit),vn1(nb,kgit,igit),vn2(nb,kgit,igit), & tn0(nb,kgit,igit),tn1(nb,kgit,igit),tn2(nb,kgit,igit) c--------- equivalence & (un0,an0(1,1,1,1)),(vn0,an0(1,1,1,2)),(tn0,an0(1,1,1,3)), & (un1,an1(1,1,1,1)),(vn1,an1(1,1,1,2)),(tn1,an1(1,1,1,3)), & (un2,an2(1,1,1,1)),(vn2,an2(1,1,1,2)),(tn2,an2(1,1,1,3)) c--------- altitude (km), latitude (rad) common /zphi/ z(kgit),phi(nb) c-------------- Alex Pogoreltsev, November 2015 -------------------- common/ionos11/As1m1w24(nb,23),Fs1m1w24(nb,23), & As1m1w12(nb,23),Fs1m1w12(nb,23), & As1m1w08(nb,23),Fs1m1w08(nb,23), & As1m1w06(nb,23),Fs1m1w06(nb,23), & As1m1spw(nb,23),Fs1m1spw(nb,23), c-------------------------------------------------- & As1m1e24(nb,23),Fs1m1e24(nb,23), & As1m1e12(nb,23),Fs1m1e12(nb,23), & As1m1e08(nb,23),Fs1m1e08(nb,23), & As1m1e06(nb,23),Fs1m1e06(nb,23) c-------------------------------------------------- common/ionos12/As1m2w24(nb,23),Fs1m2w24(nb,23), & As1m2w12(nb,23),Fs1m2w12(nb,23), & As1m2w08(nb,23),Fs1m2w08(nb,23), & As1m2w06(nb,23),Fs1m2w06(nb,23), & As1m2spw(nb,23),Fs1m2spw(nb,23), c-------------------------------------------------- & As1m2e24(nb,23),Fs1m2e24(nb,23), & As1m2e12(nb,23),Fs1m2e12(nb,23), & As1m2e08(nb,23),Fs1m2e08(nb,23), & As1m2e06(nb,23),Fs1m2e06(nb,23) c-------------------------------------------------- common/ionos21/As2m1w24(nb,23),Fs2m1w24(nb,23), & As2m1w12(nb,23),Fs2m1w12(nb,23), & As2m1w08(nb,23),Fs2m1w08(nb,23), & As2m1w06(nb,23),Fs2m1w06(nb,23), & As2m1spw(nb,23),Fs2m1spw(nb,23), c-------------------------------------------------- & As2m1e24(nb,23),Fs2m1e24(nb,23), & As2m1e12(nb,23),Fs2m1e12(nb,23), & As2m1e08(nb,23),Fs2m1e08(nb,23), & As2m1e06(nb,23),Fs2m1e06(nb,23) c-------------------------------------------------- common/ionos22/As2m2w24(nb,23),Fs2m2w24(nb,23), & As2m2w12(nb,23),Fs2m2w12(nb,23), & As2m2w08(nb,23),Fs2m2w08(nb,23), & As2m2w06(nb,23),Fs2m2w06(nb,23), & As2m2spw(nb,23),Fs2m2spw(nb,23), c-------------------------------------------------- & As2m2e24(nb,23),Fs2m2e24(nb,23), & As2m2e12(nb,23),Fs2m2e12(nb,23), & As2m2e08(nb,23),Fs2m2e08(nb,23), & As2m2e06(nb,23),Fs2m2e06(nb,23) c-------------------------------------------------- common/LHeat0/Alhm0_24(nb,10),Flhm0_24(nb,10), & Alhm0_12(nb,10),Flhm0_12(nb,10) c-------------------------------------------------- common/LHeat1/Alhm1w24(nb,10),Flhm1w24(nb,10), & Alhm1w12(nb,10),Flhm1w12(nb,10), & Alhm1e24(nb,10),Flhm1e24(nb,10), & Alhm1e12(nb,10),Flhm1e12(nb,10) c-------------------------------------------------- common/LHeat2/Alhm2w24(nb,10),Flhm2w24(nb,10), & Alhm2w12(nb,10),Flhm2w12(nb,10), & Alhm2e24(nb,10),Flhm2e24(nb,10), & Alhm2e12(nb,10),Flhm2e12(nb,10) c-------------------------------------------------- common/LHeat3/Alhm3w24(nb,10),Flhm3w24(nb,10), & Alhm3w12(nb,10),Flhm3w12(nb,10), & Alhm3e24(nb,10),Flhm3e24(nb,10), & Alhm3e12(nb,10),Flhm3e12(nb,10) c-------------------------------------------------- common/LHeat4/Alhm4w24(nb,10),Flhm4w24(nb,10), & Alhm4w12(nb,10),Flhm4w12(nb,10), & Alhm4e24(nb,10),Flhm4e24(nb,10), & Alhm4e12(nb,10),Flhm4e12(nb,10) c----------------------- UV/IR ----------------------------- c Alex Pogioreltsev, 24.03.2007 c------------ so3,xnumo3,ozppmv(nb,kgit) -> (nb,kgit,igit) c co3(45,nb ) -> (45,nb ,igit) c------------------------------------------------------------------ c common /ncuvif/ so3 (nb,kgit),xnumo3(nb,kgit), c $ ozppmv(nb,kgit),co3 (45,nb ), common /ncuvif/ so3 (nb,kgit,igit),xnumo3(nb,kgit,igit), $ ozppmv(nb,kgit,igit),co3 (45,nb ,igit), $ xnumn2(nb,kgit),sn2(nb,kgit),sox(nb,kgit), * so2(nb,kgit),xnumo2(nb,kgit),sunris(kgit), * dichte(kgit),dichcp(kgit),a1h2o(igit,nb),xnumox(nb,kgit) c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! common/compos/RN2VMR(kgit),RO2VMR(kgit),ROXVMR(kgit) c----------------------- factors for H2O ---- strobel.f and ircool.f common /forfkt/ skh,skhnuv(9),skhnir(4), * expnuv(9,64,36),e1nir(4,64,36), * phgdk(9,48),x0li(9),dnueli(9),fracd(9),H_wv(64,36) common /newh2o/ H_h2o_2(53),H_h2o_1(53,36),s1_h2o(53),s2_h2o(53), $ b_h2o(53),c1_h2o(64,36),c2_h2o, $ F_h2o(53),p0_h2o(53),cm_h2o(53),a_h2o(53) c common /forfkt/ skh,skhnuv(9),skhnir(4),expnuv(9,36),e1nir(4,36), c * phgdk(9,48),x0li(9),dnueli(9),fracd(9),H_wv(36) c--- icool_new_CO2 common /irc/ dichti(118),zi(118),zH2O(72),zint(72),dzi,zunteni, * rni(118,3),rmi(118),roi(118) REAL*4 T_NCEP,U_UKMO common /srface/tbot0(nb,igit),tbot1(nb,igit),tbot2(nb,igit), $ T_1000(nb,igit),G_1000(nb,igit),T_NCEP(nb,17), $ U_UKMO(nb,17) common /sveta_ukmo/ T_UKMO_TIME(igit,nb,10,59) c------------ index for interpolation to 118 levels and back to kgit common /intpol/ip118var(118),ipVar118(kgit),ipolCOX(72), $ ipolH2O(72), ipCOXvar(kgit) c------------ common /forcng/ $ fnt(kgit,igit,nb),fc(kgit,igit,nb),hs(kgit,igit,nb), $ h_PWs(kgit,igit,nb),frl(kgit,igit,nb), $ fmcnp1(kgit),frunp1(kgit),frvnp1(kgit), $ fut(kgit,igit,nb),fvt(kgit,igit,nb),ftt(kgit,igit,nb), $ drag(igit,nb,kgit,3),drag0(igit,nb,kgit,3), $ heat_LH(igit,nb,kgit),heat_LH0(igit,nb,kgit), $ fgru(kgit,igit,nb),fgrv(kgit,igit,nb),fgrt(kgit,igit,nb) c----------------------------------------------------------------------- common /erg/ rm(kgit),tz(kgit) c------------ geometric factors ---- dy-????? common /f/ + cor(nb+1),tgfia(nb+1),sinfi(nb+1),cosfi(nb+2), + dt,dt2,dx(nb+1),dy,dz,defi,alfa(kgit),cosf2(nb+1),sinf2(nb+1) common /k1/ kenanf,ntime,ncom,nsec,nend,nout,kret,nprint,null c---------------- INPUT setting common /k3/ nsun,ndek,nphi,nfrc,nref,nsrc,mampl,mref,nalt,nstep common /mo/ mfilt,mforc,muvir,miond,mturb,mmcon,mcool,msurf c ------ common /ceddy/ geddy0(kgit),geddy(kgit,igit,nb), $ veddy(kgit),teddy(kgit) common /con/ rl(kgit+1),rx(kgit+1),xmt(kgit+1) c------------------- common /const/ rhos,c_p,pi,zunten,zoben,h,rou(kgit),row(kgit) common /const1/ g,RgSI,Rf_c,co2pmv,RgSGS,dich0 c--------------------------------------------------------------- common /char/ f2_old,f2_new,f2_nfm, $ fort8,fort14,ref,an1dat,modul,al_dat character *80 f2_old,f2_new, $ fort8,fort14,ref,an1dat,modul,al_dat,an2dat c--------------------------------------------------------------- dimension ken1(64) ! <-->/k1/ equivalence (ken1,kenanf) common /aw_tend/ Aw,Angle,Eps,UU,coun integer coun real UU,Aw,Angle,Eps dimension UU(igit,nb,kgit),Aw(igit,nb,kgit), * Angle(igit,nb,kgit),Eps(igit,nb,kgit)