Changeset 4422 for branches/2011/DEV_r2739_STFC_dCSE

Timestamp:

2014-02-04T13:13:32+01:00 (10 years ago)

Author:

trackstand2

Message:

Remove manual bounds check from exchmod

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/exchmod.F90 (modified) (2 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/exchmod.F90

@@ -3757 +3757 @@
              pack_patches3r: DO ipatch=1,npatchsend(isend,1)
 
-                IF(nzsendp(ipatch,isend,1) > SIZE(b3,3))THEN
-                   CALL MPI_Abort(mpi_comm_opa,-1,ierr)
-                   CALL ctl_stop('STOP','exchs_generic: b3 has wrong z dimension')
-                END IF
-
                 jstart = jsrcsendp(ipatch,isend,1)
                 istart = isrcsendp(ipatch,isend,1)
@@ -3919 +3914 @@
                 istart = idesrecvp(ipatch,irecv,1)!+nhalo
                 iend   = istart+nxrecvp(ipatch,irecv,1)-1
-
-                IF(nzrecvp(ipatch,irecv,1) > SIZE(b3,3))THEN
-                   CALL MPI_Abort(mpi_comm_opa,-1,ierr)
-                   CALL ctl_stop('STOP', &
-                                 'exchs_generic: wrong z dim for b3 in recv')
-                END IF
 
 #if defined key_z_first