pkg/fizhi/fizhi_earth_coms.h

C $Header: /u/gcmpack/MITgcm/pkg/fizhi/fizhi_earth_coms.h,v 1.3 2004/06/15 21:18:18 molod Exp $
C $Name:  $

c Solid-Earth State Variables
c ---------------------------
      common /earth_state/ phis_var, tilefrac, surftype 
      _RL phis_var(sNx,sNy,Nsx,Nsy)
      _RL tilefrac(sNx,sNy,maxtyp,Nsx,Nsy)
      integer surftype(sNx,sNy,maxtyp,Nsx,Nsy)

c Solid_Earth Couplings
c ---------------------
      common /earth_exports/ 
     .   nchpland, ityp, chfr, alai, agrn, 
     .   albvisdr, albvisdf, albnirdr, albnirdf, emiss,
     .   landtype
      integer nchpland
      integer ityp(nchp)
      _RL chfr(nchp)
      _RL alai(nchp)
      _RL agrn(nchp)
      _RL albvisdr(sNx,sNy,Nsx,Nsy)
      _RL albvisdf(sNx,sNy,Nsx,Nsy)
      _RL albnirdr(sNx,sNy,Nsx,Nsy)
      _RL albnirdf(sNx,sNy,Nsx,Nsy)
      _RL emiss(sNx,sNy,10,Nsx,Nsy)
      _RL landtype(sNx,sNy,Nsx,Nsy)
1	molod	1.4	C $Header: /u/gcmpack/MITgcm/pkg/fizhi/fizhi_earth_coms.h,v 1.3 2004/06/15 21:18:18 molod Exp $
2	molod	1.1	C $Name: $
3
4			c Solid-Earth State Variables
5			c ---------------------------
6	molod	1.3	common /earth_state/ phis_var, tilefrac, surftype
7	molod	1.4	_RL phis_var(sNx,sNy,Nsx,Nsy)
8			_RL tilefrac(sNx,sNy,maxtyp,Nsx,Nsy)
9			integer surftype(sNx,sNy,maxtyp,Nsx,Nsy)
10	molod	1.1
11			c Solid_Earth Couplings
12			c ---------------------
13			common /earth_exports/
14			. nchpland, ityp, chfr, alai, agrn,
15	molod	1.3	. albvisdr, albvisdf, albnirdr, albnirdf, emiss,
16			. landtype
17	molod	1.1	integer nchpland
18			integer ityp(nchp)
19			_RL chfr(nchp)
20			_RL alai(nchp)
21			_RL agrn(nchp)
22	molod	1.4	_RL albvisdr(sNx,sNy,Nsx,Nsy)
23			_RL albvisdf(sNx,sNy,Nsx,Nsy)
24			_RL albnirdr(sNx,sNy,Nsx,Nsy)
25			_RL albnirdf(sNx,sNy,Nsx,Nsy)
26			_RL emiss(sNx,sNy,10,Nsx,Nsy)
27			_RL landtype(sNx,sNy,Nsx,Nsy)