Searched refs:mi0l_min (Results 1 – 1 of 1) sorted by relevance
148 REAL(KIND=r8), parameter :: mi0l_min = 4._r8/3._r8*pi*rhow*(4.e-6_r8)**3 variable1027 mi0l = max(mi0l_min, mi0l)