| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_readvector.F |
236 |
MDSREADVECTOR |
IF( mpiMyId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_readvector.F |
281 |
MDSREADVECTOR |
IF( mpiMyId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_writevector.F |
139 |
MDSWRITEVECTOR |
IF( mpiMyId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_writevector.F |
174 |
MDSWRITEVECTOR |
IF( mpiMyId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_writevector.F |
213 |
MDSWRITEVECTOR |
IF( mpiMyId .EQ. 0 ) THEN |
|
./eesupp/src/eeboot_minimal.F |
132 |
EEBOOT_MINIMAL |
CALL MPI_COMM_RANK( MPI_COMM_MODEL, mpiMyId, mpiRC ) |
|
./eesupp/src/eeboot_minimal.F |
141 |
EEBOOT_MINIMAL |
myProcId = mpiMyId |
|
./eesupp/src/gather_vector.F |
47 |
GATHER_VECTOR |
IF( mpiMyId .EQ. 0 ) THEN |
|
./eesupp/src/gather_xz.F |
49 |
GATHER_XZ |
IF( mpiMyId .EQ. 0 ) THEN |
|
./eesupp/src/gather_yz.F |
49 |
GATHER_YZ |
IF( mpiMyId .EQ. 0 ) THEN |
|
./eesupp/src/global_sum_singlecpu.F |
111 |
GLOBAL_SUM_SINGLECPU_RL |
IF ( mpiMyId.EQ.0 ) THEN |
|
./eesupp/src/global_sum_tile.F |
94 |
GLOBAL_SUM_TILE_RL |
IF ( mpiMyId.NE.0 ) THEN |
|
./eesupp/src/ini_procs.F |
166 |
INI_PROCS |
CALL MPI_CART_COORDS( mpiComm, mpiMyId, 2, mpiGridSpec, mpiRC ) |
|
./eesupp/src/ini_procs.F |
175 |
INI_PROCS |
myPid = mpiMyId |
|
./eesupp/src/master_cpu_thread.F |
38 |
NO PROCEDURE |
IF ( mpiMyId.EQ.0 ) THEN |
|
./eesupp/src/scatter_vector.F |
46 |
SCATTER_VECTOR |
IF( mpiMyId .EQ. 0 ) THEN |
|
./eesupp/src/scatter_xz.F |
49 |
SCATTER_XZ |
IF( mpiMyId .EQ. 0 ) THEN |
|
./eesupp/src/scatter_yz.F |
49 |
SCATTER_YZ |
IF( 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 |
|
./pkg/diagnostics/diagstats_mnc_out.F |
90 |
DIAGSTATS_MNC_OUT |
IF ( diagSt_MNC .AND. mpiMyId.EQ.0 ) THEN |
|
./eesupp/inc/EESUPPORT.h |
230 |
NO PROCEDURE |
& mpiPidIo, mpiMyId, mpiNProcs, mpiComm, |
|
./eesupp/inc/EESUPPORT.h |
252 |
NO PROCEDURE |
INTEGER mpiMyId |
|
./pkg/embed_files/embed_files_init.F |
32 |
EMBED_FILES_INIT |
IF ( mpiMyId.EQ.0 ) THEN |