source: LMDZ6/branches/IPSL-CM6A-MR/libf/phylmd/rrtm/suphmf.F90 @ 5408

Last change on this file since 5408 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: 3.2 KB
Line 
1!OPTIONS XOPT(NOEVAL)
2SUBROUTINE SUPHMF(KULOUT)
3
4!**** *SUPHMF*   - Calls initialization of commons controlling physics
5!                  in the Meteo-France version.
6
7!     Purpose.
8!     --------
9!           Organise the setup of physical constants for Meteo-France
10!           physics package.
11
12!**   Interface.
13!     ----------
14!        *CALL* *SUPHMF(KULOUT)
15
16!        Explicit arguments :
17!        --------------------
18!        KULOUT : Logical unit for the output
19
20!        Implicit arguments :
21!        --------------------
22!        None.
23
24!     Method.
25!     -------
26!        Irrelevant.
27
28!     Externals.
29!     ----------
30
31!     SUPHY0
32!     SUPHY1
33!     SUPHY2
34!     SUPHY3
35!     SUTOPH
36
37!     Reference.
38!     ----------
39
40!     Author.
41!     -------
42!        J.-F. Geleyn.
43
44!     Modifications.
45!     --------------
46!        Original : 91-06-15
47!        Modified 91-06-10 by A. Lasserre-Bigorry (call to SUTOPH)
48!        Modified 99-03-01 by D. Giard (call to VAL923 for 923 and 927)
49!        Modified 01-04-02 R. El Khatib setup for CAPE diagnostic
50!        M.Hamrud      01-Oct-2003 CY28 Cleaning
51!        Modified 04-11-16 Y. Seity : call suphmnh for AROME physics
52!        R. Zaaboul 28-Feb-2006: call suparar, suphmpa and suphmse (ex suphmnh)
53!        Y. Seity 06-07-10: nfpsurfex and lfpart2 in call suphmse (prepsurfex) 
54!     ------------------------------------------------------------------
55
56!*       1.    Call routines for specific physics' commons setup.
57!              --------------------------------------------------
58
59USE PARKIND1  ,ONLY : JPIM     ,JPRB
60USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
61
62USE YOMPHY   , ONLY : LSOLV
63USE YOMARPHY , ONLY : LMPA, LMSE
64USE YOMCT0   , ONLY : LSFORC, LFPART2
65USE YOMFPC   , ONLY : NFPSURFEX
66
67! Ce qui concerne NULNAM et JPNULNAM commente par MPL le 15.04.09
68!USE PARDIM   , ONLY : JPNULNAM
69!USE YOMLUN   , ONLY : NULNAM
70
71IMPLICIT NONE
72
73INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT
74REAL(KIND=JPRB) :: ZHOOK_HANDLE
75
76#include "sucape.intfb.h"
77#include "su0phy.intfb.h"
78#include "suphy0.intfb.h"
79#include "suphy1.intfb.h"
80#include "suphy2.intfb.h"
81#include "suphy3.intfb.h"
82#include "sutoph.intfb.h"
83#include "val923.intfb.h"
84! commente par MPL 20.11.08
85!#include "suparar.intfb.h"
86!#include "suphmpa.intfb.h"
87!#include "suphmse.intfb.h"
88
89! Ce qui concerne MNAM commente par MPL le 15.04.09
90!NULNAM = JPNULNAM
91!OPEN(NULNAM,ACTION="READ")
92!OPEN(NULNAM,FILE='MNAM',ACTION="READ")
93
94IF (LHOOK) CALL DR_HOOK('SUPHMF',0,ZHOOK_HANDLE)
95print *,'SUPHMF: avant SU0PHY'
96CALL SU0PHY(KULOUT)
97print *,'SUPHMF: avant SUPHY0'
98CALL SUPHY0(KULOUT)
99print *,'SUPHMF: avant SUPHY1'
100CALL SUPHY1(KULOUT)
101print *,'SUPHMF: avant SUPHY2'
102CALL SUPHY2(KULOUT)
103print *,'SUPHMF: avant SUPHY3'
104CALL SUPHY3(KULOUT)
105print *,'SUPHMF: avant SUTOPH'
106CALL SUTOPH(KULOUT)
107print *,'SUPHMF: avant VAL923'
108
109CALL VAL923(LSOLV)
110
111print *,'SUPHMF: avant SUCAPE'
112CALL SUCAPE(KULOUT)
113
114! setup for AROME physics and SURFEX
115! commente par MPL 20.11.08
116!CALL SUPARAR(KULOUT)
117!IF (LMPA) CALL SUPHMPA(KULOUT)
118!IF (LMSE.AND.NFPSURFEX==0.AND.(.NOT.LFPART2)) CALL SUPHMSE(KULOUT)
119
120!     ------------------------------------------------------------------
121
122
123! Ce qui concerne NULNAM commente par MPL le 15.04.09
124!CLOSE(NULNAM)
125IF (LHOOK) CALL DR_HOOK('SUPHMF',1,ZHOOK_HANDLE)
126END SUBROUTINE SUPHMF
Note: See TracBrowser for help on using the repository browser.