Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
make_xxxx_dist | Module: MO_BULK2M_DRIVER_GCM | File: BLK_DRV.f |
Author :
Version:
Declaration:
logical function make_xxxx_dist(dt0, ci, di, pi, rhow, cs, ds, dr, tk, pk, qsmall, tag, mx0) result(la)
- mx0 :
integer, intent(in)
- tk :
real*8, intent(in), dimension(mx0)
- pk :
real*8, intent(in), dimension(mx0)
- dt0 :
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)
- tag :
character(len=*), intent(in)
- lammax :
real*8
- lammin :
real*8
- dum :
real*8
- dtmic :
real*8
- i :
integer
- j :
integer
- k :
integer
- ind :
integer
- Initial Value
= 0
- sname :
character*16
- Initial Value
= 'make_xxxx_dist: '