Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
hugh_make_crys_nucleation | Module: MO_BULK2M_DRIVER_GCM | File: BLK_DRV.f |
Author :
Version:
Declaration:
logical function hugh_make_crys_nucleation(dtmic, mx0) result(la)
- temp1 :
real*8, parameter
- Initial Value
= -5.0d0
- temp2 :
real*8, parameter
- Initial Value
= -2.0d0
- temp3 :
real*8, parameter
- Initial Value
= -20.0d0
- as_meyers :
real*8, parameter
- Initial Value
= -0.639d0
- bs_meyers :
real*8, parameter
- Initial Value
= 0.1296d0
- cs_meyers :
real*8, parameter
- Initial Value
= 1.0d3
- at_meyers :
real*8, parameter
- Initial Value
= -2.8d0
- bt_meyers :
real*8, parameter
- Initial Value
= 0.2620d0
- ct_meyers :
real*8, parameter
- Initial Value
= 1.0d3
- dtmic :
real*8, intent(in)
- mx0 :
integer, intent(in)
- dum :
real*8
- dumt :
real*8
- dumqv :
real*8
- dumqsi :
real*8
- dumqss :
real*8
- kc2 :
real*8
- wef :
real*8
- kc0 :
real*8
- kc1 :
real*8
- supw :
real*8
- supi :
real*8
- tpc :
real*8
- nacnt :
real*8
- nacns :
real*8
- sw :
real*8, dimension(size(nc3d, 1))
- si :
real*8, dimension(size(nc3d, 1))
- lcnucl :
logical, dimension(size(nc3d, 1))
- k :
integer
- lmeyers :
logical
- lmeyerss :
logical
- lmeyerst :
logical
- lhugh :
logical
- sname :
character*27
- Initial Value
= 'hugh_make_crys_nucleation: '