/[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.10 by molod, Mon Jul 9 15:07:14 2007 UTC revision 1.11 by jmc, Wed May 6 02:57:46 2009 UTC
# Line 6  C---+----1----+----2----+----3----+----4 Line 6  C---+----1----+----2----+----3----+----4
6  CBOP  CBOP
7  C     !ROUTINE: FIZHI_INIT_VEGSURFTILES  C     !ROUTINE: FIZHI_INIT_VEGSURFTILES
8  C     !INTERFACE:  C     !INTERFACE:
9        subroutine fizhi_init_vegsurftiles(nymd,nhms,prec,myThid)        subroutine fizhi_init_vegsurftiles(globalArr,xsize,ysize,
10         &                                   nymd,nhms,prec,myThid)
11    
12  C     !DESCRIPTION:  C     !DESCRIPTION:
13  C      Read in grid space values of the land state  C      Read in grid space values of the land state
14  C      and then convert to vegetation tile space  C      and then convert to vegetation tile space
15    
16  C     !USES:  C     !USES:
# Line 29  C      Calls routine grd2msc to do grid Line 30  C      Calls routine grd2msc to do grid
30  #endif /* ALLOW_EXCH2 */  #endif /* ALLOW_EXCH2 */
31    
32  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
33          integer xsize, ysize
34          Real*8 globalArr(xsize,ysize,8)
35        CHARACTER*1 prec        CHARACTER*1 prec
36        INTEGER nhms,nymd        INTEGER nhms,nymd
37        INTEGER myThid        INTEGER myThid
# Line 44  C     !LOCAL VARIABLES: Line 47  C     !LOCAL VARIABLES:
47        integer bislot,bjslot,iunit        integer bislot,bjslot,iunit
48        integer recl        integer recl
49        integer bi,bj,fileprec        integer bi,bj,fileprec
       integer xsize, ysize  
 #if defined(ALLOW_EXCH2)  
        PARAMETER ( xsize = exch2_domain_nxt * sNx )  
        PARAMETER ( ysize = exch2_domain_nyt * sNy )  
 #else  
        PARAMETER ( xsize = Nx )  
        PARAMETER ( ysize = Ny )  
 #endif  
       Real*8 globalarr(xsize,ysize,8)  
50        _RL tempgrid(sNx,sNy)        _RL tempgrid(sNx,sNy)
51        _RL temptile(nchp)        _RL temptile(nchp)
52        _RL fracland(sNx,sNy,Nsx,Nsy)        _RL fracland(sNx,sNy,Nsx,Nsy)
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22