| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
153 |
W2_CUMULSUM_Z_TILE_RL |
IF ( myProcId.EQ.0 ) THEN |
|
./pkg/exch2/w2_eeboot.F |
88 |
W2_EEBOOT |
& 'w2_tile_topology.',myProcId,'.log' |
|
./pkg/exch2/w2_map_procs.F |
75 |
W2_MAP_PROCS |
thisProc = 1 + myProcId |
|
./pkg/exch2/w2_print_e2setup.F |
50 |
W2_PRINT_E2SETUP |
& .OR. ( W2_printMsg .NE.0 .AND. myProcId.EQ.0 ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
52 |
W2_SET_CS6_FACETS |
& .OR. ( W2_printMsg .NE.0 .AND. myProcId.EQ.0 ) |
|
./pkg/exch2/w2_set_f2f_index.F |
48 |
W2_SET_F2F_INDEX |
& .OR. ( W2_printMsg .NE.0 .AND. myProcId.EQ.0 ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
231 |
W2_SET_MAP_CUMSUM |
IF ( myProcId.EQ.0 ) THEN |
|
./pkg/exch2/w2_set_map_cumsum.F |
259 |
W2_SET_MAP_CUMSUM |
IF ( myProcId.EQ.0 ) WRITE(W2_oUnit,'(3(A,I6))') |
|
./pkg/exch2/w2_set_map_cumsum.F |
56 |
W2_SET_MAP_CUMSUM |
& .OR. ( W2_printMsg .NE.0 .AND. myProcId.EQ.0 ) |
|
./pkg/exch2/w2_set_map_tiles.F |
58 |
W2_SET_MAP_TILES |
& .OR. ( W2_printMsg .NE.0 .AND. myProcId.EQ.0 ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
59 |
W2_SET_TILE2TILES |
& .OR. ( W2_printMsg .NE.0 .AND. myProcId.EQ.0 ) |
|
./pkg/flt/exch2_recv_get_vec.F |
105 |
EXCH2_RECV_GET_VEC_RL |
write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch2_recv_get_vec.F |
113 |
EXCH2_RECV_GET_VEC_RL |
write(ioUnit,'(A,5I6)') 'RECV,1 :',myProcId,bi,bj |
|
./pkg/flt/exch2_recv_get_vec.F |
121 |
EXCH2_RECV_GET_VEC_RL |
write(ioUnit,'(A,5I6,I12)') 'RECV:',myProcId |
|
./pkg/flt/exch2_recv_get_vec.F |
97 |
EXCH2_RECV_GET_VEC_RL |
write(ioUnit,'(A,5I6)') 'RECV,0 :',myProcId,bi,bj |
|
./pkg/flt/exch2_send_put_vec.F |
139 |
EXCH2_SEND_PUT_VEC_RL |
write(ioUnit,'(A,5I5,I8)') 'qq1xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
104 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
123 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6)') 'RECV_X,1 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
134 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I5,I8)') 'qq2xE: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
144 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6)') 'RECV_X,2 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
149 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6,I12)') 'RECV_X:',myProcId |
|
./pkg/flt/exch_recv_get_vec.F |
190 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
197 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
294 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6)') 'RECV_Y,0 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
314 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6)') 'RECV_Y,1 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
331 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6)') 'RECV_Y,2 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
336 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6,I12)') 'RECV_Y:',myProcId |
|
./pkg/flt/exch_recv_get_vec.F |
378 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
385 |
EXCH_RECV_GET_VEC_Y_RL |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
90 |
EXCH_RECV_GET_VEC_X_RL |
write(ioUnit,'(A,5I6)') 'RECV_X,0 :',myProcId,bi,bj |
|
./pkg/flt/exch_send_put_vec.F |
130 |
EXCH_SEND_PUT_VEC_X_RL |
write(ioUnit,'(A,7I5,I8)') 'qq1xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_send_put_vec.F |
163 |
EXCH_SEND_PUT_VEC_X_RL |
write(ioUnit,'(A,7I5,I8)') 'qq1xE: ',myProcId,bi,bj, |
|
./pkg/grdchk/grdchk_get_position.F |
100 |
GRDCHK_GET_POSITION |
if ( myProcId .EQ. grdchkwhichproc ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
499 |
GRDCHK_GETADXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getadxx.F |
507 |
GRDCHK_GETADXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getadxx.F |
516 |
GRDCHK_GETADXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getadxx.F |
525 |
GRDCHK_GETADXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getxx.F |
693 |
GRDCHK_GETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getxx.F |
695 |
GRDCHK_GETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getxx.F |
697 |
GRDCHK_GETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getxx.F |
708 |
GRDCHK_GETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getxx.F |
710 |
GRDCHK_GETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getxx.F |
712 |
GRDCHK_GETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getxx.F |
724 |
GRDCHK_GETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getxx.F |
726 |
GRDCHK_GETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getxx.F |
728 |
GRDCHK_GETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getxx.F |
740 |
GRDCHK_GETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getxx.F |
742 |
GRDCHK_GETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_getxx.F |
744 |
GRDCHK_GETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_main.F |
230 |
GRDCHK_MAIN |
IF ( myProcId .EQ. grdchkwhichproc ) THEN |
|
./pkg/grdchk/grdchk_main.F |
419 |
GRDCHK_MAIN |
IF ( myProcId .EQ. grdchkwhichproc .AND. ierr .EQ. 0 ) THEN |
|
./pkg/grdchk/grdchk_main.F |
451 |
GRDCHK_MAIN |
IF ( myProcId .EQ. grdchkwhichproc .AND. ierr .EQ. 0 ) THEN |
|
./pkg/grdchk/grdchk_main.F |
509 |
GRDCHK_MAIN |
IF (myProcId .EQ. grdchkwhichproc .AND. .NOT.useSingleCpuIO) THEN |
|
./pkg/grdchk/grdchk_readparms.F |
164 |
GRDCHK_READPARMS |
grdchkwhichproc = myProcId |
|
./pkg/grdchk/grdchk_setxx.F |
695 |
GRDCHK_SETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_setxx.F |
706 |
GRDCHK_SETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_setxx.F |
718 |
GRDCHK_SETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/grdchk/grdchk_setxx.F |
730 |
GRDCHK_SETXX |
if ( myProcId .EQ. grdchkwhichproc ) |
|
./pkg/mdsio/mdsio_gl.F |
1140 |
MDSREADFIELD_2D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
1361 |
MDSWRITEFIELD_2D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
1393 |
MDSWRITEFIELD_2D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
1427 |
MDSWRITEFIELD_2D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
142 |
MDSREADFIELD_3D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
353 |
MDSREADFIELD_3D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
572 |
MDSWRITEFIELD_3D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
604 |
MDSWRITEFIELD_3D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
638 |
MDSWRITEFIELD_3D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
930 |
MDSREADFIELD_2D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
117 |
MDS_READ_TAPE |
IF ( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
235 |
MDS_READ_TAPE |
jRec = 1 + myProcId + (iRec-1)*nPx*nPy |
|
./pkg/mdsio/mdsio_read_whalos.F |
116 |
MDS_READ_WHALOS |
IF ( .NOT.locSingleCpuIO .OR. myProcId.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_read_whalos.F |
126 |
MDS_READ_WHALOS |
WRITE(pfName,'(2A,I3.3,A)') fName(1:IL),'.',myProcId,'.data' |
|
./pkg/mdsio/mdsio_write_tape.F |
151 |
MDS_WRITE_TAPE |
& ( .NOT.singleCpuIO .OR. myProcId.EQ.0 ) ) THEN |
|
./pkg/mdsio/mdsio_write_tape.F |
177 |
MDS_WRITE_TAPE |
IF ( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_write_tape.F |
265 |
MDS_WRITE_TAPE |
jRec = 1 + myProcId + (iRec-1)*nPx*nPy |
|
./pkg/mdsio/mdsio_write_tape.F |
302 |
MDS_WRITE_TAPE |
dimList(2,1) = 1 + myProcId*nSize |
|
./pkg/mdsio/mdsio_write_tape.F |
303 |
MDS_WRITE_TAPE |
dimList(3,1) = (1+myProcId)*nSize |
|
./pkg/mdsio/mdsio_write_whalos.F |
118 |
MDS_WRITE_WHALOS |
IF ( .NOT.locSingleCpuIO .OR. myProcId.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_write_whalos.F |
128 |
MDS_WRITE_WHALOS |
WRITE(pfName,'(2A,I3.3,A)') fName(1:IL),'.',myProcId,'.data' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
96 |
MDS_WRITEVEC_LOC |
IF ( myProcId.EQ.0 .OR. bi.NE.0 .OR. bj.NE.0 ) THEN |
|
./verification/adjustment.cs-32x32x1/code_min/main.F |
186 |
NO PROCEDURE |
WRITE(0,'(3(A,I4))') '-- PId=', myProcId, ' , TId=', myThid, |
|
./eesupp/src/eeboot_minimal.F |
154 |
EEBOOT_MINIMAL |
myProcId = mpiMyId |
|
./eesupp/src/eeboot_minimal.F |
155 |
EEBOOT_MINIMAL |
WRITE(myProcessStr,'(I4.4)') myProcId |
|
./eesupp/src/eeboot_minimal.F |
156 |
EEBOOT_MINIMAL |
mpiPidIo = myProcId |
|
./eesupp/src/eeboot_minimal.F |
158 |
EEBOOT_MINIMAL |
IF ( mpiPidIo .EQ. myProcId ) THEN |
|
./eesupp/src/eeboot_minimal.F |
160 |
EEBOOT_MINIMAL |
IF( myProcId .EQ. 0 ) THEN |
|
./eesupp/src/eeboot_minimal.F |
171 |
EEBOOT_MINIMAL |
IF( myProcId .EQ. 0 ) THEN |
|
./eesupp/src/eeboot_minimal.F |
228 |
EEBOOT_MINIMAL |
CALL F_HPMINIT(myProcId, "mitgcmuv") |
|
./eesupp/src/eeboot_minimal.F |
62 |
EEBOOT_MINIMAL |
myProcId = 0 |
|
./eesupp/src/eeboot_minimal.F |
63 |
EEBOOT_MINIMAL |
pidIO = myProcId |
|
./eesupp/src/eeboot_minimal.F |
81 |
EEBOOT_MINIMAL |
WRITE(myProcessStr,'(I4.4)') myProcId |
|
./eesupp/src/eedie.F |
74 |
EEDIE |
CALL F_HPMTERMINATE(myProcId) |
|
./pkg/admtlm/admtlm_dsvd.F |
442 |
ADMTLM_DSVD |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/admtlm/admtlm_dsvd.F |
454 |
ADMTLM_DSVD |
IF ( myProcId .eq. 0 ) THEN |
|
./eesupp/src/eeset_parms.F |
142 |
EESET_PARMS |
IF( myProcId .EQ. 0 ) THEN |
|
./eesupp/src/eeset_parms.F |
148 |
EESET_PARMS |
WRITE(scratchFile1,'(A,I4.4)') 'scratch1.', myProcId |
|
./eesupp/src/eeset_parms.F |
149 |
EESET_PARMS |
WRITE(scratchFile2,'(A,I4.4)') 'scratch2.', myProcId |
|
./eesupp/src/eeset_parms.F |
159 |
EESET_PARMS |
IF( myProcId .EQ. 0 ) THEN |
|
./eesupp/src/global_sum_singlecpu.F |
110 |
GLOBAL_SUM_SINGLECPU_RL |
IF ( myProcId.EQ.0 ) THEN |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
75 |
AUTODIFF_WHTAPEIO_SYNC |
IF ( .NOT.tapeSingleCpuIO .OR. myProcId.EQ.0 ) THEN |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
85 |
AUTODIFF_WHTAPEIO_SYNC |
& adTapeDir(1:IL),'tapes',myLev,'.',myProcId,'.data' |
|
./eesupp/src/master_cpu_io.F |
36 |
NO PROCEDURE |
IF ( .NOT.useSingleCPUIO .OR. myProcId.EQ.0 ) THEN |
|
./eesupp/src/open_copy_data_file.F |
101 |
OPEN_COPY_DATA_FILE |
IF ( myProcId .EQ. 0 ) THEN |
|
./eesupp/src/open_copy_data_file.F |
84 |
OPEN_COPY_DATA_FILE |
IF ( myProcId .EQ. 0 ) THEN |
|
./eesupp/src/open_copy_data_file.F |
90 |
OPEN_COPY_DATA_FILE |
WRITE(scratchFile1,'(A,I4.4)') 'scratch1.', myProcId |
|
./eesupp/src/open_copy_data_file.F |
91 |
OPEN_COPY_DATA_FILE |
WRITE(scratchFile2,'(A,I4.4)') 'scratch2.', myProcId |
|
./eesupp/src/print.F |
100 |
PRINT_MESSAGE |
ELSEIF ( pidIO .EQ. myProcId ) THEN |
|
./eesupp/src/print.F |
111 |
PRINT_MESSAGE |
WRITE(idString,'(I4.4,A,I4.4)') myProcId,'.',myThid |
|
./eesupp/src/print.F |
230 |
PRINT_ERROR |
IF ( pidIO .EQ. myProcId ) THEN |
|
./eesupp/src/print.F |
232 |
PRINT_ERROR |
WRITE(idString,'(I4.4,A,I4.4)') myProcId,'.',myThid |
|
./pkg/cost/cost_dependent_init.F |
60 |
COST_DEPENDENT_INIT |
if ( myProcId .EQ. 0 ) then |
|
./pkg/cost/cost_final_store.F |
44 |
COST_FINAL_STORE |
IF (myProcId .eq. 0) THEN |
|
./pkg/ctrl/ctrl_pack.F |
198 |
CTRL_PACK |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_pack.F |
767 |
CTRL_PACK |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
496 |
CTRL_SET_PACK_XY |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
523 |
CTRL_SET_PACK_XY |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
414 |
CTRL_SET_PACK_XYZ |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
441 |
CTRL_SET_PACK_XYZ |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
474 |
CTRL_SET_UNPACK_XY |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
500 |
CTRL_SET_UNPACK_XY |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
383 |
CTRL_SET_UNPACK_XYZ |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
409 |
CTRL_SET_UNPACK_XYZ |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_unpack.F |
203 |
CTRL_UNPACK |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_unpack.F |
863 |
CTRL_UNPACK |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/debug/debug_cs_corner_uv.F |
116 |
DEBUG_CS_CORNER_UV |
IF ( W2_tileProc(t2).EQ.myProcId+1 ) n2 = W2_tileIndex(t2) |
|
./pkg/debug/debug_cs_corner_uv.F |
117 |
DEBUG_CS_CORNER_UV |
IF ( W2_tileProc(t3).EQ.myProcId+1 ) n3 = W2_tileIndex(t3) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
263 |
DIAGNOSTICS_CALC_PHIVEL |
& diag_mdsio .AND. myProcId.EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
185 |
DIAGNOSTICS_SET_LEVELS |
IF ( debugLevel.GE.debLevA .AND. myProcId.EQ.0 ) THEN |
|
./pkg/diagnostics/diagstats_close_io.F |
44 |
DIAGSTATS_CLOSE_IO |
IF ( diagSt_Ascii .AND. myProcId.EQ.0 ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
290 |
DWNSLP_INIT_FIXED |
WRITE(logFname,'(A11,I4.4,A4)') 'down_slope.',myProcId,'.log' |
|
./eesupp/inc/EEPARAMS.h |
236 |
NO PROCEDURE |
& numberOfProcs, pidIO, myProcId, |
|
./eesupp/inc/EEPARAMS.h |
252 |
NO PROCEDURE |
INTEGER myProcId |
|
./pkg/ecco/cost_geoid.F |
96 |
COST_GEOID |
joff = myProcId*jsize |
|
./pkg/ecco/cost_restore_averagesflags.F |
42 |
COST_RESTORE_AVERAGESFLAGS |
IF (myProcId .eq. 0) THEN |
|
./pkg/ecco/cost_store_averagesflags.F |
43 |
COST_STORE_AVERAGESFLAGS |
IF (myProcId .eq. 0) THEN |