source: trunk/WRF.COMMON/WRFV3/phys/module_data_gocart_dust.F

Last change on this file was 2759, checked in by aslmd, 2 years ago

adding unmodified code from WRFV3.0.1.1, expurged from useless data +1M size
File size: 552 bytes
Line 
1Module 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/)
10END Module module_data_gocart_dust
Note: See TracBrowser for help on using the repository browser.