source: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.intfb.h @ 5001

Last change on this file since 5001 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.5 KB
Line 
1INTERFACE
2SUBROUTINE RRTM_RTRN1A_140GP (KLEV,K_ISTART,K_IEND,K_ICLDLYR,P_CLDFRAC,P_TAUCLD,P_ABSS1,&
3 & P_OD,P_TAUSF1,P_CLFNET,P_CLHTR,P_FNET,P_HTR,P_TOTDFLUC,P_TOTDFLUX,P_TOTUFLUC,P_TOTUFLUX,&
4 & P_TAVEL,PZ,P_TZ,P_TBOUND,PFRAC,P_SEMISS,P_SEMISLW,K_IREFLECT) 
5USE PARKIND1 ,ONLY : JPIM ,JPRB
6USE PARRRTM , ONLY : JPBAND ,JPGPT ,JPLAY
7INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
8INTEGER(KIND=JPIM),INTENT(IN) :: K_ISTART
9INTEGER(KIND=JPIM),INTENT(IN) :: K_IEND
10INTEGER(KIND=JPIM),INTENT(IN) :: K_ICLDLYR(JPLAY)
11REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDFRAC(JPLAY)
12REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUCLD(JPLAY,JPBAND)
13REAL(KIND=JPRB) ,INTENT(IN) :: P_ABSS1(JPGPT*JPLAY)
14REAL(KIND=JPRB) ,INTENT(IN) :: P_OD(JPGPT,JPLAY)
15REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUSF1(JPGPT*JPLAY)
16REAL(KIND=JPRB) :: P_CLFNET(0:JPLAY)
17REAL(KIND=JPRB) :: P_CLHTR(0:JPLAY)
18REAL(KIND=JPRB) :: P_FNET(0:JPLAY)
19REAL(KIND=JPRB) :: P_HTR(0:JPLAY)
20REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTDFLUC(0:JPLAY)
21REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTDFLUX(0:JPLAY)
22REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTUFLUC(0:JPLAY)
23REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTUFLUX(0:JPLAY)
24REAL(KIND=JPRB) ,INTENT(IN) :: P_TAVEL(JPLAY)
25REAL(KIND=JPRB) :: PZ(0:JPLAY)
26REAL(KIND=JPRB) ,INTENT(IN) :: P_TZ(0:JPLAY)
27REAL(KIND=JPRB) ,INTENT(IN) :: P_TBOUND
28REAL(KIND=JPRB) ,INTENT(IN) :: PFRAC(JPGPT,JPLAY)
29REAL(KIND=JPRB) ,INTENT(IN) :: P_SEMISS(JPBAND)
30REAL(KIND=JPRB) ,INTENT(OUT) :: P_SEMISLW
31INTEGER(KIND=JPIM) :: K_IREFLECT
32END SUBROUTINE RRTM_RTRN1A_140GP
33END INTERFACE
Note: See TracBrowser for help on using the repository browser.