Home
last modified time | relevance | path

Searched refs:fac00 (Results 1 – 25 of 32) sorted by relevance

12

/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/
H A Dmo_lrtm_gas_optics.f90583 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 Dmo_rrtm_coeffs.f9023 …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 Dmo_lrtm_driver.f90195 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 Drrtmg_lw_taumol.f90590 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 Drrtmg_lw_setcoef.F9050 …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 Drrtmg_lw_rad.F90332 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 Dmo_lrtm_gas_optics.f90591 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 Dmo_rrtm_coeffs.f9023 …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 Dmo_lrtm_driver.f90195 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 Dmo_lrtm_gas_optics.f90582 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 Dmo_rrtm_coeffs.f9023 …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 Dmo_lrtm_driver.f90178 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 Drrtmg_sw_taumol.f90294 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 Drrtmg_sw_spcvmc.f9036 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 Dkernel_driver.f9060 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 Drrtmg_sw_taumol.f90315 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 Drrtmg_sw_spcvmc.f9044 …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 Drrtmg_sw_rad.F90346 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 Drrtmg_sw_taumol.f90314 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 Drrtmg_sw_rad.f90340 REAL(KIND=r8) :: fac00(ncol,nlay) local
546 READ(UNIT=kgen_unit) fac00
605 fac00, fac01, fac10, fac11, &
H A Drrtmg_sw_spcvmc.f9044 …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 Drrtmg_sw_rad.f90357 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 Drrtmg_lw_rad.f90344 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 Drrtmg_lw_setcoef.f9042 …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 Drrtmg_lw_rad.f90115 …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…

12