Home
last modified time | relevance | path

Searched refs:minorfrac (Results 1 – 19 of 19) sorted by relevance

/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/
H A Dmo_taumol03.f9053 fac0, fac1, minorfrac, & argument
70 …real(kind=wp), intent(in), dimension(startCol:ncol,nlayers) :: minorfrac ! not s… local
289 fmn2omf(icol) = minorfrac(icol,lay)*fmn2o(icol)
304 absn2o(icol) = n2om1(icol) + minorfrac(icol,lay)*(n2om2(icol) -n2om1(icol))
365 fac0, fac1, minorfrac, & argument
395 …real(kind=wp), intent(in), dimension(startCol:ncol,nlayers) :: minorfrac ! not sure of ncol d… local
523 fmn2omf(icol) = minorfrac(icol,lay)*fmn2o(icol)
558 absn2o(icol) = n2om1(icol) + minorfrac(icol,lay)*(n2om2(icol) -n2om1(icol))
H A Dmo_lrtm_driver.f90179 REAL(KIND=wp) :: minorfrac (kbdim,klev) local
309 … selffrac, indself, forfac, forfrac, indfor, minorfrac, scaleminor, scaleminorn2, indminor)
339 … rrpk_fac0(jlBegin:jl,:,:), rrpk_fac1(jlBegin:jl,:,:), minorfrac(jlBegin:jl,:), &
347 … rrpk_fac0(jlBegin:jl,:,:), rrpk_fac1(jlBegin:jl,:,:), minorfrac(jlBegin:jl,:), &
362 rrpk_fac0(1:jl,:,:), rrpk_fac1(1:jl,:,:), minorfrac(1:jl,:), &
369 rrpk_fac0(1:jl,:,:), rrpk_fac1(1:jl,:,:), minorfrac(1:jl,:), &
396 … (jl,:), indself (jl,:), forfac (jl,:), forfrac (jl,:), indfor (jl,:), minorfrac (&
H A Dmo_taumol04.f9052 fac0, fac1, minorfrac, & argument
68 …real(kind=wp), intent(in), dimension(ncol,nlayers) :: minorfrac ! not sure of nc… local
288 fac0, fac1, minorfrac, & argument
313 … real(kind=wp), intent(in), dimension(ncol,nlayers) :: minorfrac ! not sure of ncol depend local
H A Dmo_lrtm_gas_optics.f90219 REAL(KIND=wp), intent(in) :: minorfrac(:) local
562 fmn2omf = minorfrac(lay)*fmn2o
653 absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)
716 fmn2omf = minorfrac(lay)*fmn2o
744 absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)
1176 abso3 = o3m1 + minorfrac(lay)*(o3m2-o3m1)
1525 absco2 = co2m1 + minorfrac(lay) * (co2m2 - co2m1)
1901 absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)
2490 absco2 = co2m1 + minorfrac(lay) * (co2m2 - co2m1)
2494 absco = com1 + minorfrac(lay) * (com2 - com1)
[all …]
H A Dmo_rrtm_coeffs.f9025 indself, forfac, forfrac, indfor, minorfrac, scaleminor, scaleminorn2, indminor) argument
89 REAL(KIND=wp), intent(out) :: minorfrac(kbdim,klev) local
149 …minorfrac(1:kproma,1:klev) = (tlay(1:kproma,1:klev)-180.8_wp)/7.2_wp - float(indminor(1:kproma,1:k…
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/
H A Dmo_taumol03.f9053 fac0, fac1, minorfrac, & argument
69 …real(kind=wp), intent(in), dimension(ncol,nlayers) :: minorfrac ! not sure of nc… local
289 fmn2omf(icol) = minorfrac(icol,lay)*fmn2o(icol)
304 absn2o(icol) = n2om1(icol) + minorfrac(icol,lay)*(n2om2(icol) -n2om1(icol))
365 fac0, fac1, minorfrac, & argument
394 … real(kind=wp), intent(in), dimension(ncol,nlayers) :: minorfrac ! not sure of ncol depend local
522 fmn2omf(icol) = minorfrac(icol,lay)*fmn2o(icol)
557 absn2o(icol) = n2om1(icol) + minorfrac(icol,lay)*(n2om2(icol) -n2om1(icol))
H A Dmo_lrtm_driver.f90179 REAL(KIND=wp) :: minorfrac (kbdim,klev) local
307 … selffrac, indself, forfac, forfrac, indfor, minorfrac, scaleminor, scaleminorn2, indminor)
329 rrpk_fac0(1:jl,:,:), rrpk_fac1(1:jl,:,:), minorfrac(1:jl,:), &
336 rrpk_fac0(1:jl,:,:), rrpk_fac1(1:jl,:,:), minorfrac(1:jl,:), &
346 rrpk_fac0(1:jl,:,:), rrpk_fac1(1:jl,:,:), minorfrac(1:jl,:), &
353 rrpk_fac0(1:jl,:,:), rrpk_fac1(1:jl,:,:), minorfrac(1:jl,:), &
378 … (jl,:), indself (jl,:), forfac (jl,:), forfrac (jl,:), indfor (jl,:), minorfrac (&
H A Dmo_taumol04.f9052 fac0, fac1, minorfrac, & argument
68 …real(kind=wp), intent(in), dimension(ncol,nlayers) :: minorfrac ! not sure of nc… local
288 fac0, fac1, minorfrac, & argument
313 … real(kind=wp), intent(in), dimension(ncol,nlayers) :: minorfrac ! not sure of ncol depend local
H A Dmo_lrtm_gas_optics.f90219 REAL(KIND=wp), intent(in) :: minorfrac(:) local
554 fmn2omf = minorfrac(lay)*fmn2o
645 absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)
708 fmn2omf = minorfrac(lay)*fmn2o
736 absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)
1168 abso3 = o3m1 + minorfrac(lay)*(o3m2-o3m1)
1517 absco2 = co2m1 + minorfrac(lay) * (co2m2 - co2m1)
1893 absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)
2482 absco2 = co2m1 + minorfrac(lay) * (co2m2 - co2m1)
2486 absco = com1 + minorfrac(lay) * (com2 - com1)
[all …]
H A Dmo_rrtm_coeffs.f9025 indself, forfac, forfrac, indfor, minorfrac, scaleminor, scaleminorn2, indminor) argument
89 REAL(KIND=wp), intent(out) :: minorfrac(kbdim,klev) local
149 …minorfrac(1:kproma,1:klev) = (tlay(1:kproma,1:klev)-180.8_wp)/7.2_wp - float(indminor(1:kproma,1:k…
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rad/src/
H A Drrtmg_lw_taumol.f90224 REAL(KIND=r8), intent(in) :: minorfrac(:) local
561 fmn2omf = minorfrac(lay)*fmn2o
653 absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)
735 fmn2omf = minorfrac(lay)*fmn2o
1240 abso3 = o3m1 + minorfrac(lay)*(o3m2-o3m1)
1406 absco2 = (ka_mco2(indm,ig) + minorfrac(lay) * &
1705 absco2 = kb_mco2(indm,ig) + minorfrac(lay) * &
1804 abso3 = (ka_mo3(indm,ig) + minorfrac(lay) * &
2130 absn2o = kb_mn2o(indm,ig) + minorfrac(lay) * &
2738 absco = com1 + minorfrac(lay) * (com2 - com1)
[all …]
H A Drrtmg_lw_setcoef.F9052 …rat_o3co2, rat_o3co2_1, selffac, selffrac, indself, forfac, forfrac, indfor, minorfrac, scaleminor… argument
123 REAL(KIND=r8), intent(out) :: minorfrac(:) local
309 minorfrac(lay) = factor - float(indminor(lay))
353 minorfrac(lay) = factor - float(indminor(lay))
396 …rat_o3co2, rat_o3co2_1, selffac, selffrac, indself, forfac, forfrac, indfor, minorfrac, scaleminor… argument
468 REAL(KIND=r8), intent(out) :: minorfrac(ncol,nlayers) local
737 minorfrac(icol,lay) = factor(icol) - float(indminor(icol,lay))
789 minorfrac(icol,lay) = factor(icol) - float(indminor(icol,lay))
H A Drrtmg_lw_rad.F90326 REAL(KIND=r8) :: minorfrac(ncol,nlay) local
456 … minorfrac(iplon,:), scaleminor(iplon,:), scaleminorn2(iplon,:), indminor(iplon,:))
470 minorfrac, scaleminor, scaleminorn2, indminor)
481 … minorfrac(iplon,:), scaleminor(iplon,:), scaleminorn2(iplon,:), indminor(iplon,:), &
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/
H A Dmo_lrtm_gas_optics.f90219 REAL(KIND=wp), intent(in) :: minorfrac(:) local
553 fmn2omf = minorfrac(lay)*fmn2o
644 absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)
706 fmn2omf = minorfrac(lay)*fmn2o
734 absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)
1166 abso3 = o3m1 + minorfrac(lay)*(o3m2-o3m1)
1515 absco2 = co2m1 + minorfrac(lay) * (co2m2 - co2m1)
1891 absn2o = n2om1 + minorfrac(lay) * (n2om2 - n2om1)
2480 absco2 = co2m1 + minorfrac(lay) * (co2m2 - co2m1)
2484 absco = com1 + minorfrac(lay) * (com2 - com1)
[all …]
H A Dmo_lrtm_driver.f90162 REAL(KIND=wp) :: minorfrac (kbdim,klev) local
286 … selffrac, indself, forfac, forfrac, indfor, minorfrac, scaleminor, scaleminorn2, indminor)
307 … (jl,:), indself (jl,:), forfac (jl,:), forfrac (jl,:), indfor (jl,:), minorfrac (&
H A Dmo_rrtm_coeffs.f9025 indself, forfac, forfrac, indfor, minorfrac, scaleminor, scaleminorn2, indminor) argument
89 REAL(KIND=wp), intent(out) :: minorfrac(kbdim,klev) local
149 …minorfrac(1:kproma,1:klev) = (tlay(1:kproma,1:klev)-180.8_wp)/7.2_wp - float(indminor(1:kproma,1:k…
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_setcoef/src/
H A Drrtmg_lw_rad.f90332 REAL(KIND=r8) :: minorfrac(ncol,nlay) local
466 READ(UNIT=kgen_unit) minorfrac
539 minorfrac, scaleminor, scaleminorn2, indminor)
563 CALL kgen_verify_real_r8_dim2( "minorfrac", check_status, minorfrac, ref_minorfrac)
H A Drrtmg_lw_setcoef.f9044 …t_o3co2, rat_o3co2_1, selffac, selffrac, indself, forfac, forfrac, indfor, minorfrac, scaleminor, & argument
116 REAL(KIND=r8), intent(out) :: minorfrac(ncol,nlayers) local
352 minorfrac(icol,lay) = factor(icol) - float(indminor(icol,lay))
396 minorfrac(icol,lay) = factor(icol) - float(indminor(icol,lay))
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_inatm/src/
H A Drrtmg_lw_rad.f90112 real(kind=r8) :: minorfrac(nlay) local
365 …ffac, selffrac, indself, forfac, forfrac, indfor, minorfrac, scaleminor, sca…
366 …lffac, selffrac, indself, forfac, forfrac, indfor, minorfrac, scaleminor, sca…