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

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

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

revision 1.7 by molod, Wed Jun 9 18:35:31 2004 UTC revision 1.8 by molod, Wed Jun 9 18:54:19 2004 UTC
# Line 40  c--------------------------------------- Line 40  c---------------------------------------
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
# Line 57  c--------------------------------------- Line 57  c---------------------------------------
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
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22