source: LMDZ5/trunk/libf/phylmd/rrtm/yoesat.F90 @ 1997

Last change on this file since 1997 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: 1.7 KB
Line 
1MODULE YOESAT
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     -----------------------------------------------------------------
10!*    ** *YOESAT* - CONTROL OF SIMULATION OF SATELLITE RADIANCES
11!     -----------------------------------------------------------------
12
13INTEGER(KIND=JPIM) :: NGEO
14INTEGER(KIND=JPIM) :: NPOLO
15REAL(KIND=JPRB) :: RGALT(5)
16REAL(KIND=JPRB) :: RGNAD(5)
17REAL(KIND=JPRB) :: RGNOR(5)
18REAL(KIND=JPRB) :: RGSOU(5)
19REAL(KIND=JPRB) :: RGWST(5)
20REAL(KIND=JPRB) :: RGEAS(5)
21LOGICAL :: LGEOSE
22LOGICAL :: LGEOSW
23LOGICAL :: LGMS
24LOGICAL :: LINDSA
25LOGICAL :: LMTO
26LOGICAL :: LNOAA
27LOGICAL :: LNOAB
28LOGICAL :: LNOAC
29LOGICAL :: LNOAD
30
31!        * E.C.M.W.F. PHYSICS PACKAGE *
32
33!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
34
35!  NAME    TYPE     PURPOSE
36!  ---- :  ----   : ---------------------------------------------------
37! NGEO  : INTEGER : NUMBER OF GEOSTATIONARY SATELLITES
38! NPOLO : INTEGER : NUMBER OF POLAR-ORBITER SATELLITES
39! LGEOSE: LOGICAL : SWITCH FOR GEOS-EAST
40! LGEOSW: LOGICAL : SWITCH FOR GEOS-WEST
41! LGMS  : LOGICAL : SWITCH FOR GMS
42! LINDSA: LOGICAL : SWITCH FOR INDSAT
43! LMTO  : LOGICAL : SWITCH FOR METEOSAT
44! LNOAA : LOGICAL : SWITCH FOR NOAA-A
45! LNOAB : LOGICAL : SWITCH FOR NOAA-B
46! LNOAC : LOGICAL : SWITCH FOR NOAA-C
47! LNOAD : LOGICAL : SWITCH FOR NOAA-D
48! RGALT : REAL    : ALTITUDE ABOVE EARTH'S SURFACE OF GEOSTAT. SATELLITE
49! RGNAD : REAL    : LONGITUDE OF NADIR OF GEOSTATIONARY SATELLITE
50! RGNOR : REAL    : LATITUDE OF NORTH LIMIT OF FIELD OF VIEW
51! RGSOU : REAL    : LATITUDE OF SOUTH LIMIT OF FIELD OF VIEW
52! RGWST : REAL    : LATITUDE OF WEST  LIMIT OF FIELD OF VIEW
53! RGEAS : REAL    : LATITUDE OF EAST  LIMIT OF FIELD OF VIEW
54!     -----------------------------------------------------------------
55END MODULE YOESAT
Note: See TracBrowser for help on using the repository browser.