/[MITgcm]/MITgcm_contrib/MPMice/beaufort/code/cpl_mpmice.F
ViewVC logotype

Diff of /MITgcm_contrib/MPMice/beaufort/code/cpl_mpmice.F

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

revision 1.2 by dimitri, Mon Jun 22 19:40:11 2009 UTC revision 1.3 by dimitri, Wed Dec 2 23:49:42 2009 UTC
# Line 223  C     Send boundary ice area Line 223  C     Send boundary ice area
223         idx = idx + 1         idx = idx + 1
224         xfer_bc_tracer(idx) = xfer_array(Nx,j)         xfer_bc_tracer(idx) = xfer_array(Nx,j)
225        ENDDO        ENDDO
226        DO i = (Nx-1), -1, 1        DO i = (Nx-1), 1, -1
227         idx = idx + 1         idx = idx + 1
228         xfer_bc_tracer(idx) = xfer_array(i,Ny)         xfer_bc_tracer(idx) = xfer_array(i,Ny)
229        ENDDO        ENDDO
230        DO j = (Ny-1), -1, 2        DO j = (Ny-1), 2, -1
231         idx = idx + 1         idx = idx + 1
232         xfer_bc_tracer(idx) = xfer_array(1,j)         xfer_bc_tracer(idx) = xfer_array(1,j)
233        ENDDO        ENDDO
# Line 261  C     Send boundary ice thickness Line 261  C     Send boundary ice thickness
261         idx = idx + 1         idx = idx + 1
262         xfer_bc_tracer(idx) = xfer_array(Nx,j)         xfer_bc_tracer(idx) = xfer_array(Nx,j)
263        ENDDO        ENDDO
264        DO i = (Nx-1), -1, 1        DO i = (Nx-1), 1, -1
265         idx = idx + 1         idx = idx + 1
266         xfer_bc_tracer(idx) = xfer_array(i,Ny)         xfer_bc_tracer(idx) = xfer_array(i,Ny)
267        ENDDO        ENDDO
268        DO j = (Ny-1), -1, 2        DO j = (Ny-1), 2, -1
269         idx = idx + 1         idx = idx + 1
270         xfer_bc_tracer(idx) = xfer_array(1,j)         xfer_bc_tracer(idx) = xfer_array(1,j)
271        ENDDO        ENDDO
# Line 297  C     Send boundary ice salinity Line 297  C     Send boundary ice salinity
297         idx = idx + 1         idx = idx + 1
298         xfer_bc_tracer(idx) = xfer_array(Nx,j)         xfer_bc_tracer(idx) = xfer_array(Nx,j)
299        ENDDO        ENDDO
300        DO i = (Nx-1), -1, 1        DO i = (Nx-1), 1, -1
301         idx = idx + 1         idx = idx + 1
302         xfer_bc_tracer(idx) = xfer_array(i,Ny)         xfer_bc_tracer(idx) = xfer_array(i,Ny)
303        ENDDO        ENDDO
304        DO j = (Ny-1), -1, 2        DO j = (Ny-1), 2, -1
305         idx = idx + 1         idx = idx + 1
306         xfer_bc_tracer(idx) = xfer_array(1,j)         xfer_bc_tracer(idx) = xfer_array(1,j)
307        ENDDO        ENDDO
# Line 333  C     Send boundary snow thickness Line 333  C     Send boundary snow thickness
333         idx = idx + 1         idx = idx + 1
334         xfer_bc_tracer(idx) = xfer_array(Nx,j)         xfer_bc_tracer(idx) = xfer_array(Nx,j)
335        ENDDO        ENDDO
336        DO i = (Nx-1), -1, 1        DO i = (Nx-1), 1, -1
337         idx = idx + 1         idx = idx + 1
338         xfer_bc_tracer(idx) = xfer_array(i,Ny)         xfer_bc_tracer(idx) = xfer_array(i,Ny)
339        ENDDO        ENDDO
340        DO j = (Ny-1), -1, 2        DO j = (Ny-1), 2, -1
341         idx = idx + 1         idx = idx + 1
342         xfer_bc_tracer(idx) = xfer_array(1,j)         xfer_bc_tracer(idx) = xfer_array(1,j)
343        ENDDO        ENDDO
# Line 369  C     Send boundary u ice Line 369  C     Send boundary u ice
369         idx = idx + 1         idx = idx + 1
370         xfer_bc_veloc(idx) = xfer_array(Nx,j)         xfer_bc_veloc(idx) = xfer_array(Nx,j)
371        ENDDO        ENDDO
372        DO i = (Nx-1), -1, 2        DO i = (Nx-1), 2, -1
373         idx = idx + 1         idx = idx + 1
374         xfer_bc_veloc(idx) = xfer_array(i,Ny)         xfer_bc_veloc(idx) = xfer_array(i,Ny)
375        ENDDO        ENDDO
376        DO j = (Ny-1), -1, 2        DO j = (Ny-1), 2, -1
377         idx = idx + 1         idx = idx + 1
378         xfer_bc_veloc(idx) = xfer_array(2,j)         xfer_bc_veloc(idx) = xfer_array(2,j)
379        ENDDO        ENDDO
# Line 405  C     Send boundary v ice Line 405  C     Send boundary v ice
405         idx = idx + 1         idx = idx + 1
406         xfer_bc_veloc(idx) = xfer_array(Nx,j)         xfer_bc_veloc(idx) = xfer_array(Nx,j)
407        ENDDO        ENDDO
408        DO i = (Nx-1), -1, 1        DO i = (Nx-1), 1, -1
409         idx = idx + 1         idx = idx + 1
410         xfer_bc_veloc(idx) = xfer_array(i,Ny)         xfer_bc_veloc(idx) = xfer_array(i,Ny)
411        ENDDO        ENDDO
412        DO j = (Ny-1), -1, 3        DO j = (Ny-1), 3, -1
413         idx = idx + 1         idx = idx + 1
414         xfer_bc_veloc(idx) = xfer_array(1,j)         xfer_bc_veloc(idx) = xfer_array(1,j)
415        ENDDO        ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22