C*********************************************************************** C C Common blocks for ozpom.f C C*********************************************************************** C C This shows program name, version number and date - DO NOT CHANGE: C character*40 source_c parameter(source_c='ozpom version 1.10.0 2003-09-11 ') C C*********************************************************************** C C Array sizes: C integer $ im ,imm1 ,imm2 ,jm , $ jmm1 ,jmm2 ,kb ,kbm1 , $ kbm2 C C*********************************************************************** C C Set size of problem here: C parameter $ (im=65 ,jm=49 ,kb=21) ! For iproblem = 1 or 2 C parameter C $ (im=49 ,jm=49 ,kb=21) ! For iproblem = 3 or 4 C C*********************************************************************** C parameter $ (imm1=im-1 ,imm2=im-2 ,jmm1=jm-1 ,jmm2=jm-2 , $ kbm1=kb-1 ,kbm2=kb-2 ) C C----------------------------------------------------------------------- C C Scalars: C real $ alpha ,dte ,dti ,dti2 , $ grav ,hmax ,kappa ,pi , $ ramp ,rfe ,rfn ,rfs , $ rfw ,rhoref ,sbias ,slmax , $ small ,tbias ,time ,tprni , $ umol ,vmaxl C C (idens included for version 1.8.* only) C integer $ idens ,iint ,iprint ,iskp , $ jskp ,kl1 ,kl2 ,mode , $ ntp C common/blkcon/ $ alpha ,dte ,dti ,dti2 , $ grav ,hmax ,kappa ,pi , $ ramp ,rfe ,rfn ,rfs , $ rfw ,rhoref ,sbias ,slmax , $ small ,tbias ,time ,tprni , $ umol ,vmaxl , $ idens ,iint ,iprint ,iskp , $ jskp ,kl1 ,kl2 ,mode , $ ntp C C----------------------------------------------------------------------- C C 1-D arrays: C real $ dz ,dzz ,z ,zd , $ zz C common/blk1d/ $ dz(kb) ,dzz(kb) ,z(kb) ,zd(kb) , $ zz(kb) C C----------------------------------------------------------------------- C C 2-D arrays: C real $ aam2d ,advua ,advva ,adx2d , $ ady2d ,art ,aru ,arv , $ cbc ,cor ,d ,dep0 , $ drx2d ,dry2d ,dt ,dum , $ dvm ,dx ,dy ,east_c , $ east_e ,east_u ,east_v ,e_atmos , $ e_atmos0 ,egb ,egf ,el , $ elb ,elf ,et ,etb , $ etf ,fluxua ,fluxva ,fsm , $ h ,north_c ,north_e ,north_u , $ north_v ,psi ,rot ,sflux , $ ssurf ,swrad ,tflux ,tmp2d , $ tsurf ,ua ,uab ,uaf , $ utb ,utf ,va ,vab , $ vaf ,vfluxb ,vfluxf ,vtb , $ vtf ,wssurf ,wtsurf ,wubot , $ wusurf ,wvbot ,wvsurf C common/blk2d/ $ aam2d(im,jm) ,advua(im,jm) ,advva(im,jm) ,adx2d(im,jm) , $ ady2d(im,jm) ,art(im,jm) ,aru(im,jm) ,arv(im,jm) , $ cbc(im,jm) ,cor(im,jm) ,d(im,jm) ,dep0(im,jm) , $ drx2d(im,jm) ,dry2d(im,jm) ,dt(im,jm) ,dum(im,jm) , $ dvm(im,jm) ,dx(im,jm) ,dy(im,jm) ,east_c(im,jm) , $ east_e(im,jm) ,east_u(im,jm) ,east_v(im,jm) ,e_atmos(im,jm) , $ e_atmos0(im,jm),egb(im,jm) ,egf(im,jm) ,el(im,jm) , $ elb(im,jm) ,elf(im,jm) ,et(im,jm) ,etb(im,jm) , $ etf(im,jm) ,fluxua(im,jm) ,fluxva(im,jm) ,fsm(im,jm) , $ h(im,jm) ,north_c(im,jm) ,north_e(im,jm) ,north_u(im,jm) , $ north_v(im,jm) ,psi(im,jm) ,rot(im,jm) ,sflux(im,jm) , $ ssurf(im,jm) ,swrad(im,jm) ,tflux(im,jm) ,tmp2d(im,jm) , $ tsurf(im,jm) ,ua(im,jm) ,uab(im,jm) ,uaf(im,jm) , $ utb(im,jm) ,utf(im,jm) ,va(im,jm) ,vab(im,jm) , $ vaf(im,jm) ,vfluxb(im,jm) ,vfluxf(im,jm) ,vtb(im,jm) , $ vtf(im,jm) ,wssurf(im,jm) ,wtsurf(im,jm) ,wubot(im,jm) , $ wusurf(im,jm) ,wvbot(im,jm) ,wvsurf(im,jm) C C----------------------------------------------------------------------- C C 3-D arrays: C real $ a ,aam ,advx ,advy , $ boygr ,c ,curv ,drhox , $ drhoy ,dtef ,ee ,fbmem , $ gg ,gh ,kh ,km , $ kn ,kq ,l ,prod , $ q2 ,q2b ,q2l ,q2lb , $ rad ,rho ,rhtmp ,rmean , $ s ,sb ,sclim ,sh , $ sm ,stf ,t ,tb , $ tclim ,u ,ub ,uf , $ v ,vb ,vf ,w , $ xflux ,xmflx ,yflux ,ymflx , $ zflux ,zwflx C common/blk3d/ $ a(im,jm,kb) ,aam(im,jm,kb) ,advx(im,jm,kb) ,advy(im,jm,kb) , $ boygr(im,jm,kb),c(im,jm,kb) ,curv(im,jm,kb), drhox(im,jm,kb), $ drhoy(im,jm,kb),dtef(im,jm,kb) ,ee(im,jm,kb) ,fbmem(im,jm,kb), $ gg(im,jm,kb) ,gh(im,jm,kb) ,kh(im,jm,kb) ,km(im,jm,kb) , $ kn(im,jm,kb) ,kq(im,jm,kb) ,l(im,jm,kb) ,prod(im,jm,kb) , $ q2(im,jm,kb) ,q2b(im,jm,kb) ,q2l(im,jm,kb) ,q2lb(im,jm,kb) , $ rad(im,jm,kb) ,rho(im,jm,kb) ,rhtmp(im,jm,kb),rmean(im,jm,kb), $ s(im,jm,kb) ,sb(im,jm,kb) ,sclim(im,jm,kb),sh(im,jm,kb) , $ sm(im,jm,kb) ,stf(im,jm,kb) ,t(im,jm,kb) ,tb(im,jm,kb) , $ tclim(im,jm,kb),u(im,jm,kb) ,ub(im,jm,kb) ,uf(im,jm,kb) , $ v(im,jm,kb) ,vb(im,jm,kb) ,vf(im,jm,kb) ,w(im,jm,kb) , $ xflux(im,jm,kb),xmflx(im,jm,kb),yflux(im,jm,kb),ymflx(im,jm,kb), $ zflux(im,jm,kb),zwflx(im,jm,kb) C C----------------------------------------------------------------------- C C 1 and 2-D boundary value arrays: C real $ ele ,eln ,els ,elw , $ sbe ,sbn ,sbs ,sbw , $ tbe ,tbn ,tbs ,tbw , $ uabe ,uabw ,ube ,ubw , $ vabn ,vabs ,vbn ,vbs C common/bdry/ $ ele(jm) ,eln(im) ,els(im) ,elw(jm) , $ sbe(jm,kb) ,sbn(im,kb) ,sbs(im,kb) ,sbw(jm,kb) , $ tbe(jm,kb) ,tbn(im,kb) ,tbs(im,kb) ,tbw(jm,kb) , $ uabe(jm) ,uabw(jm) ,ube(jm,kb) ,ubw(jm,kb) , $ vabn(im) ,vabs(im) ,vbn(im,kb) ,vbs(im,kb) C C----------------------------------------------------------------------- C C Character variables: C character*26 $ time_start C character*40 $ source,title C common/blkchar/ $ time_start ,source ,title C C----------------------------------------------------------------------- C C End of common blocks C C----------------------------------------------------------------------- C