source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/surayolmd.F90 @ 3847

Last change on this file since 3847 was 2470, checked in by Laurent Fairhead, 9 years ago

Remove PPRES argument (not used) from surayolmd (OB + MPL)

  • 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 
1SUBROUTINE SURAYOLMD
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
55
56LLTRACE=.TRUE.
57LLDEBUG=.TRUE.
58
59!     ------------------------
60!     *    Initialize Physics
61!     ------------------------
62
63!IF(NFLEVG >= 1) THEN
64IF (LLTRACE)  WRITE(*,*) " coucou SURAYOLMD : avant SUPHY"
65WRITE(*,FMT='('' ---------------- '')')
66WRITE(*,FMT='(''     SUPHY: '')')
67WRITE(*,FMT='('' ---------------- '')')
68  CALL SUPHY(6)    !!!!! A REVOIR (MPL) argument KULOUT=6 "en dur"
69
70!     ------------------------------------------------------------------
71
72END SUBROUTINE SURAYOLMD
Note: See TracBrowser for help on using the repository browser.