Searched defs:taumol04_upr (Results 1 – 2 of 2) sorted by relevance
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/ |
| H A D | mo_taumol04.f90 | 310 …real(kind=wp), intent(in), dimension(ncol,0:1,nlayers) :: rat_o3co2,fac0,fac1 ! not sure of nco…
311 …real(kind=wp), intent(in), dimension(ncol,nlayers) :: colco2,colo3,coldry ! these appear to be gas…
312 … real(kind=wp), intent(in), dimension(ncol,nlayers) :: forfac,forfrac ! not sure of ncol depend
329 integer :: lay ! layer index
331 integer :: icol ! column index
338 real(kind=wp), dimension(ncol) :: specmult, speccomb, specparm
339 real(kind=wp), dimension(ncol) :: specmult_planck, speccomb_planck,specparm_planck
341 real(kind=wp), dimension(ncol) :: taufor,tauself
342 integer, dimension(ncol) :: js, ind0, jpl
347 real(kind=wp) :: p2,fk0,fk1,fk2
[all …]
|
| /dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/ |
| H A D | mo_taumol04.f90 | 310 …real(kind=wp), intent(in), dimension(ncol,0:1,nlayers) :: rat_o3co2,fac0,fac1 ! not sure of nco…
311 …real(kind=wp), intent(in), dimension(ncol,nlayers) :: colco2,colo3,coldry ! these appear to be gas…
312 … real(kind=wp), intent(in), dimension(ncol,nlayers) :: forfac,forfrac ! not sure of ncol depend
329 integer :: lay ! layer index
331 integer :: icol ! column index
338 real(kind=wp), dimension(ncol) :: specmult, speccomb, specparm
339 real(kind=wp), dimension(ncol) :: specmult_planck, speccomb_planck,specparm_planck
341 real(kind=wp), dimension(ncol) :: taufor,tauself
342 integer, dimension(ncol) :: js, ind0, jpl
347 real(kind=wp) :: p2,fk0,fk1,fk2
[all …]
|