source: LMDZ6/branches/IPSLCM6.0.13/libf/phylmd/rrtm/sujfh.F90 @ 3012

Last change on this file since 3012 was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM


Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 1.2 KB
Line 
1SUBROUTINE 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
30USE PARKIND1  ,ONLY : JPRB
31USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
32
33! Ce qui concerne NULNAM commente par MPL le 15.04.09
34!USE YOMLUN   , ONLY : NULOUT   ,NULNAM
35USE YOMLUN   , ONLY : NULOUT   
36USE YOMPLDSW , ONLY : LOPT_RS6K
37USE YOMJFH   , ONLY : N_VMASS
38
39IMPLICIT NONE
40
41REAL(KIND=JPRB) :: ZHOOK_HANDLE
42
43#include "posnam.intfb.h"
44
45#include "namjfh.h"
46
47!-----------------------------------------------------------------------------
48
49IF (LHOOK) CALL DR_HOOK('SUJFH',0,ZHOOK_HANDLE)
50
51IF (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)
56ELSE
57  N_VMASS=0
58ENDIF
59
60WRITE(UNIT=NULOUT,FMT='('' MODULE YOMJFH'')')
61WRITE(UNIT=NULOUT,FMT='(''   N_VMASS ='',I2)') N_VMASS
62
63
64IF (LHOOK) CALL DR_HOOK('SUJFH',1,ZHOOK_HANDLE)
65
66END SUBROUTINE SUJFH
Note: See TracBrowser for help on using the repository browser.