LMDZ
lwttm.intfb.h
Go to the documentation of this file.
1 INTERFACE
2 SUBROUTINE LWTTM ( KIDIA, KFDIA, KLON, PGA , PGB, PUU1 , PUU2 , PTT )
3 USE PARKIND1 ,ONLY : JPIM ,JPRB
4 USE YOELW , ONLY : NTRA ,NUA ,RPTYPE ,RETYPE ,&
5  & RO1H ,RO2H ,RPIALF0
6 INTEGER(KIND=JPIM),INTENT(IN) :: KLON
7 INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
8 INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
9 REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,8,2)
10 REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,8,2)
11 REAL(KIND=JPRB) ,INTENT(IN) :: PUU1(KLON,NUA)
12 REAL(KIND=JPRB) ,INTENT(IN) :: PUU2(KLON,NUA)
13 REAL(KIND=JPRB) ,INTENT(OUT) :: PTT(KLON,NTRA)
14 END SUBROUTINE LWTTM
15 END INTERFACE
KLON
INTERFACE SUBROUTINE LW KLON
Definition: lw.intfb.h:3
ONLY
INTERFACE SUBROUTINE ONLY
Definition: lwttm.intfb.h:3
REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2
NTRA
INTERFACE SUBROUTINE LWVB PFLUC &&USE JPRB USE NTRA
Definition: lwvb.intfb.h:3
KFDIA
INTERFACE SUBROUTINE LW KFDIA
Definition: lw.intfb.h:3
JPIM
ONLY JPIM
Definition: tsmbkind.h:5
NUA
INTERFACE SUBROUTINE JPRB USE NUA
Definition: lwttm.intfb.h:3
INTEGER
INTERFACE SUBROUTINE JPRB USE RPIALF0 INTEGER(KIND=JPIM)
LWTTM
INTERFACE SUBROUTINE LWTTM(KIDIA, KFDIA, KLON, PGA, PGB, PUU1, PUU2, PTT) USE PARKIND1
PGB
INTERFACE SUBROUTINE LWB PGB
Definition: lwb.intfb.h:3
RPTYPE
INTERFACE SUBROUTINE JPRB USE RPTYPE
Definition: lwttm.intfb.h:3
RO2H
INTERFACE SUBROUTINE JPRB USE RO2H
Definition: lwttm.intfb.h:3
JPRB
ONLY JPRB
Definition: tsmbkind.h:5
PGA
INTERFACE SUBROUTINE LWB && PGA
Definition: lwb.intfb.h:3
RETYPE
INTERFACE SUBROUTINE JPRB USE RETYPE
Definition: lwttm.intfb.h:3
RO1H
INTERFACE SUBROUTINE JPRB USE && RO1H
Definition: lwttm.intfb.h:3
KIDIA
INTERFACE SUBROUTINE LW && KIDIA
Definition: lw.intfb.h:3