C $Header: /u/gcmpack/MITgcm/pkg/fizhi/fizhi_land_coms.h,v 1.3 2004/06/16 19:22:18 molod Exp $
C $Name:  $

c Land State Common
c -----------------
      common /land_state/ tcanopy, tdeep, ecanopy, 
     . swetshal, swetroot, swetdeep, snodep, capac
      _RL tcanopy(nchp,Nsx,Nsy)
      _RL tdeep(nchp,Nsx,Nsy)
      _RL ecanopy(nchp,Nsx,Nsy)
      _RL swetshal(nchp,Nsx,Nsy)
      _RL swetroot(nchp,Nsx,Nsy)
      _RL swetdeep(nchp,Nsx,Nsy)
      _RL snodep(nchp,Nsx,Nsy)
      _RL capac(nchp,Nsx,Nsy)

c Land Mapping Common
c -------------------
      common /land_mapping/ chlt, chlon, igrd
      _RL chlt(nchp,Nsx,Nsy)
      _RL chlon(nchp,Nsx,Nsy)
      integer igrd(nchp,Nsx,Nsy)