source: LMDZ6/branches/LMDZ-QUEST/libf/phylmd/rrtm/suphy.F90 @ 3758

SUBROUTINE SUPHY(KULOUT)

USE YOMCT0   , ONLY : NCONF
USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK

!**** *SUPHY*   - Calls physic specific set-up routines

!     Purpose.
!     --------
!           Calls set-up routines specific to the different physics
!           packages that can be used in the IFS/ARPEGE model

!**   Interface.
!     ----------
!        *CALL* *SUPHY(KULOUT)

!        Explicit arguments :
!        --------------------
!        KULOUT : Logical unit for the output

!        Implicit arguments :
!        --------------------
!        COMMON YOMPHY, YOEPHY

!     Method.
!     -------
!        See documentation

!     Externals.
!     ----------

!     SUPHEC
!     SUPHMF
!     SUPHYFL
!     SUHLPH
!
!     Reference.
!     ----------
!        ECMWF Research Department documentation of the IFS

!        or

!        Documentation ARPEGE (depending on which physics will be used)

!     Author.
!     -------
!        Mats Hamrud and Philippe Courtier  *ECMWF*
!        J.-F. Geleyn for the ARPEGE rewriting.

!     Modifications.
!     --------------
!        Original : 87-10-15
!        ARPEGE extension 90-9-1
!        ARPEGE modification 90-11-24
!        Modified by M. Deque 91-02-28 (key for Ozone)
!        Modified by M. Deque 91-03-18 (key for Negative humidity)
!        Modified by M. Deque 91-04-01 (keys for cloudiness and wavedrag)
!        Modified by J.-F. Geleyn 91-06-15 (call to SUPHMF and SUPHEC)
!        Modified by J.-J. Morcrette 91-11-12
!        Modified by K. YESSAD (MAY 2000): remove call to EC physics setup
!         in a 2D model because some dimensionings are inconsistent and
!         generate aborts, and because 2D models are purely adiabatic ones.
!        M.Hamrud      01-Oct-2003 CY28 Cleaning
!        B.Sass        01-June-2006 (call setup for HIRLAM physics)
!     ------------------------------------------------------------------

USE PARKIND1  ,ONLY : JPIM     ,JPRB

IMPLICIT NONE

INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
LOGICAL :: LLSHW, LLVEQ, LL2D
REAL(KIND=JPRB) :: ZHOOK_HANDLE

#include "suphec.intfb.h"
#include "suphmf.intfb.h"
#include "suhlph.intfb.h"
#include "suphyfl.intfb.h"
#include "sumts.intfb.h"

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

!*       0.    Set-up LL2D (2D model switch).
!              ------------------------------

IF (LHOOK) CALL DR_HOOK('SUPHY',0,ZHOOK_HANDLE)
LLSHW=NCONF == 201.OR.NCONF == 421.OR.NCONF == 521
LLVEQ=NCONF == 202.OR.NCONF == 422.OR.NCONF == 522
LL2D=LLSHW.OR.LLVEQ

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

!*       1.    Call initialization of specific physics' commons.
!              -------------------------------------------------

!*       1.1   Meteo-France Physics
!              --------------------

print *,'---- SUPHY: avant SUPHMF'
CALL SUPHMF(KULOUT)
!
print *,'---- SUPHY: avant SUGFL'
!SUGFL: Set up unified_treatment grid-point fields
CALL SUGFL


!*       1.2   ECMWF Physics
!              -------------

! IF Commente par MPL 20.11.08
!IF (.NOT.LL2D) THEN
   CALL SUPHEC(KULOUT)
!ENDIF

!        1.3   Initialize HIRLAM physics
!              -------------------------
! Commente par MPL 20.11.08
!CALL SUHLPH(KULOUT)    
!
!     ------------------------------------------------------------------

!*       2.    Initialize physics' flags commons.
!              ----------------------------------

! Commente par MPL 20.11.08
!CALL SUPHYFL

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

!*       3.    Initialize "model to satellite" RTTOV parameters.
!              ------------------------------------------------

! Commente par MPL 20.11.08
!CALL SUMTS

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

IF (LHOOK) CALL DR_HOOK('SUPHY',1,ZHOOK_HANDLE)
END SUBROUTINE SUPHY