| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/ |
| H A D | mo_lrtm_driver.f90 | 62 strategy, n_gpts_ts, uflx, dflx, uflxc, dflxc) argument
96 INTEGER, intent(in ) :: n_gpts_ts local
198 INTEGER :: igs(kbdim, n_gpts_ts)
199 INTEGER :: ibs(kbdim, n_gpts_ts)
222 igs(:, 1:n_gpts_ts) = do_gpoint
229 DO ig = 1, n_gpts_ts
244 DO ig = 1, n_gpts_ts
256 … colcldmask(1:kproma, 1:n_gpts_ts) = any(cldmask(1:kproma,1:klev,1:n_gpts_ts), dim=2)
261 … merge(real(n_gpts_ts,kind=wp) / (real(n_gpts_ts - count(&
292 DO ig = 1, n_gpts_ts
[all …]
|
| H A D | mo_psrad_interface.f90 | 260 INTEGER :: n_gpts_ts local
313 READ(UNIT=kgen_unit) n_gpts_ts
327 …, zsemiss, cld_frc_vr, cld_tau_lw_vr, aer_tau_lw_vr, rnseeds, lw_strat, n_gpts_ts, flx_uplw_vr, fl…
337 …, zsemiss, cld_frc_vr, cld_tau_lw_vr, aer_tau_lw_vr, rnseeds, lw_strat, n_gpts_ts, flx_uplw_vr, fl…
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/ |
| H A D | mo_lrtm_driver.f90 | 76 strategy, n_gpts_ts, uflx, dflx, uflxc, dflxc) argument
110 INTEGER, intent(in ) :: n_gpts_ts local
219 INTEGER :: igs(kbdim, n_gpts_ts)
220 INTEGER :: ibs(kbdim, n_gpts_ts)
243 igs(:, 1:n_gpts_ts) = do_gpoint
250 DO ig = 1, n_gpts_ts
265 DO ig = 1, n_gpts_ts
277 … colcldmask(1:kproma, 1:n_gpts_ts) = any(cldmask(1:kproma,1:klev,1:n_gpts_ts), dim=2)
282 … merge(real(n_gpts_ts,kind=wp) / (real(n_gpts_ts - count(&
323 DO ig = 1, n_gpts_ts
[all …]
|
| H A D | mo_psrad_interface.f90 | 260 INTEGER :: n_gpts_ts local
313 READ(UNIT=kgen_unit) n_gpts_ts
327 …, zsemiss, cld_frc_vr, cld_tau_lw_vr, aer_tau_lw_vr, rnseeds, lw_strat, n_gpts_ts, flx_uplw_vr, fl…
337 …, zsemiss, cld_frc_vr, cld_tau_lw_vr, aer_tau_lw_vr, rnseeds, lw_strat, n_gpts_ts, flx_uplw_vr, fl…
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/ |
| H A D | mo_lrtm_driver.f90 | 76 strategy, n_gpts_ts, uflx, dflx, uflxc, dflxc) argument
110 INTEGER, intent(in ) :: n_gpts_ts local
219 INTEGER :: igs(kbdim, n_gpts_ts)
220 INTEGER :: ibs(kbdim, n_gpts_ts)
245 igs(:, 1:n_gpts_ts) = do_gpoint
252 DO ig = 1, n_gpts_ts
267 DO ig = 1, n_gpts_ts
279 … colcldmask(1:kproma, 1:n_gpts_ts) = any(cldmask(1:kproma,1:klev,1:n_gpts_ts), dim=2)
284 … merge(real(n_gpts_ts,kind=wp) / (real(n_gpts_ts - count(&
330 DO ig = 1, n_gpts_ts
[all …]
|
| H A D | mo_psrad_interface.f90 | 260 INTEGER :: n_gpts_ts local
313 READ(UNIT=kgen_unit) n_gpts_ts
327 …, zsemiss, cld_frc_vr, cld_tau_lw_vr, aer_tau_lw_vr, rnseeds, lw_strat, n_gpts_ts, flx_uplw_vr, fl…
337 …, zsemiss, cld_frc_vr, cld_tau_lw_vr, aer_tau_lw_vr, rnseeds, lw_strat, n_gpts_ts, flx_uplw_vr, fl…
|