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 |
---|