source: LMDZ6/branches/blowing_snow/libf/phylmd/rrtm/surf_inq.h

Last change on this file was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM

Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 2.9 KB
Line 
1SUBROUTINE 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
34USE PARKIND1  ,ONLY : JPIM     ,JPRB
35
36
37IMPLICIT NONE
38
39! Declaration of arguments
40
41INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KNVTYPES
42REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRRCSOIL
43REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRWSAT
44REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRQWSBCR
45REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRWCAP
46REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRWPWP
47REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRQWEVAP
48REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRQSNCR
49REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRWLMAX
50REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTFREEZSICE
51REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTMELTSICE
52REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRCIMIN
53REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRALFMINSN
54REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRALFMAXSN
55REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRHOMINSN
56REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRHOMAXSN
57REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRDAT(:)
58REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRDAW(:)
59REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRALBSEAD
60REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PREPALB
61REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVCOV(:) 
62REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVLAI(:) 
63REAL(KIND=JPRB)    ,OPTIONAL,INTENT(OUT)  :: PRCHAR
64REAL(KIND=JPRB)    ,OPTIONAL,INTENT(OUT)  :: PREPUST
65REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTF1
66REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTF2
67REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTF3
68REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTF4
69REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRRCSICE
70REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVROOTSA(:,:)
71REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVLAMSK(:)
72REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVLAMSKS(:)
73REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVTRSR(:)
74
75
76!     ------------------------------------------------------------------
77
78END SUBROUTINE SURF_INQ
Note: See TracBrowser for help on using the repository browser.