1 |
|
|
SUBROUTINE SUJFH |
2 |
|
|
|
3 |
|
|
! Purpose : |
4 |
|
|
! ------- |
5 |
|
|
! *SUJFH* Read namelist NAMJFH & Initialize module YOMJFH |
6 |
|
|
|
7 |
|
|
! Interface : |
8 |
|
|
! --------- |
9 |
|
|
|
10 |
|
|
! Externals : |
11 |
|
|
! --------- |
12 |
|
|
! POSNAM |
13 |
|
|
|
14 |
|
|
! Method : |
15 |
|
|
! ------ |
16 |
|
|
|
17 |
|
|
! Reference : |
18 |
|
|
! --------- |
19 |
|
|
|
20 |
|
|
! Author : |
21 |
|
|
! ------ |
22 |
|
|
! 15-Mar-2005 R. El Khatib *METEO-FRANCE* |
23 |
|
|
|
24 |
|
|
! Modifications : |
25 |
|
|
! ------------- |
26 |
|
|
|
27 |
|
|
! End Modifications |
28 |
|
|
!----------------------------------------------------------------------------- |
29 |
|
|
|
30 |
|
|
USE PARKIND1 ,ONLY : JPRB |
31 |
|
|
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK |
32 |
|
|
|
33 |
|
|
! Ce qui concerne NULNAM commente par MPL le 15.04.09 |
34 |
|
|
!USE YOMLUN , ONLY : NULOUT ,NULNAM |
35 |
|
|
USE YOMLUN , ONLY : NULOUT |
36 |
|
|
USE YOMPLDSW , ONLY : LOPT_RS6K |
37 |
|
|
USE YOMJFH , ONLY : N_VMASS |
38 |
|
|
|
39 |
|
|
IMPLICIT NONE |
40 |
|
|
|
41 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
42 |
|
|
|
43 |
|
|
#include "posnam.intfb.h" |
44 |
|
|
|
45 |
|
|
#include "namjfh.h" |
46 |
|
|
|
47 |
|
|
!----------------------------------------------------------------------------- |
48 |
|
|
|
49 |
|
|
IF (LHOOK) CALL DR_HOOK('SUJFH',0,ZHOOK_HANDLE) |
50 |
|
|
|
51 |
|
|
IF (LOPT_RS6K) THEN |
52 |
|
|
N_VMASS=8 |
53 |
|
|
! Ce qui concerne NAMJFH commente par MPL le 15.04.09 |
54 |
|
|
! CALL POSNAM(NULNAM,'NAMJFH') |
55 |
|
|
! READ(NULNAM,NAMJFH) |
56 |
|
|
ELSE |
57 |
|
|
N_VMASS=0 |
58 |
|
|
ENDIF |
59 |
|
|
|
60 |
|
|
WRITE(UNIT=NULOUT,FMT='('' MODULE YOMJFH'')') |
61 |
|
|
WRITE(UNIT=NULOUT,FMT='('' N_VMASS ='',I2)') N_VMASS |
62 |
|
|
|
63 |
|
|
|
64 |
|
|
IF (LHOOK) CALL DR_HOOK('SUJFH',1,ZHOOK_HANDLE) |
65 |
|
|
|
66 |
|
|
END SUBROUTINE SUJFH |