/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/ |
H A D | mo_lrtm_gas_optics.f90 | 583 fac000 = fk0*fac00(lay) 584 fac100 = fk1*fac00(lay) 585 fac200 = fk2*fac00(lay) 595 fac000 = fk0*fac00(lay) 596 fac100 = fk1*fac00(lay) 597 fac200 = fk2*fac00(lay) 696 fac100 = fs * fac00(lay) 844 fac000 = fk0*fac00(lay) 845 fac100 = fk1*fac00(lay) 951 fac100 = fs * fac00(lay) [all …]
|
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 67 REAL(KIND=wp), intent(out) :: fac00(kbdim,klev) local 108 …coln2o, colo2, colo3, fac00, fac01, fac10, fac11, selffac, selffrac, indself, forfac, forfrac, ind… 154 …coln2o, colo2, colo3, fac00, fac01, fac10, fac11, selffac, selffrac, indself, forfac, forfrac, ind… argument 184 REAL(KIND=wp), intent(out) :: fac00(kbdim,klev) local 265 fac00(1:kproma,1:klev) = compfp(1:kproma,1:klev) * (1._wp - ft(1:kproma,1:klev))
|
H A D | mo_lrtm_driver.f90 | 195 REAL(KIND=wp) :: fac00(kbdim,klev) local 305 …coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, rat_h2… 317 rrpk_fac0(:,0,:) = fac00 374 … (jl,:), colco (jl,:), colch4 (jl,:), colo2 (jl,:), colbrd (jl,:), fac00 &
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rad/src/ |
H A D | rrtmg_lw_taumol.f90 | 590 fac000 = fk0*fac00(lay) 591 fac100 = fk1*fac00(lay) 592 fac200 = fk2*fac00(lay) 602 fac000 = fk0*fac00(lay) 603 fac100 = fk1*fac00(lay) 604 fac200 = fk2*fac00(lay) 723 fac100 = fs * fac00(lay) 883 fac000 = fk0*fac00(lay) 884 fac100 = fk1*fac00(lay) 1010 fac100 = fs * fac00(lay) [all …]
|
H A D | rrtmg_lw_setcoef.F90 | 50 …planklev, plankbnd, colh2o, colco2, colo3, coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac… argument 129 REAL(KIND=r8), intent(out) :: fac00(:) local 383 fac00(lay) = compfp * (1._r8 - ft) 394 …planklev, plankbnd, colh2o, colco2, colo3, coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac… argument 474 REAL(KIND=r8), intent(out) :: fac00(ncol,nlayers) local 841 fac00(icol,lay) = compfp(icol) * (1._r8 - ft(icol))
|
H A D | rrtmg_lw_rad.F90 | 332 REAL(KIND=r8) :: fac00(ncol,nlay) ! local 451 … colbrd(iplon,:), fac00(iplon,:), fac01(iplon,:), fac10(iplon,:), fac11(iplon,:), & 465 colbrd, fac00, fac01, fac10, fac11, & 476 … colbrd(iplon,:), fac00(iplon,:), fac01(iplon,:), fac10(iplon,:), fac11(iplon,:), &
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/ |
H A D | mo_lrtm_gas_optics.f90 | 591 fac000 = fk0*fac00(lay) 592 fac100 = fk1*fac00(lay) 593 fac200 = fk2*fac00(lay) 603 fac000 = fk0*fac00(lay) 604 fac100 = fk1*fac00(lay) 605 fac200 = fk2*fac00(lay) 704 fac100 = fs * fac00(lay) 852 fac000 = fk0*fac00(lay) 853 fac100 = fk1*fac00(lay) 959 fac100 = fs * fac00(lay) [all …]
|
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 67 REAL(KIND=wp), intent(out) :: fac00(kbdim,klev) local 108 …coln2o, colo2, colo3, fac00, fac01, fac10, fac11, selffac, selffrac, indself, forfac, forfrac, ind… 154 …coln2o, colo2, colo3, fac00, fac01, fac10, fac11, selffac, selffrac, indself, forfac, forfrac, ind… argument 184 REAL(KIND=wp), intent(out) :: fac00(kbdim,klev) local 265 fac00(1:kproma,1:klev) = compfp(1:kproma,1:klev) * (1._wp - ft(1:kproma,1:klev))
|
H A D | mo_lrtm_driver.f90 | 195 REAL(KIND=wp) :: fac00(kbdim,klev) local 307 …coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, rat_h2… 320 rrpk_fac0(:,0,:) = fac00 392 … (jl,:), colco (jl,:), colch4 (jl,:), colo2 (jl,:), colbrd (jl,:), fac00 &
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/ |
H A D | mo_lrtm_gas_optics.f90 | 582 fac000 = fk0*fac00(lay) 583 fac100 = fk1*fac00(lay) 584 fac200 = fk2*fac00(lay) 594 fac000 = fk0*fac00(lay) 595 fac100 = fk1*fac00(lay) 596 fac200 = fk2*fac00(lay) 694 fac100 = fs * fac00(lay) 842 fac000 = fk0*fac00(lay) 843 fac100 = fk1*fac00(lay) 949 fac100 = fs * fac00(lay) [all …]
|
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 67 REAL(KIND=wp), intent(out) :: fac00(kbdim,klev) local 108 …coln2o, colo2, colo3, fac00, fac01, fac10, fac11, selffac, selffrac, indself, forfac, forfrac, ind… 154 …coln2o, colo2, colo3, fac00, fac01, fac10, fac11, selffac, selffrac, indself, forfac, forfrac, ind… argument 184 REAL(KIND=wp), intent(out) :: fac00(kbdim,klev) local 265 fac00(1:kproma,1:klev) = compfp(1:kproma,1:klev) * (1._wp - ft(1:kproma,1:klev))
|
H A D | mo_lrtm_driver.f90 | 178 REAL(KIND=wp) :: fac00(kbdim,klev) local 284 …coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac11, rat_h2oco2, rat_h2oco2_1, rat_h2… 303 … (jl,:), colco (jl,:), colch4 (jl,:), colo2 (jl,:), colbrd (jl,:), fac00 &
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_taumols/src/ |
H A D | rrtmg_sw_taumol.f90 | 294 fac100 = fs * fac00(icol,lay) 403 fac100 = fs * fac00(icol,lay) 448 fac100 = fs * fac00(icol,lay) 539 fac100 = fs * fac00(icol,lay) 649 fac100 = fs * fac00(icol,lay) 843 fac100 = fs * fac00(icol,lay) 887 fac100 = fs * fac00(icol,lay) 984 fac100 = fs * fac00(icol,lay) 1170 fac100 = fs * fac00(icol,lay) 1445 fac100 = fs * fac00(icol,lay) [all …]
|
H A D | rrtmg_sw_spcvmc.f90 | 36 forfac, forfrac, selffac, selffrac, fac00, fac01, fac10, fac11, kgen_unit) argument 149 REAL(KIND=r8), intent(in) :: fac00(:,:) local 207 fac00, fac01, fac10, fac11, & 217 …klev, colh2o, colco2, colch4, colo2, colo3, colmol, laytrop, jp, jt, jt1, fac00, fac01, fac10, fac…
|
H A D | kernel_driver.f90 | 60 REAL(KIND=r8), allocatable :: fac00(:,:) variable 117 CALL kgen_read_real_r8_dim2(fac00, kgen_unit) 122 …colh2o, colco2, colch4, colo3, colo2, forfac, forfrac, selffac, selffrac, fac00, fac01, fac10, fac…
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_rad/src/ |
H A D | rrtmg_sw_taumol.f90 | 315 fac100 = fs * fac00(icol,lay) 423 fac100 = fs * fac00(icol,lay) 468 fac100 = fs * fac00(icol,lay) 557 fac100 = fs * fac00(icol,lay) 665 fac100 = fs * fac00(icol,lay) 855 fac100 = fs * fac00(icol,lay) 899 fac100 = fs * fac00(icol,lay) 994 fac100 = fs * fac00(icol,lay) 1176 fac100 = fs * fac00(icol,lay) 1443 fac100 = fs * fac00(icol,lay) [all …]
|
H A D | rrtmg_sw_spcvmc.f90 | 44 …jp, jt, jt1, co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, fac00, fac01, fac10, f… argument 163 REAL(KIND=r8), intent(in) :: fac00(:,:) local 305 fac00, fac01, fac10, fac11, &
|
H A D | rrtmg_sw_rad.F90 | 346 REAL(KIND=r8) :: fac00(ncol,nlay) local 530 colo2, colo3, fac00, fac01, fac10, fac11, & 639 fac00, fac01, fac10, fac11, &
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_spcvmc/src/ |
H A D | rrtmg_sw_taumol.f90 | 314 fac100 = fs * fac00(icol,lay) 422 fac100 = fs * fac00(icol,lay) 467 fac100 = fs * fac00(icol,lay) 556 fac100 = fs * fac00(icol,lay) 664 fac100 = fs * fac00(icol,lay) 854 fac100 = fs * fac00(icol,lay) 898 fac100 = fs * fac00(icol,lay) 993 fac100 = fs * fac00(icol,lay) 1175 fac100 = fs * fac00(icol,lay) 1442 fac100 = fs * fac00(icol,lay) [all …]
|
H A D | rrtmg_sw_rad.f90 | 340 REAL(KIND=r8) :: fac00(ncol,nlay) local 546 READ(UNIT=kgen_unit) fac00 605 fac00, fac01, fac10, fac11, &
|
H A D | rrtmg_sw_spcvmc.f90 | 44 …jp, jt, jt1, co2mult, colch4, colco2, colh2o, colmol, coln2o, colo2, colo3, fac00, fac01, fac10, f… argument 163 REAL(KIND=r8), intent(in) :: fac00(:,:) local 306 fac00, fac01, fac10, fac11, &
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_setcoef/src/ |
H A D | rrtmg_sw_rad.f90 | 357 REAL(KIND=r8) :: fac00(ncol,nlay) local 519 READ(UNIT=kgen_unit) fac00 554 colo2, colo3, fac00, fac01, fac10, fac11, & 577 CALL kgen_verify_real_r8_dim2( "fac00", check_status, fac00, ref_fac00)
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_setcoef/src/ |
H A D | rrtmg_lw_rad.f90 | 344 REAL(KIND=r8) :: fac00(ncol,nlay) local 472 READ(UNIT=kgen_unit) fac00 534 colbrd, fac00, fac01, fac10, fac11, & 569 CALL kgen_verify_real_r8_dim2( "fac00", check_status, fac00, ref_fac00)
|
H A D | rrtmg_lw_setcoef.f90 | 42 …v, plankbnd, colh2o, colco2, colo3, coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac… argument 122 REAL(KIND=r8), intent(out) :: fac00(ncol,nlayers) local 438 fac00(icol,lay) = compfp(icol) * (1._r8 - ft(icol))
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_inatm/src/ |
H A D | rrtmg_lw_rad.f90 | 115 …real(kind=r8) :: fac00(nlay), fac01(nlay), fac10… local 365 …olco2, colo3, coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac… 366 …colco2, colo3, coln2o, colco, colch4, colo2, colbrd, fac00, fac01, fac10, fac…
|