| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/W2_EXCH2_PARAMS.h |
47 |
NO PROCEDURE |
INTEGER W2_oUnit, W2_printMsg |
|
./pkg/exch2/W2_EXCH2_PARAMS.h |
53 |
NO PROCEDURE |
& W2_oUnit, W2_printMsg |
|
./pkg/exch2/w2_e2setup.F |
135 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
74 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_e2setup.F |
89 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
92 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
95 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
111 |
W2_EEBOOT |
IF ( W2_oUnit.NE.standardMessageUnit ) THEN |
|
./pkg/exch2/w2_eeboot.F |
113 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_BOTH, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
114 |
W2_EEBOOT |
CLOSE( W2_oUnit ) |
|
./pkg/exch2/w2_eeboot.F |
76 |
W2_EEBOOT |
W2_oUnit = standardMessageUnit |
|
./pkg/exch2/w2_eeboot.F |
90 |
W2_EEBOOT |
CALL MDSFINDUNIT( W2_oUnit, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
91 |
W2_EEBOOT |
OPEN( W2_oUnit, file=fName(1:iLen), |
|
./pkg/exch2/w2_map_procs.F |
138 |
W2_MAP_PROCS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_BOTH, myThid ) |
|
./pkg/exch2/w2_map_procs.F |
148 |
W2_MAP_PROCS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_map_procs.F |
158 |
W2_MAP_PROCS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_map_procs.F |
165 |
W2_MAP_PROCS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_comm_sequence.F |
101 |
W2_PRINT_COMM_SEQUENCE |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_comm_sequence.F |
104 |
W2_PRINT_COMM_SEQUENCE |
WRITE(W2_oUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/exch2/w2_print_comm_sequence.F |
111 |
W2_PRINT_COMM_SEQUENCE |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_comm_sequence.F |
114 |
W2_PRINT_COMM_SEQUENCE |
WRITE(W2_oUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/exch2/w2_print_comm_sequence.F |
145 |
W2_PRINT_COMM_SEQUENCE |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_comm_sequence.F |
148 |
W2_PRINT_COMM_SEQUENCE |
WRITE(W2_oUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/exch2/w2_print_e2setup.F |
139 |
W2_PRINT_E2SETUP |
WRITE(W2_oUnit,'(2(3A,I3),A,4I3,A,2I6)') |
|
./pkg/exch2/w2_print_e2setup.F |
155 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_e2setup.F |
164 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_e2setup.F |
170 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_e2setup.F |
180 |
W2_PRINT_E2SETUP |
& WRITE(W2_oUnit,'(A,I3,2(A,I6),A,I5,2(A,I4),A)') |
|
./pkg/exch2/w2_print_e2setup.F |
187 |
W2_PRINT_E2SETUP |
WRITE(W2_oUnit,'(A,I5,3(A,I3),2A,2I5,2A,2I8)') ' tile',is, |
|
./pkg/exch2/w2_print_e2setup.F |
199 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_e2setup.F |
207 |
W2_PRINT_E2SETUP |
WRITE(W2_oUnit,'(A,I5,A,I3,A,4(A,I2))') 'Tile',is, |
|
./pkg/exch2/w2_print_e2setup.F |
212 |
W2_PRINT_E2SETUP |
WRITE(W2_oUnit,'(A,I3,A,I5,2(A,2I6),A,4I3,A,2I6,A)') |
|
./pkg/exch2/w2_print_e2setup.F |
226 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_e2setup.F |
56 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_e2setup.F |
82 |
W2_PRINT_E2SETUP |
WRITE(W2_oUnit,'(2(3A,I3),A,4I3,A,2I6)') |
|
./pkg/exch2/w2_set_cs6_facets.F |
113 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
117 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
120 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
123 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
160 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE(msgBuf,W2_oUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/exch2/w2_set_cs6_facets.F |
172 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
176 |
W2_SET_CS6_FACETS |
WRITE(W2_oUnit,'(A,I3,2(A,I8))') |
|
./pkg/exch2/w2_set_cs6_facets.F |
179 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
50 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
92 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
199 |
W2_SET_F2F_INDEX |
IF ( prtFlag ) WRITE(W2_oUnit,'(2(3A,I3),A,4I3,A,2I6)') |
|
./pkg/exch2/w2_set_f2f_index.F |
46 |
W2_SET_F2F_INDEX |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
61 |
W2_SET_F2F_INDEX |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
45 |
W2_SET_GEN_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
83 |
W2_SET_GEN_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
124 |
W2_SET_MAP_CUMSUM |
IF ( ABS(W2_printMsg).GE.2 ) WRITE(W2_oUnit,'(5(A,I4))') |
|
./pkg/exch2/w2_set_map_cumsum.F |
137 |
W2_SET_MAP_CUMSUM |
IF ( ABS(W2_printMsg).GE.2 ) WRITE(W2_oUnit,'(5(A,I4))') |
|
./pkg/exch2/w2_set_map_cumsum.F |
153 |
W2_SET_MAP_CUMSUM |
IF ( ABS(W2_printMsg).GE.2 ) WRITE(W2_oUnit,'(5(A,I4))') |
|
./pkg/exch2/w2_set_map_cumsum.F |
166 |
W2_SET_MAP_CUMSUM |
IF ( ABS(W2_printMsg).GE.2 ) WRITE(W2_oUnit,'(5(A,I4))') |
|
./pkg/exch2/w2_set_map_cumsum.F |
186 |
W2_SET_MAP_CUMSUM |
IF ( ABS(W2_printMsg).GE.2 ) WRITE(W2_oUnit,'(5(A,I4))') |
|
./pkg/exch2/w2_set_map_cumsum.F |
201 |
W2_SET_MAP_CUMSUM |
IF ( ABS(W2_printMsg).GE.2 ) WRITE(W2_oUnit,'(5(A,I4))') |
|
./pkg/exch2/w2_set_map_cumsum.F |
215 |
W2_SET_MAP_CUMSUM |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
225 |
W2_SET_MAP_CUMSUM |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
232 |
W2_SET_MAP_CUMSUM |
WRITE(W2_oUnit,'(2A,2(I4,A))')' Facet Matrix for CUMUL-SUM (', |
|
./pkg/exch2/w2_set_map_cumsum.F |
235 |
W2_SET_MAP_CUMSUM |
WRITE(W2_oUnit,'(A,I3,A,30(2I3,A))') '- facet', j, ' :', |
|
./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 |
344 |
W2_SET_MAP_CUMSUM |
WRITE(W2_oUnit,'(A,I6,A)') |
|
./pkg/exch2/w2_set_map_cumsum.F |
350 |
W2_SET_MAP_CUMSUM |
WRITE(W2_oUnit,'(3(I6,A),10(2I3,A))') j,' ,',is,' ->',ie,' :', |
|
./pkg/exch2/w2_set_map_cumsum.F |
353 |
W2_SET_MAP_CUMSUM |
WRITE(W2_oUnit,'(8X,2(I6,A),10(2I3,A))') is,' ->',ie,' :', |
|
./pkg/exch2/w2_set_map_cumsum.F |
362 |
W2_SET_MAP_CUMSUM |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
367 |
W2_SET_MAP_CUMSUM |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
54 |
W2_SET_MAP_CUMSUM |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
91 |
W2_SET_MAP_CUMSUM |
IF ( ABS(W2_printMsg).GE.2 ) WRITE(W2_oUnit,'(A,I4)') |
|
./pkg/exch2/w2_set_map_tiles.F |
121 |
W2_SET_MAP_TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
151 |
W2_SET_MAP_TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
156 |
W2_SET_MAP_TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
166 |
W2_SET_MAP_TILES |
WRITE(W2_oUnit,'(A,I3,2(A,I6),A,I5,2(A,I4),A)') |
|
./pkg/exch2/w2_set_map_tiles.F |
208 |
W2_SET_MAP_TILES |
& WRITE(W2_oUnit,'(A,I5,3(A,I3),2A,2I5,2A,2I8)') ' tile',tId, |
|
./pkg/exch2/w2_set_map_tiles.F |
56 |
W2_SET_MAP_TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_single_facet.F |
41 |
W2_SET_SINGLE_FACET |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_single_facet.F |
66 |
W2_SET_SINGLE_FACET |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_single_facet.F |
75 |
W2_SET_SINGLE_FACET |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
225 |
W2_SET_TILE2TILES |
WRITE(W2_oUnit,'(A,I5,A,I3,A,4(A,I2))') |
|
./pkg/exch2/w2_set_tile2tiles.F |
230 |
W2_SET_TILE2TILES |
WRITE(W2_oUnit,'(A,I3,A,I5,2(A,2I6),A,4I3,A,2I6,A)') |
|
./pkg/exch2/w2_set_tile2tiles.F |
254 |
W2_SET_TILE2TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
57 |
W2_SET_TILE2TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |