| [1989] | 1 | SUBROUTINE SURF_INQ(KNVTYPES,PRRCSOIL,PRWSAT,PRWCAP,PRWPWP,PRQWEVAP,PRQWSBCR,& |
|---|
| 2 | & PRQSNCR,PRWLMAX,PRTF1,PRTF2,PRTF3,PRTF4,& |
|---|
| 3 | & PRTFREEZSICE,PRTMELTSICE,PRCIMIN,PRALFMINSN,& |
|---|
| 4 | & PRALFMAXSN,PRHOMINSN,PRHOMAXSN,PRDAT,& |
|---|
| 5 | & PRDAW,PRRCSICE,PRALBSEAD,PREPALB,PRVCOV,PRVLAI,& |
|---|
| 6 | & PRVROOTSA,PRVLAMSK,PRVLAMSKS,PRVTRSR,PRCHAR,PREPUST) |
|---|
| 7 | |
|---|
| 8 | !** *SURF_INQ* Extract information from the surface package |
|---|
| 9 | |
|---|
| 10 | ! Purpose. |
|---|
| 11 | ! -------- |
|---|
| 12 | ! Interface routine for extracting information from the surf pack. |
|---|
| 13 | |
|---|
| 14 | !** Interface. |
|---|
| 15 | ! ---------- |
|---|
| 16 | ! CALL SURFINQ(...) |
|---|
| 17 | ! Explicit arguments : All arguments are optional. |
|---|
| 18 | ! -------------------- |
|---|
| 19 | |
|---|
| 20 | ! Method. |
|---|
| 21 | ! ------- |
|---|
| 22 | |
|---|
| 23 | ! Externals: none |
|---|
| 24 | |
|---|
| 25 | ! Author. |
|---|
| 26 | ! ------- |
|---|
| 27 | ! JF Estrade *ECMWF* |
|---|
| 28 | |
|---|
| 29 | ! Modifications. |
|---|
| 30 | ! -------------- |
|---|
| 31 | ! Original : 03-10-01 |
|---|
| 32 | ! ------------------------------------------------------------------ |
|---|
| 33 | |
|---|
| 34 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 35 | |
|---|
| 36 | |
|---|
| 37 | IMPLICIT NONE |
|---|
| 38 | |
|---|
| 39 | ! Declaration of arguments |
|---|
| 40 | |
|---|
| 41 | INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KNVTYPES |
|---|
| 42 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRRCSOIL |
|---|
| 43 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRWSAT |
|---|
| 44 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRQWSBCR |
|---|
| 45 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRWCAP |
|---|
| 46 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRWPWP |
|---|
| 47 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRQWEVAP |
|---|
| 48 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRQSNCR |
|---|
| 49 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRWLMAX |
|---|
| 50 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRTFREEZSICE |
|---|
| 51 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRTMELTSICE |
|---|
| 52 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRCIMIN |
|---|
| 53 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRALFMINSN |
|---|
| 54 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRALFMAXSN |
|---|
| 55 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRHOMINSN |
|---|
| 56 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRHOMAXSN |
|---|
| 57 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRDAT(:) |
|---|
| 58 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRDAW(:) |
|---|
| 59 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRALBSEAD |
|---|
| 60 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PREPALB |
|---|
| 61 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRVCOV(:) |
|---|
| 62 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRVLAI(:) |
|---|
| 63 | REAL(KIND=JPRB) ,OPTIONAL,INTENT(OUT) :: PRCHAR |
|---|
| 64 | REAL(KIND=JPRB) ,OPTIONAL,INTENT(OUT) :: PREPUST |
|---|
| 65 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRTF1 |
|---|
| 66 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRTF2 |
|---|
| 67 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRTF3 |
|---|
| 68 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRTF4 |
|---|
| 69 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRRCSICE |
|---|
| 70 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRVROOTSA(:,:) |
|---|
| 71 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRVLAMSK(:) |
|---|
| 72 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRVLAMSKS(:) |
|---|
| 73 | REAL(KIND=JPRB) ,OPTIONAL, INTENT(OUT) :: PRVTRSR(:) |
|---|
| 74 | |
|---|
| 75 | |
|---|
| 76 | ! ------------------------------------------------------------------ |
|---|
| 77 | |
|---|
| 78 | END SUBROUTINE SURF_INQ |
|---|
