source: LMDZ6/trunk/libf/phylmd/rrtm/swni.intfb.h @ 5408

Last change on this file since 5408 was 5294, checked in by Laurent Fairhead, 7 weeks ago

Keeping clesphys.h was not the right solution
LF

  • 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.0 KB
Line 
1INTERFACE
2SUBROUTINE SWNI&
3 & ( KIDIA , KFDIA , KLON , KLEV , KAER , KNU,&
4 & PAER , PAKI , PALBD , PALBP, PCG , PCLD, PCLEAR,&
5 & PDSIG , POMEGA, POZ , PRMU , PSEC , PTAU,&
6 & PUD , PWV , PQS,&
7 & PFDOWN, PFUP , PCDOWN, PCUP , PSUDU2, PDIFF , PDIRF,&
8 & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST ) 
9USE PARKIND1 ,ONLY : JPIM ,JPRB
10USE YOERAD , ONLY : NOVLP
11! Temporary fix waiting for cleaner interface (or not)
12USE clesphys_mod_h, ONLY: NSW
13!!include "clesphys.h"
14INTEGER(KIND=JPIM),INTENT(IN) :: KLON
15INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
16INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
17INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
18INTEGER(KIND=JPIM),INTENT(IN) :: KAER
19INTEGER(KIND=JPIM),INTENT(IN) :: KNU
20REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
21REAL(KIND=JPRB) ,INTENT(IN) :: PAKI(KLON,2,NSW)
22REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
23REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
24REAL(KIND=JPRB) ,INTENT(IN) :: PCG(KLON,NSW,KLEV)
25REAL(KIND=JPRB) ,INTENT(IN) :: PCLD(KLON,KLEV)
26REAL(KIND=JPRB) ,INTENT(IN) :: PCLEAR(KLON)
27REAL(KIND=JPRB) ,INTENT(IN) :: PDSIG(KLON,KLEV)
28REAL(KIND=JPRB) ,INTENT(IN) :: POMEGA(KLON,NSW,KLEV)
29REAL(KIND=JPRB) ,INTENT(IN) :: POZ(KLON,KLEV)
30REAL(KIND=JPRB) ,INTENT(IN) :: PRMU(KLON)
31REAL(KIND=JPRB) ,INTENT(IN) :: PSEC(KLON)
32REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(KLON,NSW,KLEV)
33REAL(KIND=JPRB) ,INTENT(IN) :: PUD(KLON,5,KLEV+1)
34REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
35REAL(KIND=JPRB) ,INTENT(IN) :: PQS(KLON,KLEV)
36LOGICAL ,INTENT(IN) :: LRDUST
37REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV)
38REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV)
39REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV)
40REAL(KIND=JPRB) ,INTENT(OUT) :: PFDOWN(KLON,KLEV+1)
41REAL(KIND=JPRB) ,INTENT(OUT) :: PFUP(KLON,KLEV+1)
42REAL(KIND=JPRB) ,INTENT(OUT) :: PCDOWN(KLON,KLEV+1)
43REAL(KIND=JPRB) ,INTENT(OUT) :: PCUP(KLON,KLEV+1)
44REAL(KIND=JPRB) ,INTENT(OUT) :: PSUDU2(KLON)
45REAL(KIND=JPRB) ,INTENT(OUT) :: PDIFF(KLON,KLEV)
46REAL(KIND=JPRB) ,INTENT(OUT) :: PDIRF(KLON,KLEV)
47END SUBROUTINE SWNI
48END INTERFACE
Note: See TracBrowser for help on using the repository browser.