subroutine public mo_gas_optics_kernels::interpolation |
( |
integer, intent(in) | ncol, |
|
|
integer, intent(in) | nlay, |
|
|
integer, intent(in) | ngas, |
|
|
integer, intent(in) | nflav, |
|
|
integer, intent(in) | neta, |
|
|
integer, intent(in) | npres, |
|
|
integer, intent(in) | ntemp, |
|
|
integer, dimension(2,nflav), intent(in) | flavor, |
|
|
real(wp), dimension(npres), intent(in) | press_ref_log, |
|
|
real(wp), dimension(ntemp), intent(in) | temp_ref, |
|
|
real(wp), intent(in) | press_ref_log_delta, |
|
|
real(wp), intent(in) | temp_ref_min, |
|
|
real(wp), intent(in) | temp_ref_delta, |
|
|
real(wp), intent(in) | press_ref_trop_log, |
|
|
real(wp), dimension(2,0:ngas,ntemp), intent(in) | vmr_ref, |
|
|
real(wp), dimension(ncol,nlay), intent(in) | play, |
|
|
real(wp), dimension(ncol,nlay), intent(in) | tlay, |
|
|
real(wp), dimension(ncol,nlay,0:ngas), intent(in) | col_gas, |
|
|
integer, dimension(ncol,nlay), intent(out) | jtemp, |
|
|
real(wp), dimension(2,2,2,ncol,nlay,nflav), intent(out) | fmajor, |
|
|
real(wp), dimension(2,2, ncol,nlay,nflav), intent(out) | fminor, |
|
|
real(wp), dimension(2, ncol,nlay,nflav), intent(out) | col_mix, |
|
|
logical(wl), dimension(ncol,nlay), intent(out) | tropo, |
|
|
integer, dimension(2, ncol,nlay,nflav), intent(out) | jeta, |
|
|
integer, dimension(ncol,nlay), intent(out) | jpress ) |