Use Fortran standartized way to compare pointers

Author: foxtran

mpp/include/mpp_transmit_mpi.fh

@@ -37,7 +37,7 @@
 !!caller is responsible for completion checks (mpp_sync_self) before and after
     subroutine MPP_TRANSMIT_( put_data, put_len, to_pe, get_data, get_len, from_pe, block, tag, recv_request, &
                             &  send_request )
-      use, intrinsic :: iso_c_binding, only: c_loc
+      use, intrinsic :: iso_c_binding, only: c_loc, c_associated
 
       integer, intent(in) :: put_len, to_pe, get_len, from_pe
       MPP_TYPE_, target, intent(in)  :: put_data(*)
@@ -90,7 +90,7 @@
           if(from_pe.LT.0 .OR. from_pe.GE.npes) call mpp_error(FATAL, 'MPP_TRANSMIT: broadcasting from invalid PE.')
           if(put_len.GT.get_len) call mpp_error(FATAL, 'MPP_TRANSMIT: size mismatch between put_data and get_data.')
           if(pe.EQ.from_pe)then
-              if( get_pointer_address(c_loc(get_data)) /= get_pointer_address(c_loc(put_data)) )then
+              if( .not.c_associated(c_loc(get_data),c_loc(put_data)) )then
 !dir$ IVDEP
                   do i = 1,get_len
                      get_data(i) = put_data(i)