LMDZ
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | rrtm_ecrt_140gp (K_IPLON, klon, klev, kcld, paer, paph, pap, pts, pth, pt, P_ZEMIS, P_ZEMIW, pq, pcco2, pozn, pcldf, ptaucld, ptclear, P_CLDFRAC, P_TAUCLD, PTAU_LW, P_COLDRY, P_WKL, P_WX, P_TAUAERL, PAVEL, P_TAVEL, PZ, P_TZ, P_TBOUND, K_NLAYERS, P_SEMISS, K_IREFLECT) |
subroutine rrtm_ecrt_140gp | ( | integer(kind=jpim), intent(in) | K_IPLON, |
integer(kind=jpim), intent(in) | klon, | ||
integer(kind=jpim), intent(in) | klev, | ||
integer(kind=jpim), intent(out) | kcld, | ||
real(kind=jprb), dimension(klon,6,klev), intent(in) | paer, | ||
real(kind=jprb), dimension(klon,klev+1), intent(in) | paph, | ||
real(kind=jprb), dimension(klon,klev), intent(in) | pap, | ||
real(kind=jprb), dimension(klon), intent(in) | pts, | ||
real(kind=jprb), dimension(klon,klev+1), intent(in) | pth, | ||
real(kind=jprb), dimension(klon,klev), intent(in) | pt, | ||
real(kind=jprb), dimension(klon), intent(in) | P_ZEMIS, | ||
real(kind=jprb), dimension(klon), intent(in) | P_ZEMIW, | ||
real(kind=jprb), dimension(klon,klev), intent(in) | pq, | ||
real(kind=jprb), intent(in) | pcco2, | ||
real(kind=jprb), dimension(klon,klev), intent(in) | pozn, | ||
real(kind=jprb), dimension(klon,klev), intent(in) | pcldf, | ||
real(kind=jprb), dimension(klon,klev,jpband), intent(in) | ptaucld, | ||
real(kind=jprb), intent(out) | ptclear, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_CLDFRAC, | ||
real(kind=jprb), dimension(jplay,jpband), intent(out) | P_TAUCLD, | ||
real(kind=jprb), dimension(klon,klev,nlw), intent(in) | PTAU_LW, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_COLDRY, | ||
real(kind=jprb), dimension(jpinpx,jplay), intent(out) | P_WKL, | ||
real(kind=jprb), dimension(jpxsec,jplay), intent(out) | P_WX, | ||
real(kind=jprb), dimension(jplay,jpband), intent(out) | P_TAUAERL, | ||
real(kind=jprb), dimension(jplay), intent(out) | PAVEL, | ||
real(kind=jprb), dimension(jplay), intent(out) | P_TAVEL, | ||
real(kind=jprb), dimension(0:jplay), intent(out) | PZ, | ||
real(kind=jprb), dimension(0:jplay), intent(out) | P_TZ, | ||
real(kind=jprb), intent(out) | P_TBOUND, | ||
integer(kind=jpim), intent(out) | K_NLAYERS, | ||
real(kind=jprb), dimension(jpband), intent(out) | P_SEMISS, | ||
integer(kind=jpim), intent(out) | K_IREFLECT | ||
) |
Definition at line 16 of file rrtm_ecrt_140gp.F90.