UPP/PMICRPH_8f_source.html

      module pmicrph_mod


! -----  Constants related to microphysics

!          -- computed in paramr.f


!      REAL ABER1(31),ABER2(31)

! LOOKUP TABLE FOR A1 AND A2 IN BERGERON PROCESS


      implicit none


      REAL pi,ron,son,gon,br,bs,bg,drain,dsnow,          &

      dgraupel,ron2,diace_min,                           &

      drain2,dsnow2,                                     &

      topr,tops,topg,arain,asnow,agraupel,               &

      tno,ato,xsmax,berc1,bp,ap,cnp,frd1,fra1,efis,      &

      efir,efsr,efcs,efgi,efgc,efgr,efgs,efcr,acris,     &

      bacris,cir,cirf,cpiacr0,cpiacr1,cpiacr2,cpiacr3,   &

      frain,fsnow,fgraupel,csr,crs,                      &

      acrcs,bacrcs,rmc,acrls,bacls,acrcg,bacrcg,acrig,   &

      bacrig,crg,csg,depg1,depg2,depg3,depg4,deps1,      &

      deps2,deps3,deps4,acrcr,bacrcr,depr1,depr2,depr3,  &

      depr4,psm1,psm2,psm3,psm4,pgm1,pgm2,pgm3,pgm4,     &

      cw,hgfr,xm01,cnp1,dice,c1,alpha1,beta1,gamma3      &

!jmb--removed INT0 frm the real declaration since declared integer blo

      ,const1a,const1b,xm0s,xr0s,xm0g                    &

      ,acrcs_new,bacrcs_new,acrcg_new,bacrcg_new         &

      ,const_ns1,const_ns2,const_ng1,const_ng2,xr0g      &

      ,r1,slor_r1,slos_r1,slog_r1,rho_not                &

      ,qck1,qcth,ron_min,qr0,delqr0,const1r,const2r      &

      ,xnu


      INTEGER int0


     end module pmicrph_mod