surayolmd.F90

Go to the documentation of this file.

SUBROUTINE surayolmd(PPRES)
#ifdef DOC

!     **** *SURAYOLMD - initialization rayonnement LMD

!     Purpose.
!     --------

!     **   Interface.
!     ----------

!     Explicit arguments :    None.
!     --------------------

!     Implicit arguments :    None.
!     --------------------

!     Method.
!     -------

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

!     Reference.
!     ----------

!     Author.
!     -------

!     Modifications.
!     --------------
!     Original :08-04-03
!     MP Lefebvre modified suinit.F90 program.
!     ------------------------------------------------------------------
#endif

USE parkind1  ,ONLY : jpim     ,jprb
!#include "tsmbkind.h"

!USE YOMFORC  , ONLY : CFORC
USE yomct0b  , ONLY : lecmwf
!USE YOMLUN   , ONLY : NULOUT
!USE YOMRIP   , ONLY : NINDAT   ,NSSSSS
USE yomdim   , ONLY : nflevg
!USE YOMINI   , ONLY : NEINI
!USE YOMVRTL  , ONLY : L131TL
!USE YOMMCC   , ONLY : LMCC01, LMCC02, LMCC03, LMCCEC
!USE YOMNMIA  , ONLY : LACUMTND
!USE YOMSC2   , ONLY : NSTABUF
!USE YOMCFU   , ONLY : NFRRC


IMPLICIT NONE
LOGICAL lltrace, lldebug
REAL PPRES(nflevg)

lltrace=.true.
lldebug=.true.

!     ------------------------
!     *    Initialize Physics
!     ------------------------

!IF(NFLEVG >= 1) THEN
IF (lltrace)  WRITE(*,*) " coucou SURAYOLMD : avant SUPHY"
WRITE(*,fmt='('' ---------------- '')')
WRITE(*,fmt='(''     SUPHY: '')')
WRITE(*,fmt='('' ---------------- '')')
!  CALL SUPHY(PPRES)
  CALL suphy(6)    !!!!! A REVOIR (MPL) argument KULOUT=6 "en dur"

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

END SUBROUTINE surayolmd