Home
last modified time | relevance | path

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

/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rad/src/
H A Drrtmg_lw_rtrnmc.F90146 REAL(KIND=r8) :: plfrac local
312 plfrac = fracs(lev,igc)
329 bbd = plfrac*(blay+dplankdn*odepth_rec)
367 bbd = plfrac*(blay+tfacgas*dplankdn)
382 bbd = plfrac*(blay+dplankdn*odepth)
390 bbd = plfrac*(blay+tausfac*dplankdn)
598 REAL(KIND=r8) :: plfrac local
766 plfrac = fracs(iplon,lev,igc)
821 bbd = plfrac*(blay+tfacgas*dplankdn)
836 bbd = plfrac*(blay+dplankdn*odepth)
[all …]
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rtrnmc/src/
H A Drrtmg_lw_rtrnmc.f90145 REAL(KIND=r8) :: plfrac local
313 plfrac = fracs(iplon,lev,igc)
329 bbdtot = plfrac * (blay+dplankdn*odtot_rec)
330 bbd = plfrac*(blay+dplankdn*odepth_rec)
346 bbdtot = plfrac * (blay + tfactot*dplankdn)
347 bbd = plfrac*(blay+dplankdn*odepth_rec)
367 bbdtot = plfrac * (blay + tfactot*dplankdn)
368 bbd = plfrac*(blay+tfacgas*dplankdn)
383 bbd = plfrac*(blay+dplankdn*odepth)
384 bbugas(lev) = plfrac*(blay+dplankup*odepth)
[all …]
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_rtrnmc/src/
H A Dkernel_rtrnmc.F90487 plfrac = fracs(lev,igc)
502 bbdtot = plfrac * (blay+dplankdn*odtot_rec)
503 bbd = plfrac*(blay+dplankdn*odepth_rec)
507 bbutot(lev) = plfrac * (blay+dplankup*odtot_rec)
516 bbdtot = plfrac * (blay + tfactot*dplankdn)
517 bbd = plfrac*(blay+dplankdn*odepth_rec)
534 bbdtot = plfrac * (blay + tfactot*dplankdn)
535 bbd = plfrac*(blay+tfacgas*dplankdn)
546 bbd = plfrac*(blay+dplankdn*odepth)
547 bbugas(lev) = plfrac*(blay+dplankup*odepth)
[all …]