/[MITgcm]/MITgcm/pkg/fizhi/fizhi_earth_coms.h
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_earth_coms.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by molod, Wed Jun 9 20:33:36 2004 UTC revision 1.10 by molod, Thu Aug 12 15:21:22 2004 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  c Solid-Earth State Variables  c Solid-Earth State Variables
5  c ---------------------------  c ---------------------------
6        common /earth_state/ phis_var, lwmask, tilefrac, surftype        common /earth_state/ phis_var, tilefrac, surftype
7        _RL phis_var(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL phis_var(sNx,sNy,Nsx,Nsy)
8        _RL lwmask(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL tilefrac(sNx,sNy,maxtyp,Nsx,Nsy)
9        _RL tilefrac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,maxtyp,nSx,nSy)        integer surftype(sNx,sNy,maxtyp,Nsx,Nsy)
       integer surftype(1-OLx:sNx+OLx,1-OLy:sNy+OLy,maxtyp,nSx,nSy)  
10    
11  c Solid_Earth Couplings  c Solid_Earth Couplings
12  c ---------------------  c ---------------------
13        common /earth_exports/        common /earth_exports/
14       .   nchpland, ityp, chfr, alai, agrn,       .   chfr, alai, agrn,
15       .   albvisdr, albvisdf, albnirdr, albnirdf, emiss       .   albvisdr, albvisdf, albnirdr, albnirdf, emiss,
16        integer nchpland       .   landtype, tgz, nchptot, nchpland, ityp
17        integer ityp(nchp)        integer nchptot(Nsx,Nsy),nchpland(Nsx,Nsy)
18        _RL chfr(nchp)        integer ityp(nchp,Nsx,Nsy)
19        _RL alai(nchp)        integer landtype(sNx,sNy,Nsx,Nsy)
20        _RL agrn(nchp)        _RL chfr(nchp,Nsx,Nsy)
21        _RL albvisdr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL alai(nchp,Nsx,Nsy)
22        _RL albvisdf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL agrn(nchp,Nsx,Nsy)
23        _RL albnirdr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL albvisdr(sNx,sNy,Nsx,Nsy)
24        _RL albnirdf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL albvisdf(sNx,sNy,Nsx,Nsy)
25        _RL emiss(1-OLx:sNx+OLx,1-OLy:sNy+OLy,10,nSx,nSy)        _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)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22