Changeset 4422


Ignore:
Timestamp:
2014-02-04T13:13:32+01:00 (7 years ago)
Author:
trackstand2
Message:

Remove manual bounds check from exchmod

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/exchmod.F90

    r4409 r4422  
    37573757             pack_patches3r: DO ipatch=1,npatchsend(isend,1) 
    37583758 
    3759                 IF(nzsendp(ipatch,isend,1) > SIZE(b3,3))THEN 
    3760                    CALL MPI_Abort(mpi_comm_opa,-1,ierr) 
    3761                    CALL ctl_stop('STOP','exchs_generic: b3 has wrong z dimension') 
    3762                 END IF 
    3763  
    37643759                jstart = jsrcsendp(ipatch,isend,1) 
    37653760                istart = isrcsendp(ipatch,isend,1) 
     
    39193914                istart = idesrecvp(ipatch,irecv,1)!+nhalo 
    39203915                iend   = istart+nxrecvp(ipatch,irecv,1)-1 
    3921  
    3922                 IF(nzrecvp(ipatch,irecv,1) > SIZE(b3,3))THEN 
    3923                    CALL MPI_Abort(mpi_comm_opa,-1,ierr) 
    3924                    CALL ctl_stop('STOP', & 
    3925                                  'exchs_generic: wrong z dim for b3 in recv') 
    3926                 END IF 
    39273916 
    39283917#if defined key_z_first 
Note: See TracChangeset for help on using the changeset viewer.