/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/ |
H A D | mo_taumol03.f90 | 52 rat_h2oco2, colco2, colh2o, coln2o, coldry, & argument 65 …real(kind=wp), intent(in), dimension(startCol:ncol,0:1,nlayers) :: rat_h2oco2,fac0,fac1 ! not s… local 187 speccomb(icol) = colh2o(icol,lay) + rat_h2oco2(icol,i,lay)*colco2(icol,lay) 364 rat_h2oco2, colco2, colh2o, coln2o, coldry, & argument 392 …real(kind=wp), intent(in), dimension(startCol:ncol,0:1,nlayers) :: rat_h2oco2,fac0,fac1 ! not s… local 482 speccomb(icol) = colh2o(icol,lay) + rat_h2oco2(icol,i,lay)*colco2(icol,lay)
|
H A D | mo_taumol04.f90 | 51 rat_h2oco2, colco2, colh2o, coldry, & argument 63 …real(kind=wp), intent(in), dimension(ncol,0:1,nlayers) :: rat_h2oco2,fac0,fac1 ! not sure of nc… local 171 speccomb(icol) = colh2o(icol,lay) + rat_h2oco2(icol,i,lay)*colco2(icol,lay)
|
H A D | mo_lrtm_driver.f90 | 209 REAL(KIND=wp) :: rat_h2oco2 (kbdim,klev) local 307 …coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, rat_h2… 316 rrpk_rat_h2oco2(:,0,:) = rat_h2oco2 393 …(jl,:), fac01 (jl,:), fac10 (jl,:), fac11 (jl,:), rat_h2oco2 (jl,:), rat_h2oco2_1…
|
H A D | mo_rrtm_coeffs.f90 | 23 …coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, rat_h2… argument 75 REAL(KIND=wp), intent(out) :: rat_h2oco2(kbdim,klev) local 121 rat_h2oco2(1:kproma, jk) = chi_mls(1,jp(1:kproma, jk))/chi_mls(2,jp(1:kproma, jk))
|
H A D | mo_lrtm_gas_optics.f90 | 37 …colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_… argument 230 REAL(KIND=wp), intent(in) :: rat_h2oco2(:) local 544 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 690 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 824 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 1080 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 2149 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/ |
H A D | mo_taumol03.f90 | 52 rat_h2oco2, colco2, colh2o, coln2o, coldry, & argument 64 …real(kind=wp), intent(in), dimension(ncol,0:1,nlayers) :: rat_h2oco2,fac0,fac1 ! not sure of nc… local 187 speccomb(icol) = colh2o(icol,lay) + rat_h2oco2(icol,i,lay)*colco2(icol,lay) 364 rat_h2oco2, colco2, colh2o, coln2o, coldry, & argument 391 …real(kind=wp), intent(in), dimension(ncol,0:1,nlayers) :: rat_h2oco2,fac0,fac1 ! not sure of nc… local 481 speccomb(icol) = colh2o(icol,lay) + rat_h2oco2(icol,i,lay)*colco2(icol,lay)
|
H A D | mo_lrtm_driver.f90 | 209 REAL(KIND=wp) :: rat_h2oco2 (kbdim,klev) local 305 …coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, rat_h2… 313 rrpk_rat_h2oco2(:,0,:) = rat_h2oco2 375 …(jl,:), fac01 (jl,:), fac10 (jl,:), fac11 (jl,:), rat_h2oco2 (jl,:), rat_h2oco2_1…
|
H A D | mo_taumol04.f90 | 51 rat_h2oco2, colco2, colh2o, coldry, & argument 63 …real(kind=wp), intent(in), dimension(ncol,0:1,nlayers) :: rat_h2oco2,fac0,fac1 ! not sure of nc… local 171 speccomb(icol) = colh2o(icol,lay) + rat_h2oco2(icol,i,lay)*colco2(icol,lay)
|
H A D | mo_rrtm_coeffs.f90 | 23 …coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, rat_h2… argument 75 REAL(KIND=wp), intent(out) :: rat_h2oco2(kbdim,klev) local 121 rat_h2oco2(1:kproma, jk) = chi_mls(1,jp(1:kproma, jk))/chi_mls(2,jp(1:kproma, jk))
|
H A D | mo_lrtm_gas_optics.f90 | 37 …colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_… argument 230 REAL(KIND=wp), intent(in) :: rat_h2oco2(:) local 536 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 682 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 816 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 1072 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 2141 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rad/src/ |
H A D | rrtmg_lw_setcoef.F90 | 50 …h2o, colco2, colo3, coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, & argument 142 REAL(KIND=r8), intent(out) :: rat_h2oco2(:) local 312 rat_h2oco2(lay)=chi_mls(1,jp(lay))/chi_mls(2,jp(lay)) 356 rat_h2oco2(lay)=chi_mls(1,jp(lay))/chi_mls(2,jp(lay)) 394 …h2o, colco2, colo3, coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, & argument 487 REAL(KIND=r8), intent(out) :: rat_h2oco2(ncol,nlayers) local 742 rat_h2oco2(icol,lay)=chi_mls(1,jp(icol,lay))/chi_mls(2,jp(icol,lay)) 794 rat_h2oco2(icol,lay)=chi_mls(1,jp(icol,lay))/chi_mls(2,jp(icol,lay))
|
H A D | rrtmg_lw_rad.F90 | 339 REAL(KIND=r8) :: rat_h2oco2(ncol,nlay) local 452 … rat_h2oco2(iplon,:), rat_h2oco2_1(iplon,:), rat_h2oo3(iplon,:), rat_h2oo3_1(iplon,:), & 466 rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, & 477 … rat_h2oco2(iplon,:), rat_h2oco2_1(iplon,:), rat_h2oo3(iplon,:), rat_h2oo3_1(iplon,:), &
|
H A D | rrtmg_lw_taumol.f90 | 37 …coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, rat_h2… argument 235 REAL(KIND=r8), intent(in) :: rat_h2oco2(:) local 543 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 709 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 855 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 1142 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 2365 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_setcoef/src/ |
H A D | rrtmg_lw_rad.f90 | 358 REAL(KIND=r8) :: rat_h2oco2(ncol,nlay) local 479 READ(UNIT=kgen_unit) rat_h2oco2 535 rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, & 576 CALL kgen_verify_real_r8_dim2( "rat_h2oco2", check_status, rat_h2oco2, ref_rat_h2oco2)
|
H A D | rrtmg_lw_setcoef.f90 | 43 …rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_1, rat_h2on2o, rat_h2on2o_1, rat_h2och4, rat_h2och4… argument 135 REAL(KIND=r8), intent(out) :: rat_h2oco2(ncol,nlayers) local 355 rat_h2oco2(icol,lay)=chi_mls(1,jp(icol,lay))/chi_mls(2,jp(icol,lay)) 399 rat_h2oco2(icol,lay)=chi_mls(1,jp(icol,lay))/chi_mls(2,jp(icol,lay))
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/ |
H A D | mo_lrtm_driver.f90 | 190 REAL(KIND=wp) :: rat_h2oco2 (kbdim,klev) local 284 …coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, rat_h2… 304 …(jl,:), fac01 (jl,:), fac10 (jl,:), fac11 (jl,:), rat_h2oco2 (jl,:), rat_h2oco2_1…
|
H A D | mo_rrtm_coeffs.f90 | 23 …coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, rat_h2… argument 75 REAL(KIND=wp), intent(out) :: rat_h2oco2(kbdim,klev) local 121 rat_h2oco2(1:kproma, jk) = chi_mls(1,jp(1:kproma, jk))/chi_mls(2,jp(1:kproma, jk))
|
H A D | mo_lrtm_gas_optics.f90 | 37 …colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, rat_h2oo3, rat_h2oo3_… argument 230 REAL(KIND=wp), intent(in) :: rat_h2oco2(:) local 535 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 680 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 814 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 1070 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay) 2139 speccomb = colh2o(lay) + rat_h2oco2(lay)*colco2(lay)
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_inatm/src/ |
H A D | rrtmg_lw_rad.f90 | 116 …real(kind=r8) :: rat_h2oco2(nlay),rat_h2oco2_1(nlay), … local 365 … colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, r… 366 … colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, r…
|