source: LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt_mcica.intfb.h @ 2930

Last change on this file since 2930 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: 2.4 KB
RevLine 
[1989]1INTERFACE
2SUBROUTINE SRTM_SPCVRT_MCICA&
3 & ( KLEV , KMOL , KSW , KCOLS , PONEMINUS,&
4 & PAVEL , PTAVEL , PZ , PTZ , PTBOUND , PALBD , PALBP,&
5 & PFRCL , PTAUC , PASYC , POMGC , PTAUA , PASYA , POMGA , PRMU0,&
6 & PCOLDRY , PWKL,&
7 & KLAYTROP, KLAYSWTCH, KLAYLOW ,&
8 & PCO2MULT, PCOLCH4 , PCOLCO2 , PCOLH2O , PCOLMOL , PCOLN2O , PCOLO2 , PCOLO3 ,&
9 & PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,&
10 & PFAC00 , PFAC01 , PFAC10 , PFAC11 ,&
11 & KJP , KJT , KJT1 ,&
12 & PBBFD, PBBFU, PBBCD, PBBCU ) 
13USE PARKIND1 ,ONLY : JPIM ,JPRB
14USE PARSRTM , ONLY : JPLAY, JPB1, JPB2, JPGPT
15INTEGER(KIND=JPIM),INTENT(IN) :: KSW
16INTEGER(KIND=JPIM),INTENT(IN) :: KCOLS
17INTEGER(KIND=JPIM) :: KLEV
18INTEGER(KIND=JPIM) :: KMOL
19REAL(KIND=JPRB) :: PONEMINUS
20REAL(KIND=JPRB) :: PAVEL(JPLAY)
21REAL(KIND=JPRB) :: PTAVEL(JPLAY)
22REAL(KIND=JPRB) :: PZ(0:JPLAY)
23REAL(KIND=JPRB) :: PTZ(0:JPLAY)
24REAL(KIND=JPRB) :: PTBOUND
25REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KSW)
26REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KSW)
27REAL(KIND=JPRB) ,INTENT(IN) :: PFRCL(KCOLS,JPLAY)
28REAL(KIND=JPRB) ,INTENT(IN) :: PTAUC(JPLAY,KCOLS)
29REAL(KIND=JPRB) ,INTENT(IN) :: PASYC(JPLAY,KCOLS)
30REAL(KIND=JPRB) ,INTENT(IN) :: POMGC(JPLAY,KCOLS)
31REAL(KIND=JPRB) ,INTENT(IN) :: PTAUA(JPLAY,KSW)
32REAL(KIND=JPRB) ,INTENT(IN) :: PASYA(JPLAY,KSW)
33REAL(KIND=JPRB) ,INTENT(IN) :: POMGA(JPLAY,KSW)
34REAL(KIND=JPRB) :: PRMU0
35REAL(KIND=JPRB) :: PCOLDRY(JPLAY)
36REAL(KIND=JPRB) :: PWKL(35,JPLAY)
37INTEGER(KIND=JPIM) :: KLAYTROP
38INTEGER(KIND=JPIM) :: KLAYSWTCH
39INTEGER(KIND=JPIM) :: KLAYLOW
40REAL(KIND=JPRB) :: PCO2MULT(JPLAY)
41REAL(KIND=JPRB) :: PCOLCH4(JPLAY)
42REAL(KIND=JPRB) :: PCOLCO2(JPLAY)
43REAL(KIND=JPRB) :: PCOLH2O(JPLAY)
44REAL(KIND=JPRB) :: PCOLMOL(JPLAY)
45REAL(KIND=JPRB) :: PCOLN2O(JPLAY)
46REAL(KIND=JPRB) :: PCOLO2(JPLAY)
47REAL(KIND=JPRB) :: PCOLO3(JPLAY)
48REAL(KIND=JPRB) :: PFORFAC(JPLAY)
49REAL(KIND=JPRB) :: PFORFRAC(JPLAY)
50INTEGER(KIND=JPIM) :: KINDFOR(JPLAY)
51REAL(KIND=JPRB) :: PSELFFAC(JPLAY)
52REAL(KIND=JPRB) :: PSELFFRAC(JPLAY)
53INTEGER(KIND=JPIM) :: KINDSELF(JPLAY)
54REAL(KIND=JPRB) :: PFAC00(JPLAY)
55REAL(KIND=JPRB) :: PFAC01(JPLAY)
56REAL(KIND=JPRB) :: PFAC10(JPLAY)
57REAL(KIND=JPRB) :: PFAC11(JPLAY)
58INTEGER(KIND=JPIM) :: KJP(JPLAY)
59INTEGER(KIND=JPIM) :: KJT(JPLAY)
60INTEGER(KIND=JPIM) :: KJT1(JPLAY)
61REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBFD(JPLAY+1)
62REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBFU(JPLAY+1)
63REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBCD(JPLAY+1)
64REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBCU(JPLAY+1)
65END SUBROUTINE SRTM_SPCVRT_MCICA
66END INTERFACE
Note: See TracBrowser for help on using the repository browser.