Searched refs:faloutni (Results 1 – 1 of 1) sorted by relevance
544 REAL(KIND=r8) :: faloutni(nlev) local1554 faloutni = fni * dumni(i,:)1557 faloutni = 0._r81563 faltndni = faloutni(k)/pdel(i,k)1580 faltndni = (faloutni(k)-dum1*faloutni(k-1))/pdel(i,k)