/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/ |
H A D | mo_lrtm_gas_optics.f90 | 327 REAL(KIND=wp) :: tauself local 405 REAL(KIND=wp) :: tauself local 507 REAL(KIND=wp) :: tauself local 798 REAL(KIND=wp) :: tauself local 1045 REAL(KIND=wp) :: tauself local 1269 REAL(KIND=wp) :: tauself local 1379 REAL(KIND=wp) :: tauself local 1613 REAL(KIND=wp) :: tauself local 1757 REAL(KIND=wp) :: tauself local 1971 REAL(KIND=wp) :: tauself local [all …]
|
H A D | mo_taumol04.f90 | 99 real(kind=wp), dimension(ncol) :: taufor,tauself local 247 tauself(icol) = selffac(icol,lay)*(selfref(indself(icol,lay),ig) +& 262 … taug(icol,lay) = tau_major(icol,0) + tau_major(icol,1) +tauself(icol) + taufor(icol) 341 real(kind=wp), dimension(ncol) :: taufor,tauself local
|
H A D | mo_taumol03.f90 | 104 real(kind=wp), dimension(ncol) :: taufor,tauself local 263 tauself(icol) = selffac(icol,lay)*(selfref(indself(icol,lay),ig) +& 338 …taug(icol,lay) = tau_major(icol,0) + tau_major(icol,1) +tauself(icol) + taufor(icol) + adjcoln2o(i… 426 real(kind=wp), dimension(ncol) :: taufor,tauself local
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rad/src/ |
H A D | rrtmg_lw_taumol.f90 | 422 + tauself + taufor) 701 + tauself + taufor & 989 + tauself + taufor 1288 + tauself + taufor & 1413 + tauself + taufor & 1682 + tauself + taufor & 1813 + tauself + taufor & 2187 + tauself + taufor 2499 + tauself + taufor 2849 + tauself + taufor [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/ |
H A D | mo_lrtm_gas_optics.f90 | 335 REAL(KIND=wp) :: tauself local 413 REAL(KIND=wp) :: tauself local 515 REAL(KIND=wp) :: tauself local 806 REAL(KIND=wp) :: tauself local 1053 REAL(KIND=wp) :: tauself local 1277 REAL(KIND=wp) :: tauself local 1387 REAL(KIND=wp) :: tauself local 1621 REAL(KIND=wp) :: tauself local 1765 REAL(KIND=wp) :: tauself local 1979 REAL(KIND=wp) :: tauself local [all …]
|
H A D | mo_taumol04.f90 | 99 real(kind=wp), dimension(ncol) :: taufor,tauself local 247 tauself(icol) = selffac(icol,lay)*(selfref(indself(icol,lay),ig) +& 262 … taug(icol,lay) = tau_major(icol,0) + tau_major(icol,1) +tauself(icol) + taufor(icol) 341 real(kind=wp), dimension(ncol) :: taufor,tauself local
|
H A D | mo_taumol03.f90 | 104 real(kind=wp), dimension(startCol:ncol) :: taufor,tauself local 263 tauself(icol) = selffac(icol,lay)*(selfref(indself(icol,lay),ig) +& 338 …taug(icol,lay) = tau_major(icol,0) + tau_major(icol,1) +tauself(icol) + taufor(icol) + adjcoln2o(i… 427 real(kind=wp), dimension(startCol:ncol) :: taufor,tauself local
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/ |
H A D | mo_lrtm_gas_optics.f90 | 327 REAL(KIND=wp) :: tauself local 405 REAL(KIND=wp) :: tauself local 507 REAL(KIND=wp) :: tauself local 796 REAL(KIND=wp) :: tauself local 1043 REAL(KIND=wp) :: tauself local 1267 REAL(KIND=wp) :: tauself local 1377 REAL(KIND=wp) :: tauself local 1611 REAL(KIND=wp) :: tauself local 1755 REAL(KIND=wp) :: tauself local 1969 REAL(KIND=wp) :: tauself local [all …]
|