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 D | rrtmg_sw_taumol.f90 | 288 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 D | rrtmg_sw_taumol.f90 | 309 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 D | rrtmg_sw_taumol.f90 | 308 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 D | rrtmg_lw_taumol.f90 | 545 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 D | mo_lrtm_gas_optics.f90 | 538 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 D | mo_taumol04.f90 | 96 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 D | mo_taumol03.f90 | 99 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 D | mo_lrtm_gas_optics.f90 | 546 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 D | mo_taumol04.f90 | 96 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 D | mo_taumol03.f90 | 99 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 D | mo_lrtm_gas_optics.f90 | 537 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 …]
|