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

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

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

revision 1.9 by molod, Wed Jun 9 20:33:37 2004 UTC revision 1.10 by molod, Thu Jun 10 20:17:17 2004 UTC
# Line 49  C                 10:  DARK DESERT Line 49  C                 10:  DARK DESERT
49  C                100:  OCEAN  C                100:  OCEAN
50  C***********************************************************************  C***********************************************************************
51        implicit none        implicit none
52    #include "CPP_OPTIONS.h"
53  #include "EEPARAMS.h"  #include "EEPARAMS.h"
54    
55        integer mythid,im,jm,maxtyp,nchp,Nsx,Nsy,Nxg,Nyg        integer mythid,im,jm,maxtyp,nchp,Nsx,Nsy,Nxg,Nyg
56        integer surftype(im,jm,maxtyp,Nsx,Nsy)        integer surftype(im,jm,maxtyp,Nsx,Nsy)
57        integer igrd(nchp,Nsx,Nsy),ityp(nchp,Nsx,Nsy)        integer igrd(nchp,Nsx,Nsy),ityp(nchp,Nsx,Nsy)
58        real tilefrac(im,jm,maxtyp,Nsx,Nsy)        _RL tilefrac(im,jm,maxtyp,Nsx,Nsy)
59        real lats(im,jm,nSx,nSy), lons(im,jm,nSx,nSy)        _RL lats(im,jm,nSx,nSy), lons(im,jm,nSx,nSy)
60        real chfr(nchp,Nsx,Nsy),chlt(nchp,Nsx,Nsy),chlon(nchp,Nsx,Nsy)        _RL chfr(nchp,Nsx,Nsy),chlt(nchp,Nsx,Nsy),chlon(nchp,Nsx,Nsy)
61        character*40 vegdata        character*40 vegdata
62        integer imdata,jmdata,Nxgdata,Nygdata        integer imdata,jmdata,Nxgdata,Nygdata
63        integer nchplocal,nchpland,biglobal,bjglobal        integer nchplocal,nchpland,biglobal,bjglobal
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22