Searched refs:stratcorrect (Results 1 – 5 of 5) sorted by relevance
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/ |
H A D | mo_taumol04.f90 | 349 …REAL(KIND=wp), dimension(ngc(4)) :: stratcorrect = (/ 1., 1., 1., 1.,1., 1., 1., .92, .88, 1.07, 1… local 414 taug(icol,lay) = (tau_major(icol,0) + tau_major(icol,1) ) * stratcorrect(ig)
|
H A D | mo_lrtm_gas_optics.f90 | 804 …REAL(KIND=wp), dimension(ngc(4)), parameter :: stratcorrect = (/ 1., 1., 1., 1., 1., 1., 1., .92, … local 981 taug(laytrop+1:nlayers) = taug(laytrop+1:nlayers) * stratcorrect(ig) 1392 …REAL(KIND=wp), dimension(ngc(7)), parameter :: stratcorrect = (/ 1., 1., 1., 1., 1., .92, .88, 1.0… local 1581 taug(laytrop+1:nlayers) = taug(laytrop+1:nlayers) * stratcorrect(ig)
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/ |
H A D | mo_taumol04.f90 | 349 …REAL(KIND=wp), dimension(ngc(4)) :: stratcorrect = (/ 1., 1., 1., 1.,1., 1., 1., .92, .88, 1.07, 1… local 414 taug(icol,lay) = (tau_major(icol,0) + tau_major(icol,1) ) * stratcorrect(ig)
|
H A D | mo_lrtm_gas_optics.f90 | 812 …REAL(KIND=wp), dimension(ngc(4)), parameter :: stratcorrect = (/ 1., 1., 1., 1., 1., 1., 1., .92, … local 989 taug(laytrop+1:nlayers) = taug(laytrop+1:nlayers) * stratcorrect(ig) 1400 …REAL(KIND=wp), dimension(ngc(7)), parameter :: stratcorrect = (/ 1., 1., 1., 1., 1., .92, .88, 1.0… local 1589 taug(laytrop+1:nlayers) = taug(laytrop+1:nlayers) * stratcorrect(ig)
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/ |
H A D | mo_lrtm_gas_optics.f90 | 802 …REAL(KIND=wp), dimension(ngc(4)), parameter :: stratcorrect = (/ 1., 1., 1., 1., 1., 1., 1., .92, … local 979 taug(laytrop+1:nlayers) = taug(laytrop+1:nlayers) * stratcorrect(ig) 1390 …REAL(KIND=wp), dimension(ngc(7)), parameter :: stratcorrect = (/ 1., 1., 1., 1., 1., .92, .88, 1.0… local 1579 taug(laytrop+1:nlayers) = taug(laytrop+1:nlayers) * stratcorrect(ig)
|