/[MITgcm]/MITgcm/pkg/fizhi/fizhi_init_vegsurftiles.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_init_vegsurftiles.F

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

revision 1.5 by jmc, Sat Aug 13 20:50:50 2005 UTC revision 1.6 by molod, Tue Aug 23 18:25:33 2005 UTC
# Line 44  C     !LOCAL VARIABLES: Line 44  C     !LOCAL VARIABLES:
44        integer bislot,bjslot,iunit        integer bislot,bjslot,iunit
45        integer recl        integer recl
46        integer bi,bj,fileprec        integer bi,bj,fileprec
47        Real*8 globalarr(Nx,Ny,8)        integer xsize, ysize
48    #if defined(ALLOW_EXCH2)
49           PARAMETER ( xsize = exch2_domain_nxt * sNx )
50           PARAMETER ( ysize = exch2_domain_nyt * sNy )
51    #else
52           PARAMETER ( xsize = Nx )
53           PARAMETER ( ysize = Ny )
54    #endif
55          Real*8 globalarr(xsize,ysize,8)
56        _RL tempgrid(sNx,sNy)        _RL tempgrid(sNx,sNy)
57        _RL temptile(nchp)        _RL temptile(nchp)
58        _RL fracland(sNx,sNy,Nsx,Nsy)        _RL fracland(sNx,sNy,Nsx,Nsy)
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22