GCC Code Coverage Report


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

Line Branch Exec Source
1 MODULE TYPE_FADS
2
3 ! Purpose :
4 ! -------
5 ! To define the Field Arpege Descriptors :
6 ! - %CLNAME : ARPEGE field name
7 ! - %NBITS : number of bits to code in Arpege/Aladin file
8 ! (-1 : default, 0 : no packing, >0 : nb of bits)
9
10 ! Interface :
11 ! ---------
12 ! Empty.
13
14 ! External :
15 ! --------
16 ! None.
17
18 ! Method :
19 ! ------
20
21 ! Reference :
22 ! ---------
23 ! Arpege Aladin Files package
24
25 ! Author :
26 ! ------
27 ! Ryad El Khatib *METEO-FRANCE*
28
29 ! Modifications :
30 ! -------------
31 ! Original : 2003-08-19
32 ! M.Hamrud 01-Oct-2003 CY28 Cleaning
33 ! F.Bouyssel 10-Nov-2005 Change in second descriptor of FAD
34 !-----------------------------------------------------------------------------
35
36 USE PARKIND1 ,ONLY : JPIM , JPRB
37 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
38 IMPLICIT NONE
39 SAVE
40
41 PRIVATE
42 PUBLIC FAD, YSUFAD
43
44 TYPE FAD
45 CHARACTER(LEN=16) :: CLNAME
46 INTEGER(KIND=JPIM):: NBITS
47 END TYPE FAD
48
49 CONTAINS
50
51 !-----------------------------------------------------------------------------
52
53 TYPE(FAD) FUNCTION YSUFAD(CDNAME,KBITS)
54
55 ! Purpose :
56 ! -------
57 ! To set default values to the type
58
59 CHARACTER(LEN=*) , INTENT(IN) :: CDNAME
60 INTEGER(KIND=JPIM), INTENT(IN) :: KBITS
61 REAL(KIND=JPRB) :: ZHOOK_HANDLE
62
63 IF (LHOOK) CALL DR_HOOK('TYPE_FADS:YSUFAD',0,ZHOOK_HANDLE)
64 YSUFAD%NBITS =KBITS
65 YSUFAD%CLNAME=CDNAME
66 IF (LHOOK) CALL DR_HOOK('TYPE_FADS:YSUFAD',1,ZHOOK_HANDLE)
67
68 END FUNCTION YSUFAD
69
70 END MODULE TYPE_FADS
71