source: lmdz_wrf/trunk/WRFV3/phys/module_data_gocart_dust.F @ 354

Last change on this file since 354 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

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.