66 |
enddo |
enddo |
67 |
enddo |
enddo |
68 |
enddo |
enddo |
69 |
call fizhi_init_veg ( mythid, vegdata,idim2,jdim2,Nsx,Nsy, |
call fizhi_init_veg ( mythid, vegdata,im2,jm2,Nsx,Nsy, |
70 |
. nSx*nPx,nSy*nPy,maxtyp,nchp,nchpland,lons,lats, |
. nSx*nPx,nSy*nPy,maxtyp,nchp,nchptot,nchpland,lons,lats, |
71 |
. surftype,tilefrac,igrd,ityp,chfr,chlt,chlon) |
. surftype,tilefrac,igrd,ityp,chfr,chlt,chlon) |
72 |
|
|
73 |
C And now fill the earth export landtype |
C And now fill the earth export landtype |
74 |
do bj = myByLo(myThid), myByHi(myThid) |
do bj = myByLo(myThid), myByHi(myThid) |