/[MITgcm]/MITgcm/pkg/exf/exf_interp.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_interp.F

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

revision 1.10 by heimbach, Mon May 2 15:31:46 2005 UTC revision 1.11 by cnh, Tue Nov 8 15:53:41 2005 UTC
# Line 89  C local variables Line 89  C local variables
89       I   lon_0, lon_inc,       I   lon_0, lon_inc,
90       I   lat_0, lat_inc,       I   lat_0, lat_inc,
91       I   nx_in, ny_in, method, mythid)       I   nx_in, ny_in, method, mythid)
92          _BARRIER
93    
94        _BEGIN_MASTER( myThid )  C     _BEGIN_MASTER( myThid )
95    
96  C setup input grid  C setup input grid
97         do i=-1,nx_in+2         do i=-1,nx_in+2
# Line 119  C enlarge boundary Line 120  C enlarge boundary
120          arrayin(i,ny_in+2) = arrayin(i,ny_in)          arrayin(i,ny_in+2) = arrayin(i,ny_in)
121         enddo         enddo
122    
123        _END_MASTER( myThid )  C     _END_MASTER( myThid )
124    
125        do bj = mybylo(mythid), mybyhi(mythid)        do bj = mybylo(mythid), mybyhi(mythid)
126         do bi = mybxlo(mythid), mybxhi(mythid)         do bi = mybxlo(mythid), mybxhi(mythid)
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22