BROWSER/doc_surf81/eggmlt_8h_source.html

 INTERFACE
 SUBROUTINE EGGMLT (PRPI, KDLUX, KDLUN, KDGUX, KDGUN, KULOUT,&
  & KPRINT, PRPK, PLON0U, PLON1U, PLON2U, KSOTRP, PLAT1R, PLAT2R,&
  & PHSUD,PBETA)

 !--------------------------------------------------------------------------
 USE PARKIND1  ,ONLY : JPIM     ,JPRB
 !--------------------------------------------------------------------------
 IMPLICIT NONE
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PRPI
 INTEGER(KIND=JPIM),INTENT(IN)    :: KDLUX
 INTEGER(KIND=JPIM),INTENT(IN)    :: KDLUN
 INTEGER(KIND=JPIM),INTENT(IN)    :: KDGUX
 INTEGER(KIND=JPIM),INTENT(IN)    :: KDGUN
 INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT
 INTEGER(KIND=JPIM),INTENT(IN)    :: KPRINT
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PRPK
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PLON0U
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PLON1U
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PLON2U
 INTEGER(KIND=JPIM),INTENT(IN)    :: KSOTRP
 REAL(KIND=JPRB)   ,INTENT(INOUT) :: PLAT1R
 REAL(KIND=JPRB)   ,INTENT(INOUT) :: PLAT2R
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PHSUD
 REAL(KIND=JPRB)   ,INTENT(IN)    :: PBETA
 !--------------------------------------------------------------------------
 END SUBROUTINE EGGMLT
 END INTERFACE
REAL
INTERFACE SUBROUTINE JPRB IMPLICIT NONE REAL(KIND=JPRB)

ONLY
INTERFACE SUBROUTINE ONLY
Definition: eggmlt.h:7

INTEGER
INTERFACE SUBROUTINE JPRB IMPLICIT NONE INTEGER(KIND=JPIM)

EGGMLT
INTERFACE SUBROUTINE EGGMLT(PRPI, KDLUX, KDLUN, KDGUX, KDGUN, KULOUT,&&KPRINT, PRPK, PLON0U, PLON1U, PLON2U, KSOTRP, PLAT1R, PLAT2R,&&PHSUD, PBETA) !-------------------------------------------------------------------------- USE PARKIND1

PARKIND1
INTERFACE SUBROUTINE SUCST_IFSAUX USE PARKIND1
Definition: sucst_ifsaux.h:4