wrfv2_fire/phys/module_data_gocart_dust.F

   1 Module module_data_gocart_dust
   2   INTEGER, PARAMETER :: ndust=5,ndcls=3,ndsrc=1,maxstypes=100
   3   real, dimension (maxstypes) :: porosity
   4   REAL :: ch_dust(ndust,12)
   5   REAL,    PARAMETER :: dyn_visc = 1.5E-5
   6   real*8, DIMENSION (5), PARAMETER :: den_dust(5)=(/2500.,2650.,2650.,2650.,2650./)
   7   real*8, DIMENSION (5), PARAMETER :: reff_dust(5)=(/0.73D-6,1.4D-6,2.4D-6,4.5D-6,8.0D-6/)
   8   INTEGER, DIMENSION (5), PARAMETER :: ipoint(5)=(/3,2,2,2,2/)
   9   REAL, DIMENSION (5), PARAMETER :: frac_s(5)=(/0.1,0.25,0.25,0.25,0.25/)
  10 END Module module_data_gocart_dust