| [3331] | 1 | INTERFACE |
|---|
| 2 | SUBROUTINE SRTM_SETCOEF& |
|---|
| 3 | & ( KLEV , KNMOL ,& |
|---|
| 4 | & PAVEL , PTAVEL , PZ , PTZ , PTBOUND ,& |
|---|
| 5 | & PCOLDRY , PWKL ,& |
|---|
| 6 | & KLAYTROP, KLAYSWTCH, KLAYLOW ,& |
|---|
| 7 | & PCO2MULT, PCOLCH4 , PCOLCO2 , PCOLH2O , PCOLMOL , PCOLN2O , PCOLO2 , PCOLO3 ,& |
|---|
| 8 | & PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,& |
|---|
| 9 | & PFAC00 , PFAC01 , PFAC10 , PFAC11 ,& |
|---|
| 10 | & KJP , KJT , KJT1& |
|---|
| 11 | & ) |
|---|
| 12 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 13 | USE PARSRTM , ONLY : JPLAY |
|---|
| 14 | INTEGER(KIND=JPIM),INTENT(IN) :: KLEV |
|---|
| 15 | INTEGER(KIND=JPIM) :: KNMOL |
|---|
| 16 | REAL(KIND=JPRB) ,INTENT(IN) :: PAVEL(JPLAY) |
|---|
| 17 | REAL(KIND=JPRB) ,INTENT(IN) :: PTAVEL(JPLAY) |
|---|
| 18 | REAL(KIND=JPRB) :: PZ(0:JPLAY) |
|---|
| 19 | REAL(KIND=JPRB) ,INTENT(IN) :: PTZ(0:JPLAY) |
|---|
| 20 | REAL(KIND=JPRB) ,INTENT(IN) :: PTBOUND |
|---|
| 21 | REAL(KIND=JPRB) ,INTENT(IN) :: PCOLDRY(JPLAY) |
|---|
| 22 | REAL(KIND=JPRB) ,INTENT(IN) :: PWKL(35,JPLAY) |
|---|
| 23 | INTEGER(KIND=JPIM),INTENT(OUT) :: KLAYTROP |
|---|
| 24 | INTEGER(KIND=JPIM),INTENT(OUT) :: KLAYSWTCH |
|---|
| 25 | INTEGER(KIND=JPIM),INTENT(OUT) :: KLAYLOW |
|---|
| 26 | REAL(KIND=JPRB) ,INTENT(OUT) :: PCO2MULT(JPLAY) |
|---|
| 27 | REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLCH4(JPLAY) |
|---|
| 28 | REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLCO2(JPLAY) |
|---|
| 29 | REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLH2O(JPLAY) |
|---|
| 30 | REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLMOL(JPLAY) |
|---|
| 31 | REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLN2O(JPLAY) |
|---|
| 32 | REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLO2(JPLAY) |
|---|
| 33 | REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLO3(JPLAY) |
|---|
| 34 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFORFAC(JPLAY) |
|---|
| 35 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFORFRAC(JPLAY) |
|---|
| 36 | INTEGER(KIND=JPIM),INTENT(OUT) :: KINDFOR(JPLAY) |
|---|
| 37 | REAL(KIND=JPRB) ,INTENT(OUT) :: PSELFFAC(JPLAY) |
|---|
| 38 | REAL(KIND=JPRB) ,INTENT(OUT) :: PSELFFRAC(JPLAY) |
|---|
| 39 | INTEGER(KIND=JPIM),INTENT(OUT) :: KINDSELF(JPLAY) |
|---|
| 40 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFAC00(JPLAY) |
|---|
| 41 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFAC01(JPLAY) |
|---|
| 42 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFAC10(JPLAY) |
|---|
| 43 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFAC11(JPLAY) |
|---|
| 44 | INTEGER(KIND=JPIM),INTENT(OUT) :: KJP(JPLAY) |
|---|
| 45 | INTEGER(KIND=JPIM),INTENT(OUT) :: KJT(JPLAY) |
|---|
| 46 | INTEGER(KIND=JPIM),INTENT(OUT) :: KJT1(JPLAY) |
|---|
| 47 | END SUBROUTINE SRTM_SETCOEF |
|---|
| 48 | END INTERFACE |
|---|
