LMDZ
swr.intfb.h
Go to the documentation of this file.
1 INTERFACE
2 SUBROUTINE SWR&
3  & ( KIDIA , KFDIA , KLON , KLEV , KNU,&
4  & PALBD , PCG , PCLD , POMEGA, PSEC , PTAU,&
5  & PCGAZ , PPIZAZ, PRAY1, PRAY2 , PREFZ, PRJ , PRK , PRMUE,&
6  & PTAUAZ, PTRA1 , PTRA2, PTRCLD&
7  & )
8 USE PARKIND1 ,ONLY : JPIM ,JPRB
9 USE YOERAD , ONLY : NOVLP
10 include "clesphys.h"
11 INTEGER(KIND=JPIM),INTENT(IN) :: KLON
12 INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
13 INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
14 INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
15 INTEGER(KIND=JPIM),INTENT(IN) :: KNU
16 REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
17 REAL(KIND=JPRB) ,INTENT(IN) :: PCG(KLON,NSW,KLEV)
18 REAL(KIND=JPRB) ,INTENT(IN) :: PCLD(KLON,KLEV)
19 REAL(KIND=JPRB) ,INTENT(IN) :: POMEGA(KLON,NSW,KLEV)
20 REAL(KIND=JPRB) ,INTENT(IN) :: PSEC(KLON)
21 REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(KLON,NSW,KLEV)
22 REAL(KIND=JPRB) ,INTENT(IN) :: PCGAZ(KLON,KLEV)
23 REAL(KIND=JPRB) ,INTENT(IN) :: PPIZAZ(KLON,KLEV)
24 REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY1(KLON,KLEV+1)
25 REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY2(KLON,KLEV+1)
26 REAL(KIND=JPRB) ,INTENT(OUT) :: PREFZ(KLON,2,KLEV+1)
27 REAL(KIND=JPRB) ,INTENT(OUT) :: PRJ(KLON,6,KLEV+1)
28 REAL(KIND=JPRB) ,INTENT(OUT) :: PRK(KLON,6,KLEV+1)
29 REAL(KIND=JPRB) ,INTENT(OUT) :: PRMUE(KLON,KLEV+1)
30 REAL(KIND=JPRB) ,INTENT(IN) :: PTAUAZ(KLON,KLEV)
31 REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA1(KLON,KLEV+1)
32 REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA2(KLON,KLEV+1)
33 REAL(KIND=JPRB) ,INTENT(OUT) :: PTRCLD(KLON)
34 END SUBROUTINE SWR
35 END INTERFACE
PTAUAZ
INTERFACE SUBROUTINE SWR && PTAUAZ
Definition: swr.intfb.h:3
REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
KIDIA
INTERFACE SUBROUTINE SWR && KIDIA
Definition: swr.intfb.h:3
JPIM
ONLY JPIM
Definition: tsmbkind.h:5
KFDIA
INTERFACE SUBROUTINE SWR KFDIA
Definition: swr.intfb.h:3
INTEGER
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
ONLY
INTERFACE SUBROUTINE SWR PTRCLD &&USE ONLY
Definition: swr.intfb.h:3
PTAU
INTERFACE SUBROUTINE SWR PTAU
Definition: swr.intfb.h:3
PRK
INTERFACE SUBROUTINE SWR PRK
Definition: swr.intfb.h:3
PSEC
INTERFACE SUBROUTINE SWR PSEC
Definition: swr.intfb.h:3
PRJ
INTERFACE SUBROUTINE SWR PRJ
Definition: swr.intfb.h:3
PRAY2
INTERFACE SUBROUTINE SWR PRAY2
Definition: swr.intfb.h:3
PPIZAZ
INTERFACE SUBROUTINE SWR PPIZAZ
Definition: swr.intfb.h:3
PTRA2
INTERFACE SUBROUTINE SWR PTRA2
Definition: swr.intfb.h:3
PCGAZ
INTERFACE SUBROUTINE SWR && PCGAZ
Definition: swr.intfb.h:3
KNU
INTERFACE SUBROUTINE SWR KNU
Definition: swr.intfb.h:3
PTRA1
INTERFACE SUBROUTINE SWR PTRA1
Definition: swr.intfb.h:3
NOVLP
NAMELIST NAERAD LONEWSW LSRTM LNOTROAER LRADONDEM NRADLP NLAYINH NOVLP
Definition: naerad.h:3
PALBD
INTERFACE SUBROUTINE SWR && PALBD
Definition: swr.intfb.h:3
PCLD
INTERFACE SUBROUTINE SWR PCLD
Definition: swr.intfb.h:3
PRAY1
INTERFACE SUBROUTINE SWR PRAY1
Definition: swr.intfb.h:3
PREFZ
INTERFACE SUBROUTINE SWR PREFZ
Definition: swr.intfb.h:3
JPRB
ONLY JPRB
Definition: tsmbkind.h:5
KLEV
INTERFACE SUBROUTINE SWR KLEV
Definition: swr.intfb.h:3
KLON
INTERFACE SUBROUTINE SWR KLON
Definition: swr.intfb.h:3
PRMUE
INTERFACE SUBROUTINE SWR PRMUE
Definition: swr.intfb.h:3
POMEGA
INTERFACE SUBROUTINE SWR POMEGA
Definition: swr.intfb.h:3
NSW
NAMELIST NAERAD LONEWSW LSRTM LNOTROAER LRADONDEM NRADLP NLAYINH NSW
Definition: naerad.h:3
PCG
INTERFACE SUBROUTINE SWR PCG
Definition: swr.intfb.h:3