pkg/fizhi/fizhi_earth_coms.h

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