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

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

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

revision 1.8 by dimitri, Mon Oct 20 06:25:16 2003 UTC revision 1.9 by heimbach, Thu Feb 26 22:30:27 2004 UTC
# Line 198  c     == end of interface == Line 198  c     == end of interface ==
198    
199        do bj = mybylo(mythid), mybyhi(mythid)        do bj = mybylo(mythid), mybyhi(mythid)
200          do bi = mybxlo(mythid), mybxhi(mythid)          do bi = mybxlo(mythid), mybxhi(mythid)
201            do j = 1, sny            do j = 1-oly, sny+oly
202              do i = 1, snx              do i = 1-olx, snx+olx
203                genfld(i,j,bi,bj)  = genconst                genfld(i,j,bi,bj)  = genconst
204                gen0(i,j,bi,bj)    = 0. _d 0                gen0(i,j,bi,bj)    = genconst
205                gen1(i,j,bi,bj)    = 0. _d 0                gen1(i,j,bi,bj)    = genconst
206              enddo              enddo
207            enddo            enddo
208          enddo          enddo
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22