Home
last modified time | relevance | path

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 Dmo_taumol04.f90349 …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 Dmo_lrtm_gas_optics.f90804 …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 Dmo_taumol04.f90349 …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 Dmo_lrtm_gas_optics.f90812 …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 Dmo_lrtm_gas_optics.f90802 …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)