| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagstats_output.F |
114 |
DIAGSTATS_OUTPUT |
WRITE(ioUnit,'(A,I3,3A,I3,A,1PE10.3,2A)') |
|
./pkg/diagnostics/diagstats_output.F |
118 |
DIAGSTATS_OUTPUT |
WRITE(ioUnit,'(A,I3,3A,I3,2(A,1PE10.3))') |
|
./pkg/diagnostics/diagstats_output.F |
56 |
DIAGSTATS_OUTPUT |
INTEGER ioUnit |
|
./pkg/diagnostics/diagstats_output.F |
61 |
DIAGSTATS_OUTPUT |
ioUnit= standardMessageUnit |
|
./pkg/diagnostics/diagstats_set_regions.F |
42 |
DIAGSTATS_SET_REGIONS |
INTEGER ioUnit |
|
./pkg/diagnostics/diagstats_set_regions.F |
87 |
DIAGSTATS_SET_REGIONS |
ioUnit = standardMessageUnit |
|
./pkg/diagnostics/diagstats_set_regions.F |
88 |
DIAGSTATS_SET_REGIONS |
IF (debugLevel.GE.debLevB) WRITE(ioUnit,'(2A)') |
|
./pkg/diagnostics/diagstats_set_regions.F |
93 |
DIAGSTATS_SET_REGIONS |
IF (debugLevel.GE.debLevB) WRITE(ioUnit,'(A,I3)') |
|
./pkg/diagnostics/diagstats_set_regions.F |
97 |
DIAGSTATS_SET_REGIONS |
IF (debugLevel.GE.debLevB) WRITE(ioUnit,'(A,I3,A)') |
|
./pkg/diagnostics/diagnostics_out.F |
267 |
DIAGNOSTICS_OUT |
WRITE(ioUnit,'(A,I3,3A,I8,2A)') |
|
./pkg/diagnostics/diagnostics_out.F |
271 |
DIAGNOSTICS_OUT |
WRITE(ioUnit,'(3A,I3,2A)') |
|
./pkg/diagnostics/diagnostics_out.F |
276 |
DIAGNOSTICS_OUT |
WRITE(ioUnit,'(3A,I3,3A)') |
|
./pkg/diagnostics/diagnostics_out.F |
281 |
DIAGNOSTICS_OUT |
WRITE(ioUnit,'(3A,I3,3A)') |
|
./pkg/diagnostics/diagnostics_out.F |
67 |
DIAGNOSTICS_OUT |
INTEGER ioUnit |
|
./pkg/diagnostics/diagnostics_out.F |
93 |
DIAGNOSTICS_OUT |
ioUnit= standardMessageUnit |
|
./eesupp/src/print.F |
141 |
PRINT_LIST_I |
& markEnd, compact, ioUnit ) |
|
./eesupp/src/print.F |
177 |
PRINT_LIST_I |
INTEGER ioUnit |
|
./eesupp/src/print.F |
230 |
PRINT_LIST_I |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
252 |
PRINT_LIST_I |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
262 |
PRINT_LIST_L |
& compact, ioUnit ) |
|
./eesupp/src/print.F |
298 |
PRINT_LIST_L |
INTEGER ioUnit |
|
./eesupp/src/print.F |
351 |
PRINT_LIST_L |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
373 |
PRINT_LIST_L |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
382 |
PRINT_LIST_R8 |
& markEnd, compact, ioUnit ) |
|
./eesupp/src/print.F |
418 |
PRINT_LIST_R8 |
INTEGER ioUnit |
|
./eesupp/src/dfile.F |
323 |
DFILE_READ_R4 |
INTEGER ioUnit |
|
./eesupp/src/dfile.F |
336 |
DFILE_READ_R4 |
ioUnit = dUnitNumber(fileHandle,myThid) |
|
./eesupp/src/dfile.F |
337 |
DFILE_READ_R4 |
READ(ioUnit,ERR=899) (ioBuf_R4(I),I=1,lBuffer) |
|
./eesupp/src/dfile.F |
407 |
DFILE_READ_R8 |
INTEGER ioUnit |
|
./eesupp/src/dfile.F |
420 |
DFILE_READ_R8 |
ioUnit = dUnitNumber(fileHandle,myThid) |
|
./eesupp/src/dfile.F |
421 |
DFILE_READ_R8 |
READ(ioUnit,ERR=899) (ioBuf_R8(I),I=1,lBuffer) |
|
./eesupp/src/dfile.F |
564 |
DFILE_WRITE_R4 |
INTEGER ioUnit |
|
./eesupp/src/dfile.F |
577 |
DFILE_WRITE_R4 |
ioUnit = dUnitNumber(fileHandle,myThid) |
|
./eesupp/src/dfile.F |
579 |
DFILE_WRITE_R4 |
WRITE(ioUnit,ERR=899) (ioBuf_R4(I),I=1,lBuffer) |
|
./eesupp/src/dfile.F |
584 |
DFILE_WRITE_R4 |
ioUnit = mUnitNumber(fileHandle,myThid) |
|
./eesupp/src/dfile.F |
587 |
DFILE_WRITE_R4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
590 |
DFILE_WRITE_R4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
592 |
DFILE_WRITE_R4 |
& ioUnit ) |
|
./eesupp/src/dfile.F |
594 |
DFILE_WRITE_R4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
597 |
DFILE_WRITE_R4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
599 |
DFILE_WRITE_R4 |
& ioUnit ) |
|
./eesupp/src/dfile.F |
601 |
DFILE_WRITE_R4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
605 |
DFILE_WRITE_R4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
608 |
DFILE_WRITE_R4 |
& I.NE.nDims, .FALSE., ioUnit ) |
|
./eesupp/src/dfile.F |
611 |
DFILE_WRITE_R4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
614 |
DFILE_WRITE_R4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
616 |
DFILE_WRITE_R4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
618 |
DFILE_WRITE_R4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
621 |
DFILE_WRITE_R4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
698 |
DFILE_WRITE_R8 |
INTEGER ioUnit |
|
./eesupp/src/dfile.F |
711 |
DFILE_WRITE_R8 |
ioUnit = dUnitNumber(fileHandle,myThid) |
|
./eesupp/src/dfile.F |
713 |
DFILE_WRITE_R8 |
WRITE(ioUnit,ERR=899) (ioBuf_R8(I),I=1,lBuffer) |
|
./eesupp/src/dfile.F |
718 |
DFILE_WRITE_R8 |
ioUnit = mUnitNumber(fileHandle,myThid) |
|
./eesupp/src/dfile.F |
721 |
DFILE_WRITE_R8 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
724 |
DFILE_WRITE_R8 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
726 |
DFILE_WRITE_R8 |
& ioUnit ) |
|
./eesupp/src/dfile.F |
728 |
DFILE_WRITE_R8 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
731 |
DFILE_WRITE_R8 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
733 |
DFILE_WRITE_R8 |
& ioUnit ) |
|
./eesupp/src/dfile.F |
735 |
DFILE_WRITE_R8 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
739 |
DFILE_WRITE_R8 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
742 |
DFILE_WRITE_R8 |
& I.NE.nDims, .FALSE., ioUnit ) |
|
./eesupp/src/dfile.F |
745 |
DFILE_WRITE_R8 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
748 |
DFILE_WRITE_R8 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
750 |
DFILE_WRITE_R8 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
752 |
DFILE_WRITE_R8 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/dfile.F |
755 |
DFILE_WRITE_R8 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/debug/debug_cs_corner_uv.F |
107 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, S:', |
|
./pkg/debug/debug_cs_corner_uv.F |
110 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, N:', |
|
./pkg/debug/debug_cs_corner_uv.F |
115 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, S:', |
|
./pkg/debug/debug_cs_corner_uv.F |
118 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, N:', |
|
./pkg/debug/debug_cs_corner_uv.F |
123 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, W:', |
|
./pkg/debug/debug_cs_corner_uv.F |
126 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, E:', |
|
./pkg/debug/debug_cs_corner_uv.F |
131 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, W:', |
|
./pkg/debug/debug_cs_corner_uv.F |
134 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, E:', |
|
./pkg/debug/debug_cs_corner_uv.F |
149 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, S:', |
|
./pkg/debug/debug_cs_corner_uv.F |
152 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, N:', |
|
./pkg/debug/debug_cs_corner_uv.F |
155 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, W:', |
|
./pkg/debug/debug_cs_corner_uv.F |
158 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, E:', |
|
./pkg/debug/debug_cs_corner_uv.F |
170 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, S:', |
|
./pkg/debug/debug_cs_corner_uv.F |
173 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, N:', |
|
./pkg/debug/debug_cs_corner_uv.F |
176 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, W:', |
|
./pkg/debug/debug_cs_corner_uv.F |
179 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, E:', |
|
./pkg/debug/debug_cs_corner_uv.F |
185 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,'(2A)') 'DEBUG_CS_CORNER_UV: ', |
|
./pkg/debug/debug_cs_corner_uv.F |
48 |
DEBUG_CS_CORNER_UV |
INTEGER k, ioUnit |
|
./pkg/debug/debug_cs_corner_uv.F |
92 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,'(2A)') 'DEBUG_CS_CORNER_UV: ', |
|
./pkg/debug/debug_cs_corner_uv.F |
95 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,'(3A,I3)') 'DEBUG_CS_CORNER_UV: ', |
|
./pkg/debug/debug_cs_corner_uv.F |
97 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,'(2A,I4)') 'DEBUG_CS_CORNER_UV: ', |
|
./pkg/debug/debug_cs_corner_uv.F |
99 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,'(2A)') 'DEBUG_CS_CORNER_UV: ', |
|
./pkg/debug/debug_cs_corner_uv.F |
9 |
DEBUG_CS_CORNER_UV |
I k, ioUnit, bi,bj, myThid) |