| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_inatm/src/ |
| H A D | kernel_inatm.F90 | 41 REAL(KIND = r8) :: wbrodl(nlay) local
155 coldry, wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &
276 IF ( ALL( outstate_wbrodl == wbrodl ) ) THEN
286 … WRITE(*,*) count( outstate_wbrodl /= wbrodl), " of ", size( wbrodl ), " elements are different."
287 …WRITE(*,*) "RMS of difference is ", sqrt(sum((outstate_wbrodl - wbrodl)**2)/real(size(outstate_wbr…
288 WRITE(*,*) "Minimum difference is ", minval(abs(outstate_wbrodl - wbrodl))
289 WRITE(*,*) "Maximum difference is ", maxval(abs(outstate_wbrodl - wbrodl))
290 … WRITE(*,*) "Mean value of kernel-generated outstate_wbrodl is ", sum(wbrodl)/real(size(wbrodl))
543 wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag,&
581 real(kind=r8), intent(out) :: wbrodl(:) local
[all …]
|
| H A D | kernel_inatm.F90_orig | 41 REAL(KIND = r8) :: wbrodl(nlay)
261 IF ( ALL( outstate_wbrodl == wbrodl ) ) THEN
262 WRITE(*,*) "All elements of wbrodl are IDENTICAL."
264 !WRITE(*,*) "KERNEL: ", wbrodl
269 WRITE(*,*) "wbrodl is NOT IDENTICAL."
270 … WRITE(*,*) count( outstate_wbrodl /= wbrodl), " of ", size( wbrodl ), " elements are different."
272 WRITE(*,*) "Minimum difference is ", minval(abs(outstate_wbrodl - wbrodl))
273 WRITE(*,*) "Maximum difference is ", maxval(abs(outstate_wbrodl - wbrodl))
274 … WRITE(*,*) "Mean value of kernel-generated outstate_wbrodl is ", sum(wbrodl)/real(size(wbrodl))
533 real(kind=r8), intent(out) :: wbrodl(:)
[all …]
|
| H A D | rrtmg_lw_rad.f90 | 81 real(kind=r8) :: wbrodl(nlay) local
313 …mcl, relqmcl, tauaer, pavel, pz, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, wx, pwvcm, inflag…
315 … pavel, pz, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, wx, pwvcm, inflag…
332 WRITE(UNIT = kgen_unit) wbrodl
365 …rt, pavel, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, …
424 …mcl, relqmcl, tauaer, pavel, pz, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, wx, pwvcm, inflag… argument
465 real(kind=r8), intent(out) :: wbrodl(:) local
537 wbrodl(l) = coldry(l) * (1._r8 - summol)
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rad/src/ |
| H A D | rrtmg_lw_rad.F90 | 288 REAL(KIND=r8) :: wbrodl(ncol,nlay) ! broadening gas column density (mol/cm2) local
414 wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &
448 coldry(iplon,:), wkl(iplon,:,:), wbrodl(iplon,:), &
462 coldry, wkl, wbrodl, &
549 …relqmcl, tauaer, pavel, pz, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, wx, pwvcm, inflag, ice… argument
634 REAL(KIND=r8), intent(out) :: wbrodl(:,:) ! broadening gas column density (mol/cm2) local
771 wbrodl(iplon,l) = coldry(iplon,l) * (1._r8 - summol)
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_inatm/src/ |
| H A D | rrtmg_lw_rad.f90 | 282 REAL(KIND=r8) :: wbrodl(ncol,nlay) local
395 READ(UNIT=kgen_unit) wbrodl
443 wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &
452 CALL kgen_verify_real_r8_dim2( "wbrodl", check_status, wbrodl, ref_wbrodl)
775 …relqmcl, tauaer, pavel, pz, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, wx, pwvcm, inflag, ice… argument
860 REAL(KIND=r8), intent(out) :: wbrodl(:,:) ! broadening gas column density (mol/cm2) local
985 wbrodl(iplon,l) = coldry(iplon,l) * (1._r8 - summol)
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_setcoef/src/ |
| H A D | rrtmg_lw_rad.f90 | 272 REAL(KIND=r8) :: wbrodl(ncol,nlay) ! broadening gas column density (mol/cm2) local
441 READ(UNIT=kgen_unit) wbrodl
531 coldry, wkl, wbrodl, &
585 … CALL setcoef(ncol, nlay, istart, pavel, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, laytrop, &
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/ |
| H A D | mo_lrtm_driver.f90 | 152 REAL(KIND=wp) :: wbrodl (kbdim,klev) local
282 wbrodl(1:kproma,1:klev) = coldry(1:kproma,1:klev) - sum(wkl(1:kproma,2:,1:klev), dim=2)
283 …CALL lrtm_coeffs(kproma, kbdim, klev, play, tlay, coldry, wkl, wbrodl, laytrop, jp, jt, jt1, colh2…
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/ |
| H A D | mo_lrtm_driver.f90 | 169 REAL(KIND=wp) :: wbrodl (kbdim,klev) local
303 wbrodl(1:kproma,1:klev) = coldry(1:kproma,1:klev) - sum(wkl(1:kproma,2:,1:klev), dim=2)
304 …CALL lrtm_coeffs(kproma, kbdim, klev, play, tlay, coldry, wkl, wbrodl, laytrop, jp, jt, jt1, colh2…
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/ |
| H A D | mo_lrtm_driver.f90 | 169 REAL(KIND=wp) :: wbrodl (kbdim,klev) local
305 wbrodl(1:kproma,1:klev) = coldry(1:kproma,1:klev) - sum(wkl(1:kproma,2:,1:klev), dim=2)
306 …CALL lrtm_coeffs(kproma, kbdim, klev, play, tlay, coldry, wkl, wbrodl, laytrop, jp, jt, jt1, colh2…
|