40 |
integer nymdb,nhmsb |
integer nymdb,nhmsb |
41 |
character*40 vegdata |
character*40 vegdata |
42 |
_RL pressure(Nrphys) |
_RL pressure(Nrphys) |
43 |
real lats(nSx,nSy,sNx,sNy), lons(nSx,nSy,sNx,sNy) |
real lats(sNx,sNy,nSx,nSy), lons(sNx,sNy,nSx,nSy) |
44 |
|
|
45 |
im1 = 1-OLx |
im1 = 1-OLx |
46 |
im2 = sNx+OLx |
im2 = sNx+OLx |
57 |
|
|
58 |
do bj = myByLo(myThid), myByHi(myThid) |
do bj = myByLo(myThid), myByHi(myThid) |
59 |
do bi = myBxLo(myThid), myBxHi(myThid) |
do bi = myBxLo(myThid), myBxHi(myThid) |
60 |
do j = 1,nSy |
do j = jm1,jm2 |
61 |
do i = 1,nSx |
do i = im1,im2 |
62 |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
lons(i,j,bi,bj) = xC(i,j,bi,bj) |
63 |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
lats(i,j,bi,bj) = yC(i,j,bi,bj) |
64 |
enddo |
enddo |