compar1d.h

Go to the documentation of this file.

!
! $Id: compar1d.h 2010-08-04 17:02:56Z lahellec $
!
      integer :: forcing_type
      real :: nat_surf
      real :: tsurf
      real :: rugos
      real :: qsol(1:2)
      real :: qsurf
      real :: psurf
      real :: zsurf
      real :: albedo

      real :: time
      real :: time_ini
      real :: xlat 
      real :: xlon 
      real :: airefi
      real :: wtsurf 
      real :: wqsurf 
      real :: restart_runoff 
      real :: xagesno 
      real :: qsolinp 
      real :: zpicinp 

      logical :: restart
      logical :: ok_old_disvert

      common/com_par1d/forcing_type,nat_surf,tsurf,rugos,               &
     & qsol,qsurf,psurf,zsurf,albedo,time,time_ini,xlat,xlon,airefi,    &
     & wtsurf,wqsurf,restart_runoff,xagesno,qsolinp,zpicinp,            &
     & restart,ok_old_disvert

!$OMP THREADPRIVATE(/com_par1d/)