sujfh.F90

Go to the documentation of this file.

SUBROUTINE sujfh

! Purpose :
! -------
!   *SUJFH* Read namelist NAMJFH & Initialize module YOMJFH

! Interface :
! ---------

! Externals :
! ---------
!   POSNAM

! Method :
! ------

! Reference :
! ---------

! Author :
! ------
!   15-Mar-2005 R. El Khatib  *METEO-FRANCE*

! Modifications :
! -------------

! End Modifications
!-----------------------------------------------------------------------------

USE parkind1  ,ONLY : jprb
USE yomhook   ,ONLY : lhook,   dr_hook

! Ce qui concerne NULNAM commente par MPL le 15.04.09
!USE YOMLUN   , ONLY : NULOUT   ,NULNAM
USE yomlun   , ONLY : nulout   
USE yompldsw , ONLY : lopt_rs6k
USE yomjfh   , ONLY : n_vmass

IMPLICIT NONE

REAL(KIND=JPRB) :: ZHOOK_HANDLE

#include "posnam.intfb.h"

#include "namjfh.h"

!-----------------------------------------------------------------------------

IF (lhook) CALL dr_hook('SUJFH',0,zhook_handle)

IF (lopt_rs6k) THEN
  n_vmass=8
! Ce qui concerne NAMJFH commente par MPL le 15.04.09
! CALL POSNAM(NULNAM,'NAMJFH')
! READ(NULNAM,NAMJFH)
ELSE
  n_vmass=0
ENDIF

WRITE(unit=nulout,fmt='('' MODULE YOMJFH'')')
WRITE(unit=nulout,fmt='(''   N_VMASS ='',I2)') n_vmass 


IF (lhook) CALL dr_hook('SUJFH',1,zhook_handle)

END SUBROUTINE sujfh