Home
last modified time | relevance | path

Searched refs:specparm (Results 1 – 11 of 11) sorted by relevance

/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_taumols/src/
H A Drrtmg_sw_taumol.f90288 if (specparm .ge. oneminus) specparm = oneminus
397 if (specparm .ge. oneminus) specparm = oneminus
442 if (specparm .ge. oneminus) specparm = oneminus
533 if (specparm .ge. oneminus) specparm = oneminus
643 if (specparm .ge. oneminus) specparm = oneminus
837 if (specparm .ge. oneminus) specparm = oneminus
881 if (specparm .ge. oneminus) specparm = oneminus
977 if (specparm .ge. oneminus) specparm = oneminus
1164 if (specparm .ge. oneminus) specparm = oneminus
1439 if (specparm .ge. oneminus) specparm = oneminus
[all …]
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_rad/src/
H A Drrtmg_sw_taumol.f90309 if (specparm .ge. oneminus) specparm = oneminus
417 if (specparm .ge. oneminus) specparm = oneminus
462 if (specparm .ge. oneminus) specparm = oneminus
551 if (specparm .ge. oneminus) specparm = oneminus
659 if (specparm .ge. oneminus) specparm = oneminus
849 if (specparm .ge. oneminus) specparm = oneminus
893 if (specparm .ge. oneminus) specparm = oneminus
987 if (specparm .ge. oneminus) specparm = oneminus
1170 if (specparm .ge. oneminus) specparm = oneminus
1437 if (specparm .ge. oneminus) specparm = oneminus
[all …]
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_spcvmc/src/
H A Drrtmg_sw_taumol.f90308 if (specparm .ge. oneminus) specparm = oneminus
416 if (specparm .ge. oneminus) specparm = oneminus
461 if (specparm .ge. oneminus) specparm = oneminus
550 if (specparm .ge. oneminus) specparm = oneminus
658 if (specparm .ge. oneminus) specparm = oneminus
848 if (specparm .ge. oneminus) specparm = oneminus
892 if (specparm .ge. oneminus) specparm = oneminus
986 if (specparm .ge. oneminus) specparm = oneminus
1169 if (specparm .ge. oneminus) specparm = oneminus
1436 if (specparm .ge. oneminus) specparm = oneminus
[all …]
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rad/src/
H A Drrtmg_lw_taumol.f90545 if (specparm .ge. oneminus) specparm = oneminus
711 if (specparm .ge. oneminus) specparm = oneminus
857 if (specparm .ge. oneminus) specparm = oneminus
998 if (specparm .ge. oneminus) specparm = oneminus
1144 if (specparm .ge. oneminus) specparm = oneminus
1299 if (specparm .ge. oneminus) specparm = oneminus
1527 if (specparm .ge. oneminus) specparm = oneminus
1952 if (specparm .ge. oneminus) specparm = oneminus
2367 if (specparm .ge. oneminus) specparm = oneminus
2620 if (specparm .ge. oneminus) specparm = oneminus
[all …]
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/
H A Dmo_lrtm_gas_optics.f90538 IF (specparm .ge. oneminus) specparm = oneminus
684 IF (specparm .ge. oneminus) specparm = oneminus
818 IF (specparm .ge. oneminus) specparm = oneminus
939 IF (specparm .ge. oneminus) specparm = oneminus
1074 IF (specparm .ge. oneminus) specparm = oneminus
1207 IF (specparm .ge. oneminus) specparm = oneminus
1411 IF (specparm .ge. oneminus) specparm = oneminus
1787 IF (specparm .ge. oneminus) specparm = oneminus
2143 IF (specparm .ge. oneminus) specparm = oneminus
2370 IF (specparm .ge. oneminus) specparm = oneminus
[all …]
H A Dmo_taumol04.f9096 real(kind=wp), dimension(ncol) :: specmult, speccomb, specparm local
172 specparm(icol) = colh2o(icol,lay)/speccomb(icol)
173 IF (specparm(icol) .GE. oneminus) specparm(icol) = oneminus
174 specmult(icol) = 8._wp*(specparm(icol))
183 IF (specparm(icol) .LT. 0.125_wp) THEN
188 ELSE IF (specparm(icol) .GT. 0.875_wp) THEN
338 real(kind=wp), dimension(ncol) :: specmult, speccomb, specparm local
388 specparm(icol) = colo3(icol,lay)/speccomb(icol)
389 IF (specparm(icol) .ge. oneminus) specparm(icol) = oneminus
390 specmult(icol) = 4.0_wp*(specparm(icol))
H A Dmo_taumol03.f9099 real(kind=wp), dimension(ncol) :: specmult, speccomb, specparm local
188 specparm(icol) = colh2o(icol,lay)/speccomb(icol)
189 IF (specparm(icol) .GE. oneminus) specparm(icol) = oneminus
190 specmult(icol) = 8._wp*(specparm(icol))
199 IF (specparm(icol) .LT. 0.125_wp) THEN
204 ELSE IF (specparm(icol) .GT. 0.875_wp) THEN
421 real(kind=wp), dimension(ncol) :: specmult, speccomb, specparm local
482 specparm(icol) = colh2o(icol,lay)/speccomb(icol)
483 IF (specparm(icol) .ge. oneminus) specparm(icol) = oneminus
484 specmult(icol) = 4.0_wp*(specparm(icol))
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/
H A Dmo_lrtm_gas_optics.f90546 IF (specparm .ge. oneminus) specparm = oneminus
692 IF (specparm .ge. oneminus) specparm = oneminus
826 IF (specparm .ge. oneminus) specparm = oneminus
947 IF (specparm .ge. oneminus) specparm = oneminus
1082 IF (specparm .ge. oneminus) specparm = oneminus
1215 IF (specparm .ge. oneminus) specparm = oneminus
1419 IF (specparm .ge. oneminus) specparm = oneminus
1795 IF (specparm .ge. oneminus) specparm = oneminus
2151 IF (specparm .ge. oneminus) specparm = oneminus
2378 IF (specparm .ge. oneminus) specparm = oneminus
[all …]
H A Dmo_taumol04.f9096 real(kind=wp), dimension(ncol) :: specmult, speccomb, specparm local
172 specparm(icol) = colh2o(icol,lay)/speccomb(icol)
173 IF (specparm(icol) .GE. oneminus) specparm(icol) = oneminus
174 specmult(icol) = 8._wp*(specparm(icol))
183 IF (specparm(icol) .LT. 0.125_wp) THEN
188 ELSE IF (specparm(icol) .GT. 0.875_wp) THEN
338 real(kind=wp), dimension(ncol) :: specmult, speccomb, specparm local
388 specparm(icol) = colo3(icol,lay)/speccomb(icol)
389 IF (specparm(icol) .ge. oneminus) specparm(icol) = oneminus
390 specmult(icol) = 4.0_wp*(specparm(icol))
H A Dmo_taumol03.f9099 real(kind=wp), dimension(startCol:ncol) :: specmult, speccomb, specparm local
188 specparm(icol) = colh2o(icol,lay)/speccomb(icol)
189 IF (specparm(icol) .GE. oneminus) specparm(icol) = oneminus
190 specmult(icol) = 8._wp*(specparm(icol))
199 IF (specparm(icol) .LT. 0.125_wp) THEN
204 ELSE IF (specparm(icol) .GT. 0.875_wp) THEN
422 real(kind=wp), dimension(startCol:ncol) :: specmult, speccomb, specparm local
483 specparm(icol) = colh2o(icol,lay)/speccomb(icol)
484 IF (specparm(icol) .ge. oneminus) specparm(icol) = oneminus
485 specmult(icol) = 4.0_wp*(specparm(icol))
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/
H A Dmo_lrtm_gas_optics.f90537 IF (specparm .ge. oneminus) specparm = oneminus
682 IF (specparm .ge. oneminus) specparm = oneminus
816 IF (specparm .ge. oneminus) specparm = oneminus
937 IF (specparm .ge. oneminus) specparm = oneminus
1072 IF (specparm .ge. oneminus) specparm = oneminus
1205 IF (specparm .ge. oneminus) specparm = oneminus
1409 IF (specparm .ge. oneminus) specparm = oneminus
1785 IF (specparm .ge. oneminus) specparm = oneminus
2141 IF (specparm .ge. oneminus) specparm = oneminus
2368 IF (specparm .ge. oneminus) specparm = oneminus
[all …]