Searched refs:mi0l (Results 1 – 1 of 1) sorted by relevance
521 REAL(KIND=r8) :: mi0l(mgncol) local1026 mi0l = qcic(:,k)/max(ncic(:,k), 1.0e6_r8/rho(:,k))1027 mi0l = max(mi0l_min, mi0l)1030 mnuccc(:,k) = nnuccc(:,k)*mi0l1032 mnucct(:,k) = nnucct(:,k)*mi0l