!
! phys_local_var_mod.F90 1327 2010-03-17 15:33:56Z idelkadi $

      MODULE phys_output_var_mod

      use dimphy
! Variables outputs pour les ecritures des sorties
!======================================================================
!
!
!======================================================================
! Declaration des variables

      REAL, SAVE, ALLOCATABLE :: snow_o(:), zfra_o(:)
!$OMP THREADPRIVATE(snow_o, zfra_o)
      INTEGER, save, ALLOCATABLE ::  itau_con(:)       ! Nombre de pas ou rflag <= 1
!$OMP THREADPRIVATE(itau_con)
      REAL, ALLOCATABLE :: bils_ec(:) ! Contribution of energy conservation
      REAL, ALLOCATABLE :: bils_tke(:) ! Contribution of energy conservation
      REAL, ALLOCATABLE :: bils_diss(:) ! Contribution of energy conservation
      REAL, ALLOCATABLE :: bils_kinetic(:) ! bilan de chaleur au sol, kinetic
      REAL, ALLOCATABLE :: bils_enthalp(:) ! bilan de chaleur au sol
      REAL, ALLOCATABLE :: bils_latent(:) ! bilan de chaleur au sol
!$OMP THREADPRIVATE(bils_ec,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)


CONTAINS

!======================================================================
SUBROUTINE phys_output_var_init
use dimphy

IMPLICIT NONE

      allocate(snow_o(klon), zfra_o(klon))
      allocate(itau_con(klon))
      allocate (bils_ec(klon),bils_tke(klon),bils_diss(klon),bils_kinetic(klon),bils_enthalp(klon),bils_latent(klon))

END SUBROUTINE phys_output_var_init

!======================================================================
SUBROUTINE phys_output_var_end
use dimphy
IMPLICIT NONE

      deallocate(snow_o,zfra_o,itau_con)
      deallocate (bils_ec,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)

END SUBROUTINE phys_output_var_end

END MODULE phys_output_var_mod