Fix NaN diagnostic print to log correct offset indices

The Intel-compiler NaN check prints logged raw loop indices (j,k,l)
instead of the actual array indices used (j+unpack_offset, etc.),
making the diagnostic misleading when debugging MPI recv errors.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

Author: sbryngelson

src/common/m_mpi_common.fpp

@@ -937,7 +937,7 @@ contains
                                     q_comm(i)%sf(j + unpack_offset, k, l) = real(buff_recv(r), kind=stp)
 #if defined(__INTEL_COMPILER)
                                     if (ieee_is_nan(q_comm(i)%sf(j + unpack_offset, k, l))) then
-                                        print *, "Error", j, k, l, i
+                                        print *, "Error", j + unpack_offset, k, l, i
                                         error stop "NaN(s) in recv"
                                     end if
 #endif
@@ -992,7 +992,7 @@ contains
                                     q_comm(i)%sf(j, k + unpack_offset, l) = real(buff_recv(r), kind=stp)
 #if defined(__INTEL_COMPILER)
                                     if (ieee_is_nan(q_comm(i)%sf(j, k + unpack_offset, l))) then
-                                        print *, "Error", j, k, l, i
+                                        print *, "Error", j, k + unpack_offset, l, i
                                         error stop "NaN(s) in recv"
                                     end if
 #endif
@@ -1051,7 +1051,7 @@ contains
                                     q_comm(i)%sf(j, k, l + unpack_offset) = real(buff_recv(r), kind=stp)
 #if defined(__INTEL_COMPILER)
                                     if (ieee_is_nan(q_comm(i)%sf(j, k, l + unpack_offset))) then
-                                        print *, "Error", j, k, l, i
+                                        print *, "Error", j, k, l + unpack_offset, i
                                         error stop "NaN(s) in recv"
                                     end if
 #endif