|
LMDZ
|
#include "srtm_taumol16.intfb.h"#include "srtm_taumol17.intfb.h"#include "srtm_taumol18.intfb.h"#include "srtm_taumol19.intfb.h"#include "srtm_taumol20.intfb.h"#include "srtm_taumol21.intfb.h"#include "srtm_taumol22.intfb.h"#include "srtm_taumol23.intfb.h"#include "srtm_taumol24.intfb.h"#include "srtm_taumol25.intfb.h"#include "srtm_taumol26.intfb.h"#include "srtm_taumol27.intfb.h"#include "srtm_taumol28.intfb.h"#include "srtm_taumol29.intfb.h"#include "srtm_reftra.intfb.h"#include "srtm_vrtqdr.intfb.h"Go to the source code of this file.
Functions/Subroutines | |
| subroutine | srtm_spcvrt_mcica (KLEV, KMOL, KSW, KCOLS, PONEMINUS,PAVEL, PTAVEL, PZ, PTZ, PTBOUND, PALBD, PALBP,PFRCL, PTAUC, PASYC, POMGC, PTAUA, PASYA, POMGA, PRMU0,PCOLDRY, PWKL,KLAYTROP, KLAYSWTCH, KLAYLOW,PCO2MULT, PCOLCH4, PCOLCO2, PCOLH2O, PCOLMOL, PCOLN2O, PCOLO2, PCOLO3,PFORFAC, PFORFRAC, KINDFOR, PSELFFAC, PSELFFRAC, KINDSELF,PFAC00, PFAC01, PFAC10, PFAC11,KJP, KJT, KJT1, |
| subroutine srtm_spcvrt_mcica | ( | integer(kind=jpim) | KLEV, |
| integer(kind=jpim) | KMOL, | ||
| integer(kind=jpim), intent(in) | KSW, | ||
| integer(kind=jpim), intent(in) | KCOLS, | ||
| real(kind=jprb) | PONEMINUS, | ||
| real(kind=jprb), dimension(jplay) | PAVEL, | ||
| real(kind=jprb), dimension(jplay) | PTAVEL, | ||
| real(kind=jprb), dimension(0:jplay) | PZ, | ||
| real(kind=jprb), dimension(0:jplay) | PTZ, | ||
| real(kind=jprb) | PTBOUND, | ||
| real(kind=jprb), dimension(ksw), intent(in) | PALBD, | ||
| real(kind=jprb), dimension(ksw), intent(in) | PALBP, | ||
| real(kind=jprb), dimension(kcols,jplay), intent(in) | PFRCL, | ||
| real(kind=jprb), dimension(jplay,kcols), intent(in) | PTAUC, | ||
| real(kind=jprb), dimension(jplay,kcols), intent(in) | PASYC, | ||
| real(kind=jprb), dimension(jplay,kcols), intent(in) | POMGC, | ||
| real(kind=jprb), dimension(jplay,ksw), intent(in) | PTAUA, | ||
| real(kind=jprb), dimension(jplay,ksw), intent(in) | PASYA, | ||
| real(kind=jprb), dimension(jplay,ksw), intent(in) | POMGA, | ||
| real(kind=jprb) | PRMU0, | ||
| real(kind=jprb), dimension(jplay) | PCOLDRY, | ||
| real(kind=jprb), dimension(35,jplay) | PWKL, | ||
| integer(kind=jpim) | KLAYTROP, | ||
| integer(kind=jpim) | KLAYSWTCH, | ||
| integer(kind=jpim) | KLAYLOW, | ||
| real(kind=jprb), dimension(jplay) | PCO2MULT, | ||
| real(kind=jprb), dimension(jplay) | PCOLCH4, | ||
| real(kind=jprb), dimension(jplay) | PCOLCO2, | ||
| real(kind=jprb), dimension(jplay) | PCOLH2O, | ||
| real(kind=jprb), dimension(jplay) | PCOLMOL, | ||
| real(kind=jprb), dimension(jplay) | PCOLN2O, | ||
| real(kind=jprb), dimension(jplay) | PCOLO2, | ||
| real(kind=jprb), dimension(jplay) | PCOLO3, | ||
| real(kind=jprb), dimension(jplay) | PFORFAC, | ||
| real(kind=jprb), dimension(jplay) | PFORFRAC, | ||
| integer(kind=jpim), dimension(jplay) | KINDFOR, | ||
| real(kind=jprb), dimension(jplay) | PSELFFAC, | ||
| real(kind=jprb), dimension(jplay) | PSELFFRAC, | ||
| integer(kind=jpim), dimension(jplay) | KINDSELF, | ||
| real(kind=jprb), dimension(jplay) | PFAC00, | ||
| real(kind=jprb), dimension(jplay) | PFAC01, | ||
| real(kind=jprb), dimension(jplay) | PFAC10, | ||
| real(kind=jprb), dimension(jplay) | PFAC11, | ||
| integer(kind=jpim), dimension(jplay) | KJP, | ||
| integer(kind=jpim), dimension(jplay) | KJT, | ||
| integer(kind=jpim), dimension(jplay) | KJT1 | ||
| ) |
Definition at line 15 of file srtm_spcvrt_mcica.F90.
1.8.9.1