| File |
Line number |
Procedure |
Code |
|
./pkg/flt/exch2_recv_get_vec.F |
105 |
EXCH2_RL_RECV_GET_VEC |
write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch2_recv_get_vec.F |
117 |
EXCH2_RL_RECV_GET_VEC |
write(ioUnit,'(A,5I6)') 'RECV,1 :',myProcId,bi,bj |
|
./pkg/flt/exch2_recv_get_vec.F |
125 |
EXCH2_RL_RECV_GET_VEC |
write(ioUnit,'(A,5I6,I12)') 'RECV:',myProcId |
|
./pkg/flt/exch2_recv_get_vec.F |
93 |
EXCH2_RL_RECV_GET_VEC |
write(ioUnit,'(A,5I6)') 'RECV,0 :',myProcId,bi,bj |
|
./pkg/flt/exch2_send_put_vec.F |
130 |
EXCH2_RL_SEND_PUT_VEC |
write(ioUnit,'(A,5I5,I8)') 'qq1xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
101 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
122 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6)') 'RECV_X,1 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
134 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I5,I8)') 'qq2xE: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
146 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6)') 'RECV_X,2 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
151 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6,I12)') 'RECV_X:',myProcId |
|
./pkg/flt/exch_recv_get_vec.F |
167 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
174 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
282 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6)') 'RECV_Y,0 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
306 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6)') 'RECV_Y,1 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
326 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6)') 'RECV_Y,2 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
331 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6,I12)') 'RECV_Y:',myProcId |
|
./pkg/flt/exch_recv_get_vec.F |
347 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
354 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
85 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6)') 'RECV_X,0 :',myProcId,bi,bj |
|
./pkg/flt/exch_send_put_vec.F |
127 |
EXCH_RL_SEND_PUT_VEC_X |
write(ioUnit,'(A,7I5,I8)') 'qq1xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_send_put_vec.F |
163 |
EXCH_RL_SEND_PUT_VEC_X |
write(ioUnit,'(A,7I5,I8)') 'qq1xE: ',myProcId,bi,bj, |
|
./pkg/grdchk/grdchk_get_position.F |
91 |
GRDCHK_GET_POSITION |
if ( myProcId .EQ. grdchkwhichproc ) then |
|
./pkg/grdchk/grdchk_main.F |
224 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc ) then |
|
./pkg/grdchk/grdchk_main.F |
241 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./pkg/grdchk/grdchk_main.F |
257 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./pkg/grdchk/grdchk_main.F |
294 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./pkg/grdchk/grdchk_main.F |
314 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./pkg/grdchk/grdchk_main.F |
337 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./pkg/grdchk/grdchk_main.F |
354 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./pkg/grdchk/grdchk_main.F |
377 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./pkg/grdchk/grdchk_main.F |
393 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./pkg/grdchk/grdchk_main.F |
509 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc ) then |
|
./pkg/mdsio/mdsio_gl.F |
1101 |
MDSREADFIELD_2D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
1313 |
MDSWRITEFIELD_2D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
133 |
MDSREADFIELD_3D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
1345 |
MDSWRITEFIELD_2D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
1379 |
MDSWRITEFIELD_2D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
340 |
MDSREADFIELD_3D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
550 |
MDSWRITEFIELD_3D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
582 |
MDSWRITEFIELD_3D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
616 |
MDSWRITEFIELD_3D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_gl.F |
895 |
MDSREADFIELD_2D_GL |
IF( myProcId .EQ. 0 ) THEN |
|
./pkg/mdsio/mdsio_read_whalos.F |
120 |
MDS_READ_WHALOS |
WRITE(pfName,'(2A,I3.3,A)') pfName(1:pIL),'.',myProcId,'.data' |
|
./pkg/mdsio/mdsio_write_whalos.F |
122 |
MDS_WRITE_WHALOS |
WRITE(pfName,'(2A,I3.3,A)') pfName(1:pIL),'.',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/OpenAD/code_oad_all/grdchk_main.F |
223 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc ) then |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
240 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
256 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
293 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
313 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
336 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
353 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
376 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
392 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc .AND. |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
508 |
GRDCHK_MAIN |
if ( myProcId .EQ. grdchkwhichproc ) then |
|
./verification/OpenAD/code_oad_all/the_model_main.F |
552 |
THE_MODEL_MAIN |
IF (myProcId .eq. 0) THEN |
|
./verification/OpenAD/code_oad_all/the_model_main.F |
670 |
THE_MODEL_MAIN |
IF ( myProcId .eq. 0 .AND. lastdiva .AND. doMainPack ) THEN |
|
./verification/adjustment.cs-32x32x1/code_min/main.F |
181 |
NO PROCEDURE |
WRITE(0,'(3(A,I4))') '-- PId=', myProcId, ' , TId=', myThid, |
|
./verification/natl_box_adjoint/code_pack/the_model_main.F |
511 |
THE_MODEL_MAIN |
IF (myProcId .eq. 0) THEN |
|
./verification/natl_box_adjoint/code_pack/the_model_main.F |
533 |
THE_MODEL_MAIN |
IF ( myProcId .eq. 0 .AND. lastdiva .AND. doMainPack ) THEN |
|
./verification/offline_exf_seaice/code_ad/the_model_main.F |
526 |
THE_MODEL_MAIN |
IF (myProcId .eq. 0) THEN |
|
./verification/offline_exf_seaice/code_ad/the_model_main.F |
593 |
THE_MODEL_MAIN |
IF ( myProcId .eq. 0 .AND. lastdiva .AND. doMainPack ) THEN |
|
./eesupp/src/eeboot_minimal.F |
141 |
EEBOOT_MINIMAL |
myProcId = mpiMyId |
|
./eesupp/src/eeboot_minimal.F |
142 |
EEBOOT_MINIMAL |
WRITE(myProcessStr,'(I4.4)') myProcId |
|
./eesupp/src/eeboot_minimal.F |
143 |
EEBOOT_MINIMAL |
mpiPidIo = myProcId |
|
./eesupp/src/eeboot_minimal.F |
145 |
EEBOOT_MINIMAL |
IF ( mpiPidIo .EQ. myProcId ) THEN |
|
./eesupp/src/eeboot_minimal.F |
215 |
EEBOOT_MINIMAL |
WRITE(myProcessStr,'(I4.4)') myProcId |
|
./eesupp/src/eeboot_minimal.F |
223 |
EEBOOT_MINIMAL |
CALL F_HPMINIT(myProcId, "mitgcmuv") |
|
./eesupp/src/eeboot_minimal.F |
63 |
EEBOOT_MINIMAL |
myProcId = 0 |
|
./eesupp/src/eeboot_minimal.F |
64 |
EEBOOT_MINIMAL |
pidIO = myProcId |
|
./eesupp/src/eedie.F |
70 |
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 |
126 |
EESET_PARMS |
WRITE(scratchFile1,'(A,I4.4)') 'scratch1.', myProcId |
|
./eesupp/src/eeset_parms.F |
127 |
EESET_PARMS |
WRITE(scratchFile2,'(A,I4.4)') 'scratch2.', myProcId |
|
./pkg/aim_compon_interf/cpl_export_my_data.F |
52 |
CPL_EXPORT_MY_DATA |
WRITE(0,'(A,I5,A,I10)') ' Exporting (pid=', myProcId, |
|
./pkg/aim_compon_interf/cpl_import_external_data.F |
49 |
CPL_IMPORT_EXTERNAL_DATA |
WRITE(0,'(A,I5,A,I10)') ' Importing (pid=', myProcId, |
|
./eesupp/src/master_cpu_io.F |
36 |
NO PROCEDURE |
IF ( .NOT.useSingleCPUIO .OR. myProcId.EQ.0 ) THEN |
|
./eesupp/src/open_copy_data_file.F |
74 |
OPEN_COPY_DATA_FILE |
WRITE(scratchFile1,'(A,I4.4)') 'scratch1.', myProcId |
|
./eesupp/src/open_copy_data_file.F |
75 |
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 |
105 |
PRINT_MESSAGE |
WRITE(idString,'(I4.4,A,I4.4)') myProcId,'.',myThid |
|
./eesupp/src/print.F |
228 |
PRINT_ERROR |
IF ( pidIO .EQ. myProcId ) THEN |
|
./eesupp/src/print.F |
230 |
PRINT_ERROR |
WRITE(idString,'(I4.4,A,I4.4)') myProcId,'.',myThid |
|
./pkg/cost/cost_dependent_init.F |
56 |
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 |
179 |
CTRL_PACK |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_pack.F |
636 |
CTRL_PACK |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
456 |
CTRL_SET_PACK_XY |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
483 |
CTRL_SET_PACK_XY |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
397 |
CTRL_SET_PACK_XYZ |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
424 |
CTRL_SET_PACK_XYZ |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
453 |
CTRL_SET_UNPACK_XY |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
479 |
CTRL_SET_UNPACK_XY |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
365 |
CTRL_SET_UNPACK_XYZ |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
391 |
CTRL_SET_UNPACK_XYZ |
IF ( myProcId .eq. 0 ) THEN |
|
./eesupp/inc/EEPARAMS.h |
223 |
NO PROCEDURE |
& numberOfProcs, pidIO, myProcId, |
|
./eesupp/inc/EEPARAMS.h |
239 |
NO PROCEDURE |
INTEGER myProcId |
|
./pkg/ctrl/ctrl_unpack.F |
187 |
CTRL_UNPACK |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/ctrl/ctrl_unpack.F |
731 |
CTRL_UNPACK |
IF ( myProcId .eq. 0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
176 |
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 |
288 |
DWNSLP_INIT_FIXED |
WRITE(logFname,'(A11,I4.4,A4)') 'down_slope.',myProcId,'.log' |
|
./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 |
|
./pkg/exch2/w2_eeboot.F |
95 |
W2_EEBOOT |
& 'w2_tile_topology.',myProcId,'.log' |
|
./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_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 ) |