| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/ |
| H A D | mo_taumol03.f90 | 97 real(kind=wp), dimension(startCol:ncol) :: fmn2o,fmn2omf local
288 fmn2o(icol) = MOD(specmult_mn2o(icol),1.0_wp)
289 fmn2omf(icol) = minorfrac(icol,lay)*fmn2o(icol)
299 fmn2o(icol)*(ka_mn2o(jmn2o(icol)+1,indminor(icol,lay),ig) - &
302 fmn2o(icol)*(ka_mn2o(jmn2o(icol)+1,indminor(icol,lay)+1,ig)- &
420 real(kind=wp), dimension(startCol:ncol) :: fmn2o,fmn2omf local
522 fmn2o(icol) = MOD(specmult_mn2o(icol),1.0_wp)
523 fmn2omf(icol) = minorfrac(icol,lay)*fmn2o(icol)
553 fmn2o(icol)*(kb_mn2o(jmn2o(icol)+1,indminor(icol,lay),ig) - &
556 fmn2o(icol)*(kb_mn2o(jmn2o(icol)+1,indminor(icol,lay)+1,ig)- &
|
| H A D | mo_lrtm_gas_optics.f90 | 488 REAL(KIND=wp) :: fmn2o local
561 fmn2o = mod(specmult_mn2o,1.0_wp)
562 fmn2omf = minorfrac(lay)*fmn2o
649 …n2om1 = ka_mn2o(jmn2o,indm,ig) + fmn2o * (ka_mn2o(jmn2o+1,indm,ig) - ka_m…
651 …n2om2 = ka_mn2o(jmn2o,indm+1,ig) + fmn2o * (ka_mn2o(jmn2o+1,indm+1,ig) - …
715 fmn2o = mod(specmult_mn2o,1.0_wp)
716 fmn2omf = minorfrac(lay)*fmn2o
740 …n2om1 = kb_mn2o(jmn2o,indm,ig) + fmn2o * (kb_mn2o(jmn2o+1,indm,ig)-kb_mn2…
1743 REAL(KIND=wp) :: fmn2o local
1810 fmn2o = mod(specmult_mn2o,1.0_wp)
[all …]
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/ |
| H A D | mo_taumol03.f90 | 97 real(kind=wp), dimension(ncol) :: fmn2o,fmn2omf local
288 fmn2o(icol) = MOD(specmult_mn2o(icol),1.0_wp)
289 fmn2omf(icol) = minorfrac(icol,lay)*fmn2o(icol)
299 fmn2o(icol)*(ka_mn2o(jmn2o(icol)+1,indminor(icol,lay),ig) - &
302 fmn2o(icol)*(ka_mn2o(jmn2o(icol)+1,indminor(icol,lay)+1,ig)- &
419 real(kind=wp), dimension(ncol) :: fmn2o,fmn2omf local
521 fmn2o(icol) = MOD(specmult_mn2o(icol),1.0_wp)
522 fmn2omf(icol) = minorfrac(icol,lay)*fmn2o(icol)
552 fmn2o(icol)*(kb_mn2o(jmn2o(icol)+1,indminor(icol,lay),ig) - &
555 fmn2o(icol)*(kb_mn2o(jmn2o(icol)+1,indminor(icol,lay)+1,ig)- &
|
| H A D | mo_lrtm_gas_optics.f90 | 480 REAL(KIND=wp) :: fmn2o local
553 fmn2o = mod(specmult_mn2o,1.0_wp)
554 fmn2omf = minorfrac(lay)*fmn2o
641 …n2om1 = ka_mn2o(jmn2o,indm,ig) + fmn2o * (ka_mn2o(jmn2o+1,indm,ig) - ka_m…
643 …n2om2 = ka_mn2o(jmn2o,indm+1,ig) + fmn2o * (ka_mn2o(jmn2o+1,indm+1,ig) - …
707 fmn2o = mod(specmult_mn2o,1.0_wp)
708 fmn2omf = minorfrac(lay)*fmn2o
732 …n2om1 = kb_mn2o(jmn2o,indm,ig) + fmn2o * (kb_mn2o(jmn2o+1,indm,ig)-kb_mn2…
1735 REAL(KIND=wp) :: fmn2o local
1802 fmn2o = mod(specmult_mn2o,1.0_wp)
[all …]
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rad/src/ |
| H A D | rrtmg_lw_taumol.f90 | 488 REAL(KIND=r8) :: fmn2o local
560 fmn2o = mod(specmult_mn2o,1.0_r8)
561 fmn2omf = minorfrac(lay)*fmn2o
649 n2om1 = ka_mn2o(jmn2o,indm,ig) + fmn2o * &
651 n2om2 = ka_mn2o(jmn2o,indm+1,ig) + fmn2o * &
734 fmn2o = mod(specmult_mn2o,1.0_r8)
735 fmn2omf = minorfrac(lay)*fmn2o
760 n2om1 = kb_mn2o(jmn2o,indm,ig) + fmn2o * &
1900 REAL(KIND=r8) :: fmn2o local
1967 fmn2o = mod(specmult_mn2o,1.0_r8)
[all …]
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/ |
| H A D | mo_lrtm_gas_optics.f90 | 480 REAL(KIND=wp) :: fmn2o local
552 fmn2o = mod(specmult_mn2o,1.0_wp)
553 fmn2omf = minorfrac(lay)*fmn2o
640 …n2om1 = ka_mn2o(jmn2o,indm,ig) + fmn2o * (ka_mn2o(jmn2o+1,indm,ig) - ka_m…
642 …n2om2 = ka_mn2o(jmn2o,indm+1,ig) + fmn2o * (ka_mn2o(jmn2o+1,indm+1,ig) - …
705 fmn2o = mod(specmult_mn2o,1.0_wp)
706 fmn2omf = minorfrac(lay)*fmn2o
730 …n2om1 = kb_mn2o(jmn2o,indm,ig) + fmn2o * (kb_mn2o(jmn2o+1,indm,ig)-kb_mn2…
1733 REAL(KIND=wp) :: fmn2o local
1800 fmn2o = mod(specmult_mn2o,1.0_wp)
[all …]
|