! !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! The following common blocks are used in the TC-scale model. ! The meanings of their elements are listed below: !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! nt ----- the counting number of time steps of model integration ! nttb---- time steps for the TKE initialization ! ktops--- Bottom level above which spounge layer is applied ! integer nt,nttb,ktops,nstep common /contrl/nt,nttb,ktops,nstep ! ! dtph --- fractional time steps for time integration of TKE and ! the precipitating terms in the cloud microphysics scheme ! tsf0---- temperature at sea surface ! taa ---- the time scale for Newtonian cooling ! real dtph,tsf0,taa,epsl,vip(2:kmx,2),tvbh(kmx) common /cddt/dtph,tsf0,taa,epsl,vip,tvbh ! ! sig ---- sigma at full levels (TKE, ...) ! sig1---- sigma at half levels (u,v,t,qv, ...) ! dsig --- thickness of the model layers between full levels ! dsig1 -- thickness between the half levels ! dsghl -- dsig(k-1)/dsig(k) ! real sig(kmx1),sig1(kmx),dsig(kmx) real dsig1(kmx1),dsghl(2:kmx) common /csig/sig,sig1,dsig,dsig1,dsghl ! ! rsig --- 1/sig ! rdsig -- 1/dsig ! rdsig1 - 1/dsig1 ! real rsig(kmx1),rdsig(kmx),rdsig1(kmx1) common /crsig/rsig,rdsig,rdsig1 ! ! thb ---- basic potential temperature at u,v levels ! pib ---- Exner function of basic state at u,v levels ! pibh --- Exner function of basic state at half levels ! real thb(kmx),pib(kmx),pibh(kmx1),qb(kmx) common /thbpib/thb,pib,pibh,qb ! ! vp1,vp2,vp3 -- constant in vertical sound-wave equations ! real vp1(kmx),vp2(kmx),vp3(kmx),thvb(kmx) common /v123/vp1,vp2,vp3,thvb ! ! jt0 ---- nearest integal zonal gridpoint of tropical cyclone centre ! it0 ---- nearest integal meridional gridpoint of TC centre ! psmin--- minimum surface pressure at TC centre ! integer jt0,it0 real psmin common /ijt0/jt0,it0,psmin ! ! vmm ---- maximum wind speed at lowest model level ! prm ---- time sequence of minimum surface pressure ! xpt ---- time sequence of TC centre in the coarse mesh domain ! ypt ---- time sequence of TC centre in the coarse mesh domain ! rmw ---- time sequence of radius of maximum wind ! real vmm(nn),prm(nn),xpt(nn),ypt(nn),rmw(nn) common /xytc/vmm,prm,xpt,ypt,rmw ! ! zz --- Height of half sigma-levels ! poz -- Height of sigma-levles ! real zz(kmx1),poz(kmx),aml(kmx),amh(kmx) common /czzp/zz,poz,aml,amh ! ! common block for sensitivity and physical process studies ! integer nphy,nevp,micr,ngh,ihadv,ihadq common /comexp1/nphy,nevp,micr,ngh,ihadv,ihadq integer nenv,isfclyr,idrag,ndisht common /cominit/nenv,isfclyr,idrag,ndisht ! ! Ends common block section !