Line |
Branch |
Exec |
Source |
1 |
|
1 |
SUBROUTINE SURAYOLMD |
2 |
|
|
|
3 |
|
|
USE PARKIND1 ,ONLY : JPIM ,JPRB |
4 |
|
|
!#include "tsmbkind.h" |
5 |
|
|
|
6 |
|
|
!USE YOMFORC , ONLY : CFORC |
7 |
|
|
USE YOMCT0B , ONLY : LECMWF |
8 |
|
|
!USE YOMLUN , ONLY : NULOUT |
9 |
|
|
!USE YOMRIP , ONLY : NINDAT ,NSSSSS |
10 |
|
|
USE YOMDIM , ONLY : NFLEVG |
11 |
|
|
!USE YOMINI , ONLY : NEINI |
12 |
|
|
!USE YOMVRTL , ONLY : L131TL |
13 |
|
|
!USE YOMMCC , ONLY : LMCC01, LMCC02, LMCC03, LMCCEC |
14 |
|
|
!USE YOMNMIA , ONLY : LACUMTND |
15 |
|
|
!USE YOMSC2 , ONLY : NSTABUF |
16 |
|
|
!USE YOMCFU , ONLY : NFRRC |
17 |
|
|
|
18 |
|
|
|
19 |
|
|
IMPLICIT NONE |
20 |
|
|
LOGICAL LLTRACE, LLDEBUG |
21 |
|
|
|
22 |
|
|
LLTRACE=.TRUE. |
23 |
|
|
LLDEBUG=.TRUE. |
24 |
|
|
|
25 |
|
|
! ------------------------ |
26 |
|
|
! * Initialize Physics |
27 |
|
|
! ------------------------ |
28 |
|
|
|
29 |
|
|
!IF(NFLEVG >= 1) THEN |
30 |
|
1 |
IF (LLTRACE) WRITE(*,*) " coucou SURAYOLMD : avant SUPHY" |
31 |
|
1 |
WRITE(*,FMT='('' ---------------- '')') |
32 |
|
1 |
WRITE(*,FMT='('' SUPHY: '')') |
33 |
|
1 |
WRITE(*,FMT='('' ---------------- '')') |
34 |
|
1 |
CALL SUPHY(6) !!!!! A REVOIR (MPL) argument KULOUT=6 "en dur" |
35 |
|
|
|
36 |
|
|
! ------------------------------------------------------------------ |
37 |
|
|
|
38 |
|
1 |
END SUBROUTINE SURAYOLMD |
39 |
|
|
|