Home
last modified time | relevance | path

Searched refs:pwvcm (Results 1 – 15 of 15) sorted by relevance

/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/
H A Dmo_lrtm_solver.f90138 elemental FUNCTION find_secdiff(iband, pwvcm)
141 REAL(KIND=wp), intent(in) :: pwvcm local
157 … find_secdiff = max(min(a0(iband) + a1(iband) * exp(a2(iband)*pwvcm), 1.8_wp), 1.5_wp)
H A Dmo_lrtm_driver.f90110 REAL(KIND=wp) :: pwvcm(kbdim) local
337 …pwvcm(1:kproma) = ((amw * sum(wkl(1:kproma,1,1:klev), dim=2)) / (amd * sum(…
343 secdiff(1:kproma) = find_secdiff(ibs(1:kproma, ig), pwvcm(1:kproma))
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/
H A Dmo_lrtm_solver.f90138 elemental FUNCTION find_secdiff(iband, pwvcm)
141 REAL(KIND=wp), intent(in) :: pwvcm local
157 … find_secdiff = max(min(a0(iband) + a1(iband) * exp(a2(iband)*pwvcm), 1.8_wp), 1.5_wp)
H A Dmo_lrtm_driver.f90125 REAL(KIND=wp) :: pwvcm(kbdim) local
409 …pwvcm(1:kproma) = ((amw * sum(wkl(1:kproma,1,1:klev), dim=2)) / (amd * sum(…
415 secdiff(1:kproma) = find_secdiff(ibs(1:kproma, ig), pwvcm(1:kproma))
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/
H A Dmo_lrtm_solver.f90138 elemental FUNCTION find_secdiff(iband, pwvcm)
141 REAL(KIND=wp), intent(in) :: pwvcm local
157 … find_secdiff = max(min(a0(iband) + a1(iband) * exp(a2(iband)*pwvcm), 1.8_wp), 1.5_wp)
H A Dmo_lrtm_driver.f90125 REAL(KIND=wp) :: pwvcm(kbdim) local
429 …pwvcm(1:kproma) = ((amw * sum(wkl(1:kproma,1,1:klev), dim=2)) / (amd * sum(…
435 secdiff(1:kproma) = find_secdiff(ibs(1:kproma, ig), pwvcm(1:kproma))
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_inatm/src/
H A Dkernel_inatm.F9065 REAL(KIND = r8) :: pwvcm local
155 coldry, wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &
436 IF ( outstate_pwvcm == pwvcm ) THEN
438 ELSE IF ( ABS(outstate_pwvcm-pwvcm)/ABS(outstate_pwvcm) < 1.0e-15 ) THEN
441 WRITE(*,*) "KERNEL: ", pwvcm
442 WRITE(*,*) "Relative diff", ABS(ABS(outstate_pwvcm)-ABS(pwvcm))/ABS(outstate_pwvcm)
447 WRITE(*,*) "KERNEL: ", pwvcm
543 wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag,&
584 real(kind=r8), intent(out) :: pwvcm local
661 pwvcm = wvsh * (1.e3_r8 * pz(0)) / (1.e2_r8 * grav)
H A Drrtmg_lw_rad.f9084 real(kind=r8) :: pwvcm local
313 …l, tauaer, pavel, pz, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, wx, pwvcm, inflag, iceflag, …
315 …el, pz, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, wx, pwvcm, inflag, iceflag, …
342 WRITE(UNIT = kgen_unit) pwvcm
380 … cldfmc, taucmc, planklay, planklev, plankbnd, pwvcm, fracs, taut, …
424 …l, tauaer, pavel, pz, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, wx, pwvcm, inflag, iceflag, … argument
468 real(kind=r8), intent(out) :: pwvcm local
550 pwvcm = wvsh * (1.e3_r8 * pz(0)) / (1.e2_r8 * grav)
H A Dkernel_inatm.F90_orig65 REAL(KIND = r8) :: pwvcm
148 …l, tauaer, pavel, pz, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, wx, pwvcm, inflag, iceflag, …
411 IF ( outstate_pwvcm == pwvcm ) THEN
412 WRITE(*,*) "pwvcm is IDENTICAL( ", outstate_pwvcm, " )."
414 WRITE(*,*) "pwvcm is NOT IDENTICAL."
416 WRITE(*,*) "KERNEL: ", pwvcm
496 …el, pz, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, wx, pwvcm, inflag, iceflag, …
536 real(kind=r8), intent(out) :: pwvcm
613 pwvcm = wvsh * (1.e3_r8 * pz(0)) / (1.e2_r8 * grav)
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_rtrnmc/src/
H A Dkernel_rtrnmc.F9068 REAL(KIND = r8) :: pwvcm local
116 READ(UNIT = kgen_unit) pwvcm
160 taucmc, planklay, planklev, plankbnd, pwvcm, fracs, taut, &
376 pwvcm, fracs, taut,&
384 real(kind=r8), intent(in) :: pwvcm local
441 secdiff(ibnd) = a0(ibnd) + a1(ibnd)*exp(a2(ibnd)*pwvcm)
444 if (pwvcm.lt.1.0) secdiff(6) = 1.80_r8
445 if (pwvcm.gt.7.1) secdiff(7) = 1.50_r8
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rtrnmc/src/
H A Drrtmg_lw_rad.f90275 REAL(KIND=r8) :: pwvcm(ncol) ! precipitable water vapor (cm) local
391 READ(UNIT=kgen_unit) pwvcm
427 pwvcm, fracs, taut, &
444 … iout, pz, semiss, ncbands, cldfmc, taucmc, planklay, planklev, plankbnd, pwvcm, fracs, taut, totu…
H A Drrtmg_lw_rtrnmc.f9047 …pwvcm, fracs, taut, totuflux, totdflux, fnet, htr, totuclfl, totdclfl, fnetc, htrc, totufluxs, tot… argument
77 REAL(KIND=r8), intent(in) :: pwvcm(:) ! precipitable water vapor (cm) local
261 secdiff(ibnd) = a0(ibnd) + a1(ibnd)*exp(a2(ibnd)*pwvcm(iplon))
264 if (pwvcm(iplon).lt.1.0) secdiff(6) = 1.80_r8
265 if (pwvcm(iplon).gt.7.1) secdiff(7) = 1.50_r8
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rad/src/
H A Drrtmg_lw_rtrnmc.F9050 …rs, istart, iend, iout, pz, semiss, ncbands, cldfmc, taucmc, planklay, planklev, plankbnd, pwvcm, & argument
80 REAL(KIND=r8), intent(in) :: pwvcm ! precipitable water vapor (cm) local
260 secdiff(ibnd) = a0(ibnd) + a1(ibnd)*exp(a2(ibnd)*pwvcm)
263 if (pwvcm.lt.1.0) secdiff(6) = 1.80_r8
264 if (pwvcm.gt.7.1) secdiff(7) = 1.50_r8
499 …rs, istart, iend, iout, pz, semiss, ncbands, cldfmc, taucmc, planklay, planklev, plankbnd, pwvcm, & argument
530 REAL(KIND=r8), intent(in) :: pwvcm(:) ! precipitable water vapor (cm) local
714 secdiff(ibnd) = a0(ibnd) + a1(ibnd)*exp(a2(ibnd)*pwvcm(iplon))
717 if (pwvcm(iplon).lt.1.0) secdiff(6) = 1.80_r8
718 if (pwvcm(iplon).gt.7.1) secdiff(7) = 1.50_r8
H A Drrtmg_lw_rad.F90291 REAL(KIND=r8) :: pwvcm(ncol) ! precipitable water vapor (cm) local
414 wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &
511 pwvcm(iplon), fracs(iplon,:,:), taut(iplon,:,:), &
524 pwvcm, fracs, taut, &
549 …relqmcl, tauaer, pavel, pz, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, wx, pwvcm, inflag, ice… argument
640 REAL(KIND=r8), intent(out) :: pwvcm(:) ! precipitable water vapor (cm) local
784 pwvcm(iplon) = wvsh * (1.e3_r8 * pz(iplon,0)) / (1.e2_r8 * grav)
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_inatm/src/
H A Drrtmg_lw_rad.f90288 REAL(KIND=r8) :: pwvcm(ncol) local
398 READ(UNIT=kgen_unit) pwvcm
443 wkl, wbrodl, wx, pwvcm, inflag, iceflag, liqflag, &
455 CALL kgen_verify_real_r8_dim1( "pwvcm", check_status, pwvcm, ref_pwvcm)
775 …relqmcl, tauaer, pavel, pz, tavel, tz, tbound, semiss, coldry, wkl, wbrodl, wx, pwvcm, inflag, ice… argument
866 REAL(KIND=r8), intent(out) :: pwvcm(:) ! precipitable water vapor (cm) local
998 pwvcm(iplon) = wvsh * (1.e3_r8 * pz(iplon,0)) / (1.e2_r8 * grav)