source: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cldprop.intfb.h @ 3997

Last change on this file since 3997 was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM

Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 1.1 KB
RevLine 
[1989]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.