Home
last modified time | relevance | path

Searched refs:dplnkup (Results 1 – 3 of 3) sorted by relevance

/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/
H A Dmo_lrtm_solver.f9058 REAL(KIND=wp) :: dplnkup(kbdim,klev) local
101 dplnkup(1:kproma,jk) = levplnk(1:kproma,jk) - layplnk(1:kproma,jk)
103 …bbup(1:kproma,jk) = weights(1:kproma,jk) * (layplnk(1:kproma,jk) + dplnkup(1:kproma,jk) * tfn(1:kp…
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/
H A Dmo_lrtm_solver.f9058 REAL(KIND=wp) :: dplnkup(kbdim,klev) local
101 dplnkup(1:kproma,jk) = levplnk(1:kproma,jk) - layplnk(1:kproma,jk)
103 …bbup(1:kproma,jk) = weights(1:kproma,jk) * (layplnk(1:kproma,jk) + dplnkup(1:kproma,jk) * tfn(1:kp…
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/
H A Dmo_lrtm_solver.f9058 REAL(KIND=wp) :: dplnkup(kbdim,klev) local
101 dplnkup(1:kproma,jk) = levplnk(1:kproma,jk) - layplnk(1:kproma,jk)
103 …bbup(1:kproma,jk) = weights(1:kproma,jk) * (layplnk(1:kproma,jk) + dplnkup(1:kproma,jk) * tfn(1:kp…