Index | Rundeck: E6TomaF40 | Created: Sat May 18 03:30:40 EDT 2024 |
set_micro_bulk2m_mat | Module: MO_BULK2M_DRIVER_GCM | File: BLK_DRV.f |
Author :
Version:
Declaration:
logical function set_micro_bulk2m_mat(tag, nc0, qc0, ni0, qi0, na0, nm0, tag0, nr0, qr0, ns0, qs0) result (la)
- tag :
character(len=*), intent(in)
- tag0 :
character(len=*), intent(in)
- nc0 :
real*8, dimension(:), intent(in)
- qc0 :
real*8, dimension(:), intent(in)
- ni0 :
real*8, dimension(:), intent(in)
- qi0 :
real*8, dimension(:), intent(in)
- na0 :
real*8, dimension(:, :), intent(in)
- nr0 :
real*8, dimension(:), intent(in), optional
- qr0 :
real*8, dimension(:), intent(in), optional
- ns0 :
real*8, dimension(:), intent(in), optional
- qs0 :
real*8, dimension(:), intent(in), optional
- nm0 :
integer, intent(in)
- mx0 :
integer
- sname :
character*22
- Initial Value
= 'set_micro_bulk2m_mat: '
- nr00 :
real*8, dimension(size(nc0, 1))
- qr00 :
real*8, dimension(size(nc0, 1))
- ns00 :
real*8, dimension(size(nc0, 1))
- qs00 :
real*8, dimension(size(nc0, 1))
- dtmic :
real*8