| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
115 |
W2_CUMULSUM_Z_TILE_RL |
& idest, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
118 |
W2_CUMULSUM_Z_TILE_RL |
& idest, itag, MPI_COMM_MODEL, ierr) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
122 |
W2_CUMULSUM_Z_TILE_RL |
& idest, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
131 |
W2_CUMULSUM_Z_TILE_RL |
& pId, itag, MPI_COMM_MODEL, ierr) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
134 |
W2_CUMULSUM_Z_TILE_RL |
& pId, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
262 |
W2_CUMULSUM_Z_TILE_RL |
& pId, itag, MPI_COMM_MODEL, ierr) |
|
./pkg/exch2/w2_cumulsum_z_tile.F |
74 |
W2_CUMULSUM_Z_TILE_RL |
INTEGER istatus(MPI_STATUS_SIZE), ierr |
|
./pkg/exf/exf_interp_read.F |
167 |
EXF_INTERP_READ |
& 0,MPI_COMM_MODEL,ierr) |
|
./pkg/exf/exf_interp_read.F |
170 |
EXF_INTERP_READ |
& 0,MPI_COMM_MODEL,ierr) |
|
./pkg/exf/exf_interp_read.F |
80 |
EXF_INTERP_READ |
INTEGER ierr |
|
./pkg/grdchk/grdchk_get_position.F |
104 |
GRDCHK_GET_POSITION |
ierr = -5 |
|
./pkg/grdchk/grdchk_get_position.F |
138 |
GRDCHK_GET_POSITION |
if ( ierr .ne. 0 ) then |
|
./pkg/grdchk/grdchk_get_position.F |
143 |
GRDCHK_GET_POSITION |
if (ierr .ne. 0) then |
|
./pkg/grdchk/grdchk_get_position.F |
214 |
GRDCHK_GET_POSITION |
ierr = 0 |
|
./pkg/grdchk/grdchk_get_position.F |
227 |
GRDCHK_GET_POSITION |
ierr = 0 |
|
./pkg/grdchk/grdchk_get_position.F |
242 |
GRDCHK_GET_POSITION |
else if (ierr .NE. 0) then |
|
./pkg/grdchk/grdchk_get_position.F |
52 |
GRDCHK_GET_POSITION |
integer ierr |
|
./pkg/grdchk/grdchk_getadxx.F |
17 |
GRDCHK_GETADXX |
I ierr, |
|
./pkg/grdchk/grdchk_getadxx.F |
494 |
GRDCHK_GETADXX |
if (ierr .EQ. 0 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
56 |
GRDCHK_GETADXX |
integer ierr |
|
./pkg/grdchk/grdchk_getxx.F |
20 |
GRDCHK_GETXX |
I ierr, |
|
./pkg/grdchk/grdchk_getxx.F |
62 |
GRDCHK_GETXX |
integer ierr |
|
./pkg/grdchk/grdchk_getxx.F |
688 |
GRDCHK_GETXX |
if (ierr .EQ. 0 ) then |
|
./pkg/grdchk/grdchk_loc.F |
105 |
GRDCHK_LOC |
ierr = -5 |
|
./pkg/grdchk/grdchk_loc.F |
169 |
GRDCHK_LOC |
if ( (ierr .ne. 0) .and. |
|
./pkg/grdchk/grdchk_loc.F |
191 |
GRDCHK_LOC |
if (ierr .ne. 0) then |
|
./pkg/grdchk/grdchk_loc.F |
21 |
GRDCHK_LOC |
O ierr, |
|
./pkg/grdchk/grdchk_loc.F |
266 |
GRDCHK_LOC |
ierr = 0 |
|
./pkg/grdchk/grdchk_loc.F |
278 |
GRDCHK_LOC |
else if (ierr .NE. 0) then |
|
./pkg/grdchk/grdchk_loc.F |
311 |
GRDCHK_LOC |
ierr = -4 |
|
./pkg/grdchk/grdchk_loc.F |
321 |
GRDCHK_LOC |
ierr = -3 |
|
./pkg/grdchk/grdchk_loc.F |
334 |
GRDCHK_LOC |
ierr = -2 |
|
./pkg/grdchk/grdchk_loc.F |
344 |
GRDCHK_LOC |
ierr = -1 |
|
./pkg/grdchk/grdchk_loc.F |
68 |
GRDCHK_LOC |
integer ierr |
|
./pkg/grdchk/grdchk_main.F |
118 |
GRDCHK_MAIN |
INTEGER ierr |
|
./pkg/grdchk/grdchk_main.F |
162 |
GRDCHK_MAIN |
ierr = 0 |
|
./pkg/grdchk/grdchk_main.F |
233 |
GRDCHK_MAIN |
& itilepos, jtilepos, icglo, itest, ierr, |
|
./pkg/grdchk/grdchk_main.F |
250 |
GRDCHK_MAIN |
CALL GLOBAL_SUM_INT( ierr , myThid ) |
|
./pkg/grdchk/grdchk_main.F |
266 |
GRDCHK_MAIN |
& adxxmemo, ierr, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
282 |
GRDCHK_MAIN |
& ierr, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
310 |
GRDCHK_MAIN |
& xxmemo_ref, ierr, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
327 |
GRDCHK_MAIN |
& ierr, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
353 |
GRDCHK_MAIN |
& xxmemo_ref, ierr, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
366 |
GRDCHK_MAIN |
& ierr, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
392 |
GRDCHK_MAIN |
& xxmemo_ref, ierr, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
419 |
GRDCHK_MAIN |
IF ( myProcId .EQ. grdchkwhichproc .AND. ierr .EQ. 0 ) THEN |
|
./pkg/grdchk/grdchk_main.F |
425 |
GRDCHK_MAIN |
IF ( ierr .EQ. 0 ) THEN |
|
./pkg/grdchk/grdchk_main.F |
447 |
GRDCHK_MAIN |
ierrmem ( ichknum ) = ierr |
|
./pkg/grdchk/grdchk_main.F |
451 |
GRDCHK_MAIN |
IF ( myProcId .EQ. grdchkwhichproc .AND. ierr .EQ. 0 ) THEN |
|
./pkg/grdchk/grdchk_main.F |
496 |
GRDCHK_MAIN |
& ' (ierr=', ierr, ') =======' |
|
./pkg/grdchk/grdchk_print.F |
146 |
GRDCHK_PRINT |
ierr = ierrmem (i) |
|
./pkg/grdchk/grdchk_print.F |
158 |
GRDCHK_PRINT |
if ( ierr .eq. 0 ) then |
|
./pkg/grdchk/grdchk_print.F |
178 |
GRDCHK_PRINT |
if ( ierr .eq. -1 ) then |
|
./pkg/grdchk/grdchk_print.F |
181 |
GRDCHK_PRINT |
else if ( ierr .eq. -2 ) then |
|
./pkg/grdchk/grdchk_print.F |
184 |
GRDCHK_PRINT |
else if ( ierr .eq. -3 ) then |
|
./pkg/grdchk/grdchk_print.F |
187 |
GRDCHK_PRINT |
else if ( ierr .eq. -4 ) then |
|
./pkg/grdchk/grdchk_print.F |
61 |
GRDCHK_PRINT |
integer ierr |
|
./pkg/grdchk/grdchk_setxx.F |
18 |
GRDCHK_SETXX |
I ierr, |
|
./pkg/grdchk/grdchk_setxx.F |
58 |
GRDCHK_SETXX |
integer ierr |
|
./pkg/grdchk/grdchk_setxx.F |
690 |
GRDCHK_SETXX |
if (ierr .EQ. 0 ) then |
|
./pkg/mnc/mnc_cwrapper.F |
766 |
MNC_CW_FILE_AORC |
integer ierr |
|
./pkg/mnc/mnc_cwrapper.F |
775 |
MNC_CW_FILE_AORC |
CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
776 |
MNC_CW_FILE_AORC |
IF (ierr .NE. NF_NOERR) THEN |
|
./pkg/mnc/mnc_file.F |
620 |
MNC_FILE_READALL |
integer ierr, nff,nlf, indf |
|
./pkg/mnc/mnc_file.F |
625 |
MNC_FILE_READALL |
CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid) |
|
./pkg/mnc/mnc_file.F |
628 |
MNC_FILE_READALL |
CALL MNC_HANDLE_ERR(ierr, msgbuf, myThid) |
|
./pkg/mnc/mnc_file.F |
640 |
MNC_FILE_TRY_READ |
O ierr, |
|
./pkg/mnc/mnc_file.F |
654 |
MNC_FILE_TRY_READ |
integer myThid, ierr, indf |
|
./pkg/mnc/mnc_file.F |
673 |
MNC_FILE_TRY_READ |
ierr = NF_NOERR |
|
./pkg/mnc/mnc_file.F |
675 |
MNC_FILE_TRY_READ |
ierr = err |
|
./pkg/sphere/sphere.F |
624 |
SHCERROR |
subroutine SHCERROR( errstring, ierr ) |
|
./pkg/sphere/sphere.F |
632 |
SHCERROR |
integer ierr |
|
./pkg/sphere/sphere.F |
635 |
SHCERROR |
if ( ierr .ne. 0 ) then |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
142 |
STREAMICE_CG_SOLVE_PETSC |
call VECCREATE(PETSC_COMM_WORLD, rhs, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
143 |
STREAMICE_CG_SOLVE_PETSC |
call VECSETSIZES(rhs, local_dofs, global_dofs, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
144 |
STREAMICE_CG_SOLVE_PETSC |
call VECSETTYPE(rhs, VECMPI, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
146 |
STREAMICE_CG_SOLVE_PETSC |
call VECCREATE(PETSC_COMM_WORLD, solution, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
147 |
STREAMICE_CG_SOLVE_PETSC |
call VECSETSIZES(solution, local_dofs, global_dofs, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
148 |
STREAMICE_CG_SOLVE_PETSC |
call VECSETTYPE(solution, VECMPI, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
194 |
STREAMICE_CG_SOLVE_PETSC |
& INSERT_VALUES, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
195 |
STREAMICE_CG_SOLVE_PETSC |
call VECASSEMBLYBEGIN(rhs, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
196 |
STREAMICE_CG_SOLVE_PETSC |
call VECASSEMBLYEND(rhs, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
200 |
STREAMICE_CG_SOLVE_PETSC |
& solution_values, INSERT_VALUES, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
201 |
STREAMICE_CG_SOLVE_PETSC |
call VECASSEMBLYBEGIN(solution, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
202 |
STREAMICE_CG_SOLVE_PETSC |
call VECASSEMBLYEND(solution, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
218 |
STREAMICE_CG_SOLVE_PETSC |
& matrix, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
267 |
STREAMICE_CG_SOLVE_PETSC |
& mat_values,INSERT_VALUES,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
312 |
STREAMICE_CG_SOLVE_PETSC |
& mat_values,INSERT_VALUES,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
320 |
STREAMICE_CG_SOLVE_PETSC |
call MATASSEMBLYBEGIN(matrix,MAT_FINAL_ASSEMBLY,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
321 |
STREAMICE_CG_SOLVE_PETSC |
call MATASSEMBLYEND(matrix,MAT_FINAL_ASSEMBLY,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
324 |
STREAMICE_CG_SOLVE_PETSC |
call KSPCREATE(PETSC_COMM_WORLD, ksp, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
326 |
STREAMICE_CG_SOLVE_PETSC |
& DIFFERENT_NONZERO_PATTERN, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
329 |
STREAMICE_CG_SOLVE_PETSC |
call KSPSETTYPE(ksp,KSPPREONLY,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
334 |
STREAMICE_CG_SOLVE_PETSC |
call KSPSETTYPE(ksp, KSPCG, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
337 |
STREAMICE_CG_SOLVE_PETSC |
call KSPSETTYPE(ksp, KSPGMRES, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
340 |
STREAMICE_CG_SOLVE_PETSC |
call KSPSETTYPE(ksp, KSPBICG, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
343 |
STREAMICE_CG_SOLVE_PETSC |
call KSPSETTYPE(ksp, KSPCG, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
347 |
STREAMICE_CG_SOLVE_PETSC |
call KSPGETPC(ksp, pc, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
351 |
STREAMICE_CG_SOLVE_PETSC |
& maxiter,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
356 |
STREAMICE_CG_SOLVE_PETSC |
call PCSETTYPE(pc, PCBJACOBI, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
357 |
STREAMICE_CG_SOLVE_PETSC |
call KSPSETUP (ksp, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
360 |
STREAMICE_CG_SOLVE_PETSC |
& subksp,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
361 |
STREAMICE_CG_SOLVE_PETSC |
call KSPGETPC (subksp, subpc, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
362 |
STREAMICE_CG_SOLVE_PETSC |
call PCSETTYPE (subpc, PCILU, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
366 |
STREAMICE_CG_SOLVE_PETSC |
call PCSETTYPE(pc, PCJACOBI, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
369 |
STREAMICE_CG_SOLVE_PETSC |
call PCSETTYPE(pc, PCILU, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
373 |
STREAMICE_CG_SOLVE_PETSC |
call PCSETTYPE(pc, PCGAMG, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
374 |
STREAMICE_CG_SOLVE_PETSC |
call PCGAMGSETCOARSEEQLIM(pc,10000,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
375 |
STREAMICE_CG_SOLVE_PETSC |
call PCGAMGSETSYMGRAPH(pc, PETSC_TRUE,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
376 |
STREAMICE_CG_SOLVE_PETSC |
call PCGAMGSETNSMOOTHS(pc, 0,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
377 |
STREAMICE_CG_SOLVE_PETSC |
call PCGAMGSETTHRESHOLD(pc, .001,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
379 |
STREAMICE_CG_SOLVE_PETSC |
call KSPSETUP (ksp, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
383 |
STREAMICE_CG_SOLVE_PETSC |
call PCSETTYPE(pc,PCLU,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
384 |
STREAMICE_CG_SOLVE_PETSC |
call PCFACTORSETMATSOLVERPACKAGE(pc,MATSOLVERMUMPS,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
385 |
STREAMICE_CG_SOLVE_PETSC |
call PCFACTORSETUPMATSOLVERPACKAGE(pc,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
386 |
STREAMICE_CG_SOLVE_PETSC |
call PCFACTORGETMATRIX(pc,mumpsFac,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
387 |
STREAMICE_CG_SOLVE_PETSC |
call MATMUMPSSETICNTL(mumpsfac,7,2,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
388 |
STREAMICE_CG_SOLVE_PETSC |
call MATMUMPSSETICNTL(mumpsfac,24,1,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
390 |
STREAMICE_CG_SOLVE_PETSC |
call KSPSETUP (ksp, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
394 |
STREAMICE_CG_SOLVE_PETSC |
call PCSETTYPE(pc, PCBJACOBI, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
408 |
STREAMICE_CG_SOLVE_PETSC |
call KSPSOLVE(ksp, rhs, solution, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
412 |
STREAMICE_CG_SOLVE_PETSC |
call KSPGETITERATIONNUMBER(ksp,iters,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
415 |
STREAMICE_CG_SOLVE_PETSC |
& solution_values,ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
442 |
STREAMICE_CG_SOLVE_PETSC |
call KSPDESTROY (ksp, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
443 |
STREAMICE_CG_SOLVE_PETSC |
call MATDESTROY (matrix, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
447 |
STREAMICE_CG_SOLVE_PETSC |
call VECDESTROY (rhs, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
448 |
STREAMICE_CG_SOLVE_PETSC |
call VECDESTROY (solution, ierr) |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
97 |
STREAMICE_CG_SOLVE_PETSC |
PetscErrorCode ierr |
|
./pkg/streamice/streamice_finalize_petsc.F |
36 |
STREAMICE_FINALIZE_PETSC |
PetscErrorCode ierr |
|
./pkg/streamice/streamice_finalize_petsc.F |
39 |
STREAMICE_FINALIZE_PETSC |
call PETSCFINALIZE(ierr) |
|
./pkg/streamice/streamice_initialise_petsc.F |
30 |
STREAMICE_INITIALIZE_PETSC |
PetscErrorCode ierr |
|
./pkg/streamice/streamice_initialise_petsc.F |
31 |
STREAMICE_INITIALIZE_PETSC |
call PETSCINITIALIZE(PETSC_NULL_CHARACTER,ierr) |
|
./pkg/streamice/streamice_petscmatdestroy.F |
40 |
STREAMICE_PETSCMATDESTROY |
PetscErrorCode ierr |
|
./pkg/streamice/streamice_petscmatdestroy.F |
41 |
STREAMICE_PETSCMATDESTROY |
call KSPDESTROY (ksp, ierr) |
|
./pkg/streamice/streamice_petscmatdestroy.F |
42 |
STREAMICE_PETSCMATDESTROY |
call MATDESTROY (matrix, ierr) |
|
./eesupp/src/cumulsum_z_tile.F |
107 |
CUMULSUM_Z_TILE_RL |
& idest, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./eesupp/src/cumulsum_z_tile.F |
110 |
CUMULSUM_Z_TILE_RL |
& idest, itag, MPI_COMM_MODEL, ierr) |
|
./eesupp/src/cumulsum_z_tile.F |
114 |
CUMULSUM_Z_TILE_RL |
& idest, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./eesupp/src/cumulsum_z_tile.F |
133 |
CUMULSUM_Z_TILE_RL |
& npe, itag, MPI_COMM_MODEL, ierr) |
|
./eesupp/src/cumulsum_z_tile.F |
136 |
CUMULSUM_Z_TILE_RL |
& npe, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./eesupp/src/cumulsum_z_tile.F |
186 |
CUMULSUM_Z_TILE_RL |
& npe, itag, MPI_COMM_MODEL, ierr) |
|
./eesupp/src/cumulsum_z_tile.F |
65 |
CUMULSUM_Z_TILE_RL |
INTEGER istatus(MPI_STATUS_SIZE), ierr |
|
./pkg/admtlm/admtlm_dsvd.F |
181 |
ADMTLM_DSVD |
integer ido, m, n, nev, ncv, lworkl, info, ierr, |
|
./pkg/admtlm/admtlm_dsvd.F |
506 |
ADMTLM_DSVD |
print *, 'ph-continue ', info, ierr |
|
./pkg/admtlm/admtlm_dsvd.F |
545 |
ADMTLM_DSVD |
& iparam, ipntr, workd, workl, lworkl, ierr ) |
|
./pkg/admtlm/admtlm_dsvd.F |
555 |
ADMTLM_DSVD |
if ( ierr .ne. 0) then |
|
./pkg/admtlm/admtlm_dsvd.F |
563 |
ADMTLM_DSVD |
print *, ' Error with _seupd, info = ', ierr |
|
./eesupp/src/gather_xz.F |
23 |
GATHER_XZ |
INTEGER istatus(MPI_STATUS_SIZE), ierr |
|
./eesupp/src/gather_xz.F |
66 |
GATHER_XZ |
& npe, itag, MPI_COMM_MODEL, ierr) |
|
./eesupp/src/gather_xz.F |
69 |
GATHER_XZ |
& npe, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./eesupp/src/gather_xz.F |
87 |
GATHER_XZ |
& idest, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./eesupp/src/gather_xz.F |
90 |
GATHER_XZ |
& idest, itag, MPI_COMM_MODEL, ierr) |
|
./eesupp/src/gather_yz.F |
23 |
GATHER_YZ |
INTEGER istatus(MPI_STATUS_SIZE), ierr |
|
./eesupp/src/gather_yz.F |
66 |
GATHER_YZ |
& npe, itag, MPI_COMM_MODEL, ierr) |
|
./eesupp/src/gather_yz.F |
69 |
GATHER_YZ |
& npe, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./eesupp/src/gather_yz.F |
87 |
GATHER_YZ |
& idest, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./eesupp/src/gather_yz.F |
90 |
GATHER_YZ |
& idest, itag, MPI_COMM_MODEL, ierr) |
|
./eesupp/src/global_sum_singlecpu.F |
123 |
GLOBAL_SUM_SINGLECPU_RL |
& pId, itag, MPI_COMM_MODEL, ierr) |
|
./eesupp/src/global_sum_singlecpu.F |
131 |
GLOBAL_SUM_SINGLECPU_RL |
& idest, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./eesupp/src/global_sum_singlecpu.F |
67 |
GLOBAL_SUM_SINGLECPU_RL |
INTEGER istatus(MPI_STATUS_SIZE), ierr |
|
./eesupp/src/global_sum_tile.F |
101 |
GLOBAL_SUM_TILE_RL |
& idest, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./eesupp/src/global_sum_tile.F |
104 |
GLOBAL_SUM_TILE_RL |
& idest, itag, MPI_COMM_MODEL, ierr) |
|
./eesupp/src/global_sum_tile.F |
108 |
GLOBAL_SUM_TILE_RL |
& idest, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./eesupp/src/global_sum_tile.F |
128 |
GLOBAL_SUM_TILE_RL |
& pId, itag, MPI_COMM_MODEL, ierr) |
|
./eesupp/src/global_sum_tile.F |
131 |
GLOBAL_SUM_TILE_RL |
& pId, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./eesupp/src/global_sum_tile.F |
157 |
GLOBAL_SUM_TILE_RL |
& pId, itag, MPI_COMM_MODEL, ierr) |
|
./eesupp/src/global_sum_tile.F |
60 |
GLOBAL_SUM_TILE_RL |
INTEGER istatus(MPI_STATUS_SIZE), ierr |
|
./eesupp/src/ini_procs.F |
185 |
INI_PROCS |
& MPI_COMM_MODEL, ierr) |
|
./eesupp/src/ini_procs.F |
62 |
INI_PROCS |
INTEGER ierr |
|
./pkg/cal/cal_addtime.F |
64 |
CAL_ADDTIME |
INTEGER ierr |
|
./pkg/cal/cal_addtime.F |
82 |
CAL_ADDTIME |
ierr = 601 |
|
./pkg/cal/cal_addtime.F |
83 |
CAL_ADDTIME |
call CAL_PRINTERROR( ierr, myThid) |
|
./pkg/cal/cal_convdate.F |
48 |
CAL_CONVDATE |
INTEGER ierr |
|
./pkg/cal/cal_convdate.F |
69 |
CAL_CONVDATE |
ierr = 901 |
|
./pkg/cal/cal_convdate.F |
70 |
CAL_CONVDATE |
call CAL_PRINTERROR( ierr, myThid ) |
|
./pkg/cal/cal_daysformonth.F |
111 |
CAL_DAYSFORMONTH |
ierr = 2704 |
|
./pkg/cal/cal_daysformonth.F |
112 |
CAL_DAYSFORMONTH |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
117 |
CAL_DAYSFORMONTH |
ierr = 2703 |
|
./pkg/cal/cal_daysformonth.F |
118 |
CAL_DAYSFORMONTH |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
124 |
CAL_DAYSFORMONTH |
ierr = 2702 |
|
./pkg/cal/cal_daysformonth.F |
125 |
CAL_DAYSFORMONTH |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
206 |
CAL_DAYSFORMONTH |
ierr = 2705 |
|
./pkg/cal/cal_daysformonth.F |
207 |
CAL_DAYSFORMONTH |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
212 |
CAL_DAYSFORMONTH |
ierr = 2701 |
|
./pkg/cal/cal_daysformonth.F |
213 |
CAL_DAYSFORMONTH |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_daysformonth.F |
50 |
CAL_DAYSFORMONTH |
integer ierr |
|
./pkg/cal/cal_dayspermonth.F |
60 |
CAL_DAYSPERMONTH |
integer ierr |
|
./pkg/cal/cal_dayspermonth.F |
84 |
CAL_DAYSPERMONTH |
ierr = 1201 |
|
./pkg/cal/cal_dayspermonth.F |
85 |
CAL_DAYSPERMONTH |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_monthsforyear.F |
100 |
CAL_MONTHSFORYEAR |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_monthsforyear.F |
105 |
CAL_MONTHSFORYEAR |
ierr = 2803 |
|
./pkg/cal/cal_monthsforyear.F |
106 |
CAL_MONTHSFORYEAR |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_monthsforyear.F |
112 |
CAL_MONTHSFORYEAR |
ierr = 2802 |
|
./pkg/cal/cal_monthsforyear.F |
113 |
CAL_MONTHSFORYEAR |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_monthsforyear.F |
154 |
CAL_MONTHSFORYEAR |
ierr = 2807 |
|
./pkg/cal/cal_monthsforyear.F |
155 |
CAL_MONTHSFORYEAR |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_monthsforyear.F |
160 |
CAL_MONTHSFORYEAR |
ierr = 2806 |
|
./pkg/cal/cal_monthsforyear.F |
161 |
CAL_MONTHSFORYEAR |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_monthsforyear.F |
166 |
CAL_MONTHSFORYEAR |
ierr = 2805 |
|
./pkg/cal/cal_monthsforyear.F |
167 |
CAL_MONTHSFORYEAR |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_monthsforyear.F |
173 |
CAL_MONTHSFORYEAR |
ierr = 2801 |
|
./pkg/cal/cal_monthsforyear.F |
174 |
CAL_MONTHSFORYEAR |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_monthsforyear.F |
50 |
CAL_MONTHSFORYEAR |
integer ierr |
|
./pkg/cal/cal_monthsforyear.F |
99 |
CAL_MONTHSFORYEAR |
ierr = 2804 |
|
./pkg/cal/cal_numints.F |
52 |
NO PROCEDURE |
integer ierr |
|
./pkg/cal/cal_numints.F |
64 |
NO PROCEDURE |
ierr = 2501 |
|
./pkg/cal/cal_numints.F |
65 |
NO PROCEDURE |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_printdate.F |
51 |
CAL_PRINTDATE |
integer ierr, ioUnit |
|
./pkg/cal/cal_printdate.F |
72 |
CAL_PRINTDATE |
ierr = 2001 |
|
./pkg/cal/cal_printdate.F |
73 |
CAL_PRINTDATE |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_set.F |
115 |
CAL_SET |
ierr = 101 |
|
./pkg/cal/cal_set.F |
116 |
CAL_SET |
CALL CAL_PRINTERROR( ierr, myThid ) |
|
./pkg/cal/cal_set.F |
205 |
CAL_SET |
ierr = 102 |
|
./pkg/cal/cal_set.F |
206 |
CAL_SET |
CALL CAL_PRINTERROR( ierr, myThid ) |
|
./pkg/cal/cal_set.F |
210 |
CAL_SET |
ierr = 103 |
|
./pkg/cal/cal_set.F |
211 |
CAL_SET |
CALL CAL_PRINTERROR( ierr, myThid ) |
|
./pkg/cal/cal_set.F |
215 |
CAL_SET |
ierr = 104 |
|
./pkg/cal/cal_set.F |
216 |
CAL_SET |
CALL CAL_PRINTERROR( ierr, myThid ) |
|
./pkg/cal/cal_set.F |
77 |
CAL_SET |
INTEGER ierr |
|
./pkg/cal/cal_stepsforday.F |
109 |
CAL_STEPSFORDAY |
ierr = 2604 |
|
./pkg/cal/cal_stepsforday.F |
110 |
CAL_STEPSFORDAY |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_stepsforday.F |
115 |
CAL_STEPSFORDAY |
ierr = 2603 |
|
./pkg/cal/cal_stepsforday.F |
116 |
CAL_STEPSFORDAY |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_stepsforday.F |
122 |
CAL_STEPSFORDAY |
ierr = 2602 |
|
./pkg/cal/cal_stepsforday.F |
123 |
CAL_STEPSFORDAY |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_stepsforday.F |
184 |
CAL_STEPSFORDAY |
ierr = 2605 |
|
./pkg/cal/cal_stepsforday.F |
185 |
CAL_STEPSFORDAY |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_stepsforday.F |
190 |
CAL_STEPSFORDAY |
ierr = 2601 |
|
./pkg/cal/cal_stepsforday.F |
191 |
CAL_STEPSFORDAY |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_stepsforday.F |
49 |
CAL_STEPSFORDAY |
integer ierr |
|
./pkg/cal/cal_stepsperday.F |
57 |
CAL_STEPSPERDAY |
integer ierr |
|
./pkg/cal/cal_stepsperday.F |
83 |
CAL_STEPSPERDAY |
ierr = 1101 |
|
./pkg/cal/cal_stepsperday.F |
84 |
CAL_STEPSPERDAY |
call CAL_PRINTERROR( ierr, mythid ) |
|
./pkg/cal/cal_subdates.F |
45 |
CAL_SUBDATES |
INTEGER ierr |
|
./pkg/cal/cal_subdates.F |
80 |
CAL_SUBDATES |
ierr = 801 |
|
./pkg/cal/cal_subdates.F |
81 |
CAL_SUBDATES |
call CAL_PRINTERROR( ierr, myThid ) |
|
./pkg/cal/cal_timeinterval.F |
50 |
CAL_TIMEINTERVAL |
INTEGER ierr |
|
./pkg/cal/cal_timeinterval.F |
93 |
CAL_TIMEINTERVAL |
ierr = 701 |
|
./pkg/cal/cal_timeinterval.F |
94 |
CAL_TIMEINTERVAL |
call CAL_PRINTERROR( ierr, myThid ) |
|
./pkg/cal/cal_timepassed.F |
185 |
CAL_TIMEPASSED |
ierr = 501 |
|
./pkg/cal/cal_timepassed.F |
186 |
CAL_TIMEPASSED |
call CAL_PRINTERROR( ierr, myThid ) |
|
./pkg/cal/cal_timepassed.F |
61 |
CAL_TIMEPASSED |
INTEGER ierr |
|
./pkg/cal/cal_toseconds.F |
52 |
CAL_TOSECONDS |
INTEGER ierr, check_sign, hhmmss |
|
./pkg/cal/cal_toseconds.F |
95 |
CAL_TOSECONDS |
ierr = 1001 |
|
./pkg/cal/cal_toseconds.F |
96 |
CAL_TOSECONDS |
call CAL_PRINTERROR( ierr, myThid ) |
|
./eesupp/src/scatter_xz.F |
23 |
SCATTER_XZ |
INTEGER istatus(MPI_STATUS_SIZE), ierr |
|
./eesupp/src/scatter_xz.F |
73 |
SCATTER_XZ |
& npe, itag, MPI_COMM_MODEL, ierr) |
|
./eesupp/src/scatter_xz.F |
80 |
SCATTER_XZ |
& isource, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./pkg/compon_communic/comprecv_i4vec.F |
19 |
COMPRECV_I4VEC |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_i4vec.F |
41 |
COMPRECV_I4VEC |
call MPI_RECV( ibuf, count, dtype, rank, tag, comm, stat, ierr ) |
|
./pkg/compon_communic/comprecv_i4vec.F |
43 |
COMPRECV_I4VEC |
write(LogUnit,*) 'comprecv_i4vec: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_i4vec.F |
47 |
COMPRECV_I4VEC |
if (ierr.ne.0) then |
|
./pkg/compon_communic/comprecv_i4vec.F |
50 |
COMPRECV_I4VEC |
& ' ierr=',ierr |
|
./pkg/compon_communic/comprecv_r4.F |
15 |
COMPRECV_R4 |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_r4.F |
39 |
COMPRECV_R4 |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/comprecv_r4.F |
41 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_r4.F |
45 |
COMPRECV_R4 |
if (ierr.ne.0) then |
|
./pkg/compon_communic/comprecv_r4.F |
48 |
COMPRECV_R4 |
& ' ierr=',ierr |
|
./pkg/compon_communic/comprecv_r4tiles.F |
15 |
COMPRECV_R4TILES |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_r4tiles.F |
45 |
COMPRECV_R4TILES |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/comprecv_r4tiles.F |
47 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_r4tiles.F |
51 |
COMPRECV_R4TILES |
if (ierr.ne.0) then |
|
./pkg/compon_communic/comprecv_r4tiles.F |
54 |
COMPRECV_R4TILES |
& ' ierr=',ierr |
|
./eesupp/src/scatter_yz.F |
23 |
SCATTER_YZ |
INTEGER istatus(MPI_STATUS_SIZE), ierr |
|
./eesupp/src/scatter_yz.F |
73 |
SCATTER_YZ |
& npe, itag, MPI_COMM_MODEL, ierr) |
|
./eesupp/src/scatter_yz.F |
80 |
SCATTER_YZ |
& isource, itag, MPI_COMM_MODEL, istatus, ierr) |
|
./pkg/compon_communic/comprecv_r8.F |
15 |
COMPRECV_R8 |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_r8.F |
39 |
COMPRECV_R8 |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/comprecv_r8.F |
41 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_r8.F |
45 |
COMPRECV_R8 |
if (ierr.ne.0) then |
|
./pkg/compon_communic/comprecv_r8.F |
48 |
COMPRECV_R8 |
& ' ierr=',ierr |
|
./pkg/compon_communic/comprecv_r8tiles.F |
15 |
COMPRECV_R8TILES |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/comprecv_r8tiles.F |
45 |
COMPRECV_R8TILES |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/comprecv_r8tiles.F |
47 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: returned ierr=',ierr |
|
./pkg/compon_communic/comprecv_r8tiles.F |
51 |
COMPRECV_R8TILES |
if (ierr.ne.0) then |
|
./pkg/compon_communic/comprecv_r8tiles.F |
54 |
COMPRECV_R8TILES |
& ' ierr=',ierr |
|
./pkg/compon_communic/compsend_i4vec.F |
19 |
COMPSEND_I4VEC |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_i4vec.F |
46 |
COMPSEND_I4VEC |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_i4vec.F |
48 |
COMPSEND_I4VEC |
write(LogUnit,*) 'compsend_i4vec: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_i4vec.F |
52 |
COMPSEND_I4VEC |
if (ierr.ne.0) then |
|
./pkg/compon_communic/compsend_i4vec.F |
55 |
COMPSEND_I4VEC |
& ' ierr=',ierr |
|
./pkg/compon_communic/compsend_r4.F |
15 |
COMPSEND_R4 |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_r4.F |
54 |
COMPSEND_R4 |
call MPI_SEND( r4buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_r4.F |
56 |
COMPSEND_R4 |
write(LogUnit,*) 'compsend_r4: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_r4.F |
60 |
COMPSEND_R4 |
if (ierr.ne.0) then |
|
./pkg/compon_communic/compsend_r4.F |
63 |
COMPSEND_R4 |
& ' ierr=',ierr |
|
./pkg/compon_communic/compsend_r4tiles.F |
15 |
COMPSEND_R4TILES |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_r4tiles.F |
65 |
COMPSEND_R4TILES |
call MPI_SEND( r4buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_r4tiles.F |
67 |
COMPSEND_R4TILES |
write(LogUnit,*) 'compsend_r4tiles: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_r4tiles.F |
71 |
COMPSEND_R4TILES |
if (ierr.ne.0) then |
|
./pkg/compon_communic/compsend_r4tiles.F |
74 |
COMPSEND_R4TILES |
& ' ierr=',ierr |
|
./pkg/compon_communic/compsend_r8.F |
15 |
COMPSEND_R8 |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_r8.F |
54 |
COMPSEND_R8 |
call MPI_SEND( r8buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_r8.F |
56 |
COMPSEND_R8 |
write(LogUnit,*) 'compsend_r8: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_r8.F |
60 |
COMPSEND_R8 |
if (ierr.ne.0) then |
|
./pkg/compon_communic/compsend_r8.F |
63 |
COMPSEND_R8 |
& ' ierr=',ierr |
|
./pkg/compon_communic/compsend_r8tiles.F |
15 |
COMPSEND_R8TILES |
integer count,datatype,dest,tag,comm,ierr |
|
./pkg/compon_communic/compsend_r8tiles.F |
65 |
COMPSEND_R8TILES |
call MPI_SEND( r8buf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/compsend_r8tiles.F |
67 |
COMPSEND_R8TILES |
write(LogUnit,*) 'compsend_r8tiles: returned ierr=',ierr |
|
./pkg/compon_communic/compsend_r8tiles.F |
71 |
COMPSEND_R8TILES |
if (ierr.ne.0) then |
|
./pkg/compon_communic/compsend_r8tiles.F |
74 |
COMPSEND_R8TILES |
& ' ierr=',ierr |
|
./pkg/compon_communic/couprecv_i4vec.F |
22 |
COUPRECV_I4VEC |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_i4vec.F |
61 |
COUPRECV_I4VEC |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_i4vec.F |
63 |
COUPRECV_I4VEC |
write(LogUnit,*) 'couprecv_i4vec: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_i4vec.F |
67 |
COUPRECV_I4VEC |
if (ierr.ne.0) then |
|
./pkg/compon_communic/couprecv_i4vec.F |
70 |
COUPRECV_I4VEC |
& ' ierr=',ierr |
|
./pkg/compon_communic/couprecv_r4.F |
16 |
COUPRECV_R4 |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_r4.F |
55 |
COUPRECV_R4 |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_r4.F |
57 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_r4.F |
61 |
COUPRECV_R4 |
if (ierr.ne.0) then |
|
./pkg/compon_communic/couprecv_r4.F |
64 |
COUPRECV_R4 |
& ' ierr=',ierr |
|
./pkg/compon_communic/couprecv_r4tiles.F |
16 |
COUPRECV_R4TILES |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_r4tiles.F |
60 |
COUPRECV_R4TILES |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
62 |
COUPRECV_R4TILES |
write(LogUnit,*) 'couprecv_r4tiles: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_r4tiles.F |
66 |
COUPRECV_R4TILES |
if (ierr.ne.0) then |
|
./pkg/compon_communic/couprecv_r4tiles.F |
69 |
COUPRECV_R4TILES |
& ' ierr=',ierr |
|
./pkg/compon_communic/couprecv_r8.F |
16 |
COUPRECV_R8 |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_r8.F |
55 |
COUPRECV_R8 |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_r8.F |
57 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_r8.F |
61 |
COUPRECV_R8 |
if (ierr.ne.0) then |
|
./pkg/compon_communic/couprecv_r8.F |
64 |
COUPRECV_R8 |
& ' ierr=',ierr |
|
./pkg/compon_communic/couprecv_r8tiles.F |
16 |
COUPRECV_R8TILES |
integer count,dtype,rank,tag,comm,ierr |
|
./pkg/compon_communic/couprecv_r8tiles.F |
60 |
COUPRECV_R8TILES |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
62 |
COUPRECV_R8TILES |
write(LogUnit,*) 'couprecv_r8tiles: returned ierr=',ierr |
|
./pkg/compon_communic/couprecv_r8tiles.F |
66 |
COUPRECV_R8TILES |
if (ierr.ne.0) then |
|
./pkg/compon_communic/couprecv_r8tiles.F |
69 |
COUPRECV_R8TILES |
& ' ierr=',ierr |
|
./pkg/compon_communic/coupsend_i4vec.F |
22 |
COUPSEND_I4VEC |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_i4vec.F |
66 |
COUPSEND_I4VEC |
call MPI_SEND( ibuf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/coupsend_i4vec.F |
68 |
COUPSEND_I4VEC |
write(LogUnit,*) 'coupsend_i4vec: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_i4vec.F |
72 |
COUPSEND_I4VEC |
if (ierr.ne.0) then |
|
./pkg/compon_communic/coupsend_i4vec.F |
75 |
COUPSEND_I4VEC |
& ' ierr=',ierr |
|
./pkg/compon_communic/coupsend_r4.F |
22 |
COUPSEND_R4 |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r4.F |
75 |
COUPSEND_R4 |
call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/coupsend_r4.F |
77 |
COUPSEND_R4 |
write(LogUnit,*) 'coupsend_r4: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_r4.F |
81 |
COUPSEND_R4 |
if (ierr.ne.0) then |
|
./pkg/compon_communic/coupsend_r4.F |
84 |
COUPSEND_R4 |
& ' ierr=',ierr |
|
./pkg/compon_communic/coupsend_r4tiles.F |
22 |
COUPSEND_R4TILES |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r4tiles.F |
78 |
COUPSEND_R4TILES |
call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
80 |
COUPSEND_R4TILES |
write(LogUnit,*) 'coupsend_r4tiles: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_r4tiles.F |
84 |
COUPSEND_R4TILES |
if (ierr.ne.0) then |
|
./pkg/compon_communic/coupsend_r4tiles.F |
87 |
COUPSEND_R4TILES |
& ' ierr=',ierr |
|
./pkg/compon_communic/coupsend_r8.F |
22 |
COUPSEND_R8 |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r8.F |
75 |
COUPSEND_R8 |
call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/coupsend_r8.F |
77 |
COUPSEND_R8 |
write(LogUnit,*) 'coupsend_r8: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_r8.F |
81 |
COUPSEND_R8 |
if (ierr.ne.0) then |
|
./pkg/compon_communic/coupsend_r8.F |
84 |
COUPSEND_R8 |
& ' ierr=',ierr |
|
./pkg/compon_communic/coupsend_r8tiles.F |
22 |
COUPSEND_R8TILES |
integer count,dtype,dest,tag,comm,ierr |
|
./pkg/compon_communic/coupsend_r8tiles.F |
78 |
COUPSEND_R8TILES |
call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
80 |
COUPSEND_R8TILES |
write(LogUnit,*) 'coupsend_r8tiles: returned ierr=',ierr |
|
./pkg/compon_communic/coupsend_r8tiles.F |
84 |
COUPSEND_R8TILES |
if (ierr.ne.0) then |
|
./pkg/compon_communic/coupsend_r8tiles.F |
87 |
COUPSEND_R8TILES |
& ' ierr=',ierr |
|
./pkg/compon_communic/mitcomponent_register.F |
24 |
MITCOMPONENT_REGISTER |
integer ierr |
|
./pkg/compon_communic/mitcomponent_register.F |
50 |
MITCOMPONENT_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcomponent_register.F |
52 |
MITCOMPONENT_REGISTER |
if (ierr.ne.0) then |
|
./pkg/compon_communic/mitcomponent_register.F |
55 |
MITCOMPONENT_REGISTER |
& ' ierr=',ierr |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
28 |
MITCOMPONENT_TILE_REGISTER |
integer count, datatype, dest, tag, comm, ierr |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
67 |
MITCOMPONENT_TILE_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
69 |
MITCOMPONENT_TILE_REGISTER |
if (ierr.ne.0) then |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
72 |
MITCOMPONENT_TILE_REGISTER |
& ' ierr=',ierr |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
93 |
MITCOMPONENT_TILE_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
95 |
MITCOMPONENT_TILE_REGISTER |
if (ierr.ne.0) then |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
98 |
MITCOMPONENT_TILE_REGISTER |
& ' ierr=',ierr |
|
./pkg/compon_communic/mitcoupler_register.F |
28 |
MITCOUPLER_REGISTER |
integer ierr |
|
./pkg/compon_communic/mitcoupler_register.F |
54 |
MITCOUPLER_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_register.F |
56 |
MITCOUPLER_REGISTER |
if (ierr.ne.0) then |
|
./pkg/compon_communic/mitcoupler_register.F |
59 |
MITCOUPLER_REGISTER |
& ' ierr=',ierr |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
28 |
MITCOUPLER_TILE_REGISTER |
integer ierr |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
60 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
62 |
MITCOUPLER_TILE_REGISTER |
if (ierr.ne.0) then |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
65 |
MITCOUPLER_TILE_REGISTER |
& ' ierr=',ierr |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
86 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
88 |
MITCOUPLER_TILE_REGISTER |
if (ierr.ne.0) then |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
91 |
MITCOUPLER_TILE_REGISTER |
& ' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
123 |
MITCPLR_INIT1 |
call MPI_COMM_GROUP( MPI_COMM_WORLD, MPI_GROUP_World, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
126 |
MITCPLR_INIT1 |
& ' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
136 |
MITCPLR_INIT1 |
& ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
139 |
MITCPLR_INIT1 |
& MPI_GROUP_Tmp,' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
146 |
MITCPLR_INIT1 |
& ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
149 |
MITCPLR_INIT1 |
& ' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
157 |
MITCPLR_INIT1 |
& ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
160 |
MITCPLR_INIT1 |
& MPI_GROUP_Tmp,' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
167 |
MITCPLR_INIT1 |
& ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
170 |
MITCPLR_INIT1 |
& ' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
196 |
MITCPLR_INIT1 |
call MPI_COMM_RANK( MPI_COMM_compcplr(n), j, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
197 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
198 |
MITCPLR_INIT1 |
& ' Rank = ',j,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
200 |
MITCPLR_INIT1 |
call MPI_COMM_SIZE( MPI_COMM_compcplr(n), numprocs, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
201 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
202 |
MITCPLR_INIT1 |
& ' Size = ',numprocs,' MPI_COMM_SIZE ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
209 |
MITCPLR_INIT1 |
call MPI_COMM_RANK( MPI_COMM_myglobal, j, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
210 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
211 |
MITCPLR_INIT1 |
& ' Rank = ',j,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
213 |
MITCPLR_INIT1 |
call MPI_COMM_SIZE( MPI_COMM_myglobal, numprocs, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
214 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
215 |
MITCPLR_INIT1 |
& ' Size = ',numprocs,' MPI_COMM_SIZE ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
23 |
MITCPLR_INIT1 |
integer myid, numprocs, ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
35 |
MITCPLR_INIT1 |
call MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
36 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
37 |
MITCPLR_INIT1 |
& ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
39 |
MITCPLR_INIT1 |
call MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
40 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
41 |
MITCPLR_INIT1 |
& ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
68 |
MITCPLR_INIT1 |
& MPI_COMM_WORLD, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
70 |
MITCPLR_INIT1 |
& ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
16 |
MITCPLR_INIT2A |
integer myid, numprocs, ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
22 |
MITCPLR_INIT2A |
call MPI_COMM_RANK( MPI_COMM_myglobal, myid, ierr ) |
|
./pkg/compon_communic/mitcplr_init2a.F |
23 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
24 |
MITCPLR_INIT2A |
& ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
26 |
MITCPLR_INIT2A |
call MPI_COMM_SIZE( MPI_COMM_myglobal, numprocs, ierr ) |
|
./pkg/compon_communic/mitcplr_init2a.F |
27 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
28 |
MITCPLR_INIT2A |
& ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
55 |
MITCPLR_INIT2A |
& MPI_COMM_myglobal, ierr ) |
|
./pkg/compon_communic/mitcplr_init2a.F |
56 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
57 |
MITCPLR_INIT2A |
& ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
79 |
MITCPLR_INIT2A |
call MPI_COMM_RANK( MPI_COMM_World, n, ierr ) |
|
./pkg/compon_communic/mitcplr_init2a.F |
80 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
81 |
MITCPLR_INIT2A |
& ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
83 |
MITCPLR_INIT2A |
call MPI_COMM_RANK( MPI_COMM_myglobal, j, ierr ) |
|
./pkg/compon_communic/mitcplr_init2a.F |
84 |
MITCPLR_INIT2A |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2a: ', |
|
./pkg/compon_communic/mitcplr_init2a.F |
85 |
MITCPLR_INIT2A |
& ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2b.F |
16 |
MITCPLR_INIT2B |
integer myid, numprocs, ierr |
|
./pkg/compon_communic/mitcplr_init2b.F |
28 |
MITCPLR_INIT2B |
call MPI_COMM_RANK( MPI_COMM_temp, myid, ierr ) |
|
./pkg/compon_communic/mitcplr_init2b.F |
29 |
MITCPLR_INIT2B |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcplr_init2b.F |
30 |
MITCPLR_INIT2B |
& ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2b.F |
32 |
MITCPLR_INIT2B |
call MPI_COMM_SIZE( MPI_COMM_temp, numprocs, ierr ) |
|
./pkg/compon_communic/mitcplr_init2b.F |
33 |
MITCPLR_INIT2B |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcplr_init2b.F |
34 |
MITCPLR_INIT2B |
& ' Size = ',numprocs,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2b.F |
63 |
MITCPLR_INIT2B |
& MPI_COMM_temp, ierr ) |
|
./pkg/compon_communic/mitcplr_init2b.F |
64 |
MITCPLR_INIT2B |
if (ierr.ne.0) write(LogUnit,*) 'MITCPLR_init2b: ', |
|
./pkg/compon_communic/mitcplr_init2b.F |
65 |
MITCPLR_INIT2B |
& ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr |