source: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb26.F90 @ 4122

Last change on this file since 4122 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.5 KB
Line 
1!OCL SCALAR
2#ifdef RS6K
3@PROCESS NOOPTIMIZE
4#endif
5SUBROUTINE SRTM_KGB26
6
7!     Originally by J.Delamere, Atmospheric & Environmental Research.
8!     Revision: 2.4
9!     BAND 26:  22650-29000 cm-1 (low - nothing; high - nothing)
10!     Reformatted for F90 by JJMorcrette, ECMWF
11
12!     ------------------------------------------------------------------
13
14USE PARKIND1  ,ONLY : JPRB
15USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
16
17USE YOESRTA26, ONLY : SFLUXREF, RAYL
18
19!     ------------------------------------------------------------------
20
21IMPLICIT NONE
22
23! KURUCZ
24REAL(KIND=JPRB) :: ZHOOK_HANDLE
25IF (LHOOK) CALL DR_HOOK('SRTM_KGB26',0,ZHOOK_HANDLE)
26SFLUXREF = (/ &
27 !  &     129.462_JPRB, 15*_ZERO_ /)
28 & 29.0079_JPRB,  28.4088_JPRB,     20.3099_JPRB,  13.0283_JPRB &
29 & ,  11.8619_JPRB,  9.95840_JPRB,     6.68696_JPRB,  5.38987_JPRB &
30 & ,  3.49829_JPRB, 0.407693_JPRB,    0.299027_JPRB, 0.236827_JPRB &
31 & , 0.188502_JPRB, 0.163489_JPRB, 4.64335E-02_JPRB, 2.72662E-03_JPRB /) 
32
33!     Rayleigh extinction coefficient at all v
34RAYL = (/ &
35 & 1.21263E-06_JPRB,1.43428E-06_JPRB,1.67677E-06_JPRB,1.93255E-06_JPRB &
36 & , 2.19177E-06_JPRB,2.44195E-06_JPRB,2.66926E-06_JPRB,2.85990E-06_JPRB &
37 & , 3.00380E-06_JPRB,3.06996E-06_JPRB,3.08184E-06_JPRB,3.09172E-06_JPRB &
38 & , 3.09938E-06_JPRB,3.10456E-06_JPRB,3.10727E-06_JPRB,3.10818E-06_JPRB /) 
39
40!     ------------------------------------------------------------------
41IF (LHOOK) CALL DR_HOOK('SRTM_KGB26',1,ZHOOK_HANDLE)
42END SUBROUTINE SRTM_KGB26
43
Note: See TracBrowser for help on using the repository browser.