/[MITgcm]/MITgcm/pkg/ctrl/ctrl_getobcse.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_getobcse.F

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

revision 1.7 by jmc, Tue Oct 9 00:00:00 2007 UTC revision 1.8 by mlosch, Wed Jan 19 08:42:06 2011 UTC
# Line 219  cgg     & Line 219  cgg     &
219          if ( (obcsefirst) .or. (obcsechanged)) then          if ( (obcsefirst) .or. (obcsechanged)) then
220    
221            do bj = jtlo,jthi            do bj = jtlo,jthi
222              do bi = itlo,ithi             do bi = itlo,ithi
223                do j = jmin,jmax              do j = jmin,jmax
224                  do k = 1,nr               do k = 1,nr
225                    tmpfldyz(j,k,bi,bj) = xx_obcse1(j,k,bi,bj,iobcs)                xx_obcse0(j,k,bi,bj,iobcs) = xx_obcse1(j,k,bi,bj,iobcs)
226                  enddo                tmpfldyz (j,k,bi,bj)       = 0. _d 0
227                enddo               enddo
             enddo  
           enddo  
   
           call exf_swapffields_yz( tmpfldyz2, tmpfldyz, mythid)  
   
           do bj = jtlo,jthi  
             do bi = itlo,ithi  
               do j = jmin,jmax  
                 do k = 1,nr  
                   xx_obcse0(j,k,bi,bj,iobcs) = tmpfldyz2(j,k,bi,bj)  
                 enddo  
               enddo  
228              enddo              enddo
229               enddo
230            enddo            enddo
231    
232            call active_read_yz( fnameobcse, tmpfldyz,            call active_read_yz( fnameobcse, tmpfldyz,
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22