**
1. DEFINE CONSTANTS
----------------
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=JPIM), | intent(in) | :: | KIDIA | |||
| integer(kind=JPIM), | intent(in) | :: | KFDIA | |||
| integer(kind=JPIM), | intent(in) | :: | KLON | |||
| integer(kind=JPIM), | intent(in) | :: | KTDIA | |||
| integer(kind=JPIM), | intent(in) | :: | KLEV | |||
| logical, | intent(in) | :: | LDPHYLIN | |||
| real(kind=JPRB), | intent(in) | :: | PAPRSF(KLON,KLEV) | |||
| real(kind=JPRB), | intent(in) | :: | PT(KLON,KLEV) | |||
| real(kind=JPRB), | intent(out) | :: | PQSAT(KLON,KLEV) | |||
| integer(kind=JPIM), | intent(in) | :: | KFLAG |