Symbol Description Uses
mpiMyId 57



File Line number Procedure Code
./pkg/exf/exf_monitor.F 164 EXF_MONITOR
        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
./pkg/exf/exf_monitor.F 55 EXF_MONITOR
        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
./pkg/exf/exf_interp_read.F 78 EXF_INTERP_READ
        IF( mpiMyId .EQ. 0 ) THEN
./pkg/ptracers/ptracers_monitor.F 114 PTRACERS_MONITOR
        IF ( .NOT. useSingleCPUIO .OR. mpiMyId .EQ. 0 ) THEN
./pkg/ptracers/ptracers_monitor.F 64 PTRACERS_MONITOR
       IF ( .NOT. useSingleCPUIO .OR. mpiMyId .EQ. 0 ) THEN
./pkg/diagnostics/diagstats_close_io.F 46 DIAGSTATS_CLOSE_IO
      IF ( diagSt_Ascii .AND. mpiMyId.EQ.0 ) THEN
./pkg/diagnostics/diagstats_mnc_out.F 90 DIAGSTATS_MNC_OUT
      IF ( diagSt_MNC .AND. mpiMyId.EQ.0 ) THEN
./pkg/diagnostics/diagstats_ascii_out.F 50 DIAGSTATS_ASCII_OUT
      IF ( diagSt_Ascii .AND. mpiMyId.EQ.0 ) THEN
./pkg/diagnostics/diagstats_ini_io.F 46 DIAGSTATS_INI_IO
      IF ( diagSt_Ascii .AND. mpiMyId.EQ.0 ) THEN
./eesupp/inc/EESUPPORT.h 234 NO PROCEDURE
     & mpiPidIo, mpiMyId, mpiNProcs, mpiComm,
./eesupp/inc/EESUPPORT.h 256 NO PROCEDURE
      INTEGER mpiMyId
./pkg/exch2/w2_eeboot.F 156 W2_EEBOOT
     &        npe, mpiMyId, MPI_COMM_MODEL, mpiRequest, ierr)
./model/src/ini_cori.F 136 INI_CORI
      IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
./model/src/ini_cori.F 169 INI_CORI
      IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
./eesupp/src/scatter_xz.F 46 SCATTER_XZ
      IF( mpiMyId .EQ. 0 ) THEN
./eesupp/src/eeboot_minimal.F 109 EEBOOT_MINIMAL
       CALL MPI_COMM_RANK( MPI_COMM_MODEL, mpiMyId, mpiRC )
./eesupp/src/eeboot_minimal.F 118 EEBOOT_MINIMAL
       myProcId = mpiMyId
./eesupp/src/gather_vector.F 47 GATHER_VECTOR
      IF( mpiMyId .EQ. 0 ) THEN
./eesupp/src/scatter_yz.F 46 SCATTER_YZ
      IF( mpiMyId .EQ. 0 ) THEN
./eesupp/src/scatter_2d.F 50 SCATTER_2D
      IF( mpiMyId .EQ. 0 ) THEN
./pkg/monitor/mon_out.F 130 MON_OUT_ALL
      IF ( .NOT. useSingleCPUIO .OR. mpiMyId .EQ. 0 ) THEN
./pkg/monitor/monitor.F 145 MONITOR
        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
./pkg/monitor/monitor.F 52 MONITOR
        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
./eesupp/src/ini_procs.F 164 INI_PROCS
       CALL MPI_CART_COORDS( mpiComm, mpiMyId, 2, mpiGridSpec, mpiRC )
./eesupp/src/ini_procs.F 173 INI_PROCS
       myPid = mpiMyId
./eesupp/src/ini_procs.F 189 INI_PROCS
     &         npe, mpiMyId, MPI_COMM_MODEL, mpiRequest, ierr)
./eesupp/src/ini_procs.F 198 INI_PROCS
     &         npe, mpiMyId, MPI_COMM_MODEL, mpiRequest, ierr)
./pkg/mdsio/mdsio_writevector.F 133 MDSWRITEVECTOR
        IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_writevector.F 161 MDSWRITEVECTOR
         IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_writevector.F 199 MDSWRITEVECTOR
        IF( mpiMyId .EQ. 0 ) THEN
./eesupp/src/scatter_vector.F 43 SCATTER_VECTOR
      IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_readfield.F 376 MDSREADFIELD
        IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_readfield.F 440 MDSREADFIELD
         IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_readvector.F 238 MDSREADVECTOR
        IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_readvector.F 282 MDSREADVECTOR
         IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_gl.F 1056 MDSREADFIELD_2D_GL
         IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_gl.F 1246 MDSWRITEFIELD_2D_GL
        IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_gl.F 1278 MDSWRITEFIELD_2D_GL
         IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_gl.F 1312 MDSWRITEFIELD_2D_GL
        IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_gl.F 135 MDSREADFIELD_3D_GL
        IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_gl.F 342 MDSREADFIELD_3D_GL
         IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_gl.F 530 MDSWRITEFIELD_3D_GL
        IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_gl.F 562 MDSWRITEFIELD_3D_GL
         IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_gl.F 596 MDSWRITEFIELD_3D_GL
        IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_gl.F 850 MDSREADFIELD_2D_GL
        IF( mpiMyId .EQ. 0 ) THEN
./pkg/mdsio/mdsio_writevec_loc.F 70 MDSWRITEVEC_LOC_RS
      IF ( (mpiMyId.EQ.0 .AND. bi.EQ.0 .AND. bj.EQ.0)
./pkg/mdsio/mdsio_writefield_new.F 131 MDSWRITEFIELD_NEW
      IF (useSingleCpuIO) iAmDoingIO = mpiMyId.EQ.0
./eesupp/src/gather_yz.F 49 GATHER_YZ
      IF( mpiMyId .EQ. 0 ) THEN
./eesupp/src/gather_2d.F 50 GATHER_2D
      IF( mpiMyId .EQ. 0 ) THEN
./eesupp/src/gather_xz.F 49 GATHER_XZ
      IF( mpiMyId .EQ. 0 ) THEN
./pkg/thsice/thsice_monitor.F 238 THSICE_MONITOR
        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
./pkg/thsice/thsice_monitor.F 69 THSICE_MONITOR
        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
./pkg/land/land_monitor.F 300 LAND_MONITOR
        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
./pkg/land/land_monitor.F 87 LAND_MONITOR
        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
./pkg/seaice/seaice_monitor.F 154 SEAICE_MONITOR
        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
./pkg/seaice/seaice_monitor.F 49 SEAICE_MONITOR
        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
./pkg/embed_files/embed_files_init.F 32 EMBED_FILES_INIT
      IF ( mpiMyId.EQ.0 ) THEN