Go to the source code of this file.
|
INTERFACE SUBROUTINE | SUAERV15 (KLEV, PETAH,&&PVDAES, PVDAEL, PVDAEU, PVDAED, PVDAEF,&&PTRBGA, PVOBGA, PSTBGA, PAEOPS, PAEOPL, PAEOPU,&&PAEOPF,&&PAEOPD, PTRPT, PAEADK, PAEADM, PAEROS) USE PARKIND1 |
|
INTERFACE SUBROUTINE JPRB | INTEGER (KIND=JPIM) |
|
|
INTERFACE SUBROUTINE | ONLY |
|
INTERFACE SUBROUTINE JPRB INTEGER |
( |
KIND |
= JPIM | ) |
|
INTERFACE SUBROUTINE SUAERV15 |
( |
KLEV |
, |
|
|
PETAH |
, |
|
|
&& |
PVDAES, |
|
|
PVDAEL |
, |
|
|
PVDAEU |
, |
|
|
PVDAED |
, |
|
|
PVDAEF |
, |
|
|
&& |
PTRBGA, |
|
|
PVOBGA |
, |
|
|
PSTBGA |
, |
|
|
PAEOPS |
, |
|
|
PAEOPL |
, |
|
|
PAEOPU |
, |
|
|
&& |
PAEOPF, |
|
|
&& |
PAEOPD, |
|
|
PTRPT |
, |
|
|
PAEADK |
, |
|
|
PAEADM |
, |
|
|
PAEROS |
|
|
) |
| |
INTERFACE SUBROUTINE ONLY |