pkg/fizhi/land_coms.h

C $Header: /u/gcmpack/MITgcm/pkg/fizhi/land_coms.h,v 1.2 2004/05/05 00:39:21 edhill Exp $
C $Name:  $

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

c Land Mapping Common
c -------------------
      common /land_mapping/ chlt, chlon, igrd
      _RL chlt(nchp), chlon(nchp)
      integer igrd(nchp) 
1	C $Header: /u/gcmpack/MITgcm/pkg/fizhi/land_coms.h,v 1.2 2004/05/05 00:39:21 edhill Exp $
2	C $Name: $
3
4	c Land State Common
5	c -----------------
6	common /land_state/ tcanopy, tdeep, ecanopy,
7	. swetshal, swetroot, swetdeep, snodep, capac
8	_RL tcanopy(nchp), tdeep(nchp), ecanopy(nchp), swetshal(nchp)
9	_RL swetroot(nchp), swetdeep(nchp), snodep(nchp), capac(nchp)
10
11	c Land Mapping Common
12	c -------------------
13	common /land_mapping/ chlt, chlon, igrd
14	_RL chlt(nchp), chlon(nchp)
15	integer igrd(nchp)