! $Id: ini_wake.F90 2311 2015-06-25 07:45:24Z emillour $

    alp_bl_prescr, ale_bl_prescr)

  USE print_control_mod, ONLY: lunout

  IMPLICIT NONE

  ! **************************************************************

  ! *

  ! INI_WAKE : variables d'initialisation de la poche    *

  ! froide, necessaires au declenchement      *

  ! de la convection.                         *

  ! *

  ! *

  ! **************************************************************

  ! Arguments

  ! =========

  ! Input

  ! -----

  ! wape           : valeur de l'energie potentielle de la poche (WAPE)

  ! dans l'etat initial

  ! fip            : valeur de la puissance incidente sur le front (FIP)

  ! dans l'etat initial

  ! Output

  ! ------

  ! it_wape_prescr : nombre de pas de temps pendant lesquels la WAPE

  ! doit etre imposee.

  ! wape_prescr    : valeur prescrite de la WAPE.

  ! fip_prescr     : valeur prescrite de la FIP.

  ! ale_bl_prescr  : valeur prescrite de la Ale de PBL.

  ! alp_bl_prescr  : valeur prescrite de la Alp de PBL.

  ! Variables internes

  ! ==================

  ! it = nbre de pas de temps lu

  ! w  = WAPE lue

  ! f  = FIP lue

  ! alebl  = Ale de PBL lue

  ! alpbl  = Alp de PBL lue

  ! declarations

  REAL wape, fip, wape_prescr, fip_prescr

  INTEGER it_wape_prescr

  REAL ale_bl_prescr

  REAL alp_bl_prescr

  REAL it

  REAL w,f,alebl,alpbl

  ! FH A mettre si besoin dans physiq.def

  ! FH : voir avec JYG

  ! CR: on rajoute ale et alp de la PBL precrits

  OPEN (99, FILE='ini_wake_param.data', FORM='formatted', STATUS='old', &

902 CONTINUE

  ELSE

  END IF

END SUBROUTINE ini_wake