LMDZ
swu.intfb.h
Go to the documentation of this file.
1 INTERFACE
2 SUBROUTINE SWU&
3  & ( KIDIA, KFDIA , KLON , KLEV,&
4  & PSCT , PCARDI, PCLDSW, PPMB , PPSOL, PRMU0, PTAVE, PWV,&
5  & PAKI , PCLD , PCLEAR, PDSIG, PFACT, PRMU , PSEC , PUD&
6  & )
7 USE PARKIND1 ,ONLY : JPIM ,JPRB
8 USE YOERAD , ONLY : NOVLP
9 include "clesphys.h"
10 INTEGER(KIND=JPIM),INTENT(IN) :: KLON
11 INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
12 INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
13 INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
14 REAL(KIND=JPRB) ,INTENT(IN) :: PSCT
15 REAL(KIND=JPRB) ,INTENT(IN) :: PCARDI
16 REAL(KIND=JPRB) ,INTENT(IN) :: PCLDSW(KLON,KLEV)
17 REAL(KIND=JPRB) ,INTENT(IN) :: PPMB(KLON,KLEV+1)
18 REAL(KIND=JPRB) ,INTENT(IN) :: PPSOL(KLON)
19 REAL(KIND=JPRB) ,INTENT(IN) :: PRMU0(KLON)
20 REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
21 REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
22 REAL(KIND=JPRB) ,INTENT(OUT) :: PAKI(KLON,2,NSW)
23 REAL(KIND=JPRB) ,INTENT(INOUT) :: PCLD(KLON,KLEV)
24 REAL(KIND=JPRB) ,INTENT(OUT) :: PCLEAR(KLON)
25 REAL(KIND=JPRB) ,INTENT(OUT) :: PDSIG(KLON,KLEV)
26 REAL(KIND=JPRB) ,INTENT(OUT) :: PFACT(KLON)
27 REAL(KIND=JPRB) ,INTENT(OUT) :: PRMU(KLON)
28 REAL(KIND=JPRB) ,INTENT(OUT) :: PSEC(KLON)
29 REAL(KIND=JPRB) ,INTENT(OUT) :: PUD(KLON,5,KLEV+1)
30 END SUBROUTINE SWU
31 END INTERFACE
KLEV
INTERFACE SUBROUTINE SWU KLEV
Definition: swu.intfb.h:3
REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
PDSIG
INTERFACE SUBROUTINE SWU PDSIG
Definition: swu.intfb.h:3
PRMU0
INTERFACE SUBROUTINE SWU PRMU0
Definition: swu.intfb.h:3
PCLD
INTERFACE SUBROUTINE SWU PCLD
Definition: swu.intfb.h:3
KFDIA
INTERFACE SUBROUTINE SWU KFDIA
Definition: swu.intfb.h:3
PWV
INTERFACE SUBROUTINE SWU PWV
Definition: swu.intfb.h:3
JPIM
ONLY JPIM
Definition: tsmbkind.h:5
INTEGER
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)
KLON
INTERFACE SUBROUTINE SWU KLON
Definition: swu.intfb.h:3
KIDIA
INTERFACE SUBROUTINE SWU && KIDIA
Definition: swu.intfb.h:3
ONLY
INTERFACE SUBROUTINE SWU PUD &&USE ONLY
Definition: swu.intfb.h:3
PTAVE
INTERFACE SUBROUTINE SWU PTAVE
Definition: swu.intfb.h:3
PSCT
INTERFACE SUBROUTINE SWU && PSCT
Definition: swu.intfb.h:3
NOVLP
NAMELIST NAERAD LONEWSW LSRTM LNOTROAER LRADONDEM NRADLP NLAYINH NOVLP
Definition: naerad.h:3
PPSOL
INTERFACE SUBROUTINE SWU PPSOL
Definition: swu.intfb.h:3
PPMB
INTERFACE SUBROUTINE SWU PPMB
Definition: swu.intfb.h:3
PRMU
INTERFACE SUBROUTINE SWU PRMU
Definition: swu.intfb.h:3
PCLEAR
INTERFACE SUBROUTINE SWU PCLEAR
Definition: swu.intfb.h:3
JPRB
ONLY JPRB
Definition: tsmbkind.h:5
PAKI
INTERFACE SUBROUTINE SWU && PAKI
Definition: swu.intfb.h:3
PSEC
INTERFACE SUBROUTINE SWU PSEC
Definition: swu.intfb.h:3
NSW
NAMELIST NAERAD LONEWSW LSRTM LNOTROAER LRADONDEM NRADLP NLAYINH NSW
Definition: naerad.h:3
PFACT
INTERFACE SUBROUTINE SWU PFACT
Definition: swu.intfb.h:3
PCARDI
INTERFACE SUBROUTINE SWU PCARDI
Definition: swu.intfb.h:3
PUD
INTERFACE SUBROUTINE SW1S PUD
Definition: sw1s.intfb.h:3
PCLDSW
INTERFACE SUBROUTINE SWU PCLDSW
Definition: swu.intfb.h:3