Searched refs:dplnkup (Results 1 – 3 of 3) sorted by relevance
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/ |
H A D | mo_lrtm_solver.f90 | 58 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 D | mo_lrtm_solver.f90 | 58 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 D | mo_lrtm_solver.f90 | 58 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…
|