pkg/fizhi/fizhi_earth_coms.h

e337e4ca8c Andr*0001 c Solid-Earth State Variables
                0002 c ---------------------------
d9ce6b5984 Andr*0003       common /earth_state/ phis_var, tilefrac, surftype
bcb723376d Andr*0004       _RL phis_var(sNx,sNy,Nsx,Nsy)
                0005       _RL tilefrac(sNx,sNy,maxtyp,Nsx,Nsy)
                0006       integer surftype(sNx,sNy,maxtyp,Nsx,Nsy)
e337e4ca8c Andr*0007
                0008 c Solid_Earth Couplings
                0009 c ---------------------
                0010       common /earth_exports/
9a6b9d7b6d Andr*0011      .   chfr, alai, agrn,
d9ce6b5984 Andr*0012      .   albvisdr, albvisdf, albnirdr, albnirdf, emiss,
824267f521 Andr*0013      .   tgz, landtype, nchptot, nchpland, ityp
613fa3996d Andr*0014       _RL chfr(nchp,Nsx,Nsy)
                0015       _RL alai(nchp,Nsx,Nsy)
                0016       _RL agrn(nchp,Nsx,Nsy)
bcb723376d Andr*0017       _RL albvisdr(sNx,sNy,Nsx,Nsy)
                0018       _RL albvisdf(sNx,sNy,Nsx,Nsy)
                0019       _RL albnirdr(sNx,sNy,Nsx,Nsy)
                0020       _RL albnirdf(sNx,sNy,Nsx,Nsy)
                0021       _RL emiss(sNx,sNy,10,Nsx,Nsy)
4c46c31842 Andr*0022       _RL tgz(sNx,sNy,Nsx,Nsy)
824267f521 Andr*0023       integer landtype(sNx,sNy,Nsx,Nsy)
                0024       integer nchptot(Nsx,Nsy),nchpland(Nsx,Nsy)
                0025       integer ityp(nchp,Nsx,Nsy)