source: LMDZ6/branches/Ocean_skin/libf/phylmd/rrtm/srtm_reftra.intfb.h @ 3628

Last change on this file since 3628 was 1990, checked in by Laurent Fairhead, 10 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: 699 bytes
Line 
1INTERFACE
2SUBROUTINE SRTM_REFTRA&
3 & ( KLEV , KMODTS,&
4 & LDRTCHK,&
5 & PGG , PRMUZ, PTAU , PW,&
6 & PREF , PREFD, PTRA , PTRAD&
7 & ) 
8USE PARKIND1 ,ONLY : JPIM ,JPRB
9USE PARSRTM , ONLY : JPLAY
10INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
11INTEGER(KIND=JPIM),INTENT(OUT) :: KMODTS
12LOGICAL ,INTENT(IN) :: LDRTCHK(JPLAY)
13REAL(KIND=JPRB) ,INTENT(IN) :: PGG(JPLAY)
14REAL(KIND=JPRB) ,INTENT(IN) :: PRMUZ
15REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(JPLAY)
16REAL(KIND=JPRB) ,INTENT(IN) :: PW(JPLAY)
17REAL(KIND=JPRB) ,INTENT(INOUT) :: PREF(JPLAY)
18REAL(KIND=JPRB) ,INTENT(INOUT) :: PREFD(JPLAY)
19REAL(KIND=JPRB) ,INTENT(INOUT) :: PTRA(JPLAY)
20REAL(KIND=JPRB) ,INTENT(INOUT) :: PTRAD(JPLAY)
21END SUBROUTINE SRTM_REFTRA
22END INTERFACE
Note: See TracBrowser for help on using the repository browser.