GCC Code Coverage Report


Directory: ./
File: rad/surayolmd.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 7 7 100.0%
Branches: 0 0 -%

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