LMDZ
surf_inq.h
Go to the documentation of this file.
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