MODULE phys_local_var_mod
! Variables locales pour effectuer les appels en serie
!======================================================================
!
!
!======================================================================
! Declaration des variables

      REAL,ALLOCATABLE :: t_seri(:,:), q_seri(:,:)
      REAL,ALLOCATABLE :: ql_seri(:,:),qs_seri(:,:)
      REAL,ALLOCATABLE :: u_seri(:,:), v_seri(:,:)


CONTAINS

!======================================================================
SUBROUTINE phys_local_var_init
use dimphy
IMPLICIT NONE
      allocate(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev))
      allocate(u_seri(klon,klev),v_seri(klon,klev))
END SUBROUTINE phys_local_var_init

!======================================================================
SUBROUTINE phys_local_var_end
use dimphy
IMPLICIT NONE
      deallocate(t_seri,q_seri,ql_seri,qs_seri)
      deallocate(u_seri,v_seri)
END SUBROUTINE phys_local_var_end

END MODULE phys_local_var_mod