Searched refs:radclru (Results 1 – 3 of 3) sorted by relevance
165 REAL(KIND=r8) :: radclru local416 radclru = rad0 + reflect * radclrd419 clrurad(0) = clrurad(0) + radclru439 radclru = radclru + (bbugas(lev)-radclru)*atrans(lev) 440 clrurad(lev) = clrurad(lev) + radclru442 radclru = radlu617 REAL(KIND=r8) :: radclru local870 radclru = rad0 + reflect * radclrd873 clrurad(0) = clrurad(0) + radclru893 radclru = radclru + (bbugas(lev)-radclru)*atrans(lev) [all …]
164 REAL(KIND=r8) :: radclru local417 radclru = rad0 + reflect * radclrd420 clrurad(0) = clrurad(0) + radclru440 radclru = radclru + (bbugas(lev)-radclru)*atrans(lev) 441 clrurad(lev) = clrurad(lev) + radclru443 radclru = radlu
425 real(kind=r8) :: rad0, reflect, radlu, radclru local571 radclru = rad0 + reflect * radclrd573 clrurad(0) = clrurad(0) + radclru584 radclru = radclru + (bbugas(lev)-radclru)*atrans(lev)585 clrurad(lev) = clrurad(lev) + radclru587 radclru = radlu