Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
make_distribution0 | Module: MO_BULK2M_DRIVER_GCM | File: BLK_DRV.f |
Author :
Version:
Declaration:
logical function make_distribution0(tk, pk, dt, ci, di, pi, rhow, cs, ds, dr, qsmall, mx0) result (la)
- mx0 :
integer, intent(in)
- tk :
real*8, intent(in), dimension(mx0)
- pk :
real*8, intent(in), dimension(mx0)
- dt :
real*8, intent(in)
- ci :
real*8, intent(in)
- di :
real*8, intent(in)
- pi :
real*8, intent(in)
- rhow :
real*8, intent(in)
- cs :
real*8, intent(in)
- ds :
real*8, intent(in)
- dr :
real*8, intent(in)
- qsmall :
real*8, intent(in)
- lammax :
real*8
- lammin :
real*8
- dum :
real*8
- i :
integer
- j :
integer
- k :
integer
- sname :
character*20
- Initial Value
= 'make_distribution0: '