subroutine DIAGNOSTICS_GET_POINTERS(diagName,ipoint,jpoint,myThid)
INTEGER ipoint, jpoint, myThid
jpoint = 0
jpoint = jdiag(m,n)