| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_rtrnmc/src/ |
| H A D | kernel_rtrnmc.F90 | 79 REAL(KIND = r8) :: totdclfl(0 : nlay) local
227 IF ( ALL( outstate_totdclfl == totdclfl ) ) THEN
237 …WRITE(*,*) count( outstate_totdclfl /= totdclfl), " of ", size( totdclfl ), " elements are differe…
241 …ITE(*,*) "Mean value of kernel-generated outstate_totdclfl is ", sum(totdclfl)/real(size(totdclfl))
399 real(kind=r8), intent(out) :: totdclfl(0:) local
453 totdclfl(0) = 0.0_r8
462 totdclfl(lay) = 0.0_r8
605 totdclfl(lev) = totdclfl(lev) + dclfl(lev) * delwave(iband)
616 totdclfl(0) = totdclfl(0) * fluxfac
617 fnetc(0) = totuclfl(0) - totdclfl(0)
[all …]
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rad/src/ |
| H A D | rrtmg_lw_rtrnmc.F90 | 272 totdclfl(0) = 0.0_r8
281 totdclfl(lay) = 0.0_r8
464 totdclfl(lev) = totdclfl(lev) + dclfl(lev) * delwave(iband)
477 totdclfl(0) = totdclfl(0) * fluxfac
478 fnetc(0) = totuclfl(0) - totdclfl(0)
487 totdclfl(lev) = totdclfl(lev) * fluxfac
726 totdclfl(iplon,0) = 0.0_r8
735 totdclfl(iplon,lay) = 0.0_r8
918 totdclfl(iplon,lev) = totdclfl(iplon,lev) + dclfl(lev) * delwave(iband)
933 totdclfl(iplon,0) = totdclfl(iplon,0) * fluxfac
[all …]
|
| H A D | rrtmg_lw_rad.F90 | 372 REAL(KIND=r8) :: totdclfl(ncol,0:nlay) ! clear sky downward longwave flux (w/m2) local
513 …totuclfl(iplon,:), totdclfl(iplon,:), fnetc(iplon,:), htrc(iplon,:), totufluxs(iplon,:,:), totdflu…
526 totuclfl, totdclfl, fnetc, htrc, totufluxs, totdfluxs )
535 dflxc(iplon,k+1) = totdclfl(iplon,k)
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rtrnmc/src/ |
| H A D | rrtmg_lw_rtrnmc.f90 | 47 …pwvcm, fracs, taut, totuflux, totdflux, fnet, htr, totuclfl, totdclfl, fnetc, htrc, totufluxs, tot… argument
109 REAL(KIND=r8), intent(out) :: totdclfl(:,0:) ! clear sky downward longwave flux (w/m2) local
273 totdclfl(iplon,0) = 0.0_r8
282 totdclfl(iplon,lay) = 0.0_r8
465 totdclfl(iplon,lev) = totdclfl(iplon,lev) + dclfl(lev) * delwave(iband)
480 totdclfl(iplon,0) = totdclfl(iplon,0) * fluxfac
481 fnetc(iplon,0) = totuclfl(iplon,0) - totdclfl(iplon,0)
492 totdclfl(iplon,lev) = totdclfl(iplon,lev) * fluxfac
493 fnetc(iplon,lev) = totuclfl(iplon,lev) - totdclfl(iplon,lev)
|
| H A D | rrtmg_lw_rad.f90 | 339 REAL(KIND=r8) :: totdclfl(ncol,0:nlay) local
408 READ(UNIT=kgen_unit) totdclfl
429 totuclfl, totdclfl, fnetc, htrc, totufluxs, totdfluxs )
438 CALL kgen_verify_real_r8_dim2( "totdclfl", check_status, totdclfl, ref_totdclfl)
444 … plankbnd, pwvcm, fracs, taut, totuflux, totdflux, fnet, htr, totuclfl, totdclfl, fnetc, htrc, tot…
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_inatm/src/ |
| H A D | rrtmg_lw_rad.f90 | 135 real(kind=r8) :: totdclfl(0:nlay) local
380 … totuflux, totdflux, fnet, htr, totuclfl, totdclfl, fnetc, htrc, tot…
385 dflxc(iplon,k+1) = totdclfl(k)
|