source: LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt.intfb.h @ 1990

Last change on this file since 1990 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.8 KB
Line 
1INTERFACE
2SUBROUTINE SRTM_SPCVRT&
3 & ( KLEV , KMOL , KSW , 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, PUVFD, PUVFU, PVSFD, PVSFU , PNIFD , PNIFU ,&
13 & PBBCD, PBBCU, PUVCD, PUVCU, PVSCD, PVSCU , PNICD , PNICU&
14 & ) 
15USE PARKIND1 ,ONLY : JPIM ,JPRB
16USE PARSRTM , ONLY : JPLAY, JPB1, JPB2, JPGPT
17INTEGER(KIND=JPIM),INTENT(IN) :: KSW
18INTEGER(KIND=JPIM) :: KLEV
19INTEGER(KIND=JPIM) :: KMOL
20REAL(KIND=JPRB) :: PONEMINUS
21REAL(KIND=JPRB) :: PAVEL(JPLAY)
22REAL(KIND=JPRB) :: PTAVEL(JPLAY)
23REAL(KIND=JPRB) :: PZ(0:JPLAY)
24REAL(KIND=JPRB) :: PTZ(0:JPLAY)
25REAL(KIND=JPRB) :: PTBOUND
26REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KSW)
27REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KSW)
28REAL(KIND=JPRB) ,INTENT(IN) :: PFRCL(JPLAY)
29REAL(KIND=JPRB) ,INTENT(IN) :: PTAUC(JPLAY,KSW)
30REAL(KIND=JPRB) ,INTENT(IN) :: PASYC(JPLAY,KSW)
31REAL(KIND=JPRB) ,INTENT(IN) :: POMGC(JPLAY,KSW)
32REAL(KIND=JPRB) ,INTENT(IN) :: PTAUA(JPLAY,KSW)
33REAL(KIND=JPRB) ,INTENT(IN) :: PASYA(JPLAY,KSW)
34REAL(KIND=JPRB) ,INTENT(IN) :: POMGA(JPLAY,KSW)
35REAL(KIND=JPRB) :: PRMU0
36REAL(KIND=JPRB) :: PCOLDRY(JPLAY)
37REAL(KIND=JPRB) :: PWKL(35,JPLAY)
38INTEGER(KIND=JPIM) :: KLAYTROP
39INTEGER(KIND=JPIM) :: KLAYSWTCH
40INTEGER(KIND=JPIM) :: KLAYLOW
41REAL(KIND=JPRB) :: PCO2MULT(JPLAY)
42REAL(KIND=JPRB) :: PCOLCH4(JPLAY)
43REAL(KIND=JPRB) :: PCOLCO2(JPLAY)
44REAL(KIND=JPRB) :: PCOLH2O(JPLAY)
45REAL(KIND=JPRB) :: PCOLMOL(JPLAY)
46REAL(KIND=JPRB) :: PCOLN2O(JPLAY)
47REAL(KIND=JPRB) :: PCOLO2(JPLAY)
48REAL(KIND=JPRB) :: PCOLO3(JPLAY)
49REAL(KIND=JPRB) :: PFORFAC(JPLAY)
50REAL(KIND=JPRB) :: PFORFRAC(JPLAY)
51INTEGER(KIND=JPIM) :: KINDFOR(JPLAY)
52REAL(KIND=JPRB) :: PSELFFAC(JPLAY)
53REAL(KIND=JPRB) :: PSELFFRAC(JPLAY)
54INTEGER(KIND=JPIM) :: KINDSELF(JPLAY)
55REAL(KIND=JPRB) :: PFAC00(JPLAY)
56REAL(KIND=JPRB) :: PFAC01(JPLAY)
57REAL(KIND=JPRB) :: PFAC10(JPLAY)
58REAL(KIND=JPRB) :: PFAC11(JPLAY)
59INTEGER(KIND=JPIM) :: KJP(JPLAY)
60INTEGER(KIND=JPIM) :: KJT(JPLAY)
61INTEGER(KIND=JPIM) :: KJT1(JPLAY)
62REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBFD(JPLAY+1)
63REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBFU(JPLAY+1)
64REAL(KIND=JPRB) :: PUVFD(JPLAY+1)
65REAL(KIND=JPRB) :: PUVFU(JPLAY+1)
66REAL(KIND=JPRB) :: PVSFD(JPLAY+1)
67REAL(KIND=JPRB) :: PVSFU(JPLAY+1)
68REAL(KIND=JPRB) :: PNIFD(JPLAY+1)
69REAL(KIND=JPRB) :: PNIFU(JPLAY+1)
70REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBCD(JPLAY+1)
71REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBCU(JPLAY+1)
72REAL(KIND=JPRB) :: PUVCD(JPLAY+1)
73REAL(KIND=JPRB) :: PUVCU(JPLAY+1)
74REAL(KIND=JPRB) :: PVSCD(JPLAY+1)
75REAL(KIND=JPRB) :: PVSCU(JPLAY+1)
76REAL(KIND=JPRB) :: PNICD(JPLAY+1)
77REAL(KIND=JPRB) :: PNICU(JPLAY+1)
78END SUBROUTINE SRTM_SPCVRT
79END INTERFACE
Note: See TracBrowser for help on using the repository browser.