1 |
|
1 |
SUBROUTINE 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 |
|
|
|
37 |
|
|
USE PARKIND1 ,ONLY : JPIM ,JPRB |
38 |
|
|
!#include "tsmbkind.h" |
39 |
|
|
|
40 |
|
|
!USE YOMFORC , ONLY : CFORC |
41 |
|
|
USE YOMCT0B , ONLY : LECMWF |
42 |
|
|
!USE YOMLUN , ONLY : NULOUT |
43 |
|
|
!USE YOMRIP , ONLY : NINDAT ,NSSSSS |
44 |
|
|
USE 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 |
|
|
|
53 |
|
|
IMPLICIT NONE |
54 |
|
|
LOGICAL LLTRACE, LLDEBUG |
55 |
|
|
|
56 |
|
|
LLTRACE=.TRUE. |
57 |
|
|
LLDEBUG=.TRUE. |
58 |
|
|
|
59 |
|
|
! ------------------------ |
60 |
|
|
! * Initialize Physics |
61 |
|
|
! ------------------------ |
62 |
|
|
|
63 |
|
|
!IF(NFLEVG >= 1) THEN |
64 |
|
1 |
IF (LLTRACE) WRITE(*,*) " coucou SURAYOLMD : avant SUPHY" |
65 |
|
1 |
WRITE(*,FMT='('' ---------------- '')') |
66 |
|
1 |
WRITE(*,FMT='('' SUPHY: '')') |
67 |
|
1 |
WRITE(*,FMT='('' ---------------- '')') |
68 |
|
1 |
CALL SUPHY(6) !!!!! A REVOIR (MPL) argument KULOUT=6 "en dur" |
69 |
|
|
|
70 |
|
|
! ------------------------------------------------------------------ |
71 |
|
|
|
72 |
|
1 |
END SUBROUTINE SURAYOLMD |