source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/rrtm/surayolmd.F90

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: 1.6 KB
Line 
1SUBROUTINE SURAYOLMD(PPRES)
2#ifdef DOC
3
4!     **** *SURAYOLMD - initialization rayonnement LMD
5
6!     Purpose.
7!     --------
8
9!     **   Interface.
10!     ----------
11
12!     Explicit arguments :    None.
13!     --------------------
14
15!     Implicit arguments :    None.
16!     --------------------
17
18!     Method.
19!     -------
20
21!     Externals.   None.
22!     ----------
23
24!     Reference.
25!     ----------
26
27!     Author.
28!     -------
29
30!     Modifications.
31!     --------------
32!     Original :08-04-03
33!     MP Lefebvre modified suinit.F90 program.
34!     ------------------------------------------------------------------
35#endif
36
37USE PARKIND1  ,ONLY : JPIM     ,JPRB
38!#include "tsmbkind.h"
39
40!USE YOMFORC  , ONLY : CFORC
41USE YOMCT0B  , ONLY : LECMWF
42!USE YOMLUN   , ONLY : NULOUT
43!USE YOMRIP   , ONLY : NINDAT   ,NSSSSS
44USE YOMDIM   , ONLY : NFLEVG
45!USE YOMINI   , ONLY : NEINI
46!USE YOMVRTL  , ONLY : L131TL
47!USE YOMMCC   , ONLY : LMCC01, LMCC02, LMCC03, LMCCEC
48!USE YOMNMIA  , ONLY : LACUMTND
49!USE YOMSC2   , ONLY : NSTABUF
50!USE YOMCFU   , ONLY : NFRRC
51
52
53IMPLICIT NONE
54LOGICAL LLTRACE, LLDEBUG
55REAL PPRES(NFLEVG)
56
57LLTRACE=.TRUE.
58LLDEBUG=.TRUE.
59
60!     ------------------------
61!     *    Initialize Physics
62!     ------------------------
63
64!IF(NFLEVG >= 1) THEN
65IF (LLTRACE)  WRITE(*,*) " coucou SURAYOLMD : avant SUPHY"
66WRITE(*,FMT='('' ---------------- '')')
67WRITE(*,FMT='(''     SUPHY: '')')
68WRITE(*,FMT='('' ---------------- '')')
69!  CALL SUPHY(PPRES)
70  CALL SUPHY(6)    !!!!! A REVOIR (MPL) argument KULOUT=6 "en dur"
71
72!     ------------------------------------------------------------------
73
74END SUBROUTINE SURAYOLMD
Note: See TracBrowser for help on using the repository browser.