source: dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/rrtm/srtm_cldprop.intfb.h @ 4249

Last change on this file since 4249 was 3990, checked in by millour, 8 years ago

An updated LMDZ5 (based on LMDZ rev 2786) to play with.
EM

File size: 1.1 KB
Line 
1INTERFACE
2SUBROUTINE SRTM_CLDPROP&
3 & ( KLEV, K_ICLDATM, K_INFLAG, K_ICEFLAG, K_LIQFLAG, K_NSTR,&
4 & P_CLDFRAC, P_CLDDAT1, P_CLDDAT2, P_CLDDAT3, P_CLDDAT4, P_CLDDATMOM,&
5 & P_TAUCLDORIG, P_TAUCLOUD, P_SSACLOUD, P_XMOM&
6 & ) 
7USE PARKIND1 ,ONLY : JPIM ,JPRB
8USE PARSRTM , ONLY : JPLAY, JPBAND, JPB1, JPB2
9INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
10INTEGER(KIND=JPIM),INTENT(OUT) :: K_ICLDATM
11INTEGER(KIND=JPIM),INTENT(IN) :: K_INFLAG
12INTEGER(KIND=JPIM),INTENT(IN) :: K_ICEFLAG
13INTEGER(KIND=JPIM),INTENT(IN) :: K_LIQFLAG
14INTEGER(KIND=JPIM),INTENT(IN) :: K_NSTR
15REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDFRAC(JPLAY)
16REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDAT1(JPLAY)
17REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDAT2(JPLAY)
18REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDAT3(JPLAY)
19REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDAT4(JPLAY)
20REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDATMOM(0:16,JPLAY)
21REAL(KIND=JPRB) ,INTENT(INOUT) :: P_TAUCLDORIG(JPLAY,JPBAND)
22REAL(KIND=JPRB) ,INTENT(INOUT) :: P_TAUCLOUD(JPLAY,JPBAND)
23REAL(KIND=JPRB) ,INTENT(OUT) :: P_SSACLOUD(JPLAY,JPBAND)
24REAL(KIND=JPRB) ,INTENT(OUT) :: P_XMOM(0:16,JPLAY,JPBAND)
25END SUBROUTINE SRTM_CLDPROP
26END INTERFACE
Note: See TracBrowser for help on using the repository browser.