| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/exch2_check_depths.F |
110 |
EXCH2_CHECK_DEPTHS |
WRITE(msgBuf,'(2A,I6,A,2(I4,A))') |
|
./pkg/exch2/exch2_check_depths.F |
113 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
116 |
EXCH2_CHECK_DEPTHS |
WRITE(msgBuf,'(A,I5,A)') ' N.Edge has', errN, |
|
./pkg/exch2/exch2_check_depths.F |
118 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
122 |
EXCH2_CHECK_DEPTHS |
WRITE(msgBuf,'(A,I5,A)') ' S.Edge has', errS, |
|
./pkg/exch2/exch2_check_depths.F |
124 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
128 |
EXCH2_CHECK_DEPTHS |
WRITE(msgBuf,'(A,I5,A)') ' E.Edge has', errE, |
|
./pkg/exch2/exch2_check_depths.F |
130 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
134 |
EXCH2_CHECK_DEPTHS |
WRITE(msgBuf,'(A,I5,A)') ' W.Edge has', errW, |
|
./pkg/exch2/exch2_check_depths.F |
136 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
139 |
EXCH2_CHECK_DEPTHS |
WRITE( msgBuf,'(A)') 'S/R EXCH2_CHECK_DEPTHS: Fatal Error' |
|
./pkg/exch2/exch2_check_depths.F |
152 |
EXCH2_CHECK_DEPTHS |
WRITE( msgBuf,'(2A)') '** WARNING ** EXCH2_CHECK_DEPTHS:', |
|
./pkg/exch2/exch2_check_depths.F |
154 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
156 |
EXCH2_CHECK_DEPTHS |
WRITE( msgBuf,'(2A)') '** WARNING ** EXCH2_CHECK_DEPTHS:', |
|
./pkg/exch2/exch2_check_depths.F |
158 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
47 |
EXCH2_CHECK_DEPTHS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_e2setup.F |
100 |
W2_E2SETUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
101 |
W2_E2SETUP |
WRITE(msgBuf,'(2A)') 'Must increase "W2_maxNbTiles"', |
|
./pkg/exch2/w2_e2setup.F |
103 |
W2_E2SETUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
110 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I5,A,I8)') |
|
./pkg/exch2/w2_e2setup.F |
113 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I7,A,I4,A)') 'W2_E2SETUP:', blankList(i), |
|
./pkg/exch2/w2_e2setup.F |
115 |
W2_E2SETUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
133 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I8)') |
|
./pkg/exch2/w2_e2setup.F |
135 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
41 |
W2_E2SETUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_e2setup.F |
71 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I5,A,2I3,A)') |
|
./pkg/exch2/w2_e2setup.F |
74 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_e2setup.F |
75 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/w2_e2setup.F |
87 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I8)') |
|
./pkg/exch2/w2_e2setup.F |
89 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
90 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I8)') |
|
./pkg/exch2/w2_e2setup.F |
92 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
93 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I8)') |
|
./pkg/exch2/w2_e2setup.F |
95 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
98 |
W2_E2SETUP |
WRITE(msgBuf,'(3(A,I7))') 'W2_E2SETUP: Number of Tiles=', |
|
./pkg/exch2/w2_eeboot.F |
112 |
W2_EEBOOT |
WRITE(msgBuf,'(A)') '=== End TOPOLOGY report ===' |
|
./pkg/exch2/w2_eeboot.F |
113 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_BOTH, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
116 |
W2_EEBOOT |
WRITE(msgBuf,'(A)') '===== setting W2 TOPOLOGY: Done' |
|
./pkg/exch2/w2_eeboot.F |
117 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
118 |
W2_EEBOOT |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/exch2/w2_eeboot.F |
119 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
36 |
W2_EEBOOT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_eeboot.F |
82 |
W2_EEBOOT |
WRITE(msgBuf,'(A)') '===== Start setting W2 TOPOLOGY:' |
|
./pkg/exch2/w2_eeboot.F |
83 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
93 |
W2_EEBOOT |
WRITE(msgBuf,'(2A)') ' write to log-file: ', fName(1:iLen) |
|
./pkg/exch2/w2_eeboot.F |
94 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_map_procs.F |
115 |
W2_MAP_PROCS |
WRITE(msgBuf,'(3(A,I5))') |
|
./pkg/exch2/w2_map_procs.F |
118 |
W2_MAP_PROCS |
CALL PRINT_MESSAGE(msgBuf, |
|
./pkg/exch2/w2_map_procs.F |
123 |
W2_MAP_PROCS |
WRITE(msgBuf,'(3(A,I5))') |
|
./pkg/exch2/w2_map_procs.F |
126 |
W2_MAP_PROCS |
CALL PRINT_MESSAGE(msgBuf, |
|
./pkg/exch2/w2_map_procs.F |
137 |
W2_MAP_PROCS |
WRITE(msgBuf,'(A)') '===== W2 TILE TOPOLOGY =====' |
|
./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 |
142 |
W2_MAP_PROCS |
WRITE(msgBuf,'(A,I5,A,2I4,2A,I3)') |
|
./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 |
154 |
W2_MAP_PROCS |
WRITE(msgBuf,'(A,I3,A,I5,A,I3,2A,I5,A)') |
|
./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 |
161 |
W2_MAP_PROCS |
WRITE(msgBuf,'(A,I3,A,I5,A,I3,2A,I5,A)') |
|
./pkg/exch2/w2_map_procs.F |
165 |
W2_MAP_PROCS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_map_procs.F |
42 |
W2_MAP_PROCS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./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 |
103 |
W2_PRINT_COMM_SEQUENCE |
iLen = ILNBLNK(msgBuf) |
|
./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 |
106 |
W2_PRINT_COMM_SEQUENCE |
WRITE(msgBuf,'(4(A,I4),A,I6,A,I4,A)') |
|
./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 |
113 |
W2_PRINT_COMM_SEQUENCE |
iLen = ILNBLNK(msgBuf) |
|
./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 |
139 |
W2_PRINT_COMM_SEQUENCE |
WRITE(msgBuf,'(A,I6,A,I4,A,4(A,I4),A,I6,A,I4,A)') |
|
./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 |
147 |
W2_PRINT_COMM_SEQUENCE |
iLen = ILNBLNK(msgBuf) |
|
./pkg/exch2/w2_print_comm_sequence.F |
148 |
W2_PRINT_COMM_SEQUENCE |
WRITE(W2_oUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/exch2/w2_print_comm_sequence.F |
58 |
W2_PRINT_COMM_SEQUENCE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_print_comm_sequence.F |
96 |
W2_PRINT_COMM_SEQUENCE |
WRITE(msgBuf,'(A,I6,A,I4,A,4(A,I4))') |
|
./pkg/exch2/w2_print_e2setup.F |
153 |
W2_PRINT_E2SETUP |
WRITE(msgBuf,'(2A)') 'W2_PRINT_E2SETUP:', |
|
./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 |
162 |
W2_PRINT_E2SETUP |
WRITE(msgBuf,'(A,2(A,I8))') ' Global Map (IO):', |
|
./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 |
168 |
W2_PRINT_E2SETUP |
WRITE(msgBuf,'(2A)') 'W2_PRINT_E2SETUP:', |
|
./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 |
197 |
W2_PRINT_E2SETUP |
WRITE(msgBuf,'(2A)') 'W2_PRINT_E2SETUP:', |
|
./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 |
223 |
W2_PRINT_E2SETUP |
WRITE(msgBuf,'(A,I5,A,I3)') |
|
./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 |
37 |
W2_PRINT_E2SETUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_print_e2setup.F |
54 |
W2_PRINT_E2SETUP |
WRITE(msgBuf,'(2A)') 'W2_PRINT_E2SETUP:', |
|
./pkg/exch2/w2_print_e2setup.F |
56 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_readparms.F |
114 |
W2_READPARMS |
WRITE(msgBuf,'(A)') 'W2_READPARMS: opening data.exch2' |
|
./pkg/exch2/w2_readparms.F |
115 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
123 |
W2_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exch2/w2_readparms.F |
125 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
129 |
W2_READPARMS |
WRITE(msgBuf,'(A)') 'W2_READPARMS: file data.exch2 not found' |
|
./pkg/exch2/w2_readparms.F |
130 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
132 |
W2_READPARMS |
WRITE(msgBuf,'(2A,I3)') '=> use W2_EXCH2 default:', |
|
./pkg/exch2/w2_readparms.F |
135 |
W2_READPARMS |
WRITE(msgBuf,'(2A,I3)') '=> use W2_EXCH2 default:', |
|
./pkg/exch2/w2_readparms.F |
138 |
W2_READPARMS |
WRITE(msgBuf,'(2A,I3)') '=> use W2_EXCH2 default:', |
|
./pkg/exch2/w2_readparms.F |
141 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
165 |
W2_READPARMS |
WRITE(msgBuf,'(2A)') ' W2_READPARMS:', |
|
./pkg/exch2/w2_readparms.F |
167 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_readparms.F |
168 |
W2_READPARMS |
WRITE(msgBuf,'(A,2(A,I3))') ' W2_READPARMS:', |
|
./pkg/exch2/w2_readparms.F |
170 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_readparms.F |
181 |
W2_READPARMS |
WRITE(msgBuf,'(2A)') ' W2_READPARMS:', |
|
./pkg/exch2/w2_readparms.F |
183 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_readparms.F |
184 |
W2_READPARMS |
WRITE(msgBuf,'(A,2(A,I3))') ' W2_READPARMS:', |
|
./pkg/exch2/w2_readparms.F |
186 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_readparms.F |
193 |
W2_READPARMS |
WRITE(msgBuf,'(A,L5,A)') 'W2_useE2ioLayOut=', W2_useE2ioLayOut, |
|
./pkg/exch2/w2_readparms.F |
195 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
196 |
W2_READPARMS |
WRITE(msgBuf,'(A,I4,A)') 'W2_mapIO =', W2_mapIO, |
|
./pkg/exch2/w2_readparms.F |
198 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
199 |
W2_READPARMS |
WRITE(msgBuf,'(A,I4,A)') 'W2_printMsg =', W2_printMsg, |
|
./pkg/exch2/w2_readparms.F |
201 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
35 |
W2_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_cs6_facets.F |
111 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(2A,I5)') 'W2_SET_CS6_FACETS:', |
|
./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 |
115 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(3(A,I4),A,I10,A,I6,A)') |
|
./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 |
118 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(A,I6,A,I10)') |
|
./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 |
121 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(2A,I5)') 'W2_SET_CS6_FACETS:', |
|
./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 |
124 |
W2_SET_CS6_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
157 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(A,I3,3A,2(I4,A),I3,3A,I8)') |
|
./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 |
170 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(A,I3,A)') ' W2_SET_CS6_FACETS:', |
|
./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 |
173 |
W2_SET_CS6_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./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 |
180 |
W2_SET_CS6_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
38 |
W2_SET_CS6_FACETS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_cs6_facets.F |
48 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(2A,I3,A)') 'W2_SET_CS6_FACETS:', |
|
./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 |
90 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(2A,I5)') 'W2_SET_CS6_FACETS:', |
|
./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_cs6_facets.F |
93 |
W2_SET_CS6_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
114 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(3A,I3,A,I8,A)') 'Length of connection: ', |
|
./pkg/exch2/w2_set_f2f_index.F |
116 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
117 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(3A,I3,A,I8,A)') ' to: ', |
|
./pkg/exch2/w2_set_f2f_index.F |
119 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
189 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(2(3A,I3),A)') ' connect ', |
|
./pkg/exch2/w2_set_f2f_index.F |
192 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
193 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A)') |
|
./pkg/exch2/w2_set_f2f_index.F |
195 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
208 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_f2f_index.F |
210 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
249 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(2(3A,I3),A)') ' connect ', |
|
./pkg/exch2/w2_set_f2f_index.F |
252 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
253 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A,4I4,2I8)') |
|
./pkg/exch2/w2_set_f2f_index.F |
255 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
262 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_f2f_index.F |
264 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
35 |
W2_SET_F2F_INDEX |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_f2f_index.F |
44 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(2A)') 'W2_SET_F2F_INDEX:', |
|
./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 |
58 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(3A,I3,A,F6.2,A)') |
|
./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_f2f_index.F |
62 |
W2_SET_F2F_INDEX |
CALL PRINT_MESSAGE( msgBuf,errorMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./pkg/exch2/w2_set_f2f_index.F |
65 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(2A,I3,A,F6.2,A)') edge(i), '.Edge of facet #', |
|
./pkg/exch2/w2_set_f2f_index.F |
67 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
74 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(2(2A,I3,A),F5.2,A)') |
|
./pkg/exch2/w2_set_f2f_index.F |
77 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
79 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A,2(2A,I3,A),F5.2,A)') ' but ', |
|
./pkg/exch2/w2_set_f2f_index.F |
83 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A,2(2A,I3,A),F5.2,A)') ' but ', |
|
./pkg/exch2/w2_set_f2f_index.F |
87 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
94 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_f2f_index.F |
96 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
101 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I2,A,I3,A,I6,A)') 'dimension', i, |
|
./pkg/exch2/w2_set_gen_facets.F |
103 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
107 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A)') 'W2_SET_GEN_FACETS: found', errCnt, |
|
./pkg/exch2/w2_set_gen_facets.F |
109 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
119 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(3A,I3,A,F6.2,A)') |
|
./pkg/exch2/w2_set_gen_facets.F |
122 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
123 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_gen_facets.F |
125 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
130 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A)') 'W2_SET_GEN_FACETS: found', errCnt, |
|
./pkg/exch2/w2_set_gen_facets.F |
132 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
36 |
W2_SET_GEN_FACETS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_gen_facets.F |
43 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(2A,I3,A)') 'W2_SET_GEN_FACETS:', |
|
./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 |
60 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A,2I6)') |
|
./pkg/exch2/w2_set_gen_facets.F |
63 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
68 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A)') |
|
./pkg/exch2/w2_set_gen_facets.F |
70 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
73 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A)') 'W2_SET_GEN_FACETS: found', errCnt, |
|
./pkg/exch2/w2_set_gen_facets.F |
75 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
80 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A)') |
|
./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_gen_facets.F |
90 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A,I5,A)') ' dimsFacets(j=',jj,') =', |
|
./pkg/exch2/w2_set_gen_facets.F |
92 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_map_cumsum.F |
212 |
W2_SET_MAP_CUMSUM |
WRITE(msgBuf,'(2A,3(I4,A),I2,A)') 'W2_SET_MAP_CUMSUM: ', |
|
./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 |
223 |
W2_SET_MAP_CUMSUM |
WRITE(msgBuf,'(2A,2(I4,A))') 'W2_SET_MAP_CUMSUM: ', |
|
./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 |
226 |
W2_SET_MAP_CUMSUM |
WRITE(msgBuf,'(2A)') '** WARNING ** W2_SET_MAP_CUMSUM: ', |
|
./pkg/exch2/w2_set_map_cumsum.F |
228 |
W2_SET_MAP_CUMSUM |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/w2_set_map_cumsum.F |
360 |
W2_SET_MAP_CUMSUM |
WRITE(msgBuf,'(2A)') 'W2_SET_MAP_CUMSUM: ', |
|
./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 |
365 |
W2_SET_MAP_CUMSUM |
WRITE(msgBuf,'(2A)') 'W2_SET_MAP_CUMSUM: ', |
|
./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 |
48 |
W2_SET_MAP_CUMSUM |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_map_cumsum.F |
52 |
W2_SET_MAP_CUMSUM |
WRITE(msgBuf,'(2A)') 'W2_SET_MAP_CUMSUM: ', |
|
./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_tiles.F |
101 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
119 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,2(I5,A))') ' W2_mapIO =', W2_mapIO, |
|
./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 |
149 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,2(A,I8))') ' Global Map (IO):', |
|
./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 |
154 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(2A)') 'W2_SET_MAP_TILES:', |
|
./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 |
44 |
W2_SET_MAP_TILES |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_map_tiles.F |
54 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(2A)') 'W2_SET_MAP_TILES:', |
|
./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_map_tiles.F |
72 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,I3,2(A,I7))') 'Facet',j, |
|
./pkg/exch2/w2_set_map_tiles.F |
74 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
78 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,I3,2(A,I7))') 'Facet',j, |
|
./pkg/exch2/w2_set_map_tiles.F |
80 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
89 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_map_tiles.F |
91 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
96 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,I6,A)') |
|
./pkg/exch2/w2_set_map_tiles.F |
98 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
99 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,I6)') |
|
./pkg/exch2/w2_set_single_facet.F |
35 |
W2_SET_SINGLE_FACET |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_single_facet.F |
39 |
W2_SET_SINGLE_FACET |
WRITE(msgBuf,'(2A,I3,A)') 'W2_SET_SINGLE_FACET:', |
|
./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 |
64 |
W2_SET_SINGLE_FACET |
WRITE(msgBuf,'(2A,2I5)') 'W2_SET_SINGLE_FACET:', |
|
./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 |
67 |
W2_SET_SINGLE_FACET |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_single_facet.F |
73 |
W2_SET_SINGLE_FACET |
WRITE(msgBuf,'(2A,I5)') 'W2_SET_SINGLE_FACET:', |
|
./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_single_facet.F |
76 |
W2_SET_SINGLE_FACET |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
252 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,A,I3)') |
|
./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 |
256 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(2(A,I4),A)') |
|
./pkg/exch2/w2_set_tile2tiles.F |
259 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
260 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(2A)') 'Must increase "W2_maxNeighbours"', |
|
./pkg/exch2/w2_set_tile2tiles.F |
262 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
286 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,2(A,I3),A,I5)') 'Tile',is,' neighb:', |
|
./pkg/exch2/w2_set_tile2tiles.F |
288 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
289 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,5(A,I3))') ' with tile', it, ' :', |
|
./pkg/exch2/w2_set_tile2tiles.F |
292 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
298 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,2(A,I3),A,I5)') 'Tile',is,' neighb:', |
|
./pkg/exch2/w2_set_tile2tiles.F |
300 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
307 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_tile2tiles.F |
309 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
321 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,2(A,I3),A)') 'Tile',is,' neighb:', |
|
./pkg/exch2/w2_set_tile2tiles.F |
323 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
324 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,5(A,I3))') ' with tile', it, ' :', |
|
./pkg/exch2/w2_set_tile2tiles.F |
326 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
327 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,2(A,I3),A)') ' but',it,' neighb:', |
|
./pkg/exch2/w2_set_tile2tiles.F |
329 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
330 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,3(A,I3))') ' with tile', ii, ' :', |
|
./pkg/exch2/w2_set_tile2tiles.F |
332 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
338 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_tile2tiles.F |
340 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
41 |
W2_SET_TILE2TILES |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_tile2tiles.F |
55 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(2A)') 'W2_SET_TILE2TILES:', |
|
./pkg/exch2/w2_set_tile2tiles.F |
57 |
W2_SET_TILE2TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
67 |
ADEXF_ADJOINT_SNAPSHOTS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_check.F |
103 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./pkg/exf/exf_check.F |
106 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_check.F |
110 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: using diurnal albedo ', |
|
./pkg/exf/exf_check.F |
112 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
116 |
EXF_CHECK |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/exf/exf_check.F |
120 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_check.F |
128 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'S/R EXF_CHECK: climsst_nlat > MAX_LAT_INC' |
|
./pkg/exf/exf_check.F |
129 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
135 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'S/R EXF_CHECK: climsss_nlat > MAX_LAT_INC' |
|
./pkg/exf/exf_check.F |
136 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
141 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: ', |
|
./pkg/exf/exf_check.F |
143 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
144 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: ', |
|
./pkg/exf/exf_check.F |
146 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
147 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: ', |
|
./pkg/exf/exf_check.F |
149 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
159 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_check.F |
161 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
166 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: ', |
|
./pkg/exf/exf_check.F |
168 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
169 |
EXF_CHECK |
WRITE(msgBuf,'(A,A,A)') 'S/R EXF_CHECK: ', |
|
./pkg/exf/exf_check.F |
172 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
180 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./pkg/exf/exf_check.F |
183 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
190 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_check.F |
192 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
197 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: ', |
|
./pkg/exf/exf_check.F |
199 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
200 |
EXF_CHECK |
WRITE(msgBuf,'(A,A,A)') 'S/R EXF_CHECK: ', |
|
./pkg/exf/exf_check.F |
203 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
216 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_check.F |
218 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
223 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_check.F |
225 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
231 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_check.F |
233 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
234 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./pkg/exf/exf_check.F |
237 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
242 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: ', |
|
./pkg/exf/exf_check.F |
244 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
249 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: ', |
|
./pkg/exf/exf_check.F |
251 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
257 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'S/R EXF_CHECK: climsstTauRelax > 0' |
|
./pkg/exf/exf_check.F |
258 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
259 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_check.F |
261 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
265 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'S/R EXF_CHECK: climsstTauRelax > 0 but' |
|
./pkg/exf/exf_check.F |
266 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
267 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'S/R EXF_CHECK: climsstfile is not set' |
|
./pkg/exf/exf_check.F |
268 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
275 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'S/R EXF_CHECK: climsssTauRelax > 0' |
|
./pkg/exf/exf_check.F |
276 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
277 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_check.F |
279 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
283 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'S/R EXF_CHECK: climsssTauRelax > 0 but' |
|
./pkg/exf/exf_check.F |
284 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
285 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'S/R EXF_CHECK: climsssfile is not set' |
|
./pkg/exf/exf_check.F |
286 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
31 |
EXF_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_check.F |
39 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_check.F |
41 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
46 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_check.F |
48 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
53 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: The use of ', |
|
./pkg/exf/exf_check.F |
55 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
62 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_check.F |
64 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
72 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_check.F |
74 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
82 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: unsupported option', |
|
./pkg/exf/exf_check.F |
84 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
91 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: ALLOW_ZENITHANGLE does ', |
|
./pkg/exf/exf_check.F |
93 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_check.F |
97 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: unsupported ', |
|
./pkg/exf/exf_check.F |
99 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_getffieldrec.F |
111 |
EXF_GETFFIELDREC |
WRITE(msgBuf,'(2A)') 'EXF_GetFFieldRec: ', |
|
./pkg/exf/exf_getffieldrec.F |
113 |
EXF_GETFFIELDREC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_getffieldrec.F |
73 |
EXF_GETFFIELDREC |
CHARACTER*(max_len_mbuf) msgBuf |
|
./pkg/exf/exf_interp.F |
268 |
EXF_INTERP |
WRITE(msgBuf,'(3A,I6,A,2L5)') |
|
./pkg/exf/exf_interp.F |
271 |
EXF_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_interp.F |
273 |
EXF_INTERP |
WRITE(msgBuf,'(2A,3F4.1,A,3F12.6)') 'S.edge (j=-1,0,1) :', |
|
./pkg/exf/exf_interp.F |
275 |
EXF_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_interp.F |
277 |
EXF_INTERP |
WRITE(msgBuf,'(2A,3F4.1,A,3F12.6)') 'N.edge (j=+0,+1,+2)', |
|
./pkg/exf/exf_interp.F |
279 |
EXF_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_interp.F |
308 |
EXF_INTERP |
WRITE(msgBuf,'(3A,I6)') |
|
./pkg/exf/exf_interp.F |
310 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp.F |
311 |
EXF_INTERP |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_interp.F |
313 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp.F |
314 |
EXF_INTERP |
WRITE(msgBuf,'(A,2I8,2I6,A,1P2E14.6)') 'i,j,bi,bj=', |
|
./pkg/exf/exf_interp.F |
316 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp.F |
317 |
EXF_INTERP |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nxIn=', nxIn, |
|
./pkg/exf/exf_interp.F |
319 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp.F |
320 |
EXF_INTERP |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nyIn=', nyIn, |
|
./pkg/exf/exf_interp.F |
322 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp.F |
368 |
EXF_INTERP |
WRITE(msgBuf,'(3A,I4,A,I4)') |
|
./pkg/exf/exf_interp.F |
371 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp.F |
372 |
EXF_INTERP |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_interp.F |
374 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp.F |
375 |
EXF_INTERP |
WRITE(msgBuf,'(A,2I8,2I6,A,1PE16.8)') |
|
./pkg/exf/exf_interp.F |
377 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp.F |
378 |
EXF_INTERP |
WRITE(msgBuf,'(A,I8,A,1PE16.8)') |
|
./pkg/exf/exf_interp.F |
380 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp.F |
381 |
EXF_INTERP |
WRITE(msgBuf,'(A,I8,A,1PE16.8)') |
|
./pkg/exf/exf_interp.F |
383 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp.F |
92 |
EXF_INTERP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_interp_read.F |
116 |
EXF_INTERP_READ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/exf/exf_interp_read.F |
118 |
EXF_INTERP_READ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_interp_read.F |
122 |
EXF_INTERP_READ |
WRITE(msgBuf,'(2A)') |
|
./pkg/exf/exf_interp_read.F |
124 |
EXF_INTERP_READ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_interp_read.F |
126 |
EXF_INTERP_READ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp_read.F |
127 |
EXF_INTERP_READ |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_interp_read.F |
129 |
EXF_INTERP_READ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_interp_read.F |
131 |
EXF_INTERP_READ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp_read.F |
54 |
EXF_INTERP_READ |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_interp_uv.F |
103 |
EXF_INTERP_UV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_interp_uv.F |
286 |
EXF_INTERP_UV |
WRITE(msgBuf,'(3A,I6,A,2L5)') |
|
./pkg/exf/exf_interp_uv.F |
289 |
EXF_INTERP_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_interp_uv.F |
291 |
EXF_INTERP_UV |
WRITE(msgBuf,'(2A,3F4.1,A,3F12.6)') 'S.edge (j=-1,0,1) :', |
|
./pkg/exf/exf_interp_uv.F |
293 |
EXF_INTERP_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_interp_uv.F |
295 |
EXF_INTERP_UV |
WRITE(msgBuf,'(2A,3F4.1,A,3F12.6)') 'N.edge (j=+0,+1,+2)', |
|
./pkg/exf/exf_interp_uv.F |
297 |
EXF_INTERP_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_interp_uv.F |
325 |
EXF_INTERP_UV |
WRITE(msgBuf,'(3A,I6)') |
|
./pkg/exf/exf_interp_uv.F |
327 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp_uv.F |
328 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_interp_uv.F |
330 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp_uv.F |
331 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A,2I8,2I6,A,1P2E14.6)') 'i,j,bi,bj=', |
|
./pkg/exf/exf_interp_uv.F |
333 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp_uv.F |
334 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nxIn=', nxIn, |
|
./pkg/exf/exf_interp_uv.F |
336 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp_uv.F |
337 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nyIn=', nyIn, |
|
./pkg/exf/exf_interp_uv.F |
339 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp_uv.F |
385 |
EXF_INTERP_UV |
WRITE(msgBuf,'(3A,I4,A,I4)') |
|
./pkg/exf/exf_interp_uv.F |
388 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp_uv.F |
389 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_interp_uv.F |
391 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp_uv.F |
392 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A,2I8,2I6,A,1PE16.8)') |
|
./pkg/exf/exf_interp_uv.F |
394 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp_uv.F |
395 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A,I8,A,1PE16.8)') |
|
./pkg/exf/exf_interp_uv.F |
397 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp_uv.F |
398 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A,I8,A,1PE16.8)') |
|
./pkg/exf/exf_interp_uv.F |
400 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interpolate.F |
129 |
EXF_INTERPOLATE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_interpolate.F |
237 |
EXF_INTERPOLATE |
WRITE(msgBuf,'(3A,I6)') |
|
./pkg/exf/exf_interpolate.F |
239 |
EXF_INTERPOLATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interpolate.F |
240 |
EXF_INTERPOLATE |
WRITE(msgBuf,'(A,I8,A)') |
|
./pkg/exf/exf_interpolate.F |
242 |
EXF_INTERPOLATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_monitor.F |
233 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor.F |
235 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
236 |
EXF_MONITOR |
WRITE(msgBuf,'(A)') '// End MONITOR EXF statistics' |
|
./pkg/exf/exf_monitor.F |
237 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
238 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor.F |
240 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
48 |
EXF_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_monitor.F |
90 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor.F |
92 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
93 |
EXF_MONITOR |
WRITE(msgBuf,'(A)') '// Begin MONITOR EXF statistics' |
|
./pkg/exf/exf_monitor.F |
94 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
95 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor.F |
97 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor_ad.F |
201 |
ADEXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor_ad.F |
203 |
ADEXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor_ad.F |
204 |
ADEXF_MONITOR |
WRITE(msgBuf,'(A,I2)') |
|
./pkg/exf/exf_monitor_ad.F |
207 |
ADEXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor_ad.F |
208 |
ADEXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor_ad.F |
210 |
ADEXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor_ad.F |
54 |
ADEXF_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_monitor_ad.F |
88 |
ADEXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor_ad.F |
90 |
ADEXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor_ad.F |
91 |
ADEXF_MONITOR |
WRITE(msgBuf,'(A,I2)') |
|
./pkg/exf/exf_monitor_ad.F |
94 |
ADEXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor_ad.F |
95 |
ADEXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor_ad.F |
97 |
ADEXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_readparms.F |
75 |
EXF_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_readparms.F |
841 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') 'EXF_READPARMS: opening data.exf' |
|
./pkg/exf/exf_readparms.F |
842 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
850 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
852 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
855 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
857 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
860 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
862 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
866 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
868 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
875 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
877 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
885 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
887 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
907 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
909 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
946 |
EXF_READPARMS |
WRITE(msgBuf,'(2A)') 'EXF_READPARMS: ', |
|
./pkg/exf/exf_readparms.F |
948 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_readparms.F |
949 |
EXF_READPARMS |
WRITE(msgBuf,'(2A)') 'since SST relax. is handled by EXF', |
|
./pkg/exf/exf_readparms.F |
951 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_readparms.F |
960 |
EXF_READPARMS |
WRITE(msgBuf,'(2A)') 'EXF_READPARMS: ', |
|
./pkg/exf/exf_readparms.F |
962 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_readparms.F |
963 |
EXF_READPARMS |
WRITE(msgBuf,'(2A)') 'since SSS relax. is handled by EXF', |
|
./pkg/exf/exf_readparms.F |
965 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_set_gen.F |
112 |
EXF_SET_GEN |
WRITE(msgBuf,'(A,1PE16.8,2A)') |
|
./pkg/exf/exf_set_gen.F |
115 |
EXF_SET_GEN |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_set_gen.F |
130 |
EXF_SET_GEN |
WRITE(msgBuf,'(3A)') ' EXF_SET_GEN: ', |
|
./pkg/exf/exf_set_gen.F |
132 |
EXF_SET_GEN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_set_gen.F |
134 |
EXF_SET_GEN |
WRITE(msgBuf,'(2A,I10,2I7)') ' EXF_SET_GEN: ', |
|
./pkg/exf/exf_set_gen.F |
136 |
EXF_SET_GEN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_set_gen.F |
138 |
EXF_SET_GEN |
WRITE(msgBuf,'(2A,2(L2,2X),E16.9)') ' EXF_SET_GEN: ', |
|
./pkg/exf/exf_set_gen.F |
140 |
EXF_SET_GEN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_set_gen.F |
154 |
EXF_SET_GEN |
WRITE(msgBuf,'(A,I10,A,I6,2A)') |
|
./pkg/exf/exf_set_gen.F |
157 |
EXF_SET_GEN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_set_gen.F |
192 |
EXF_SET_GEN |
WRITE(msgBuf,'(A,I10,A,I6,2A)') |
|
./pkg/exf/exf_set_gen.F |
195 |
EXF_SET_GEN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_set_gen.F |
303 |
EXF_INIT_GEN |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_set_gen.F |
325 |
EXF_INIT_GEN |
WRITE(msgBuf,'(A,I10,A,I6,2A)') |
|
./pkg/exf/exf_set_gen.F |
328 |
EXF_INIT_GEN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_set_gen.F |
87 |
EXF_SET_GEN |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_set_uv.F |
120 |
EXF_SET_UV |
WRITE(msgBuf,'(A,1PE16.8,2A)') |
|
./pkg/exf/exf_set_uv.F |
123 |
EXF_SET_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_set_uv.F |
138 |
EXF_SET_UV |
WRITE(msgBuf,'(5A)') ' EXF_SET_UV: ', |
|
./pkg/exf/exf_set_uv.F |
140 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_set_uv.F |
142 |
EXF_SET_UV |
WRITE(msgBuf,'(2A,I10,2I7)') ' EXF_SET_UV: ', |
|
./pkg/exf/exf_set_uv.F |
144 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_set_uv.F |
146 |
EXF_SET_UV |
WRITE(msgBuf,'(2A,2(L2,2X),E16.9)') ' EXF_SET_UV: ', |
|
./pkg/exf/exf_set_uv.F |
148 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_set_uv.F |
169 |
EXF_SET_UV |
WRITE(msgBuf,'(A,I10,A,I6,2A)') |
|
./pkg/exf/exf_set_uv.F |
172 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_set_uv.F |
175 |
EXF_SET_UV |
WRITE(msgBuf,'(A,I10,A,I6,2A)') |
|
./pkg/exf/exf_set_uv.F |
178 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_set_uv.F |
295 |
EXF_SET_UV |
WRITE(msgBuf,'(A,I10,A,I6,2A)') |
|
./pkg/exf/exf_set_uv.F |
298 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_set_uv.F |
301 |
EXF_SET_UV |
WRITE(msgBuf,'(A,I10,A,I6,2A)') |
|
./pkg/exf/exf_set_uv.F |
304 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_set_uv.F |
88 |
EXF_SET_UV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_summary.F |
1007 |
EXF_PRINT_INTERP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_summary.F |
1011 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,A,A)') |
|
./pkg/exf/exf_summary.F |
1013 |
EXF_PRINT_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
1016 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,A,A,I3,A)') |
|
./pkg/exf/exf_summary.F |
1018 |
EXF_PRINT_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
1023 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,F10.5,A,I6,A,F10.7)') |
|
./pkg/exf/exf_summary.F |
1027 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,1PE10.3,A,I6,A,1PE10.3)') |
|
./pkg/exf/exf_summary.F |
1031 |
EXF_PRINT_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
1043 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,F10.5,A,I6,A,F10.7)') |
|
./pkg/exf/exf_summary.F |
1047 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,F10.5,A,I6,A,2F8.5)') |
|
./pkg/exf/exf_summary.F |
1053 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,1PE10.3,A,I6,A,1PE10.3)') |
|
./pkg/exf/exf_summary.F |
1057 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,1PE10.3,A,I6,A,1P2E10.3)') |
|
./pkg/exf/exf_summary.F |
1062 |
EXF_PRINT_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
197 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/exf/exf_summary.F |
198 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
203 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' EXF main CPP flags:' |
|
./pkg/exf/exf_summary.F |
204 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
206 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/exf/exf_summary.F |
207 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
211 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_summary.F |
213 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
216 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_summary.F |
218 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
332 |
EXF_SUMMARY |
WRITE(msgBuf,'(2A,L5)') ' Interp. U & V comp. together:', |
|
./pkg/exf/exf_summary.F |
334 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
487 |
EXF_SUMMARY |
WRITE(msgBuf,'(2A,L5)') ' Interp. U & V comp. together:', |
|
./pkg/exf/exf_summary.F |
489 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
87 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' EXF general parameters:' |
|
./pkg/exf/exf_summary.F |
88 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
90 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/exf/exf_summary.F |
91 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/fizhi/fizhi_readparms.F |
100 |
FIZHI_READPARMS |
WRITE(msgBuf,'(A,F12.2)') ' CHANGING END TIME TO',endtime |
|
./pkg/fizhi/fizhi_readparms.F |
101 |
FIZHI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/fizhi/fizhi_readparms.F |
31 |
FIZHI_READPARMS |
character*(MAX_LEN_MBUF) msgBuf |
|
./pkg/fizhi/fizhi_readparms.F |
68 |
FIZHI_READPARMS |
WRITE(msgBuf,'(A)') ' FIZHI_READPARMS: opening data.fizhi' |
|
./pkg/fizhi/fizhi_readparms.F |
69 |
FIZHI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/fizhi/fizhi_readparms.F |
97 |
FIZHI_READPARMS |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/fizhi/fizhi_readparms.F |
99 |
FIZHI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/flt/flt_exch2.F |
162 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCH2:', |
|
./pkg/flt/flt_exch2.F |
166 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exch2.F |
169 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCH2:', |
|
./pkg/flt/flt_exch2.F |
173 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exch2.F |
291 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCH2:', |
|
./pkg/flt/flt_exch2.F |
295 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exch2.F |
298 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCH2:', |
|
./pkg/flt/flt_exch2.F |
302 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exch2.F |
394 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCH2:+E', |
|
./pkg/flt/flt_exch2.F |
398 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exch2.F |
423 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCH2:+W', |
|
./pkg/flt/flt_exch2.F |
427 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exch2.F |
452 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCH2:+N', |
|
./pkg/flt/flt_exch2.F |
456 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exch2.F |
481 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCH2:+S', |
|
./pkg/flt/flt_exch2.F |
485 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exch2.F |
52 |
FLT_EXCH2 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/flt/flt_exchg.F |
166 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCHG:', |
|
./pkg/flt/flt_exchg.F |
170 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
173 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCHG:', |
|
./pkg/flt/flt_exchg.F |
177 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
255 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCHG:+E', |
|
./pkg/flt/flt_exchg.F |
259 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
284 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCHG:+W', |
|
./pkg/flt/flt_exchg.F |
288 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
409 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCHG:', |
|
./pkg/flt/flt_exchg.F |
413 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
416 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCHG:', |
|
./pkg/flt/flt_exchg.F |
420 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
498 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCHG:+N', |
|
./pkg/flt/flt_exchg.F |
502 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
51 |
FLT_EXCHG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/flt/flt_exchg.F |
527 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCHG:+S', |
|
./pkg/flt/flt_exchg.F |
531 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_init_fixed.F |
35 |
FLT_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/flt/flt_init_fixed.F |
62 |
FLT_INIT_FIXED |
WRITE(msgBuf,'(A,2F18.8)') |
|
./pkg/flt/flt_init_fixed.F |
64 |
FLT_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_init_fixed.F |
66 |
FLT_INIT_FIXED |
WRITE(msgBuf,'(A,2F18.8)') |
|
./pkg/flt/flt_init_fixed.F |
68 |
FLT_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_init_fixed.F |
74 |
FLT_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'FLT_INIT_FIXED:', |
|
./pkg/flt/flt_init_fixed.F |
76 |
FLT_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_init_varia.F |
102 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(2A)') |
|
./pkg/flt/flt_init_varia.F |
104 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_init_varia.F |
122 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(A,2I4,A,1P2E15.8)') |
|
./pkg/flt/flt_init_varia.F |
124 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_init_varia.F |
165 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(2A)') 'FLT_INIT_VARIA:', |
|
./pkg/flt/flt_init_varia.F |
167 |
FLT_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/flt/flt_init_varia.F |
180 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(A,2I4,A,1P2E15.8)') |
|
./pkg/flt/flt_init_varia.F |
182 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_init_varia.F |
227 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_INIT_VARIA:', |
|
./pkg/flt/flt_init_varia.F |
231 |
FLT_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/flt/flt_init_varia.F |
242 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(A,2(A,I9))') 'FLT_INIT_VARIA:', |
|
./pkg/flt/flt_init_varia.F |
245 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_init_varia.F |
247 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/flt/flt_init_varia.F |
248 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_init_varia.F |
57 |
FLT_INIT_VARIA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/flt/flt_init_varia.F |
93 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(2A,I3,A)') 'FLT_INIT_VARIA:', |
|
./pkg/flt/flt_init_varia.F |
95 |
FLT_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_init_varia.F |
96 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(2A,I3,A)') 'FLT_INIT_VARIA:', |
|
./pkg/flt/flt_init_varia.F |
98 |
FLT_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_readparms.F |
28 |
FLT_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/flt/flt_readparms.F |
61 |
FLT_READPARMS |
WRITE(msgBuf,'(A)') ' FLT_READPARMS: opening data.flt' |
|
./pkg/flt/flt_readparms.F |
62 |
FLT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_readparms.F |
71 |
FLT_READPARMS |
WRITE(msgBuf,'(A)') ' FLT_READPARMS: finished reading data.flt' |
|
./pkg/flt/flt_readparms.F |
72 |
FLT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_traj.F |
124 |
FLT_TRAJ |
WRITE(msgBuf,'(2A,I8)') '** WARNING ** FLT_TRAJ: ', |
|
./pkg/flt/flt_traj.F |
126 |
FLT_TRAJ |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/flt/flt_traj.F |
128 |
FLT_TRAJ |
WRITE(msgBuf,'(A,1P5E20.13)') |
|
./pkg/flt/flt_traj.F |
130 |
FLT_TRAJ |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/flt/flt_traj.F |
189 |
FLT_TRAJ |
WRITE(msgBuf,'(A,I4,A)') |
|
./pkg/flt/flt_traj.F |
191 |
FLT_TRAJ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_traj.F |
192 |
FLT_TRAJ |
WRITE(msgBuf,'(3A,I4,A)') |
|
./pkg/flt/flt_traj.F |
194 |
FLT_TRAJ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_traj.F |
59 |
FLT_TRAJ |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/flt/flt_traj.F |
75 |
FLT_TRAJ |
WRITE(msgBuf,'(3(A,I4))') ' FLT_TRAJ: fltBufDim=', fltBufDim, |
|
./pkg/flt/flt_traj.F |
77 |
FLT_TRAJ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_traj.F |
78 |
FLT_TRAJ |
WRITE(msgBuf,'(2A)') ' FLT_TRAJ: => increase fltBufDim', |
|
./pkg/flt/flt_traj.F |
80 |
FLT_TRAJ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_up.F |
187 |
FLT_UP |
WRITE(msgBuf,'(A,I4,A)') |
|
./pkg/flt/flt_up.F |
189 |
FLT_UP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_up.F |
190 |
FLT_UP |
WRITE(msgBuf,'(3A,I4,A)') |
|
./pkg/flt/flt_up.F |
192 |
FLT_UP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_up.F |
56 |
FLT_UP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/flt/flt_up.F |
69 |
FLT_UP |
WRITE(msgBuf,'(3(A,I4))') ' FLT_UP: fltBufDim=', fltBufDim, |
|
./pkg/flt/flt_up.F |
71 |
FLT_UP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_up.F |
72 |
FLT_UP |
WRITE(msgBuf,'(2A)') ' FLT_UP: => increase fltBufDim', |
|
./pkg/flt/flt_up.F |
74 |
FLT_UP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_write_pickup.F |
109 |
FLT_WRITE_PICKUP |
WRITE(msgBuf,'(A,F16.2,A)') ' FLT_WRITE_PICKUP:', |
|
./pkg/flt/flt_write_pickup.F |
111 |
FLT_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_write_pickup.F |
42 |
FLT_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/gchem/gchem_check.F |
28 |
GCHEM_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/gchem/gchem_check.F |
32 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'GCHEM_CHECK: #define ALLOW_GCHEM' |
|
./pkg/gchem/gchem_check.F |
33 |
GCHEM_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/gchem/gchem_check.F |
38 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'GCHEM_SEPARATE_FORCING not coded for CFC' |
|
./pkg/gchem/gchem_check.F |
39 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gchem/gchem_check.F |
44 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'GCHEM_SEPARATE_FORCING needed to use DIC' |
|
./pkg/gchem/gchem_check.F |
45 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gchem/gchem_check.F |
49 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'GCHEM_SEPARATE_FORCING needed for DARWIN' |
|
./pkg/gchem/gchem_check.F |
50 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gchem/gchem_check.F |
57 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'usePTRACERS has to be .TRUE. for GCHEM' |
|
./pkg/gchem/gchem_check.F |
58 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gchem/gchem_check.F |
64 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'useDIC and useCFC cannot both be .TRUE.' |
|
./pkg/gchem/gchem_check.F |
65 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gchem/gchem_check.F |
71 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'useDARWIN and useDIC cannot both be .TRUE.' |
|
./pkg/gchem/gchem_check.F |
72 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gchem/gchem_check.F |
78 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'useDARWIN and useCFC cannot both be .TRUE.' |
|
./pkg/gchem/gchem_check.F |
79 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gchem/gchem_readparms.F |
100 |
GCHEM_READPARMS |
WRITE(msgBuf,'(A)') ' GCHEM_READPARMS: opening data.gchem' |
|
./pkg/gchem/gchem_readparms.F |
101 |
GCHEM_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/gchem/gchem_readparms.F |
108 |
GCHEM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/gchem/gchem_readparms.F |
110 |
GCHEM_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/gchem/gchem_readparms.F |
119 |
GCHEM_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/gchem/gchem_readparms.F |
122 |
GCHEM_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/gchem/gchem_readparms.F |
123 |
GCHEM_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/gchem/gchem_readparms.F |
126 |
GCHEM_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/gchem/gchem_readparms.F |
38 |
GCHEM_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/generic_advdiff/gad_advection.F |
157 |
GAD_ADVECTION |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/generic_advdiff/gad_advection.F |
185 |
GAD_ADVECTION |
WRITE(msgBuf,'(A,2I3)') |
|
./pkg/generic_advdiff/gad_advection.F |
188 |
GAD_ADVECTION |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_advscheme.F |
102 |
GAD_ADVSCHEME_SET |
WRITE(msgBuf,'(2A,I6,A)') 'GAD_ADVSCHEME_SET: ', |
|
./pkg/generic_advdiff/gad_advscheme.F |
104 |
GAD_ADVSCHEME_SET |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_advscheme.F |
105 |
GAD_ADVSCHEME_SET |
WRITE(msgBuf,'(2A,I4,A)') 'GAD_ADVSCHEME_SET: ', |
|
./pkg/generic_advdiff/gad_advscheme.F |
107 |
GAD_ADVSCHEME_SET |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_advscheme.F |
94 |
GAD_ADVSCHEME_SET |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/generic_advdiff/gad_check.F |
107 |
GAD_CHECK |
WRITE(msgBuf,'(A,2I3,A)') 'GAD_CHECK: Overlap Size OLx,OLy=', |
|
./pkg/generic_advdiff/gad_check.F |
109 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_check.F |
110 |
GAD_CHECK |
WRITE(msgBuf,'(2A)') 'GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
112 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_check.F |
113 |
GAD_CHECK |
WRITE(msgBuf,'(2A,I3,A,3I2,A)') 'GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
116 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_check.F |
124 |
GAD_CHECK |
WRITE(msgBuf,'(A,I3,A)') 'GAD_CHECK: advection scheme OS7MP ', |
|
./pkg/generic_advdiff/gad_check.F |
127 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_check.F |
37 |
GAD_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/generic_advdiff/gad_check.F |
43 |
GAD_CHECK |
WRITE(msgBuf,'(A)') 'GAD_CHECK: #define ALLOW_GENERIC_ADVDIFF' |
|
./pkg/generic_advdiff/gad_check.F |
44 |
GAD_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/generic_advdiff/gad_check.F |
56 |
GAD_CHECK |
WRITE(msgBuf,'(2A)') 'GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
58 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/generic_advdiff/gad_check.F |
59 |
GAD_CHECK |
WRITE(msgBuf,'(2A)') 'GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
61 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/generic_advdiff/gad_check.F |
71 |
GAD_CHECK |
WRITE(msgBuf,'(2A)') 'GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
73 |
GAD_CHECK |
WRITE(msgBuf,'(2A)') 'GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
75 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/generic_advdiff/gad_check.F |
87 |
GAD_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
89 |
GAD_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/generic_advdiff/gad_check.F |
91 |
GAD_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
93 |
GAD_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/generic_advdiff/gad_init_fixed.F |
101 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(2A,I6)') 'GAD_INIT_FIXED: ', |
|
./pkg/generic_advdiff/gad_init_fixed.F |
103 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
108 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(2A,I6)') 'GAD_INIT_FIXED: ', |
|
./pkg/generic_advdiff/gad_init_fixed.F |
110 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
179 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A,9I3)') |
|
./pkg/generic_advdiff/gad_init_fixed.F |
181 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
199 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
200 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
201 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
202 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
203 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)')'// GAD parameters :' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
204 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
205 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
206 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
251 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
252 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
35 |
GAD_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/generic_advdiff/gad_init_fixed.F |
59 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') |
|
./pkg/generic_advdiff/gad_init_fixed.F |
61 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
87 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(2A,I6)') 'GAD_INIT_FIXED: ', |
|
./pkg/generic_advdiff/gad_init_fixed.F |
89 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
94 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(2A,I6)') 'GAD_INIT_FIXED: ', |
|
./pkg/generic_advdiff/gad_init_fixed.F |
96 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
101 |
GAD_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'GAD_READ_PICKUP: ', |
|
./pkg/generic_advdiff/gad_read_pickup.F |
104 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
107 |
GAD_READ_PICKUP |
WRITE(msgBuf,'(2A)') 'WARNING >> GAD_READ_PICKUP: ', |
|
./pkg/generic_advdiff/gad_read_pickup.F |
109 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
147 |
GAD_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'GAD_READ_PICKUP: ', |
|
./pkg/generic_advdiff/gad_read_pickup.F |
150 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
153 |
GAD_READ_PICKUP |
WRITE(msgBuf,'(2A)') 'WARNING >> GAD_READ_PICKUP: ', |
|
./pkg/generic_advdiff/gad_read_pickup.F |
155 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
42 |
GAD_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/generic_advdiff/gad_som_advect.F |
138 |
GAD_SOM_ADVECT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/generic_advdiff/gad_som_advect.F |
200 |
GAD_SOM_ADVECT |
WRITE(msgBuf,'(2A)') 'S/R GAD_SOM_ADVECT: ', |
|
./pkg/generic_advdiff/gad_som_advect.F |
202 |
GAD_SOM_ADVECT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
206 |
GAD_SOM_ADVECT |
WRITE(msgBuf,'(2A)') 'S/R GAD_SOM_ADVECT: ', |
|
./pkg/generic_advdiff/gad_som_advect.F |
208 |
GAD_SOM_ADVECT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_write_pickup.F |
54 |
GAD_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/generic_advdiff/gad_write_pickup.F |
61 |
GAD_WRITE_PICKUP |
WRITE(msgBuf,'(A)') 'GAD_WRITE_PICKUP: MNC not yet coded', |
|
./pkg/generic_advdiff/gad_write_pickup.F |
63 |
GAD_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ggl90/ggl90_check.F |
27 |
GGL90_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ggl90/ggl90_check.F |
29 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') 'GGL90_CHECK: #define ALLOW_GGL90' |
|
./pkg/ggl90/ggl90_check.F |
30 |
GGL90_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_check.F |
35 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
37 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
43 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
45 |
GGL90_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ggl90/ggl90_check.F |
52 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
54 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
60 |
GGL90_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/ggl90/ggl90_check.F |
63 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
69 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
71 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
76 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
78 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
83 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
85 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
91 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
93 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
97 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
99 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_readparms.F |
100 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
102 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
103 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
105 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
106 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
108 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
109 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
111 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
118 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
120 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
128 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
130 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
134 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
136 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
140 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
142 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
146 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') 'GGL90viscMax must be greater than zero' |
|
./pkg/ggl90/ggl90_readparms.F |
147 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
151 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') 'GGL90diffMax must be greater than zero' |
|
./pkg/ggl90/ggl90_readparms.F |
152 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
157 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
159 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
161 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') '// GGL90 configuration' |
|
./pkg/ggl90/ggl90_readparms.F |
162 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
164 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
166 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
209 |
GGL90_READPARMS |
WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL) |
|
./pkg/ggl90/ggl90_readparms.F |
210 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
213 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
215 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
217 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') '// End of GGL90 config. summary' |
|
./pkg/ggl90/ggl90_readparms.F |
218 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
220 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
222 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
224 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/ggl90/ggl90_readparms.F |
225 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
34 |
GGL90_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ggl90/ggl90_readparms.F |
61 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') ' GGL90_READPARMS: opening data.ggl90' |
|
./pkg/ggl90/ggl90_readparms.F |
62 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/gmredi/gmredi_calc_eigs.F |
184 |
GMREDI_CALC_EIGS |
WRITE(msgBuf,'(A,x,2(A1,I2),A1,x,A,I4)') |
|
./pkg/gmredi/gmredi_calc_eigs.F |
187 |
GMREDI_CALC_EIGS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
190 |
GMREDI_CALC_EIGS |
WRITE(msgBuf,'(A,x,2(A1,I2),A1,x,A,I4)') |
|
./pkg/gmredi/gmredi_calc_eigs.F |
193 |
GMREDI_CALC_EIGS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
96 |
GMREDI_CALC_EIGS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
165 |
GMREDI_CALC_PSI_BVP |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
167 |
GMREDI_CALC_PSI_BVP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
236 |
GMREDI_CALC_PSI_BVP |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
238 |
GMREDI_CALC_PSI_BVP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
64 |
GMREDI_CALC_PSI_BVP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/gmredi/gmredi_check.F |
126 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') 'GM/Redi needs implicitDiffusion=.true.' |
|
./pkg/gmredi/gmredi_check.F |
127 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gmredi/gmredi_check.F |
134 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
136 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
137 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
139 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
147 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
149 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
150 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
152 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
159 |
GMREDI_CHECK |
WRITE(msgBuf, '(A)') |
|
./pkg/gmredi/gmredi_check.F |
161 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
196 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
198 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
199 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
201 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
209 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
211 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
212 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
214 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
224 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
226 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
227 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
229 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
237 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
239 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
240 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
242 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
249 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A)') ' GMREDI_CHECK: ', |
|
./pkg/gmredi/gmredi_check.F |
251 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
252 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A)') ' GMREDI_CHECK: ', |
|
./pkg/gmredi/gmredi_check.F |
254 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
260 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A)') ' GMREDI_CHECK: ', |
|
./pkg/gmredi/gmredi_check.F |
262 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
269 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A)') ' GMREDI_CHECK: ', |
|
./pkg/gmredi/gmredi_check.F |
271 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
275 |
GMREDI_CHECK |
WRITE(msgBuf,'(3A)') |
|
./pkg/gmredi/gmredi_check.F |
281 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/gmredi/gmredi_check.F |
284 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
289 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
291 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
302 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A,I3,A,L5)') ' GMREDI_CHECK:', |
|
./pkg/gmredi/gmredi_check.F |
304 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
308 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A)') ' GMREDI_CHECK:', |
|
./pkg/gmredi/gmredi_check.F |
310 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
327 |
GMREDI_CHECK |
WRITE(msgBuf,'(A,9I3)') |
|
./pkg/gmredi/gmredi_check.F |
329 |
GMREDI_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/gmredi/gmredi_check.F |
47 |
GMREDI_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/gmredi/gmredi_check.F |
56 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') 'GMREDI_CHECK: #define GMREDI' |
|
./pkg/gmredi/gmredi_check.F |
57 |
GMREDI_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/gmredi/gmredi_read_pickup.F |
102 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/gmredi/gmredi_read_pickup.F |
104 |
GMREDI_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
113 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'GMREDI_READ_PICKUP: ', |
|
./pkg/gmredi/gmredi_read_pickup.F |
115 |
GMREDI_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
207 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'GMREDI_READ_PICKUP: ', |
|
./pkg/gmredi/gmredi_read_pickup.F |
209 |
GMREDI_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
216 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'GMREDI_READ_PICKUP: ', |
|
./pkg/gmredi/gmredi_read_pickup.F |
218 |
GMREDI_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
50 |
GMREDI_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/gmredi/gmredi_read_pickup.F |
71 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'GMREDI_READ_PICKUP: ', |
|
./pkg/gmredi/gmredi_read_pickup.F |
73 |
GMREDI_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
74 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'GMREDI_READ_PICKUP: ', |
|
./pkg/gmredi/gmredi_read_pickup.F |
76 |
GMREDI_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
86 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'GMREDI_READ_PICKUP: ', |
|
./pkg/gmredi/gmredi_read_pickup.F |
89 |
GMREDI_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
90 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'GMREDI_READ_PICKUP: ', |
|
./pkg/gmredi/gmredi_read_pickup.F |
93 |
GMREDI_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/gmredi/gmredi_read_pickup.F |
97 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> GMREDI_READ_PICKUP: ', |
|
./pkg/gmredi/gmredi_read_pickup.F |
99 |
GMREDI_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/gmredi/gmredi_readparms.F |
164 |
GMREDI_READPARMS |
WRITE(msgBuf,'(A)') ' GM_READPARMS: opening data.gmredi' |
|
./pkg/gmredi/gmredi_readparms.F |
165 |
GMREDI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/gmredi/gmredi_readparms.F |
174 |
GMREDI_READPARMS |
WRITE(msgBuf,'(A)') ' GM_READPARMS: finished reading data.gmredi' |
|
./pkg/gmredi/gmredi_readparms.F |
175 |
GMREDI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/gmredi/gmredi_readparms.F |
39 |
GMREDI_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/gmredi/gmredi_write_pickup.F |
151 |
GMREDI_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'GMREDI_WRITE_PICKUP: ', |
|
./pkg/gmredi/gmredi_write_pickup.F |
153 |
GMREDI_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_write_pickup.F |
154 |
GMREDI_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'GMREDI_WRITE_PICKUP: ', |
|
./pkg/gmredi/gmredi_write_pickup.F |
156 |
GMREDI_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_write_pickup.F |
61 |
GMREDI_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/grdchk/grdchk_check.F |
39 |
GRDCHK_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/grdchk/grdchk_check.F |
43 |
GRDCHK_CHECK |
WRITE(msgBuf,'(A)') 'GRDCHK_CHECK: grdchk package' |
|
./pkg/grdchk/grdchk_check.F |
44 |
GRDCHK_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/grdchk/grdchk_check.F |
48 |
GRDCHK_CHECK |
WRITE(msgBuf,'(A,I4)') |
|
./pkg/grdchk/grdchk_check.F |
51 |
GRDCHK_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
105 |
GRDCHK_MAIN |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/grdchk/grdchk_main.F |
138 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A)') |
|
./pkg/grdchk/grdchk_main.F |
140 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
141 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A)') '// Gradient-check starts (grdchk_main)' |
|
./pkg/grdchk/grdchk_main.F |
142 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
143 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A)') |
|
./pkg/grdchk/grdchk_main.F |
145 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
173 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A,1PE22.14)') |
|
./pkg/grdchk/grdchk_main.F |
175 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
224 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A,I4,A)') |
|
./pkg/grdchk/grdchk_main.F |
227 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
252 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A,3I5,A,2I4,A,I3,A,I4)') |
|
./pkg/grdchk/grdchk_main.F |
256 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
345 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A,1PE22.14)') |
|
./pkg/grdchk/grdchk_main.F |
347 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
384 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A,1PE22.14)') |
|
./pkg/grdchk/grdchk_main.F |
386 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
473 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A30,1PE22.14)') |
|
./pkg/grdchk/grdchk_main.F |
475 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
476 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A30,1PE22.14)') |
|
./pkg/grdchk/grdchk_main.F |
478 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
479 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A30,1PE22.14)') |
|
./pkg/grdchk/grdchk_main.F |
481 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
483 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A30,1PE22.14)') |
|
./pkg/grdchk/grdchk_main.F |
485 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
486 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A30,1PE22.14)') |
|
./pkg/grdchk/grdchk_main.F |
488 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
489 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A30,1PE22.14)') |
|
./pkg/grdchk/grdchk_main.F |
491 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
494 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A,I4,A,I3,A)') |
|
./pkg/grdchk/grdchk_main.F |
497 |
GRDCHK_MAIN |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/grdchk/grdchk_readparms.F |
124 |
GRDCHK_READPARMS |
WRITE(msgBuf,'(A)') 'GRDCHK_READPARMS: opening data.grdchk' |
|
./pkg/grdchk/grdchk_readparms.F |
125 |
GRDCHK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/grdchk/grdchk_readparms.F |
135 |
GRDCHK_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/grdchk/grdchk_readparms.F |
137 |
GRDCHK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/grdchk/grdchk_readparms.F |
143 |
GRDCHK_READPARMS |
WRITE(msgBuf,'(A)') 'i/j GloPos must be <= sNx/y' |
|
./pkg/grdchk/grdchk_readparms.F |
144 |
GRDCHK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/grdchk/grdchk_readparms.F |
148 |
GRDCHK_READPARMS |
WRITE(msgBuf,'(A)') 'i/j GloTile must be <= nSx*nPx/y' |
|
./pkg/grdchk/grdchk_readparms.F |
149 |
GRDCHK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/grdchk/grdchk_readparms.F |
153 |
GRDCHK_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R GRDCHK_READPARMS: ', |
|
./pkg/grdchk/grdchk_readparms.F |
155 |
GRDCHK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/icefront/icefront_check.F |
27 |
ICEFRONT_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/icefront/icefront_check.F |
31 |
ICEFRONT_CHECK |
WRITE(msgBuf,'(A)') 'ICEFRONT_CHECK: #define ALLOW_ICEFRONT' |
|
./pkg/icefront/icefront_check.F |
32 |
ICEFRONT_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/icefront/icefront_check.F |
37 |
ICEFRONT_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/icefront/icefront_check.F |
39 |
ICEFRONT_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/icefront/icefront_readparms.F |
102 |
ICEFRONT_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/icefront/icefront_readparms.F |
104 |
ICEFRONT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/icefront/icefront_readparms.F |
38 |
ICEFRONT_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/icefront/icefront_readparms.F |
94 |
ICEFRONT_READPARMS |
WRITE(msgBuf,'(A)') ' ICEFRONT_READPARMS: opening data.icefront' |
|
./pkg/icefront/icefront_readparms.F |
95 |
ICEFRONT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/kl10/kl10_check.F |
27 |
KL10_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/kl10/kl10_check.F |
29 |
KL10_CHECK |
WRITE(msgBuf,'(A)') 'KL10_CHECK: #define ALLOW_KL10' |
|
./pkg/kl10/kl10_check.F |
30 |
KL10_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/kl10/kl10_check.F |
35 |
KL10_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/kl10/kl10_check.F |
37 |
KL10_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/kl10/kl10_check.F |
44 |
KL10_CHECK |
WRITE(msgBuf,'(A)') 'Some form of convection has been enabled' |
|
./pkg/kl10/kl10_check.F |
45 |
KL10_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/kl10/kl10_check.F |
60 |
KL10_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/kl10/kl10_check.F |
62 |
KL10_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/kl10/kl10_check.F |
66 |
KL10_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/kl10/kl10_check.F |
68 |
KL10_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/kl10/kl10_readparms.F |
35 |
KL10_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/kl10/kl10_readparms.F |
68 |
KL10_READPARMS |
WRITE(msgBuf,'(A)') ' KL10_READPARMS: opening data.kl10' |
|
./pkg/kl10/kl10_readparms.F |
69 |
KL10_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/kl10/kl10_readparms.F |
76 |
KL10_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/kl10/kl10_readparms.F |
78 |
KL10_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/kl10/kl10_readparms.F |
90 |
KL10_READPARMS |
WRITE(msgBuf,'(A)') 'KLviscMax must be greater than zero' |
|
./pkg/kl10/kl10_readparms.F |
91 |
KL10_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/kpp/kpp_check.F |
28 |
KPP_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/kpp/kpp_check.F |
32 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP_CHECK: #define ALLOW_KPP' |
|
./pkg/kpp/kpp_check.F |
33 |
KPP_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/kpp/kpp_check.F |
39 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'Some form of convection has been enabled' |
|
./pkg/kpp/kpp_check.F |
40 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/kpp/kpp_check.F |
46 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP needs implicitDiffusion to be enabled' |
|
./pkg/kpp/kpp_check.F |
47 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/kpp/kpp_check.F |
51 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP needs implicitViscosity to be enabled' |
|
./pkg/kpp/kpp_check.F |
52 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/kpp/kpp_check.F |
58 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP needs CPP flag SHORTWAVE_HEATING enabled' |
|
./pkg/kpp/kpp_check.F |
59 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/kpp/kpp_check.F |
79 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP horizontal smoothing requires OLx=OLy=4' |
|
./pkg/kpp/kpp_check.F |
80 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/kpp/kpp_check.F |
88 |
KPP_CHECK |
WRITE(msgBuf,'(A,A)') 'KPPuseDoubleDiff=.TRUE. requires ', |
|
./pkg/kpp/kpp_check.F |
90 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/kpp/kpp_readparms.F |
153 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/kpp/kpp_readparms.F |
155 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/kpp/kpp_readparms.F |
156 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/kpp/kpp_readparms.F |
158 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/kpp/kpp_readparms.F |
159 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/kpp/kpp_readparms.F |
161 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/kpp/kpp_readparms.F |
162 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/kpp/kpp_readparms.F |
164 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/kpp/kpp_readparms.F |
171 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') ' KPP_INIT: finished reading data.kpp' |
|
./pkg/kpp/kpp_readparms.F |
172 |
KPP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/kpp/kpp_readparms.F |
31 |
KPP_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/kpp/kpp_readparms.F |
66 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') ' KPP_INIT: opening data.kpp' |
|
./pkg/kpp/kpp_readparms.F |
67 |
KPP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/land/land_check.F |
103 |
LAND_CHECK |
WRITE(msgBuf,'(A,A)') 'land_snow_iniFile= ', |
|
./pkg/land/land_check.F |
105 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_check.F |
106 |
LAND_CHECK |
WRITE(msgBuf,'(16X,A)') land_grW_iniFile(1:iL) |
|
./pkg/land/land_check.F |
107 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_check.F |
108 |
LAND_CHECK |
msgBuf=' ;' |
|
./pkg/land/land_check.F |
109 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_check.F |
181 |
LAND_CHECK |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/land/land_check.F |
182 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_check.F |
189 |
LAND_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/land/land_check.F |
191 |
LAND_CHECK |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_check.F |
192 |
LAND_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/land/land_check.F |
194 |
LAND_CHECK |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_check.F |
199 |
LAND_CHECK |
WRITE(msgBuf,'(2A,I3)') 'LAND_CHECK: ', |
|
./pkg/land/land_check.F |
201 |
LAND_CHECK |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_check.F |
202 |
LAND_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/land/land_check.F |
204 |
LAND_CHECK |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_check.F |
211 |
LAND_CHECK |
WRITE(msgBuf,'(2A)') 'LAND_CHECK:', |
|
./pkg/land/land_check.F |
213 |
LAND_CHECK |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_check.F |
214 |
LAND_CHECK |
WRITE(msgBuf,'(2A)') 'Re-compile setting: ', |
|
./pkg/land/land_check.F |
216 |
LAND_CHECK |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_check.F |
224 |
LAND_CHECK |
WRITE(msgBuf,'(2A)') 'LAND_CHECK:', |
|
./pkg/land/land_check.F |
226 |
LAND_CHECK |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_check.F |
227 |
LAND_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/land/land_check.F |
229 |
LAND_CHECK |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_check.F |
45 |
LAND_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/land/land_check.F |
54 |
LAND_CHECK |
WRITE(msgBuf,'(A)') 'LAND_CHECK: #define ALLOW_LAND' |
|
./pkg/land/land_check.F |
55 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_check.F |
58 |
LAND_CHECK |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/land/land_check.F |
59 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_check.F |
60 |
LAND_CHECK |
WRITE(msgBuf,'(A)') '// Land package parameters :' |
|
./pkg/land/land_check.F |
61 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_check.F |
62 |
LAND_CHECK |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/land/land_check.F |
63 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_check.F |
83 |
LAND_CHECK |
WRITE(msgBuf,'(A,A)') 'land_grT_iniFile = ', |
|
./pkg/land/land_check.F |
85 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_check.F |
86 |
LAND_CHECK |
WRITE(msgBuf,'(16X,A)') land_grT_iniFile(1:iL) |
|
./pkg/land/land_check.F |
87 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_check.F |
88 |
LAND_CHECK |
msgBuf=' ;' |
|
./pkg/land/land_check.F |
89 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_check.F |
93 |
LAND_CHECK |
WRITE(msgBuf,'(A,A)') 'land_grW_iniFile = ', |
|
./pkg/land/land_check.F |
95 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_check.F |
96 |
LAND_CHECK |
WRITE(msgBuf,'(16X,A)') land_grW_iniFile(1:iL) |
|
./pkg/land/land_check.F |
97 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_check.F |
98 |
LAND_CHECK |
msgBuf=' ;' |
|
./pkg/land/land_check.F |
99 |
LAND_CHECK |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_impl_temp.F |
194 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,2I4,2I3,I10)') |
|
./pkg/land/land_impl_temp.F |
197 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
199 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,1P4E12.4)') |
|
./pkg/land/land_impl_temp.F |
203 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
205 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,1P4E12.4)') |
|
./pkg/land/land_impl_temp.F |
208 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
210 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,1P4E14.6)') |
|
./pkg/land/land_impl_temp.F |
212 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
247 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,2I4,2I3,I10)') |
|
./pkg/land/land_impl_temp.F |
250 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
252 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,4F11.6)') |
|
./pkg/land/land_impl_temp.F |
256 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
258 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,4F12.7)') |
|
./pkg/land/land_impl_temp.F |
261 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
263 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,1P4E14.6)') |
|
./pkg/land/land_impl_temp.F |
265 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
267 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A)') |
|
./pkg/land/land_impl_temp.F |
269 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
91 |
LAND_IMPL_TEMP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/land/land_monitor.F |
111 |
LAND_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/land/land_monitor.F |
113 |
LAND_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/land/land_monitor.F |
114 |
LAND_MONITOR |
WRITE(msgBuf,'(A)') '// Begin MONITOR Land statistics' |
|
./pkg/land/land_monitor.F |
115 |
LAND_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/land/land_monitor.F |
116 |
LAND_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/land/land_monitor.F |
118 |
LAND_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/land/land_monitor.F |
158 |
LAND_MONITOR |
WRITE(msgBuf,'(A,1PE16.9,A,0P9F7.2)') '%MON LAND : Area=', |
|
./pkg/land/land_monitor.F |
160 |
LAND_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/land/land_monitor.F |
161 |
LAND_MONITOR |
WRITE(msgBuf,'(A,1P9E16.9)') '%MON LAND : LatA=', |
|
./pkg/land/land_monitor.F |
163 |
LAND_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/land/land_monitor.F |
304 |
LAND_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/land/land_monitor.F |
306 |
LAND_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/land/land_monitor.F |
307 |
LAND_MONITOR |
WRITE(msgBuf,'(A)') '// End MONITOR Land statistics' |
|
./pkg/land/land_monitor.F |
308 |
LAND_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/land/land_monitor.F |
309 |
LAND_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/land/land_monitor.F |
311 |
LAND_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/land/land_monitor.F |
66 |
LAND_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/land/land_output.F |
261 |
LAND_OUTPUT |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/land/land_output.F |
263 |
LAND_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/land/land_output.F |
265 |
LAND_OUTPUT |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/land/land_output.F |
266 |
LAND_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/land/land_output.F |
53 |
LAND_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/land/land_readparms.F |
168 |
LAND_READPARMS |
WRITE(msgBuf,'(A)') ' LAND_READPARMS: opening data.land' |
|
./pkg/land/land_readparms.F |
169 |
LAND_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/land/land_readparms.F |
183 |
LAND_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/land/land_readparms.F |
185 |
LAND_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/land/land_readparms.F |
42 |
LAND_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/calc_3d_diffusivity.F |
154 |
CALC_3D_DIFFUSIVITY |
WRITE(msgBuf,'(A,I4)') |
|
./model/src/calc_3d_diffusivity.F |
156 |
CALC_3D_DIFFUSIVITY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./model/src/calc_3d_diffusivity.F |
185 |
CALC_3D_DIFFUSIVITY |
WRITE(msgBuf,'(A,I4)') |
|
./model/src/calc_3d_diffusivity.F |
187 |
CALC_3D_DIFFUSIVITY |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/calc_3d_diffusivity.F |
72 |
CALC_3D_DIFFUSIVITY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_check.F |
25 |
LAYERS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_check.F |
32 |
LAYERS_CHECK |
WRITE(msgBuf,'(A)') 'LAYERS_CHECK: #define LAYERS' |
|
./pkg/layers/layers_check.F |
33 |
LAYERS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/layers/layers_fluxcalc.F |
177 |
LAYERS_FLUXCALC |
WRITE(msgBuf,'(2A,I3,A,I3,A,1E14.6)') |
|
./pkg/layers/layers_fluxcalc.F |
180 |
LAYERS_FLUXCALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_fluxcalc.F |
256 |
LAYERS_FLUXCALC |
WRITE(msgBuf,'(2A,I3,A,I3,A,1E14.6)') |
|
./pkg/layers/layers_fluxcalc.F |
259 |
LAYERS_FLUXCALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_fluxcalc.F |
412 |
LAYERS_DIAPYCNAL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_fluxcalc.F |
473 |
LAYERS_DIAPYCNAL |
WRITE(msgBuf,'(2A,I3,A,I3,A,1E14.6)') |
|
./pkg/layers/layers_fluxcalc.F |
476 |
LAYERS_DIAPYCNAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_fluxcalc.F |
99 |
LAYERS_FLUXCALC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_init_fixed.F |
115 |
LAYERS_INIT_FIXED |
WRITE(msgBuf,'(A,I4,A,I4,A,1E14.6,A,2E14.6)') |
|
./pkg/layers/layers_init_fixed.F |
118 |
LAYERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_init_fixed.F |
134 |
LAYERS_INIT_FIXED |
WRITE(msgBuf,'(A,1F6.1,A,I3,A,I3,A,I3,A,1F6.4,A,I3,A,I3)') |
|
./pkg/layers/layers_init_fixed.F |
139 |
LAYERS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/layers/layers_init_fixed.F |
41 |
LAYERS_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_readparms.F |
137 |
LAYERS_READPARMS |
WRITE(msgBuf,'(2A,I4)') |
|
./pkg/layers/layers_readparms.F |
140 |
LAYERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_readparms.F |
147 |
LAYERS_READPARMS |
WRITE(msgBuf,'(2A,I4)') |
|
./pkg/layers/layers_readparms.F |
150 |
LAYERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_readparms.F |
27 |
LAYERS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_readparms.F |
72 |
LAYERS_READPARMS |
WRITE(msgBuf,'(A)') 'LAYERS_READPARMS: opening data.layers' |
|
./pkg/layers/layers_readparms.F |
73 |
LAYERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/layers/layers_readparms.F |
82 |
LAYERS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/layers/layers_readparms.F |
84 |
LAYERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/layers/layers_save.F |
111 |
LAYERS_FILL_SURFACE_FLUX |
WRITE(msgBuf,'(2A)') |
|
./pkg/layers/layers_save.F |
114 |
LAYERS_FILL_SURFACE_FLUX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_save.F |
151 |
LAYERS_FILL_DFX |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_save.F |
170 |
LAYERS_FILL_DFX |
WRITE(msgBuf,'(2A)') |
|
./pkg/layers/layers_save.F |
173 |
LAYERS_FILL_DFX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_save.F |
208 |
LAYERS_FILL_DFY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_save.F |
227 |
LAYERS_FILL_DFY |
WRITE(msgBuf,'(2A)') |
|
./pkg/layers/layers_save.F |
230 |
LAYERS_FILL_DFY |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_save.F |
267 |
LAYERS_FILL_DFR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_save.F |
286 |
LAYERS_FILL_DFR |
WRITE(msgBuf,'(2A)') |
|
./pkg/layers/layers_save.F |
289 |
LAYERS_FILL_DFR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_save.F |
78 |
LAYERS_FILL_SURFACE_FLUX |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/longstep/longstep_check_iters.F |
34 |
LONGSTEP_CHECK_ITERS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/longstep/longstep_check_iters.F |
39 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A,2I10)') |
|
./pkg/longstep/longstep_check_iters.F |
42 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/longstep/longstep_check_iters.F |
49 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(3A)') '**WARNING** ', |
|
./pkg/longstep/longstep_check_iters.F |
52 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/longstep/longstep_check_iters.F |
54 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A,2I10)') '**WARNING** ', |
|
./pkg/longstep/longstep_check_iters.F |
56 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/longstep/longstep_check_iters.F |
62 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A)') '**WARNING** ', |
|
./pkg/longstep/longstep_check_iters.F |
64 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/longstep/longstep_check_iters.F |
66 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A,I10)') '**WARNING** ', |
|
./pkg/longstep/longstep_check_iters.F |
68 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/longstep/longstep_check_iters.F |
70 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A,I10)') '**WARNING** ', |
|
./pkg/longstep/longstep_check_iters.F |
72 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/longstep/longstep_check_iters.F |
74 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A,1PE23.15)') '**WARNING** ', |
|
./pkg/longstep/longstep_check_iters.F |
76 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/longstep/longstep_check_iters.F |
79 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A)') 'S/R LONGSTEP_CHECK_ITERS: ', |
|
./pkg/longstep/longstep_check_iters.F |
81 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/longstep/longstep_init_fixed.F |
29 |
LONGSTEP_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/longstep/longstep_init_fixed.F |
38 |
LONGSTEP_INIT_FIXED |
WRITE(msgBuf,'(2A)') |
|
./pkg/longstep/longstep_init_fixed.F |
41 |
LONGSTEP_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/longstep/longstep_init_fixed.F |
42 |
LONGSTEP_INIT_FIXED |
WRITE(msgBuf,'(2A)') |
|
./pkg/longstep/longstep_init_fixed.F |
45 |
LONGSTEP_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/longstep/longstep_readparms.F |
101 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') ' -----------------------------------' |
|
./pkg/longstep/longstep_readparms.F |
102 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/longstep/longstep_readparms.F |
33 |
LONGSTEP_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/longstep/longstep_readparms.F |
68 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') ' LONGSTEP_READPARMS: opening data.longstep' |
|
./pkg/longstep/longstep_readparms.F |
69 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/longstep/longstep_readparms.F |
76 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/longstep/longstep_readparms.F |
78 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/longstep/longstep_readparms.F |
89 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/longstep/longstep_readparms.F |
90 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/longstep/longstep_readparms.F |
91 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') '// longstep parameters ' |
|
./pkg/longstep/longstep_readparms.F |
92 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/longstep/longstep_readparms.F |
93 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/longstep/longstep_readparms.F |
94 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/matrix/matrix_readparms.F |
32 |
MATRIX_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/matrix/matrix_readparms.F |
53 |
MATRIX_READPARMS |
WRITE(msgBuf,'(A)') ' MATRIX_READPARMS: opening data.matrix' |
|
./pkg/matrix/matrix_readparms.F |
54 |
MATRIX_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/matrix/matrix_readparms.F |
61 |
MATRIX_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/matrix/matrix_readparms.F |
63 |
MATRIX_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/matrix/matrix_write_tendency.F |
119 |
MATRIX_WRITE_TENDENCY |
WRITE(msgBuf,'(A,I4,2I6)') 'Writing implicit matrix :', |
|
./pkg/matrix/matrix_write_tendency.F |
121 |
MATRIX_WRITE_TENDENCY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/matrix/matrix_write_tendency.F |
31 |
MATRIX_WRITE_TENDENCY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/matrix/matrix_write_tendency.F |
60 |
MATRIX_WRITE_TENDENCY |
WRITE(msgBuf,'(A,I4,2I6)') 'Writing explicit matrix :', |
|
./pkg/matrix/matrix_write_tendency.F |
62 |
MATRIX_WRITE_TENDENCY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_check4file.F |
127 |
MDS_CHECK4FILE |
WRITE(msgBuf,'(7A)') msgPfx(1:iL), ': file: ', |
|
./pkg/mdsio/mdsio_check4file.F |
129 |
MDS_CHECK4FILE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/mdsio/mdsio_check4file.F |
130 |
MDS_CHECK4FILE |
WRITE(msgBuf,'(2A)') msgPfx(1:iL), ': Files DO not exist' |
|
./pkg/mdsio/mdsio_check4file.F |
131 |
MDS_CHECK4FILE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/mdsio/mdsio_check4file.F |
53 |
MDS_CHECK4FILE |
CHARACTER*(MAX_LEN_MBUF) msgBuf, msgPfx |
|
./pkg/mdsio/mdsio_check4file.F |
69 |
MDS_CHECK4FILE |
WRITE(msgBuf,'(A,I6,A,I6)') |
|
./pkg/mdsio/mdsio_check4file.F |
72 |
MDS_CHECK4FILE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_facef_read.F |
108 |
MDS_FACEF_READ_RS |
WRITE(msgBuf,'(A,I8,A)') ' MDS_FACEF_READ_RS:', |
|
./pkg/mdsio/mdsio_facef_read.F |
110 |
MDS_FACEF_READ_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_facef_read.F |
142 |
MDS_FACEF_READ_RS |
WRITE(msgBuf,'(A,I8,A)') ' MDS_FACEF_READ_RS:', |
|
./pkg/mdsio/mdsio_facef_read.F |
144 |
MDS_FACEF_READ_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_facef_read.F |
58 |
MDS_FACEF_READ_RS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/calc_grad_phi_hyd.F |
116 |
CALC_GRAD_PHI_HYD |
WRITE(msgBuf,'(3A)') 'CALC_GRAD_PHI_HYD: ', |
|
./model/src/calc_grad_phi_hyd.F |
119 |
CALC_GRAD_PHI_HYD |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/calc_grad_phi_hyd.F |
64 |
CALC_GRAD_PHI_HYD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
46 |
MDS_RD_REC_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
51 |
MDS_RD_REC_RL |
WRITE(msgBuf,'(A,I9,2x,I9)') |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
53 |
MDS_RD_REC_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
74 |
MDS_RD_REC_RL |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
76 |
MDS_RD_REC_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
46 |
MDS_RD_REC_RS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
51 |
MDS_RD_REC_RS |
WRITE(msgBuf,'(A,I9,2x,I9)') |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
53 |
MDS_RD_REC_RS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
74 |
MDS_RD_REC_RS |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
76 |
MDS_RD_REC_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
104 |
MDS_READ_FIELD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_read_field.F |
148 |
MDS_READ_FIELD |
WRITE(msgBuf,'(2A,2(I4,A))') 'MDS_READ_FIELD: ', |
|
./pkg/mdsio/mdsio_read_field.F |
150 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
155 |
MDS_READ_FIELD |
WRITE(msgBuf,'(2A,2(I4,A))') 'MDS_READ_FIELD: ', |
|
./pkg/mdsio/mdsio_read_field.F |
157 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
165 |
MDS_READ_FIELD |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_read_field.F |
167 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
169 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_read_field.F |
171 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
173 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
175 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
181 |
MDS_READ_FIELD |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_read_field.F |
183 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
185 |
MDS_READ_FIELD |
WRITE(msgBuf,'(3(A,I6))') |
|
./pkg/mdsio/mdsio_read_field.F |
188 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
190 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
192 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
198 |
MDS_READ_FIELD |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_read_field.F |
200 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
202 |
MDS_READ_FIELD |
WRITE(msgBuf,'(3(A,I6))') |
|
./pkg/mdsio/mdsio_read_field.F |
205 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
207 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
209 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
210 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
212 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
237 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_field.F |
239 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
251 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_field.F |
253 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
276 |
MDS_READ_FIELD |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_read_field.F |
278 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
280 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
281 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
283 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
285 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
329 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
331 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
350 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
352 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
357 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
359 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
462 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_field.F |
464 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
473 |
MDS_READ_FIELD |
WRITE(msgBuf,'(4A)') ' MDS_READ_FIELD: filename: ', |
|
./pkg/mdsio/mdsio_read_field.F |
475 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
477 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
478 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
480 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
482 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
537 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
539 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
551 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
553 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
558 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
560 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
172 |
MDS_READ_META |
WRITE(msgBuf,'(4A)') 'WARNING >> MDS_READ_META: file: ', |
|
./pkg/mdsio/mdsio_read_meta.F |
175 |
MDS_READ_META |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_meta.F |
177 |
MDS_READ_META |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_meta.F |
179 |
MDS_READ_META |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_meta.F |
186 |
MDS_READ_META |
WRITE(msgBuf,'(2A)') ' MDS_READ_META: opening file: ', |
|
./pkg/mdsio/mdsio_read_meta.F |
188 |
MDS_READ_META |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_meta.F |
200 |
MDS_READ_META |
WRITE(msgBuf,'(A,A)') 'MDS_READ_META: Unable to open file: ', |
|
./pkg/mdsio/mdsio_read_meta.F |
202 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
227 |
MDS_READ_META |
WRITE(msgBuf,'(2(A,I3),A)') ' MDS_READ_META: nDims=', |
|
./pkg/mdsio/mdsio_read_meta.F |
229 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
280 |
MDS_READ_META |
WRITE(msgBuf,'(A)') ' MDS_READ_META: invalid dataprec' |
|
./pkg/mdsio/mdsio_read_meta.F |
281 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
295 |
MDS_READ_META |
WRITE(msgBuf,'(A)') ' MDS_READ_META: invalid dataprec' |
|
./pkg/mdsio/mdsio_read_meta.F |
296 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
325 |
MDS_READ_META |
WRITE(msgBuf,'(2(A,I6),A)') ' MDS_READ_META: nTimRec=', |
|
./pkg/mdsio/mdsio_read_meta.F |
327 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
359 |
MDS_READ_META |
WRITE(msgBuf,'(2(A,I6),A)') ' MDS_READ_META: nFlds=', |
|
./pkg/mdsio/mdsio_read_meta.F |
361 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
381 |
MDS_READ_META |
WRITE(msgBuf,'(2(A,I4),A)') |
|
./pkg/mdsio/mdsio_read_meta.F |
384 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
387 |
MDS_READ_META |
WRITE(msgBuf,'(2(A,I4),A)') |
|
./pkg/mdsio/mdsio_read_meta.F |
390 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
394 |
MDS_READ_META |
WRITE(msgBuf,'(3(A,I3),A)') |
|
./pkg/mdsio/mdsio_read_meta.F |
397 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
94 |
MDS_READ_META |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_read_section.F |
101 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_read_section.F |
103 |
MDS_READ_SEC_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
105 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
107 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
133 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
135 |
MDS_READ_SEC_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
147 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
149 |
MDS_READ_SEC_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
178 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
180 |
MDS_READ_SEC_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
189 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(4A)') ' MDS_READ_SEC_XZ: filename: ', |
|
./pkg/mdsio/mdsio_read_section.F |
191 |
MDS_READ_SEC_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
193 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
195 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
237 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
239 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
254 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
256 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
260 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
262 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
367 |
MDS_READ_SEC_YZ |
CHARACTER*(max_len_mbuf) msgBuf |
|
./pkg/mdsio/mdsio_read_section.F |
379 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_read_section.F |
381 |
MDS_READ_SEC_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
383 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
385 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
411 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
413 |
MDS_READ_SEC_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
425 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
427 |
MDS_READ_SEC_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
456 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
458 |
MDS_READ_SEC_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
467 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(4A)') ' MDS_READ_SEC_YZ: filename: ', |
|
./pkg/mdsio/mdsio_read_section.F |
469 |
MDS_READ_SEC_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
471 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
473 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
515 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
517 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
532 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
534 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
538 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
540 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
90 |
MDS_READ_SEC_XZ |
CHARACTER*(max_len_mbuf) msgBuf |
|
./pkg/mdsio/mdsio_read_tape.F |
128 |
MDS_READ_TAPE |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_tape.F |
130 |
MDS_READ_TAPE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_tape.F |
138 |
MDS_READ_TAPE |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_read_tape.F |
141 |
MDS_READ_TAPE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_tape.F |
143 |
MDS_READ_TAPE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_tape.F |
144 |
MDS_READ_TAPE |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_tape.F |
146 |
MDS_READ_TAPE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_tape.F |
148 |
MDS_READ_TAPE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_tape.F |
176 |
MDS_READ_TAPE |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_tape.F |
178 |
MDS_READ_TAPE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_tape.F |
191 |
MDS_READ_TAPE |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_tape.F |
193 |
MDS_READ_TAPE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_tape.F |
213 |
MDS_READ_TAPE |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_tape.F |
215 |
MDS_READ_TAPE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_tape.F |
224 |
MDS_READ_TAPE |
WRITE(msgBuf,'(4A)') |
|
./pkg/mdsio/mdsio_read_tape.F |
227 |
MDS_READ_TAPE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_tape.F |
250 |
MDS_READ_TAPE |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_tape.F |
252 |
MDS_READ_TAPE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_tape.F |
289 |
MDS_READ_TAPE |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_tape.F |
291 |
MDS_READ_TAPE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_tape.F |
67 |
MDS_READ_TAPE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_read_tape.F |
88 |
MDS_READ_TAPE |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/mdsio/mdsio_read_tape.F |
90 |
MDS_READ_TAPE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_tape.F |
91 |
MDS_READ_TAPE |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_tape.F |
93 |
MDS_READ_TAPE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
84 |
MDS_READ_WHALOS |
character*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_readvec_loc.F |
101 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
108 |
MDS_READVEC_LOC |
WRITE(msgBuf,'(3A)') |
|
./pkg/mdsio/mdsio_readvec_loc.F |
110 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
111 |
MDS_READVEC_LOC |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_readvec_loc.F |
113 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
114 |
MDS_READVEC_LOC |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_readvec_loc.F |
116 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
117 |
MDS_READVEC_LOC |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_readvec_loc.F |
119 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
176 |
MDS_READVEC_LOC |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_readvec_loc.F |
178 |
MDS_READVEC_LOC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_readvec_loc.F |
187 |
MDS_READVEC_LOC |
WRITE(msgBuf,'(3A)') |
|
./pkg/mdsio/mdsio_readvec_loc.F |
190 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
193 |
MDS_READVEC_LOC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_readvec_loc.F |
198 |
MDS_READVEC_LOC |
WRITE(msgBuf,'(A,I9,A)') ' MDS_READVEC_LOC:', |
|
./pkg/mdsio/mdsio_readvec_loc.F |
200 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
214 |
MDS_READVEC_LOC |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_readvec_loc.F |
216 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
79 |
MDS_READVEC_LOC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_readvec_loc.F |
96 |
MDS_READVEC_LOC |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_readvec_loc.F |
98 |
MDS_READVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
99 |
MDS_READVEC_LOC |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
46 |
MDS_WR_REC_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
51 |
MDS_WR_REC_RL |
WRITE(msgBuf,'(A,I9,2x,I9)') |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
53 |
MDS_WR_REC_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
74 |
MDS_WR_REC_RL |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
76 |
MDS_WR_REC_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
46 |
MDS_WR_REC_RS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
51 |
MDS_WR_REC_RS |
WRITE(msgBuf,'(A,I9,2x,I9)') |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
53 |
MDS_WR_REC_RS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
74 |
MDS_WR_REC_RS |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
76 |
MDS_WR_REC_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
119 |
MDS_WRITE_FIELD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_write_field.F |
176 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(2A,2(I4,A))') 'MDS_WRITE_FIELD: ', |
|
./pkg/mdsio/mdsio_write_field.F |
178 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
183 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(2A,2(I4,A))') 'MDS_WRITE_FIELD: ', |
|
./pkg/mdsio/mdsio_write_field.F |
185 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
193 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_write_field.F |
195 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
197 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_write_field.F |
199 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
201 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_field.F |
203 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
209 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_write_field.F |
211 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
213 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(3(A,I6))') |
|
./pkg/mdsio/mdsio_write_field.F |
216 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
218 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_field.F |
220 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
226 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_write_field.F |
228 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
230 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(3(A,I6))') |
|
./pkg/mdsio/mdsio_write_field.F |
233 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
235 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_field.F |
237 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
238 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_field.F |
240 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
257 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A,I8,I6,3I4,2A)') |
|
./pkg/mdsio/mdsio_write_field.F |
260 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
299 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_write_field.F |
301 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
320 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_write_field.F |
322 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
334 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A,I6)') |
|
./pkg/mdsio/mdsio_write_field.F |
336 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
384 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_write_field.F |
386 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
398 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_write_field.F |
400 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
405 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A,I6)') |
|
./pkg/mdsio/mdsio_write_field.F |
407 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_meta.F |
151 |
MDS_WRITE_META |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_meta.F |
153 |
MDS_WRITE_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_meta.F |
177 |
MDS_WRITE_META |
WRITE(msgBuf,'(1P20E20.12)') (timList(i),i=1,ii) |
|
./pkg/mdsio/mdsio_write_meta.F |
178 |
MDS_WRITE_META |
WRITE(mUnit,'(1X,3A)') 'timeInterval = [', msgBuf(1:20*ii),' ];' |
|
./pkg/mdsio/mdsio_write_meta.F |
80 |
MDS_WRITE_META |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_write_section.F |
108 |
MDS_WRITE_SEC_XZ |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_write_section.F |
110 |
MDS_WRITE_SEC_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_write_section.F |
112 |
MDS_WRITE_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
114 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
204 |
MDS_WRITE_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
206 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
221 |
MDS_WRITE_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
223 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
231 |
MDS_WRITE_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
233 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
239 |
MDS_WRITE_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
241 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
350 |
MDS_WRITE_SEC_YZ |
CHARACTER*(max_len_mbuf) msgBuf |
|
./pkg/mdsio/mdsio_write_section.F |
361 |
MDS_WRITE_SEC_YZ |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_write_section.F |
363 |
MDS_WRITE_SEC_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_write_section.F |
365 |
MDS_WRITE_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
367 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
457 |
MDS_WRITE_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
459 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
474 |
MDS_WRITE_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
476 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
484 |
MDS_WRITE_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
486 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
492 |
MDS_WRITE_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
494 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
96 |
MDS_WRITE_SEC_XZ |
CHARACTER*(max_len_mbuf) msgBuf |
|
./pkg/mdsio/mdsio_write_tape.F |
117 |
MDS_WRITE_TAPE |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_tape.F |
119 |
MDS_WRITE_TAPE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_tape.F |
130 |
MDS_WRITE_TAPE |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/mdsio/mdsio_write_tape.F |
132 |
MDS_WRITE_TAPE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_tape.F |
133 |
MDS_WRITE_TAPE |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_tape.F |
135 |
MDS_WRITE_TAPE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_tape.F |
152 |
MDS_WRITE_TAPE |
WRITE(msgBuf,'(A,I8,2A)') |
|
./pkg/mdsio/mdsio_write_tape.F |
154 |
MDS_WRITE_TAPE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_write_tape.F |
171 |
MDS_WRITE_TAPE |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_tape.F |
173 |
MDS_WRITE_TAPE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_tape.F |
280 |
MDS_WRITE_TAPE |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_tape.F |
282 |
MDS_WRITE_TAPE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_tape.F |
73 |
MDS_WRITE_TAPE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_write_whalos.F |
86 |
MDS_WRITE_WHALOS |
character*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_writelocal.F |
109 |
MDS_WRITELOCAL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_writelocal.F |
166 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A,I10,A,2I5,A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
169 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
171 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
173 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
180 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_writelocal.F |
182 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
184 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_writelocal.F |
186 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
188 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
190 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
196 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_writelocal.F |
198 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
200 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(3(A,I6))') |
|
./pkg/mdsio/mdsio_writelocal.F |
203 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
205 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
207 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
208 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
210 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
230 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
232 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
244 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
246 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
251 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
253 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
108 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
110 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
111 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
113 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
120 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(3A)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
122 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
123 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
125 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
126 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
128 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
129 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
131 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
179 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
181 |
MDS_WRITEVEC_LOC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
195 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
197 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
201 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
203 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
81 |
MDS_WRITEVEC_LOC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mnc/mnc_readparms.F |
128 |
MNC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/mnc/mnc_readparms.F |
136 |
MNC_READPARMS |
WRITE(msgBuf,'(a)') ' MNC_READPARMS: finished reading data.mnc' |
|
./pkg/mnc/mnc_readparms.F |
137 |
MNC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/mnc/mnc_readparms.F |
42 |
MNC_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mnc/mnc_readparms.F |
72 |
MNC_READPARMS |
WRITE(msgBuf,'(2A)') '**WARNING** MNC_READPARMS: ', |
|
./pkg/mnc/mnc_readparms.F |
74 |
MNC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mnc/mnc_readparms.F |
76 |
MNC_READPARMS |
WRITE(msgBuf,'(2A)') '**WARNING** MNC_READPARMS: ', |
|
./pkg/mnc/mnc_readparms.F |
78 |
MNC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mnc/mnc_var.F |
147 |
MNC_VAR_INIT_ANY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mnc/mnc_var.F |
160 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(3A)') 'MNC ERROR: file ''', fname(1:nf), |
|
./pkg/mnc/mnc_var.F |
162 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
170 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(2A,I7,A)') 'MNC ERROR: MNC_MAX_INFO exceeded', |
|
./pkg/mnc/mnc_var.F |
173 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
180 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(3A)') 'MNC ERROR: file ''', fname(1:lenf), |
|
./pkg/mnc/mnc_var.F |
182 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
202 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(5A)') 'MNC ERROR: file ''', fname(1:lenf), |
|
./pkg/mnc/mnc_var.F |
204 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
215 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(5A)') 'MNC ERROR: variable ''', |
|
./pkg/mnc/mnc_var.F |
218 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
234 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(2A)') 'ERROR: MNC will not ', |
|
./pkg/mnc/mnc_var.F |
236 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mnc/mnc_var.F |
237 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(2A)') ' files. Please', |
|
./pkg/mnc/mnc_var.F |
239 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mnc/mnc_var.F |
240 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(2A)') ' overwrite output', |
|
./pkg/mnc/mnc_var.F |
242 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mnc/mnc_var.F |
243 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(5A)') 'defining variable ''', vname(1:lenv), |
|
./pkg/mnc/mnc_var.F |
245 |
MNC_VAR_INIT_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
441 |
MNC_VAR_ADD_ATTR_ANY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mnc/mnc_var.F |
452 |
MNC_VAR_ADD_ATTR_ANY |
WRITE(msgBuf,'(5A)') 'MNC ERROR: file ''', fname(1:lenf), |
|
./pkg/mnc/mnc_var.F |
455 |
MNC_VAR_ADD_ATTR_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
472 |
MNC_VAR_ADD_ATTR_ANY |
WRITE(msgBuf,'(A,I10,A)') 'MNC ERROR: atype = ''', atype, |
|
./pkg/mnc/mnc_var.F |
474 |
MNC_VAR_ADD_ATTR_ANY |
n = ILNBLNK(msgBuf) |
|
./pkg/mnc/mnc_var.F |
475 |
MNC_VAR_ADD_ATTR_ANY |
CALL PRINT_ERROR(msgBuf(1:n), myThid) |
|
./pkg/mnc/mnc_var.F |
478 |
MNC_VAR_ADD_ATTR_ANY |
WRITE(msgBuf,'(5A)') 'adding attribute ''', atname(1:lenat), |
|
./pkg/mnc/mnc_var.F |
480 |
MNC_VAR_ADD_ATTR_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
681 |
MNC_VAR_WRITE_ANY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mnc/mnc_var.F |
691 |
MNC_VAR_WRITE_ANY |
WRITE(msgBuf,'(5A)') 'MNC ERROR: file ''', fname(1:lenf), |
|
./pkg/mnc/mnc_var.F |
694 |
MNC_VAR_WRITE_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
716 |
MNC_VAR_WRITE_ANY |
WRITE(msgBuf,'(A)') 'reading current length of unlimited dim' |
|
./pkg/mnc/mnc_var.F |
717 |
MNC_VAR_WRITE_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
734 |
MNC_VAR_WRITE_ANY |
WRITE(msgBuf,'(A,I10,A)') 'MNC ERROR: vtype = ''', vtype, |
|
./pkg/mnc/mnc_var.F |
736 |
MNC_VAR_WRITE_ANY |
n = ILNBLNK(msgBuf) |
|
./pkg/mnc/mnc_var.F |
737 |
MNC_VAR_WRITE_ANY |
CALL PRINT_ERROR(msgBuf(1:n), myThid) |
|
./pkg/mnc/mnc_var.F |
740 |
MNC_VAR_WRITE_ANY |
WRITE(msgBuf,'(5A)') 'writing variable ''', vname(1:lenv), |
|
./pkg/mnc/mnc_var.F |
742 |
MNC_VAR_WRITE_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
179 |
MOM_VI_U_CORIOLIS |
WRITE(msgBuf,'(A,I5,A)') |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
182 |
MOM_VI_U_CORIOLIS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
45 |
MOM_VI_U_CORIOLIS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
207 |
MOM_VI_U_CORIOLIS_C4 |
WRITE(msgBuf,'(A,I5,A)') |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
210 |
MOM_VI_U_CORIOLIS_C4 |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
48 |
MOM_VI_U_CORIOLIS_C4 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/cg2d.F |
106 |
CG2D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/cg2d.F |
340 |
CG2D |
WRITE(msgBuf,'(A,I6,A,1PE21.14)') |
|
./model/src/cg2d.F |
342 |
CG2D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
179 |
MOM_VI_V_CORIOLIS |
WRITE(msgBuf,'(A,I5,A)') |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
182 |
MOM_VI_V_CORIOLIS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
45 |
MOM_VI_V_CORIOLIS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
207 |
MOM_VI_V_CORIOLIS_C4 |
WRITE(msgBuf,'(A,I5,A)') |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
210 |
MOM_VI_V_CORIOLIS_C4 |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
48 |
MOM_VI_V_CORIOLIS_C4 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/cg2d_ex0.F |
278 |
CG2D_EX0 |
WRITE(msgBuf,'(A,2I4,A,I6,A,1PE21.14)') ' cg2d(bi,bj=', bi, |
|
./model/src/cg2d_ex0.F |
280 |
CG2D_EX0 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/cg2d_ex0.F |
97 |
CG2D_EX0 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/mon_out.F |
122 |
MON_OUT_ALL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/mon_out.F |
135 |
MON_OUT_ALL |
msgBuf = ' ' |
|
./pkg/monitor/mon_out.F |
146 |
MON_OUT_ALL |
msgBuf(1:IL) = mon_head |
|
./pkg/monitor/mon_out.F |
148 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf) = ' ' |
|
./pkg/monitor/mon_out.F |
154 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+mon_prefL-1) = mon_pref(1:mon_prefL) |
|
./pkg/monitor/mon_out.F |
169 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
183 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1) |
|
./pkg/monitor/mon_out.F |
194 |
MON_OUT_ALL |
msgBuf(35:35) = '=' |
|
./pkg/monitor/mon_out.F |
198 |
MON_OUT_ALL |
& WRITE(msgBuf(36:57),'(1X,I21)') ival |
|
./pkg/monitor/mon_out.F |
200 |
MON_OUT_ALL |
& WRITE(msgBuf(36:57),'(1X,1P1E21.13)') dval |
|
./pkg/monitor/mon_out.F |
210 |
MON_OUT_ALL |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./model/src/cg2d_nsa.F |
111 |
CG2D_NSA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/cg2d_nsa.F |
117 |
CG2D_NSA |
WRITE(msgBuf,'(A,I10)') |
|
./model/src/cg2d_nsa.F |
119 |
CG2D_NSA |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/cg2d_nsa.F |
123 |
CG2D_NSA |
WRITE(msgBuf,'(A)') 'CG2D_NSA: cg2dNormaliseRHS is disabled' |
|
./model/src/cg2d_nsa.F |
124 |
CG2D_NSA |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/cg2d_nsa.F |
125 |
CG2D_NSA |
WRITE(msgBuf,'(A)') |
|
./model/src/cg2d_nsa.F |
127 |
CG2D_NSA |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/cg2d_nsa.F |
354 |
CG2D_NSA |
WRITE(msgBuf,'(A,I6,A,1PE21.14)') |
|
./model/src/cg2d_nsa.F |
356 |
CG2D_NSA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/monitor/mon_solution.F |
35 |
MON_SOLUTION |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/mon_solution.F |
52 |
MON_SOLUTION |
WRITE(msgBuf,'(A,1P2E11.3)') |
|
./pkg/monitor/mon_solution.F |
54 |
MON_SOLUTION |
CALL PRINT_MESSAGE(msgBuf,errorMessageUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/monitor/mon_solution.F |
55 |
MON_SOLUTION |
WRITE(msgBuf,'(2A,1PE11.3,A)') ' exceeds allowed range ', |
|
./pkg/monitor/mon_solution.F |
57 |
MON_SOLUTION |
CALL PRINT_MESSAGE(msgBuf,errorMessageUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/monitor/mon_solution.F |
58 |
MON_SOLUTION |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/monitor/mon_solution.F |
60 |
MON_SOLUTION |
CALL PRINT_MESSAGE(msgBuf,errorMessageUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
50 |
MON_STATS_LATBND_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
64 |
MON_STATS_LATBND_RL |
WRITE(msgBuf,'(A,I6,A)') |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
67 |
MON_STATS_LATBND_RL |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
68 |
MON_STATS_LATBND_RL |
WRITE(msgBuf,'(A,I6)') |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
70 |
MON_STATS_LATBND_RL |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/monitor/monitor.F |
178 |
MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor.F |
180 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor.F |
181 |
MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/monitor/monitor.F |
183 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor.F |
184 |
MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor.F |
186 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor.F |
44 |
MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/monitor.F |
81 |
MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor.F |
83 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor.F |
84 |
MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/monitor/monitor.F |
86 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor.F |
87 |
MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor.F |
89 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_ad.F |
101 |
ADMONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_ad.F |
102 |
ADMONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_ad.F |
104 |
ADMONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_ad.F |
227 |
ADMONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_ad.F |
229 |
ADMONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_ad.F |
230 |
ADMONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/monitor/monitor_ad.F |
232 |
ADMONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_ad.F |
233 |
ADMONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_ad.F |
235 |
ADMONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_ad.F |
56 |
ADMONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/monitor_ad.F |
96 |
ADMONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_ad.F |
98 |
ADMONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_ad.F |
99 |
ADMONITOR |
WRITE(msgBuf,'(A)') |
|
./model/src/cg2d_sr.F |
111 |
CG2D_SR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/cg2d_sr.F |
360 |
CG2D_SR |
WRITE(msgBuf,'(A,I6,A,1PE21.14)') |
|
./model/src/cg2d_sr.F |
362 |
CG2D_SR |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/monitor/monitor_g.F |
100 |
G_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_g.F |
168 |
G_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_g.F |
170 |
G_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_g.F |
171 |
G_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/monitor/monitor_g.F |
173 |
G_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_g.F |
174 |
G_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_g.F |
176 |
G_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_g.F |
57 |
G_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/monitor_g.F |
92 |
G_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_g.F |
94 |
G_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_g.F |
95 |
G_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/monitor/monitor_g.F |
97 |
G_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_g.F |
98 |
G_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/my82/my82_check.F |
26 |
MY82_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/my82/my82_check.F |
28 |
MY82_CHECK |
WRITE(msgBuf,'(A)') 'MY82_CHECK: #define ALLOW_MY82' |
|
./pkg/my82/my82_check.F |
29 |
MY82_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/my82/my82_check.F |
34 |
MY82_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/my82/my82_check.F |
36 |
MY82_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/my82/my82_check.F |
43 |
MY82_CHECK |
WRITE(msgBuf,'(A)') 'Some form of convection has been enabled' |
|
./pkg/my82/my82_check.F |
44 |
MY82_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/my82/my82_check.F |
49 |
MY82_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/my82/my82_check.F |
51 |
MY82_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/my82/my82_check.F |
56 |
MY82_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/my82/my82_check.F |
58 |
MY82_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/my82/my82_check.F |
64 |
MY82_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/my82/my82_check.F |
66 |
MY82_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/my82/my82_check.F |
70 |
MY82_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/my82/my82_check.F |
72 |
MY82_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./model/src/cg3d.F |
109 |
CG3D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/cg3d.F |
505 |
CG3D |
WRITE(msgBuf,'(A,I6,A,1PE21.14)') |
|
./model/src/cg3d.F |
507 |
CG3D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/my82/my82_readparms.F |
103 |
MY82_READPARMS |
WRITE(msgBuf,'(A)') 'MYdiffMax must be greater than zero' |
|
./pkg/my82/my82_readparms.F |
104 |
MY82_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/my82/my82_readparms.F |
35 |
MY82_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/my82/my82_readparms.F |
76 |
MY82_READPARMS |
WRITE(msgBuf,'(A)') ' MY82_READPARMS: opening data.my82' |
|
./pkg/my82/my82_readparms.F |
77 |
MY82_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/my82/my82_readparms.F |
84 |
MY82_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/my82/my82_readparms.F |
86 |
MY82_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/my82/my82_readparms.F |
98 |
MY82_READPARMS |
WRITE(msgBuf,'(A)') 'MYviscMax must be greater than zero' |
|
./pkg/my82/my82_readparms.F |
99 |
MY82_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/mypackage/mypackage_check.F |
31 |
MYPACKAGE_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mypackage/mypackage_check.F |
35 |
MYPACKAGE_CHECK |
WRITE(msgBuf,'(A)') 'MYPACKAGE_CHECK: #define MYPACKAGE' |
|
./pkg/mypackage/mypackage_check.F |
36 |
MYPACKAGE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mypackage/mypackage_check.F |
69 |
MYPACKAGE_CHECK |
WRITE(msgBuf,'(A)') 'An example requirement is:' |
|
./pkg/mypackage/mypackage_check.F |
70 |
MYPACKAGE_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/mypackage/mypackage_check.F |
71 |
MYPACKAGE_CHECK |
WRITE(msgBuf,'(A)') 'myPa_applyTendT needs tempStepping=.true.' |
|
./pkg/mypackage/mypackage_check.F |
72 |
MYPACKAGE_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./model/src/cg3d_ex0.F |
101 |
CG3D_EX0 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/cg3d_ex0.F |
477 |
CG3D_EX0 |
WRITE(msgBuf,'(A,2I4,A,I6,A,1PE21.14)') ' cg3d(bi,bj=', bi, |
|
./model/src/cg3d_ex0.F |
479 |
CG3D_EX0 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mypackage/mypackage_read_pickup.F |
101 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
103 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
112 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
114 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
159 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
161 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
168 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
170 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
51 |
MYPACKAGE_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mypackage/mypackage_read_pickup.F |
70 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
72 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
73 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
75 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
85 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
88 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
89 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
92 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
96 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
98 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/mypackage/mypackage_readparms.F |
32 |
MYPACKAGE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mypackage/mypackage_readparms.F |
85 |
MYPACKAGE_READPARMS |
WRITE(msgBuf,'(A)') 'MYPACKAGE_READPARMS: opening data.mypackage' |
|
./pkg/mypackage/mypackage_readparms.F |
86 |
MYPACKAGE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mypackage/mypackage_readparms.F |
95 |
MYPACKAGE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/mypackage/mypackage_readparms.F |
97 |
MYPACKAGE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mypackage/mypackage_write_pickup.F |
118 |
MYPACKAGE_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'MYPACKAGE_WRITE_PICKUP: ', |
|
./pkg/mypackage/mypackage_write_pickup.F |
120 |
MYPACKAGE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
121 |
MYPACKAGE_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'MYPACKAGE_WRITE_PICKUP: ', |
|
./pkg/mypackage/mypackage_write_pickup.F |
123 |
MYPACKAGE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
62 |
MYPACKAGE_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/check_pickup.F |
100 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
111 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
113 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
121 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
123 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
127 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
129 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
134 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
136 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
141 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
143 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
153 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
155 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/check_pickup.F |
163 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
165 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/check_pickup.F |
195 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
197 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/check_pickup.F |
204 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
207 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/check_pickup.F |
210 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
212 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
217 |
CHECK_PICKUP |
WRITE(msgBuf,'(2(A,I10))') |
|
./model/src/check_pickup.F |
220 |
CHECK_PICKUP |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
221 |
CHECK_PICKUP |
WRITE(msgBuf,'(2(A,I10))') |
|
./model/src/check_pickup.F |
224 |
CHECK_PICKUP |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
53 |
CHECK_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/check_pickup.F |
71 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
73 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
89 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') ' CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
91 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
98 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') ' CHECK_PICKUP: ', |
|
./model/src/config_check.F |
103 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
105 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
106 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,1P2E20.7)') |
|
./model/src/config_check.F |
108 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
115 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
117 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
118 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
120 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
124 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
126 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
127 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
129 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
133 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
135 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
136 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
138 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
144 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
146 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
147 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
149 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
156 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
158 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
159 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
161 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
168 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
170 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
177 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
179 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
180 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
182 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
189 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
191 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
192 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
194 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
201 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
203 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
204 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
206 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
213 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
215 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
216 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
218 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
225 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
227 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
228 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
230 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
236 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
238 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
239 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
241 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
247 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
249 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
250 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I4,A)') 'CONFIG_CHECK: selectAddFluid=', |
|
./model/src/config_check.F |
252 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
261 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
263 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
264 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
266 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
267 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
269 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
273 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
275 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
276 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
278 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
279 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
281 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
289 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
291 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
292 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)')' is not compiled.', |
|
./model/src/config_check.F |
294 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
301 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: addFrictionHeating=T', |
|
./model/src/config_check.F |
303 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
304 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: Re-compile with:', |
|
./model/src/config_check.F |
306 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
313 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
316 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
317 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
319 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
326 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
329 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
330 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
332 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
339 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
342 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
343 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
345 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
358 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
361 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
367 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
370 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
375 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
378 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
386 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
388 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
392 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
394 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
400 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
402 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
406 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
408 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
40 |
CONFIG_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/config_check.F |
417 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
420 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
426 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
429 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
435 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
438 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
444 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I10,A)') |
|
./model/src/config_check.F |
447 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
452 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
455 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
45 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
460 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
462 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
463 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
465 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
470 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
472 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
473 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
475 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
47 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/config_check.F |
480 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
482 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
483 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
485 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
490 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
492 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
493 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
495 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
49 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') '// Check Model config. (CONFIG_CHECK):' |
|
./model/src/config_check.F |
500 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
502 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
503 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
505 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
50 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/config_check.F |
510 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A,I3,A)') 'CONFIG_CHECK: r* Coordinate', |
|
./model/src/config_check.F |
512 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
513 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A,I3,A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
515 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
522 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A,I3)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
524 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
530 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
532 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
536 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
538 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
542 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
544 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
547 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
549 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
560 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
562 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
564 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** ', |
|
./model/src/config_check.F |
566 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
573 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
575 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
576 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
578 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
584 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
586 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
588 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** works better', |
|
./model/src/config_check.F |
590 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
597 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
599 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
600 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
602 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
608 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
610 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
612 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
614 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
620 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: selectAddFluid=', |
|
./model/src/config_check.F |
622 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
623 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
625 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
629 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
631 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
632 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
634 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
638 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
640 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
642 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** ', |
|
./model/src/config_check.F |
644 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
651 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
653 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
658 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
65 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
660 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
666 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
668 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
669 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
671 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
677 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: implicitIntGravWave', |
|
./model/src/config_check.F |
679 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
67 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
680 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: To by-pass this', |
|
./model/src/config_check.F |
682 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
687 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: Needs exactConserv=T', |
|
./model/src/config_check.F |
689 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
68 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
694 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
696 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
698 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
700 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
705 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
707 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
709 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** => not consistent with', |
|
./model/src/config_check.F |
70 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
711 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
715 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
717 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
719 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
721 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
728 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
730 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
736 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
738 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
742 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: momAdvection ', |
|
./model/src/config_check.F |
744 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
749 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A,I4)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
751 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
758 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
760 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
771 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
773 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
774 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
777 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
77 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
780 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
782 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
784 |
CONFIG_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** to turn ON CD-scheme:', |
|
./model/src/config_check.F |
786 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
791 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
793 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
799 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: staggerTimeStep', |
|
./model/src/config_check.F |
79 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
801 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
805 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: momForcingOutAB=', |
|
./model/src/config_check.F |
807 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
808 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: momForcingOutAB ', |
|
./model/src/config_check.F |
80 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
810 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
814 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: tracForcingOutAB=', |
|
./model/src/config_check.F |
816 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
817 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: tracForcingOutAB ', |
|
./model/src/config_check.F |
819 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
823 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: addFrictionHeating', |
|
./model/src/config_check.F |
825 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
82 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
832 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
835 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
839 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
842 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
849 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
851 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
856 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
859 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
864 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
867 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
872 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I3,A)') |
|
./model/src/config_check.F |
874 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
883 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') '// CONFIG_CHECK : Normal End' |
|
./model/src/config_check.F |
884 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/config_check.F |
886 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
888 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/config_check.F |
890 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/config_check.F |
891 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/config_check.F |
89 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
91 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
92 |
CONFIG_CHECK |
IF ( implicitIntGravWave ) WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
94 |
CONFIG_CHECK |
IF ( nonHydrostatic ) WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
96 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
125 |
OBCS_BALANCE_FLOW |
WRITE(msgBuf,'(A,I9,A,1P2E16.8)') 'OBCS_balance (it=', |
|
./pkg/obcs/obcs_balance_flow.F |
127 |
OBCS_BALANCE_FLOW |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_balance_flow.F |
174 |
OBCS_BALANCE_FLOW |
WRITE(msgBuf,'(A,I9,A,1P2E16.8)') 'OBCS_balance (it=', |
|
./pkg/obcs/obcs_balance_flow.F |
176 |
OBCS_BALANCE_FLOW |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_balance_flow.F |
223 |
OBCS_BALANCE_FLOW |
WRITE(msgBuf,'(A,I9,A,1P2E16.8)') 'OBCS_balance (it=', |
|
./pkg/obcs/obcs_balance_flow.F |
225 |
OBCS_BALANCE_FLOW |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_balance_flow.F |
272 |
OBCS_BALANCE_FLOW |
WRITE(msgBuf,'(A,I9,A,1P2E16.8)') 'OBCS_balance (it=', |
|
./pkg/obcs/obcs_balance_flow.F |
274 |
OBCS_BALANCE_FLOW |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_balance_flow.F |
290 |
OBCS_BALANCE_FLOW |
WRITE(msgBuf,'(A,I9,A,1P2E16.8)') 'OBCS_balance (it=', |
|
./pkg/obcs/obcs_balance_flow.F |
292 |
OBCS_BALANCE_FLOW |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_balance_flow.F |
303 |
OBCS_BALANCE_FLOW |
WRITE(msgBuf,'(A,1P2E16.8)') |
|
./pkg/obcs/obcs_balance_flow.F |
305 |
OBCS_BALANCE_FLOW |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_balance_flow.F |
307 |
OBCS_BALANCE_FLOW |
WRITE(msgBuf,'(A,1P2E16.8)') |
|
./pkg/obcs/obcs_balance_flow.F |
309 |
OBCS_BALANCE_FLOW |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_balance_flow.F |
49 |
OBCS_BALANCE_FLOW |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/config_summary.F |
100 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
102 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
103 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
104 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
253 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
256 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(I3,13F8.3)') |
|
./model/src/config_summary.F |
258 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
338 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') 'nonlinFreeSurf =', |
|
./model/src/config_summary.F |
340 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
344 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' -1,0= Off ; 1,2,3= On,', |
|
./model/src/config_summary.F |
346 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
414 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_summary.F |
416 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
420 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' 0= f-Plane ; 1= Beta-Plane ;', |
|
./model/src/config_summary.F |
422 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
440 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') 'selectVortScheme=', |
|
./model/src/config_summary.F |
442 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
446 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 0 : enstrophy (Shallow-Water Eq.)', |
|
./model/src/config_summary.F |
448 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
449 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 1 : same as 0 with modified hFac' |
|
./model/src/config_summary.F |
450 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
451 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 2 : energy conserving scheme', |
|
./model/src/config_summary.F |
453 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
454 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 3 : energy (general)', |
|
./model/src/config_summary.F |
456 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
457 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' from Sadourny', |
|
./model/src/config_summary.F |
459 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
552 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') '/* debLev[*] :', |
|
./model/src/config_summary.F |
554 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
555 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') 'debLevZero =', debLevZero, |
|
./model/src/config_summary.F |
557 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
558 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') ' debLevA =', debLevA, |
|
./model/src/config_summary.F |
560 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
561 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') ' debLevB =', debLevB, |
|
./model/src/config_summary.F |
563 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
564 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') ' debLevC =', debLevC, |
|
./model/src/config_summary.F |
566 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
567 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') ' debLevD =', debLevD, |
|
./model/src/config_summary.F |
569 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
570 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') ' debLevE =', debLevE, |
|
./model/src/config_summary.F |
572 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
576 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
577 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
578 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
580 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
581 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
582 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
603 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
604 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
605 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
607 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
608 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
609 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
63 |
CONFIG_SUMMARY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/config_summary.F |
716 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
717 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
718 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
720 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
721 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
722 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
882 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
884 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
885 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// End of Model config. summary' |
|
./model/src/config_summary.F |
886 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
887 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
889 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
890 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/config_summary.F |
891 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
89 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
91 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
92 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// Model configuration' |
|
./model/src/config_summary.F |
93 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
94 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
96 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
98 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
99 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_calc.F |
274 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
276 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
277 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
279 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
306 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
308 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
309 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
311 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
338 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
340 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
341 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
343 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
370 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
372 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
373 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
375 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
64 |
OBCS_CALC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_check.F |
109 |
OBCS_CHECK |
WRITE(msgBuf,'(A,2(I4,A))') |
|
./pkg/obcs/obcs_check.F |
111 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_check.F |
112 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') ' OB_Jn = /* Northern OB local indices */' |
|
./pkg/obcs/obcs_check.F |
113 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_check.F |
116 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') ' OB_Js = /* Southern OB local indices */' |
|
./pkg/obcs/obcs_check.F |
117 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_check.F |
120 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') ' OB_Ie = /* Eastern OB local indices */' |
|
./pkg/obcs/obcs_check.F |
121 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_check.F |
124 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') ' OB_Iw = /* Western OB local indices */' |
|
./pkg/obcs/obcs_check.F |
125 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_check.F |
132 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: end summary.' |
|
./pkg/obcs/obcs_check.F |
133 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_check.F |
147 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
149 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
150 |
OBCS_CHECK |
WRITE(msgBuf,'(A,2I4,A)') |
|
./pkg/obcs/obcs_check.F |
152 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
158 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
160 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
161 |
OBCS_CHECK |
WRITE(msgBuf,'(A,2I4,A)') |
|
./pkg/obcs/obcs_check.F |
163 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
169 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
171 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
172 |
OBCS_CHECK |
WRITE(msgBuf,'(A,2I4,A)') |
|
./pkg/obcs/obcs_check.F |
174 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
180 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
182 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
183 |
OBCS_CHECK |
WRITE(msgBuf,'(A,2I4,A)') |
|
./pkg/obcs/obcs_check.F |
185 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
194 |
OBCS_CHECK |
WRITE(msgBuf,'(A,I6,A)') |
|
./pkg/obcs/obcs_check.F |
196 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
208 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
210 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
216 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_ORLANSKI' |
|
./pkg/obcs/obcs_check.F |
217 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_check.F |
221 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
223 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
224 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
226 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
234 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
236 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
240 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
242 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
246 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
248 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
254 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_OBCS_STEVENS' |
|
./pkg/obcs/obcs_check.F |
255 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_check.F |
261 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
263 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
264 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
266 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
272 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
274 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
277 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
279 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/obcs/obcs_check.F |
281 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
283 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/obcs/obcs_check.F |
287 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
289 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/obcs/obcs_check.F |
291 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
293 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/obcs/obcs_check.F |
312 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
314 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
315 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
317 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
324 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
326 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
327 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
329 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
336 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
338 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
339 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
341 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
348 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
350 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
351 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
353 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
360 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
362 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
363 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
365 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
372 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
374 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
375 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
377 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
386 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/obcs/obcs_check.F |
388 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
395 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/obcs/obcs_check.F |
397 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
402 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
404 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
405 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
407 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
417 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
419 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
420 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
422 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
429 |
OBCS_CHECK |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/obcs/obcs_check.F |
431 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
436 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: set-up OK' |
|
./pkg/obcs/obcs_check.F |
437 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_check.F |
445 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'S/R OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
44 |
OBCS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_check.F |
455 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
456 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_check.F |
459 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
467 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
468 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_check.F |
471 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
479 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
480 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_check.F |
483 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
491 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
492 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_check.F |
495 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
506 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
507 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_check.F |
510 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
518 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
519 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_check.F |
522 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
530 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
531 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_check.F |
534 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
542 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
543 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_check.F |
546 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
556 |
OBCS_CHECK |
WRITE(msgBuf,'(A,I6,A)') |
|
./pkg/obcs/obcs_check.F |
558 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
563 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
|
./pkg/obcs/obcs_check.F |
565 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_check.F |
58 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_OBCS' |
|
./pkg/obcs/obcs_check.F |
59 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_check.F |
61 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: start summary:' |
|
./pkg/obcs/obcs_check.F |
62 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_check_depths.F |
101 |
OBCS_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_check_depths.F |
114 |
OBCS_CHECK_DEPTHS |
WRITE(msgBuf,'(2A,I7,A)') 'OBCS_CHECK_DEPTHS: ', |
|
./pkg/obcs/obcs_check_depths.F |
116 |
OBCS_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_check_depths.F |
118 |
OBCS_CHECK_DEPTHS |
WRITE(msgBuf,'(2A,I7,A)') 'OBCS_CHECK_DEPTHS: ', |
|
./pkg/obcs/obcs_check_depths.F |
124 |
OBCS_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_check_depths.F |
31 |
OBCS_CHECK_DEPTHS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_check_depths.F |
49 |
OBCS_CHECK_DEPTHS |
WRITE(msgBuf,'(2A,2I6,2I4)') |
|
./pkg/obcs/obcs_check_depths.F |
52 |
OBCS_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_check_depths.F |
65 |
OBCS_CHECK_DEPTHS |
WRITE(msgBuf,'(2A,2I6,2I4)') |
|
./pkg/obcs/obcs_check_depths.F |
68 |
OBCS_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_check_depths.F |
81 |
OBCS_CHECK_DEPTHS |
WRITE(msgBuf,'(2A,2I6,2I4)') |
|
./pkg/obcs/obcs_check_depths.F |
84 |
OBCS_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_check_depths.F |
98 |
OBCS_CHECK_DEPTHS |
WRITE(msgBuf,'(2A,2I6,2I4)') |
|
./pkg/obcs/obcs_diag_balance.F |
135 |
OBCS_DIAG_BALANCE |
WRITE(msgBuf,'(A,I9,A,1P2E16.8)') 'OBCS_DIAG_balance (it=', |
|
./pkg/obcs/obcs_diag_balance.F |
137 |
OBCS_DIAG_BALANCE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_diag_balance.F |
181 |
OBCS_DIAG_BALANCE |
WRITE(msgBuf,'(A,I9,A,1P2E16.8)') 'OBCS_DIAG_balance (it=', |
|
./pkg/obcs/obcs_diag_balance.F |
183 |
OBCS_DIAG_BALANCE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_diag_balance.F |
226 |
OBCS_DIAG_BALANCE |
WRITE(msgBuf,'(A,I9,A,1P2E16.8)') 'OBCS_DIAG_balance (it=', |
|
./pkg/obcs/obcs_diag_balance.F |
228 |
OBCS_DIAG_BALANCE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_diag_balance.F |
272 |
OBCS_DIAG_BALANCE |
WRITE(msgBuf,'(A,I9,A,1P2E16.8)') 'OBCS_DIAG_balance (it=', |
|
./pkg/obcs/obcs_diag_balance.F |
274 |
OBCS_DIAG_BALANCE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_diag_balance.F |
290 |
OBCS_DIAG_BALANCE |
WRITE(msgBuf,'(A,I9,A,1P2E16.8)') 'OBCS_DIAG_balance (it=', |
|
./pkg/obcs/obcs_diag_balance.F |
292 |
OBCS_DIAG_BALANCE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_diag_balance.F |
303 |
OBCS_DIAG_BALANCE |
WRITE(msgBuf,'(A,1P2E16.8)') |
|
./pkg/obcs/obcs_diag_balance.F |
305 |
OBCS_DIAG_BALANCE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_diag_balance.F |
307 |
OBCS_DIAG_BALANCE |
WRITE(msgBuf,'(A,1P2E16.8)') |
|
./pkg/obcs/obcs_diag_balance.F |
309 |
OBCS_DIAG_BALANCE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_diag_balance.F |
63 |
OBCS_DIAG_BALANCE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_exf_load.F |
283 |
OBCS_EXF_READ_XZ |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_exf_load.F |
301 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(A,1PE16.8,2A)') |
|
./pkg/obcs/obcs_exf_load.F |
304 |
OBCS_EXF_READ_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_exf_load.F |
317 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(3A)') ' OBCS_EXF_READ_XZ: ', |
|
./pkg/obcs/obcs_exf_load.F |
319 |
OBCS_EXF_READ_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_exf_load.F |
321 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(2A,I10,2I7)') ' OBCS_EXF_READ_XZ: ', |
|
./pkg/obcs/obcs_exf_load.F |
323 |
OBCS_EXF_READ_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_exf_load.F |
325 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(2A,2(L2,2X),E16.9)') ' OBCS_EXF_READ_XZ: ', |
|
./pkg/obcs/obcs_exf_load.F |
327 |
OBCS_EXF_READ_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_exf_load.F |
378 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(A,1PE16.8,2A)') |
|
./pkg/obcs/obcs_exf_load.F |
381 |
OBCS_EXF_READ_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_exf_load.F |
394 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(3A)') ' OBCS_EXF_READ_XZ: ', |
|
./pkg/obcs/obcs_exf_load.F |
396 |
OBCS_EXF_READ_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_exf_load.F |
398 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(2A,I10,2I7)') ' OBCS_EXF_READ_XZ: ', |
|
./pkg/obcs/obcs_exf_load.F |
400 |
OBCS_EXF_READ_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_exf_load.F |
402 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(2A,2(L2,2X),E16.9)') ' OBCS_EXF_READ_XZ: ', |
|
./pkg/obcs/obcs_exf_load.F |
404 |
OBCS_EXF_READ_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_exf_load.F |
555 |
OBCS_EXF_READ_YZ |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_exf_load.F |
574 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(A,1PE16.8,2A)') |
|
./pkg/obcs/obcs_exf_load.F |
577 |
OBCS_EXF_READ_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_exf_load.F |
590 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(3A)') ' OBCS_EXF_READ_YZ: ', |
|
./pkg/obcs/obcs_exf_load.F |
592 |
OBCS_EXF_READ_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_exf_load.F |
594 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(2A,I10,2I7)') ' OBCS_EXF_READ_YZ: ', |
|
./pkg/obcs/obcs_exf_load.F |
596 |
OBCS_EXF_READ_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_exf_load.F |
598 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(2A,2(L2,2X),E16.9)') ' OBCS_EXF_READ_YZ: ', |
|
./pkg/obcs/obcs_exf_load.F |
600 |
OBCS_EXF_READ_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_exf_load.F |
651 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(A,1PE16.8,2A)') |
|
./pkg/obcs/obcs_exf_load.F |
654 |
OBCS_EXF_READ_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_exf_load.F |
667 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(3A)') ' OBCS_EXF_READ_YZ: ', |
|
./pkg/obcs/obcs_exf_load.F |
669 |
OBCS_EXF_READ_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_exf_load.F |
671 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(2A,I10,2I7)') ' OBCS_EXF_READ_YZ: ', |
|
./pkg/obcs/obcs_exf_load.F |
673 |
OBCS_EXF_READ_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_exf_load.F |
675 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(2A,2(L2,2X),E16.9)') ' OBCS_EXF_READ_YZ: ', |
|
./pkg/obcs/obcs_exf_load.F |
677 |
OBCS_EXF_READ_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_fields_load.F |
348 |
OBCS_FIELDS_LOAD |
WRITE(msgBuf,'(1X,A,I10,1P1E20.12)') |
|
./pkg/obcs/obcs_fields_load.F |
351 |
OBCS_FIELDS_LOAD |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/obcs/obcs_fields_load.F |
87 |
OBCS_FIELDS_LOAD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_init_fixed.F |
167 |
OBCS_INIT_FIXED |
WRITE(msgBuf,'(2A)') |
|
./pkg/obcs/obcs_init_fixed.F |
169 |
OBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
185 |
OBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I5,2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_init_fixed.F |
187 |
OBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf,ioUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
191 |
OBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I5,2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_init_fixed.F |
194 |
OBCS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
208 |
OBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I5,2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_init_fixed.F |
210 |
OBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf,ioUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
214 |
OBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I5,2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_init_fixed.F |
217 |
OBCS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
231 |
OBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I5,2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_init_fixed.F |
233 |
OBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf,ioUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
237 |
OBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I5,2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_init_fixed.F |
240 |
OBCS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
254 |
OBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I5,2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_init_fixed.F |
256 |
OBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf,ioUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
260 |
OBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I5,2(A,I3),2(A,I5))') |
|
./pkg/obcs/obcs_init_fixed.F |
263 |
OBCS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
271 |
OBCS_INIT_FIXED |
WRITE(msgBuf,'(2A)') |
|
./pkg/obcs/obcs_init_fixed.F |
273 |
OBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
42 |
OBCS_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf, errMsg |
|
./pkg/obcs/obcs_monitor.F |
176 |
OBCS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/obcs/obcs_monitor.F |
178 |
OBCS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/obcs/obcs_monitor.F |
179 |
OBCS_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_monitor.F |
181 |
OBCS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/obcs/obcs_monitor.F |
182 |
OBCS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/obcs/obcs_monitor.F |
184 |
OBCS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/obcs/obcs_monitor.F |
56 |
OBCS_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_monitor.F |
81 |
OBCS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/obcs/obcs_monitor.F |
83 |
OBCS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/obcs/obcs_monitor.F |
84 |
OBCS_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_monitor.F |
86 |
OBCS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/obcs/obcs_monitor.F |
87 |
OBCS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/obcs/obcs_monitor.F |
89 |
OBCS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/obcs/obcs_readparms.F |
319 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' OBCS_READPARMS: opening data.obcs' |
|
./pkg/obcs/obcs_readparms.F |
320 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_readparms.F |
333 |
OBCS_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/obcs/obcs_readparms.F |
336 |
OBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_readparms.F |
337 |
OBCS_READPARMS |
WRITE(msgBuf,'(A,A)') 'OBCS_READPARMS: ', |
|
./pkg/obcs/obcs_readparms.F |
339 |
OBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_readparms.F |
395 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' OBCS_READPARMS: finished reading data.obcs' |
|
./pkg/obcs/obcs_readparms.F |
396 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_readparms.F |
404 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_readparms.F |
406 |
OBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_readparms.F |
407 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_readparms.F |
409 |
OBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_readparms.F |
429 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' Northern OB global indices : OB_Jnorth =' |
|
./pkg/obcs/obcs_readparms.F |
430 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_readparms.F |
434 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' Southern OB global indices : OB_Jsouth =' |
|
./pkg/obcs/obcs_readparms.F |
435 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_readparms.F |
439 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' Eastern OB global indices : OB_Ieast =' |
|
./pkg/obcs/obcs_readparms.F |
440 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_readparms.F |
444 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' Western OB global indices : OB_Iwest =' |
|
./pkg/obcs/obcs_readparms.F |
445 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_readparms.F |
449 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/obcs/obcs_readparms.F |
450 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_readparms.F |
51 |
OBCS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
66 |
OBCS_U1_ADV_TRACER |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
83 |
OBCS_U1_ADV_TRACER |
WRITE(msgBuf,'(A,I4)') |
|
./pkg/obcs/obcs_u1_adv_tracer.F |
85 |
OBCS_U1_ADV_TRACER |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
100 |
CPL_EXCH_CONFIGS |
WRITE(msgBuf,'(A,E30.15)') |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
102 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
51 |
CPL_EXCH_CONFIGS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
93 |
CPL_EXCH_CONFIGS |
WRITE(msgBuf,'(2(A,I6),2(A,I4),A)') |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
96 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
97 |
CPL_EXCH_CONFIGS |
WRITE(msgBuf,'(A,E30.15)') |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
99 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
120 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
122 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
130 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
132 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
133 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
135 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
144 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
146 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
147 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
149 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
157 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS:', |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
159 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
161 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS:', |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
163 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
166 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS:', |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
168 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
177 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImport', |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
179 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
201 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
202 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
203 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
204 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
205 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// Coupling package parameters :' |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
206 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
207 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
208 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
54 |
CPL_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
84 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') ' CPL_READPARMS: opening data.cpl' |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
85 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/offline/offline_check.F |
103 |
OFFLINE_CHECK |
WRITE(msgBuf,'(A)') 'some GMxxFile are set but not used' |
|
./pkg/offline/offline_check.F |
104 |
OFFLINE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/offline/offline_check.F |
108 |
OFFLINE_CHECK |
WRITE(msgBuf,'(A)') 'some KPP_xxxxxFile are set but not used' |
|
./pkg/offline/offline_check.F |
109 |
OFFLINE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/offline/offline_check.F |
113 |
OFFLINE_CHECK |
WRITE(msgBuf,'(A)') 'ConvFile is set but not used' |
|
./pkg/offline/offline_check.F |
114 |
OFFLINE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/offline/offline_check.F |
119 |
OFFLINE_CHECK |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/offline/offline_check.F |
121 |
OFFLINE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/offline/offline_check.F |
126 |
OFFLINE_CHECK |
WRITE(msgBuf,'(A)') 'OFFLINE_CHECK: done' |
|
./pkg/offline/offline_check.F |
127 |
OFFLINE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/offline/offline_check.F |
38 |
OFFLINE_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/offline/offline_check.F |
43 |
OFFLINE_CHECK |
WRITE(msgBuf,'(A)') 'OFFLINE_CHECK: #define OFFLINE' |
|
./pkg/offline/offline_check.F |
44 |
OFFLINE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/offline/offline_check.F |
79 |
OFFLINE_CHECK |
WRITE(msgBuf,'(A)') 'allowFreezing=T not allowed if useOffLine' |
|
./pkg/offline/offline_check.F |
80 |
OFFLINE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/offline/offline_check.F |
86 |
OFFLINE_CHECK |
WRITE(msgBuf,'(A)') 'HFluxFile is set but not used' |
|
./pkg/offline/offline_check.F |
87 |
OFFLINE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/offline/offline_check.F |
92 |
OFFLINE_CHECK |
WRITE(msgBuf,'(A)') 'SFluxFile is set but not used' |
|
./pkg/offline/offline_check.F |
93 |
OFFLINE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/offline/offline_check.F |
98 |
OFFLINE_CHECK |
WRITE(msgBuf,'(A)') 'IceFile is set but not used' |
|
./pkg/offline/offline_check.F |
99 |
OFFLINE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/offline/offline_fields_load.F |
125 |
OFFLINE_FIELDS_LOAD |
WRITE(msgBuf,'(2A,I5,A)') 'OFFLINE_FIELDS_LOAD: ', |
|
./pkg/offline/offline_fields_load.F |
127 |
OFFLINE_FIELDS_LOAD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/offline/offline_fields_load.F |
70 |
OFFLINE_FIELDS_LOAD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/offline/offline_readparms.F |
112 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/offline/offline_readparms.F |
114 |
OFFLINE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/offline/offline_readparms.F |
28 |
OFFLINE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/offline/offline_readparms.F |
60 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A)') ' OFFLINE_READPARMS: opening data.off' |
|
./pkg/offline/offline_readparms.F |
61 |
OFFLINE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/offline/offline_readparms.F |
92 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R OFFLINE_READPARMS: "KPP_ghatFile"', |
|
./pkg/offline/offline_readparms.F |
94 |
OFFLINE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/offline/offline_readparms.F |
95 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R OFFLINE_READPARMS: read instead ', |
|
./pkg/offline/offline_readparms.F |
97 |
OFFLINE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/offline/offline_reset_parms.F |
30 |
OFFLINE_RESET_PARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/offline/offline_reset_parms.F |
35 |
OFFLINE_RESET_PARMS |
WRITE(msgBuf,'(A,A)') ' OFFLINE_RESET_PARMS: ', |
|
./pkg/offline/offline_reset_parms.F |
37 |
OFFLINE_RESET_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/offline/offline_reset_parms.F |
55 |
OFFLINE_RESET_PARMS |
WRITE(msgBuf,'(A,A)') '** WARNING ** OFFLINE_RESET_PARMS: ', |
|
./pkg/offline/offline_reset_parms.F |
57 |
OFFLINE_RESET_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/offline/offline_reset_parms.F |
59 |
OFFLINE_RESET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/offline/offline_reset_parms.F |
64 |
OFFLINE_RESET_PARMS |
WRITE(msgBuf,'(A,A)') '** WARNING ** OFFLINE_RESET_PARMS: ', |
|
./pkg/offline/offline_reset_parms.F |
66 |
OFFLINE_RESET_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/offline/offline_reset_parms.F |
68 |
OFFLINE_RESET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/offline/offline_reset_parms.F |
75 |
OFFLINE_RESET_PARMS |
WRITE(msgBuf,'(A,A)') '** WARNING ** OFFLINE_RESET_PARMS: ', |
|
./pkg/offline/offline_reset_parms.F |
77 |
OFFLINE_RESET_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/offline/offline_reset_parms.F |
79 |
OFFLINE_RESET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/opps/opps_calc.F |
165 |
OPPS_CALC |
WRITE(msgBuf,'(A,I3)') |
|
./pkg/opps/opps_calc.F |
167 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
205 |
OPPS_CALC |
WRITE(msgBuf,'(A,I3)') |
|
./pkg/opps/opps_calc.F |
207 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
240 |
OPPS_CALC |
WRITE(msgBuf,'(A,3E12.4,I3)') |
|
./pkg/opps/opps_calc.F |
242 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
257 |
OPPS_CALC |
WRITE(msgBuf,'(A,I3)') |
|
./pkg/opps/opps_calc.F |
259 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
261 |
OPPS_CALC |
WRITE(msgBuf,'(A,4A14)') |
|
./pkg/opps/opps_calc.F |
264 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
266 |
OPPS_CALC |
WRITE(msgBuf,'(A,4E14.6)') |
|
./pkg/opps/opps_calc.F |
269 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
310 |
OPPS_CALC |
WRITE(msgBuf,'(A,2E12.4,I3)') |
|
./pkg/opps/opps_calc.F |
312 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
357 |
OPPS_CALC |
WRITE(msgBuf,'(A,F14.4)') |
|
./pkg/opps/opps_calc.F |
359 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
95 |
OPPS_CALC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/opps/opps_check.F |
26 |
OPPS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/opps/opps_check.F |
28 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') 'OPPS_CHECK: #define ALLOW_OPPS' |
|
./pkg/opps/opps_check.F |
29 |
OPPS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_check.F |
34 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/opps/opps_check.F |
36 |
OPPS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/opps/opps_check.F |
43 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') 'Some form of convection has been enabled' |
|
./pkg/opps/opps_check.F |
44 |
OPPS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/opps/opps_check.F |
49 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/opps/opps_check.F |
51 |
OPPS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/opps/opps_check.F |
56 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/opps/opps_check.F |
58 |
OPPS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/opps/opps_check.F |
63 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/opps/opps_check.F |
65 |
OPPS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/opps/opps_check.F |
70 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/opps/opps_check.F |
72 |
OPPS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/opps/opps_interface.F |
161 |
OPPS_INTERFACE |
WRITE(msgBuf,'(A,A)') 'OPPS_INTERFACE: theta or S-range is', |
|
./pkg/opps/opps_interface.F |
163 |
OPPS_INTERFACE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_interface.F |
165 |
OPPS_INTERFACE |
WRITE(msgBuf,'(A,2I5)') ' for (i,j) = ', I,J |
|
./pkg/opps/opps_interface.F |
166 |
OPPS_INTERFACE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_interface.F |
75 |
OPPS_INTERFACE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/opps/opps_readparms.F |
35 |
OPPS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/opps/opps_readparms.F |
85 |
OPPS_READPARMS |
WRITE(msgBuf,'(A)') ' OPPS_READPARMS: opening data.opps' |
|
./pkg/opps/opps_readparms.F |
86 |
OPPS_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_readparms.F |
93 |
OPPS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/opps/opps_readparms.F |
95 |
OPPS_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/pp81/pp81_check.F |
26 |
PP81_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/pp81/pp81_check.F |
28 |
PP81_CHECK |
WRITE(msgBuf,'(A)') 'PP81_CHECK: #define ALLOW_PP81' |
|
./pkg/pp81/pp81_check.F |
29 |
PP81_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/pp81/pp81_check.F |
34 |
PP81_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_check.F |
36 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_check.F |
43 |
PP81_CHECK |
WRITE(msgBuf,'(A)') 'Some form of convection has been enabled' |
|
./pkg/pp81/pp81_check.F |
44 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_check.F |
49 |
PP81_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_check.F |
51 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_check.F |
57 |
PP81_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_check.F |
59 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_check.F |
63 |
PP81_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_check.F |
65 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_readparms.F |
104 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') 'PPviscMax must be greater than zero' |
|
./pkg/pp81/pp81_readparms.F |
105 |
PP81_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_readparms.F |
109 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') 'PPalpha must not be zero' |
|
./pkg/pp81/pp81_readparms.F |
110 |
PP81_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_readparms.F |
114 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') 'PPnRi must not be zero' |
|
./pkg/pp81/pp81_readparms.F |
115 |
PP81_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_readparms.F |
35 |
PP81_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/pp81/pp81_readparms.F |
82 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') ' PP81_READPARMS: opening data.pp81' |
|
./pkg/pp81/pp81_readparms.F |
83 |
PP81_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/pp81/pp81_readparms.F |
90 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_readparms.F |
92 |
PP81_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/profiles/profiles_init_fixed.F |
101 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PROFILES_INIT_FIXED: ', |
|
./pkg/profiles/profiles_init_fixed.F |
103 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/profiles/profiles_init_fixed.F |
104 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PROFILES_INIT_FIXED: ', |
|
./pkg/profiles/profiles_init_fixed.F |
106 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/profiles/profiles_init_fixed.F |
113 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PROFILES_INIT_FIXED: ', |
|
./pkg/profiles/profiles_init_fixed.F |
115 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/profiles/profiles_init_fixed.F |
116 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PROFILES_INIT_FIXED: ', |
|
./pkg/profiles/profiles_init_fixed.F |
118 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/profiles/profiles_init_fixed.F |
240 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
|
./pkg/profiles/profiles_init_fixed.F |
243 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
259 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
|
./pkg/profiles/profiles_init_fixed.F |
262 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
278 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
|
./pkg/profiles/profiles_init_fixed.F |
281 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
328 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
|
./pkg/profiles/profiles_init_fixed.F |
331 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
345 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
|
./pkg/profiles/profiles_init_fixed.F |
348 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
418 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
|
./pkg/profiles/profiles_init_fixed.F |
421 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
436 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
|
./pkg/profiles/profiles_init_fixed.F |
439 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
473 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(4A)') |
|
./pkg/profiles/profiles_init_fixed.F |
477 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
485 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(4A)') |
|
./pkg/profiles/profiles_init_fixed.F |
489 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
494 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(4A)') |
|
./pkg/profiles/profiles_init_fixed.F |
498 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
505 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(4A)') |
|
./pkg/profiles/profiles_init_fixed.F |
509 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
515 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
|
./pkg/profiles/profiles_init_fixed.F |
518 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
781 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
|
./pkg/profiles/profiles_init_fixed.F |
785 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
786 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(2A)') |
|
./pkg/profiles/profiles_init_fixed.F |
789 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_init_fixed.F |
790 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(A)') |
|
./pkg/profiles/profiles_init_fixed.F |
792 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_readparms.F |
108 |
PROFILES_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/profiles/profiles_readparms.F |
110 |
PROFILES_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/profiles/profiles_readparms.F |
115 |
PROFILES_READPARMS |
WRITE(msgBuf,'(A)') 'PROFILES_READPARMS: opening data.profiles' |
|
./pkg/profiles/profiles_readparms.F |
116 |
PROFILES_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/profiles/profiles_readparms.F |
126 |
PROFILES_READPARMS |
WRITE(msgBuf,'(2A)') 'PROFILES_READPARMS: ', |
|
./pkg/profiles/profiles_readparms.F |
128 |
PROFILES_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/profiles/profiles_readparms.F |
140 |
PROFILES_READPARMS |
WRITE(msgBuf,'(3A)') |
|
./pkg/profiles/profiles_readparms.F |
143 |
PROFILES_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/profiles/profiles_readparms.F |
38 |
PROFILES_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_ad_dump.F |
61 |
PTRACERS_AD_DUMP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_check.F |
100 |
PTRACERS_CHECK |
WRITE(msgBuf,'(A,I4)') ' tracer number : ',iTracer |
|
./pkg/ptracers/ptracers_check.F |
101 |
PTRACERS_CHECK |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_check.F |
146 |
PTRACERS_CHECK |
WRITE(msgBuf,'(A)') ' -----------------------------------' |
|
./pkg/ptracers/ptracers_check.F |
147 |
PTRACERS_CHECK |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_check.F |
152 |
PTRACERS_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** PTRACERS_CHECK:', |
|
./pkg/ptracers/ptracers_check.F |
154 |
PTRACERS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ptracers/ptracers_check.F |
156 |
PTRACERS_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** PTRACERS_CHECK:', |
|
./pkg/ptracers/ptracers_check.F |
158 |
PTRACERS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ptracers/ptracers_check.F |
161 |
PTRACERS_CHECK |
WRITE(msgBuf,'(2A,I3,A)') 'PTRACERS_CHECK:', |
|
./pkg/ptracers/ptracers_check.F |
163 |
PTRACERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check.F |
164 |
PTRACERS_CHECK |
WRITE(msgBuf,'(2A,I3,A)') 'PTRACERS_CHECK:', |
|
./pkg/ptracers/ptracers_check.F |
166 |
PTRACERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check.F |
173 |
PTRACERS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_check.F |
175 |
PTRACERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check.F |
176 |
PTRACERS_CHECK |
WRITE(msgBuf,'(2A,I3,A)') 'PTRACERS_CHECK:', |
|
./pkg/ptracers/ptracers_check.F |
178 |
PTRACERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check.F |
184 |
PTRACERS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_check.F |
186 |
PTRACERS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/ptracers/ptracers_check.F |
187 |
PTRACERS_CHECK |
WRITE(msgBuf,'(2A)') 'PTRACERS_CHECK: ', |
|
./pkg/ptracers/ptracers_check.F |
189 |
PTRACERS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/ptracers/ptracers_check.F |
195 |
PTRACERS_CHECK |
WRITE(msgBuf,'(2A,I3,A)') 'PTRACERS_CHECK:', |
|
./pkg/ptracers/ptracers_check.F |
197 |
PTRACERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check.F |
198 |
PTRACERS_CHECK |
WRITE(msgBuf,'(A,L5,A)') |
|
./pkg/ptracers/ptracers_check.F |
200 |
PTRACERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check.F |
204 |
PTRACERS_CHECK |
WRITE(msgBuf,'(2A,I3,A)') 'PTRACERS_CHECK:', |
|
./pkg/ptracers/ptracers_check.F |
206 |
PTRACERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check.F |
207 |
PTRACERS_CHECK |
WRITE(msgBuf,'(2A,L5,A)') 'PTRACERS_CHECK:', |
|
./pkg/ptracers/ptracers_check.F |
209 |
PTRACERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check.F |
213 |
PTRACERS_CHECK |
WRITE(msgBuf,'(2A,I3,A)') 'PTRACERS_CHECK:', |
|
./pkg/ptracers/ptracers_check.F |
215 |
PTRACERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check.F |
216 |
PTRACERS_CHECK |
WRITE(msgBuf,'(A,L5,A)') |
|
./pkg/ptracers/ptracers_check.F |
218 |
PTRACERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check.F |
38 |
PTRACERS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_check.F |
44 |
PTRACERS_CHECK |
WRITE(msgBuf,'(A)') 'PTRACERS_CHECK: #define ALLOW_PTRACERS' |
|
./pkg/ptracers/ptracers_check.F |
45 |
PTRACERS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_check.F |
50 |
PTRACERS_CHECK |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/ptracers/ptracers_check.F |
51 |
PTRACERS_CHECK |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/ptracers/ptracers_check.F |
52 |
PTRACERS_CHECK |
WRITE(msgBuf,'(A)') '// PTRACERS parameters ' |
|
./pkg/ptracers/ptracers_check.F |
53 |
PTRACERS_CHECK |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/ptracers/ptracers_check.F |
54 |
PTRACERS_CHECK |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/ptracers/ptracers_check.F |
55 |
PTRACERS_CHECK |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/ptracers/ptracers_check.F |
98 |
PTRACERS_CHECK |
WRITE(msgBuf,'(A)') ' -----------------------------------' |
|
./pkg/ptracers/ptracers_check.F |
99 |
PTRACERS_CHECK |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
102 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
104 |
PTRACERS_CHECK_PICKUP |
WRITE(msgBuf,'(3A,I4)') '** WARNING ** ', |
|
./pkg/ptracers/ptracers_check_pickup.F |
107 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
118 |
PTRACERS_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'PTRACERS_CHECK_PICKUP: ', |
|
./pkg/ptracers/ptracers_check_pickup.F |
120 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
127 |
PTRACERS_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'PTRACERS_CHECK_PICKUP: ', |
|
./pkg/ptracers/ptracers_check_pickup.F |
130 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
133 |
PTRACERS_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** PTRACERS_CHECK_PICKUP: ', |
|
./pkg/ptracers/ptracers_check_pickup.F |
135 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
54 |
PTRACERS_CHECK_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_check_pickup.F |
84 |
PTRACERS_CHECK_PICKUP |
WRITE(msgBuf,'(2A,I4,3A)') 'PTRACERS_CHECK_PICKUP: ', |
|
./pkg/ptracers/ptracers_check_pickup.F |
87 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
96 |
PTRACERS_CHECK_PICKUP |
IF ( fldName(1:4).EQ.'gPtr' ) WRITE(msgBuf,'(2A,I4)') |
|
./pkg/ptracers/ptracers_check_pickup.F |
99 |
PTRACERS_CHECK_PICKUP |
IF ( fldName(1:3).EQ.'pTr' ) WRITE(msgBuf,'(2A,I4)') |
|
./pkg/ptracers/ptracers_init_fixed.F |
101 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_init_fixed.F |
102 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_init_fixed.F |
104 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_init_fixed.F |
122 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A,9I3)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_init_fixed.F |
124 |
PTRACERS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_init_fixed.F |
139 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/ptracers/ptracers_init_fixed.F |
141 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_init_fixed.F |
44 |
PTRACERS_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_init_fixed.F |
64 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A,I6)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_init_fixed.F |
66 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_init_fixed.F |
67 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A,I6)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_init_fixed.F |
69 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_init_fixed.F |
96 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_init_fixed.F |
98 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_init_fixed.F |
99 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_monitor.F |
125 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor.F |
127 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor.F |
128 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_monitor.F |
130 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor.F |
131 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor.F |
133 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor.F |
49 |
PTRACERS_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_monitor.F |
85 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor.F |
87 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor.F |
88 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_monitor.F |
90 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor.F |
91 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor.F |
93 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor_ad.F |
100 |
ADPTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor_ad.F |
121 |
ADPTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor_ad.F |
123 |
ADPTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor_ad.F |
124 |
ADPTRACERS_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_monitor_ad.F |
126 |
ADPTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor_ad.F |
127 |
ADPTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor_ad.F |
129 |
ADPTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor_ad.F |
56 |
ADPTRACERS_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_monitor_ad.F |
92 |
ADPTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor_ad.F |
94 |
ADPTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor_ad.F |
95 |
ADPTRACERS_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_monitor_ad.F |
97 |
ADPTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor_ad.F |
98 |
ADPTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_read_pickup.F |
120 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
122 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
123 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
125 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
134 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
137 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
138 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
141 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
144 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
146 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
149 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
151 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
154 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
156 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
157 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
159 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
255 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
257 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
286 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(A,I3,A)')'PTRACERS_READ_PICKUP: iTracer = ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
288 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
315 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
318 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
321 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(2A)') 'WARNING >> PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
323 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
58 |
PTRACERS_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_read_pickup.F |
92 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(3A)')'PTRACERS_READ_PICKUP: MNC not yet coded', |
|
./pkg/ptracers/ptracers_read_pickup.F |
95 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ptracers/ptracers_readparms.F |
158 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') ' PTRACERS_READPARMS: opening data.ptracers' |
|
./pkg/ptracers/ptracers_readparms.F |
159 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_readparms.F |
166 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_readparms.F |
168 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_readparms.F |
178 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(2A)')' PTRACERS_READPARMS: ', |
|
./pkg/ptracers/ptracers_readparms.F |
180 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
199 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A,I4,A,I4,A)') |
|
./pkg/ptracers/ptracers_readparms.F |
203 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
224 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_readparms.F |
226 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
227 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_readparms.F |
229 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
42 |
PTRACERS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_reset.F |
110 |
PTRACERS_RESET |
WRITE(msgBuf,'(A,I3,A)')'PTRACERS_RESET: iTracer = ', |
|
./pkg/ptracers/ptracers_reset.F |
112 |
PTRACERS_RESET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_reset.F |
134 |
PTRACERS_RESET |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/ptracers/ptracers_reset.F |
135 |
PTRACERS_RESET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_reset.F |
44 |
PTRACERS_RESET |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_reset.F |
62 |
PTRACERS_RESET |
WRITE(msgBuf,'(A,I2,I10)') |
|
./pkg/ptracers/ptracers_reset.F |
65 |
PTRACERS_RESET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_write_pickup.F |
109 |
PTRACERS_WRITE_PICKUP |
WRITE(msgBuf,'(3A)')'PTRACERS_WRITE_PICKUP: MNC not yet coded', |
|
./pkg/ptracers/ptracers_write_pickup.F |
112 |
PTRACERS_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ptracers/ptracers_write_pickup.F |
162 |
PTRACERS_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'PTRACERS_WRITE_PICKUP: ', |
|
./pkg/ptracers/ptracers_write_pickup.F |
164 |
PTRACERS_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
165 |
PTRACERS_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'PTRACERS_WRITE_PICKUP: ', |
|
./pkg/ptracers/ptracers_write_pickup.F |
167 |
PTRACERS_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
195 |
PTRACERS_WRITE_PICKUP |
WRITE(msgBuf,'(A,I4,A)')'PTRACERS_WRITE_PICKUP: iTracer =', |
|
./pkg/ptracers/ptracers_write_pickup.F |
197 |
PTRACERS_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_write_pickup.F |
200 |
PTRACERS_WRITE_PICKUP |
WRITE(msgBuf,'(A,A)') ' to file: ',fn(1:j) |
|
./pkg/ptracers/ptracers_write_pickup.F |
201 |
PTRACERS_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_write_pickup.F |
66 |
PTRACERS_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_write_timeave.F |
136 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A)') 'S/R PTRACERS_WRITE_TIMEAVE' |
|
./pkg/ptracers/ptracers_write_timeave.F |
137 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
138 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A)') 'Error writing out data' |
|
./pkg/ptracers/ptracers_write_timeave.F |
139 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
140 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./pkg/ptracers/ptracers_write_timeave.F |
141 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
145 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/ptracers/ptracers_write_timeave.F |
147 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_write_timeave.F |
149 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/ptracers/ptracers_write_timeave.F |
150 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_write_timeave.F |
48 |
PTRACERS_WRITE_TIMEAVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rbcs/rbcs_init_fixed.F |
113 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A)') '** WARNING ** RBCS_INIT_FIXED: ', |
|
./pkg/rbcs/rbcs_init_fixed.F |
115 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/rbcs/rbcs_init_fixed.F |
134 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A)') '** WARNING ** RBCS_INIT_FIXED: ', |
|
./pkg/rbcs/rbcs_init_fixed.F |
136 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/rbcs/rbcs_init_fixed.F |
38 |
RBCS_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rbcs/rbcs_readparms.F |
133 |
RBCS_READPARMS |
WRITE(msgBuf,'(A)') ' RBCS_READPARMS: opening data.rbcs' |
|
./pkg/rbcs/rbcs_readparms.F |
134 |
RBCS_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/rbcs/rbcs_readparms.F |
144 |
RBCS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/rbcs/rbcs_readparms.F |
146 |
RBCS_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/rbcs/rbcs_readparms.F |
155 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A,2(L2,A))') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
158 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
159 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
161 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
166 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)')' RBCS_READPARAMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
168 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
169 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)')' RBCS_READPARAMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
171 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
177 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)')' RBCS_READPARAMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
179 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
180 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)')' RBCS_READPARAMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
182 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
184 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)')' RBCS_READPARAMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
186 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
187 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)')' RBCS_READPARAMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
189 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
194 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
196 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
200 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
202 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
206 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
208 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
212 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
214 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
221 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A,I6,A)') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
223 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
230 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A,I6,A)') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
232 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
233 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A,I6,A)') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
235 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
38 |
RBCS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/regrid/regrid_check.F |
31 |
REGRID_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/regrid/regrid_check.F |
36 |
REGRID_CHECK |
WRITE(msgBuf,'(A)') 'REGRID_CHECK: #define REGRID' |
|
./pkg/regrid/regrid_check.F |
37 |
REGRID_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/regrid/regrid_check.F |
43 |
REGRID_CHECK |
WRITE(msgBuf,'(A)') 'Regrid needs useMNC=.true.' |
|
./pkg/regrid/regrid_check.F |
44 |
REGRID_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/regrid/regrid_init_varia.F |
136 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(A)') 'S/R REGRID_INIT_VARIA()' |
|
./pkg/regrid/regrid_init_varia.F |
137 |
REGRID_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/regrid/regrid_init_varia.F |
138 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(3A)') ' File "', |
|
./pkg/regrid/regrid_init_varia.F |
140 |
REGRID_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/regrid/regrid_init_varia.F |
148 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(A)') 'S/R REGRID_INIT_VARIA()' |
|
./pkg/regrid/regrid_init_varia.F |
149 |
REGRID_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/regrid/regrid_init_varia.F |
150 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(3A)') 'Unable to open file="', |
|
./pkg/regrid/regrid_init_varia.F |
152 |
REGRID_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/regrid/regrid_init_varia.F |
156 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(3a)') 'Reading file "', fname(1:nnb),'"' |
|
./pkg/regrid/regrid_init_varia.F |
157 |
REGRID_INIT_VARIA |
call PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/regrid/regrid_init_varia.F |
181 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(a,i10)') ' num weights read = ', |
|
./pkg/regrid/regrid_init_varia.F |
183 |
REGRID_INIT_VARIA |
call PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/regrid/regrid_init_varia.F |
193 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(a)') ' ' |
|
./pkg/regrid/regrid_init_varia.F |
194 |
REGRID_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/regrid/regrid_init_varia.F |
69 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(a)') |
|
./pkg/regrid/regrid_init_varia.F |
71 |
REGRID_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/regrid/regrid_init_varia.F |
73 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(a)') |
|
./pkg/regrid/regrid_init_varia.F |
75 |
REGRID_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/regrid/regrid_init_varia.F |
77 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(a)') |
|
./pkg/regrid/regrid_init_varia.F |
79 |
REGRID_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/regrid/regrid_readparms.F |
31 |
REGRID_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/regrid/regrid_readparms.F |
68 |
REGRID_READPARMS |
WRITE(msgBuf,'(A)') 'REGRID_READPARMS: opening data.regrid' |
|
./pkg/regrid/regrid_readparms.F |
69 |
REGRID_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/regrid/regrid_readparms.F |
78 |
REGRID_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/regrid/regrid_readparms.F |
80 |
REGRID_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_check.F |
24 |
RUNCLOCK_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/runclock/runclock_check.F |
29 |
RUNCLOCK_CHECK |
WRITE(msgBuf,'(A)') 'RUNCLOCK_CHECK: #define RUNCLOCK' |
|
./pkg/runclock/runclock_check.F |
30 |
RUNCLOCK_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_continue.F |
35 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/runclock/runclock_continue.F |
44 |
NO PROCEDURE |
WRITE(msgBuf,'(A)') ' RUNCLOCK_CONTINUE: RUNCLOCK not turned on' |
|
./pkg/runclock/runclock_continue.F |
45 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_continue.F |
81 |
NO PROCEDURE |
WRITE(msgBuf,'(A,G16.6,G24.10)') ' RUNCLOCK: dT,T-To =', |
|
./pkg/runclock/runclock_continue.F |
83 |
NO PROCEDURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_continue.F |
89 |
NO PROCEDURE |
WRITE(msgBuf,'(A)') |
|
./pkg/runclock/runclock_continue.F |
91 |
NO PROCEDURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_continue.F |
93 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_continue.F |
94 |
NO PROCEDURE |
WRITE(msgBuf,'(A)') ' RUNCLOCK_CONTINUE: Ending run now ...' |
|
./pkg/runclock/runclock_continue.F |
95 |
NO PROCEDURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_continue.F |
97 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/all_proc_die.F |
44 |
ALL_PROC_DIE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/all_proc_die.F |
53 |
ALL_PROC_DIE |
WRITE(msgBuf,'(A)') 'S/R ALL_PROC_DIE: ending the run' |
|
./eesupp/src/all_proc_die.F |
54 |
ALL_PROC_DIE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/all_proc_die.F |
83 |
ALL_PROC_DIE |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/all_proc_die.F |
85 |
ALL_PROC_DIE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_init.F |
34 |
RUNCLOCK_INIT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/runclock/runclock_init.F |
37 |
RUNCLOCK_INIT |
WRITE(msgBuf,'(A)') ' RUNCLOCK_INIT: RUNCLOCK not turned on' |
|
./pkg/runclock/runclock_init.F |
38 |
RUNCLOCK_INIT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_readparms.F |
103 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A,I7)') |
|
./pkg/runclock/runclock_readparms.F |
105 |
RUNCLOCK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_readparms.F |
24 |
RUNCLOCK_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/runclock/runclock_readparms.F |
51 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: opening data.runclock' |
|
./pkg/runclock/runclock_readparms.F |
52 |
RUNCLOCK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_readparms.F |
68 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: read data.runclock done' |
|
./pkg/runclock/runclock_readparms.F |
69 |
RUNCLOCK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_readparms.F |
76 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: ERR! RC_maxtime_hr<0' |
|
./pkg/runclock/runclock_readparms.F |
77 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_readparms.F |
80 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: ERR! RC_maxtime_mi<0' |
|
./pkg/runclock/runclock_readparms.F |
81 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_readparms.F |
84 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: ERR! RC_maxtime_sc<0' |
|
./pkg/runclock/runclock_readparms.F |
85 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_readparms.F |
88 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: ERR! RC_maxtime_sc>59' |
|
./pkg/runclock/runclock_readparms.F |
89 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_readparms.F |
92 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: ERR! RC_maxtime_mi>59' |
|
./pkg/runclock/runclock_readparms.F |
93 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_readparms.F |
98 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: no Wall Clock limit set' |
|
./pkg/runclock/runclock_readparms.F |
99 |
RUNCLOCK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/do_write_pickup.F |
103 |
DO_WRITE_PICKUP |
WRITE(msgBuf,'(A11,I10,1X,A10)') |
|
./model/src/do_write_pickup.F |
105 |
DO_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/do_write_pickup.F |
115 |
DO_WRITE_PICKUP |
WRITE(msgBuf,'(A)') |
|
./model/src/do_write_pickup.F |
117 |
DO_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/do_write_pickup.F |
59 |
DO_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/read_mflds.F |
117 |
READ_MFLDS_SET |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/read_mflds.F |
128 |
READ_MFLDS_SET |
WRITE(msgBuf,'(4A)') 'READ_MFLDS_SET: ', |
|
./pkg/rw/read_mflds.F |
130 |
READ_MFLDS_SET |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
175 |
READ_MFLDS_SET |
WRITE(msgBuf,'(A,I5,A,I4,A)') |
|
./pkg/rw/read_mflds.F |
178 |
READ_MFLDS_SET |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
179 |
READ_MFLDS_SET |
WRITE(msgBuf,'(A,I5,A,I4,A)') |
|
./pkg/rw/read_mflds.F |
181 |
READ_MFLDS_SET |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
193 |
READ_MFLDS_SET |
WRITE(msgBuf,'(3A)') ' simulName=>', simulName(1:i), '<' |
|
./pkg/rw/read_mflds.F |
194 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
198 |
READ_MFLDS_SET |
WRITE(msgBuf,'(3A)') ' titleLine=>', titleLine(1:i), '<' |
|
./pkg/rw/read_mflds.F |
199 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
201 |
READ_MFLDS_SET |
WRITE(msgBuf,'(2(A,I4),A,I10)') |
|
./pkg/rw/read_mflds.F |
204 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
205 |
READ_MFLDS_SET |
WRITE(msgBuf,'(A,I4,A)') ' nDims =', nDims, ' , dims:' |
|
./pkg/rw/read_mflds.F |
206 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
208 |
READ_MFLDS_SET |
WRITE(msgBuf,'(I4,A,3I4)') j,':',(dimList(i,j),i=1,3) |
|
./pkg/rw/read_mflds.F |
209 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
211 |
READ_MFLDS_SET |
WRITE(msgBuf,'(3(A,I4))') |
|
./pkg/rw/read_mflds.F |
213 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
215 |
READ_MFLDS_SET |
WRITE(msgBuf,'(20(A2,A8,A))') |
|
./pkg/rw/read_mflds.F |
217 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
219 |
READ_MFLDS_SET |
WRITE(msgBuf,'(A,1PE22.14,A,I4,A)') 'missingVal=', misVal, |
|
./pkg/rw/read_mflds.F |
221 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
223 |
READ_MFLDS_SET |
WRITE(msgBuf,'(1P20E20.12)') (timList(i),i=1,nTimRec) |
|
./pkg/rw/read_mflds.F |
224 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
289 |
READ_MFLDS_3D_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/read_mflds.F |
295 |
READ_MFLDS_3D_RL |
WRITE(msgBuf,'(2A,I4)') 'READ_MFLDS_3D_RL: ', |
|
./pkg/rw/read_mflds.F |
297 |
READ_MFLDS_3D_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
321 |
READ_MFLDS_3D_RL |
WRITE(msgBuf,'(5A)') 'READ_MFLDS_3D_RL: ', |
|
./pkg/rw/read_mflds.F |
323 |
READ_MFLDS_3D_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
330 |
READ_MFLDS_3D_RL |
WRITE(msgBuf,'(3A,2(A,I4))') 'READ_MFLDS_3D_RL: ', |
|
./pkg/rw/read_mflds.F |
332 |
READ_MFLDS_3D_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
339 |
READ_MFLDS_3D_RL |
WRITE(msgBuf,'(3A,2(A,I4))') 'READ_MFLDS_3D_RL: ', |
|
./pkg/rw/read_mflds.F |
341 |
READ_MFLDS_3D_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
418 |
READ_MFLDS_LEV_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/read_mflds.F |
424 |
READ_MFLDS_LEV_RL |
WRITE(msgBuf,'(2A,I4)') 'READ_MFLDS_LEV_RL: ', |
|
./pkg/rw/read_mflds.F |
426 |
READ_MFLDS_LEV_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
450 |
READ_MFLDS_LEV_RL |
WRITE(msgBuf,'(5A)') 'READ_MFLDS_LEV_RL: ', |
|
./pkg/rw/read_mflds.F |
452 |
READ_MFLDS_LEV_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
459 |
READ_MFLDS_LEV_RL |
WRITE(msgBuf,'(3A,2(A,I4))') 'READ_MFLDS_LEV_RL: ', |
|
./pkg/rw/read_mflds.F |
461 |
READ_MFLDS_LEV_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
468 |
READ_MFLDS_LEV_RL |
WRITE(msgBuf,'(3A,2(A,I4))') 'READ_MFLDS_LEV_RL: ', |
|
./pkg/rw/read_mflds.F |
470 |
READ_MFLDS_LEV_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
547 |
READ_MFLDS_LEV_RS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/read_mflds.F |
553 |
READ_MFLDS_LEV_RS |
WRITE(msgBuf,'(2A,I4)') 'READ_MFLDS_LEV_RS: ', |
|
./pkg/rw/read_mflds.F |
555 |
READ_MFLDS_LEV_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
579 |
READ_MFLDS_LEV_RS |
WRITE(msgBuf,'(5A)') 'READ_MFLDS_LEV_RS: ', |
|
./pkg/rw/read_mflds.F |
581 |
READ_MFLDS_LEV_RS |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
588 |
READ_MFLDS_LEV_RS |
WRITE(msgBuf,'(3A,2(A,I4))') 'READ_MFLDS_LEV_RS: ', |
|
./pkg/rw/read_mflds.F |
590 |
READ_MFLDS_LEV_RS |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
597 |
READ_MFLDS_LEV_RS |
WRITE(msgBuf,'(3A,2(A,I4))') 'READ_MFLDS_LEV_RS: ', |
|
./pkg/rw/read_mflds.F |
599 |
READ_MFLDS_LEV_RS |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
665 |
READ_MFLDS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/read_mflds.F |
671 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(2A,I4)') 'READ_MFLDS_CHECK: ', |
|
./pkg/rw/read_mflds.F |
673 |
READ_MFLDS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
693 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(3A)') 'READ_MFLDS_CHECK: ', |
|
./pkg/rw/read_mflds.F |
695 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
696 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(2A,I4,A)') 'READ_MFLDS_CHECK: ', |
|
./pkg/rw/read_mflds.F |
698 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
700 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(20(A2,A8,A))') |
|
./pkg/rw/read_mflds.F |
702 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
704 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(A,I4,A)') 'READ_MFLDS_CHECK: ', |
|
./pkg/rw/read_mflds.F |
706 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
709 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(20(A2,A8,A))') |
|
./pkg/rw/read_mflds.F |
711 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
717 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(2A,I4)') 'READ_MFLDS_CHECK: ', |
|
./pkg/rw/read_mflds.F |
719 |
READ_MFLDS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
734 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(3A)') 'READ_MFLDS_CHECK: ', |
|
./pkg/rw/read_mflds.F |
736 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/write_fld_s3d_rl.F |
54 |
WRITE_FLD_S3D_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/write_fld_s3d_rl.F |
63 |
WRITE_FLD_S3D_RL |
WRITE(msgBuf,'(2A,2(I3,A))') 'WRITE_FLD_S3D_RL:', |
|
./pkg/rw/write_fld_s3d_rl.F |
65 |
WRITE_FLD_S3D_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/write_fld_s3d_rl.F |
69 |
WRITE_FLD_S3D_RL |
WRITE(msgBuf,'(2A,2(I3,A))') 'WRITE_FLD_S3D_RL:', |
|
./pkg/rw/write_fld_s3d_rl.F |
71 |
WRITE_FLD_S3D_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/write_fld_s3d_rs.F |
54 |
WRITE_FLD_S3D_RS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/write_fld_s3d_rs.F |
63 |
WRITE_FLD_S3D_RS |
WRITE(msgBuf,'(2A,2(I3,A))') 'WRITE_FLD_S3D_RS:', |
|
./pkg/rw/write_fld_s3d_rs.F |
65 |
WRITE_FLD_S3D_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/write_fld_s3d_rs.F |
69 |
WRITE_FLD_S3D_RS |
WRITE(msgBuf,'(2A,2(I3,A))') 'WRITE_FLD_S3D_RS:', |
|
./pkg/rw/write_fld_s3d_rs.F |
71 |
WRITE_FLD_S3D_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/salt_plume/salt_plume_apply.F |
69 |
SALT_PLUME_APPLY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/salt_plume/salt_plume_check.F |
29 |
SALT_PLUME_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/salt_plume/salt_plume_check.F |
33 |
SALT_PLUME_CHECK |
WRITE(msgBuf,'(A)') 'SALT_PLUME_CHECK: #define SALT_PLUME' |
|
./pkg/salt_plume/salt_plume_check.F |
34 |
SALT_PLUME_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/salt_plume/salt_plume_check.F |
40 |
SALT_PLUME_CHECK |
WRITE(msgBuf,'(2A)') 'SALT_PLUME_CHECK:', |
|
./pkg/salt_plume/salt_plume_check.F |
42 |
SALT_PLUME_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/salt_plume/salt_plume_check.F |
47 |
SALT_PLUME_CHECK |
WRITE(msgBuf,'(2A)') 'SALT_PLUME_CHECK:', |
|
./pkg/salt_plume/salt_plume_check.F |
49 |
SALT_PLUME_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/salt_plume/salt_plume_check.F |
54 |
SALT_PLUME_CHECK |
WRITE(msgBuf,'(2A)') 'SALT_PLUME_CHECK:', |
|
./pkg/salt_plume/salt_plume_check.F |
56 |
SALT_PLUME_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/salt_plume/salt_plume_check.F |
64 |
SALT_PLUME_CHECK |
WRITE(msgBuf,'(2A)') 'SALT_PLUME_CHECK:', |
|
./pkg/salt_plume/salt_plume_check.F |
66 |
SALT_PLUME_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/salt_plume/salt_plume_check.F |
73 |
SALT_PLUME_CHECK |
WRITE(msgBuf,'(2A,F6.1,A)') 'SALT_PLUME_CHECK:', |
|
./pkg/salt_plume/salt_plume_check.F |
75 |
SALT_PLUME_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/salt_plume/salt_plume_readparms.F |
108 |
SALT_PLUME_READPARMS |
WRITE(msgBuf,'(A)') 'S/R SALT_PLUME_READPARMS' |
|
./pkg/salt_plume/salt_plume_readparms.F |
109 |
SALT_PLUME_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/salt_plume/salt_plume_readparms.F |
110 |
SALT_PLUME_READPARMS |
WRITE(msgBuf,'(A)') 'Invalid CriterionType' |
|
./pkg/salt_plume/salt_plume_readparms.F |
111 |
SALT_PLUME_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/salt_plume/salt_plume_readparms.F |
30 |
SALT_PLUME_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/salt_plume/salt_plume_readparms.F |
85 |
SALT_PLUME_READPARMS |
WRITE(msgBuf,'(A)')'SALT_PLUME_READPARMS: opening data.salt_plume' |
|
./pkg/salt_plume/salt_plume_readparms.F |
86 |
SALT_PLUME_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/salt_plume/salt_plume_readparms.F |
95 |
SALT_PLUME_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/salt_plume/salt_plume_readparms.F |
97 |
SALT_PLUME_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/sbo/sbo_check.F |
27 |
SBO_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/sbo/sbo_check.F |
31 |
SBO_CHECK |
WRITE(msgBuf,'(A)') 'SBO_CHECK: #define ALLOW_SBO' |
|
./pkg/sbo/sbo_check.F |
32 |
SBO_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/sbo/sbo_check.F |
37 |
SBO_CHECK |
WRITE(msgBuf,'(A)') 'SBO not implemented for Cartesian Grid' |
|
./pkg/sbo/sbo_check.F |
38 |
SBO_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/sbo/sbo_check.F |
42 |
SBO_CHECK |
WRITE(msgBuf,'(A)') 'SBO not implemented for Cylindrical Grid' |
|
./pkg/sbo/sbo_check.F |
43 |
SBO_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/sbo/sbo_output.F |
114 |
SBO_OUTPUT |
WRITE(msgBuf,'(A,1PE21.13)') |
|
./pkg/sbo/sbo_output.F |
116 |
SBO_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/sbo/sbo_output.F |
117 |
SBO_OUTPUT |
WRITE(msgBuf,'(A,1PE21.13)') |
|
./pkg/sbo/sbo_output.F |
119 |
SBO_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/sbo/sbo_output.F |
120 |
SBO_OUTPUT |
WRITE(msgBuf,'(A,1PE21.13)') |
|
./pkg/sbo/sbo_output.F |
122 |
SBO_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/sbo/sbo_output.F |
123 |
SBO_OUTPUT |
WRITE(msgBuf,'(A,1PE21.13)') |
|
./pkg/sbo/sbo_output.F |
125 |
SBO_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/sbo/sbo_output.F |
46 |
SBO_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/sbo/sbo_readparms.F |
101 |
SBO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/sbo/sbo_readparms.F |
102 |
SBO_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/sbo/sbo_readparms.F |
104 |
SBO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/sbo/sbo_readparms.F |
110 |
SBO_READPARMS |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/sbo/sbo_readparms.F |
112 |
SBO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/sbo/sbo_readparms.F |
37 |
SBO_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/sbo/sbo_readparms.F |
61 |
SBO_READPARMS |
WRITE(msgBuf,'(A)') ' SBO_READPARMS: opening data.sbo' |
|
./pkg/sbo/sbo_readparms.F |
62 |
SBO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/sbo/sbo_readparms.F |
85 |
SBO_READPARMS |
WRITE(msgBuf,'(A)') ' SBO_READPARMS: finished reading data.sbo' |
|
./pkg/sbo/sbo_readparms.F |
86 |
SBO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/sbo/sbo_readparms.F |
92 |
SBO_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SBO_READPARMS: "sbo_taveFreq" ', |
|
./pkg/sbo/sbo_readparms.F |
94 |
SBO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/sbo/sbo_readparms.F |
99 |
SBO_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SBO_READPARMS: ', |
|
./pkg/seaice/cost_ice_test.F |
225 |
COST_ICE_TEST |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/cost_ice_test.F |
227 |
COST_ICE_TEST |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/cost_ice_test.F |
74 |
COST_ICE_TEST |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/lsr.F |
664 |
LSR |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/seaice/lsr.F |
666 |
LSR |
CALL DEBUG_STATS_RL( 1, uIce, msgBuf, myThid ) |
|
./pkg/seaice/lsr.F |
667 |
LSR |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/seaice/lsr.F |
669 |
LSR |
CALL DEBUG_STATS_RL( 1, vIce, msgBuf, myThid ) |
|
./pkg/seaice/lsr.F |
673 |
LSR |
WRITE(msgBuf,'(2A,I10,A,I4,A)') '** WARNING ** SEAICE_LSR ', |
|
./pkg/seaice/lsr.F |
675 |
LSR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/seaice/lsr.F |
677 |
LSR |
WRITE(msgBuf,'(2(A,I6,0PF6.3,1PE14.6))') |
|
./pkg/seaice/lsr.F |
680 |
LSR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/seaice/lsr.F |
85 |
LSR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/find_rho.F |
1143 |
FIND_RHO_SCALAR |
WRITE(msgBuf,'(3A)') |
|
./model/src/find_rho.F |
1146 |
FIND_RHO_SCALAR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/find_rho.F |
1191 |
LOOK_FOR_NEG_SALINITY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/find_rho.F |
1206 |
LOOK_FOR_NEG_SALINITY |
WRITE(msgBuf,'(2A,I5,A,2I4)') 'S/R LOOK_FOR_NEG_SALINITY:', |
|
./model/src/find_rho.F |
1208 |
LOOK_FOR_NEG_SALINITY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/find_rho.F |
1210 |
LOOK_FOR_NEG_SALINITY |
WRITE(msgBuf,'(2A,I6,A)') 'S/R LOOK_FOR_NEG_SALINITY:', |
|
./model/src/find_rho.F |
1212 |
LOOK_FOR_NEG_SALINITY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/find_rho.F |
240 |
FIND_RHO_2D |
WRITE(msgBuf,'(3a)') |
|
./model/src/find_rho.F |
242 |
FIND_RHO_2D |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/find_rho.F |
73 |
FIND_RHO_2D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/find_rho.F |
846 |
FIND_RHO_SCALAR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/find_rho.F |
908 |
FIND_RHO_SCALAR |
WRITE(msgBuf,'(A,E13.5)') |
|
./model/src/find_rho.F |
910 |
FIND_RHO_SCALAR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/find_rho.F |
927 |
FIND_RHO_SCALAR |
WRITE(msgBuf,'(A)') |
|
./model/src/find_rho.F |
929 |
FIND_RHO_SCALAR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/find_rho.F |
931 |
FIND_RHO_SCALAR |
WRITE(msgBuf,'(A)') |
|
./model/src/find_rho.F |
933 |
FIND_RHO_SCALAR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/seaice/seaice_advection.F |
136 |
SEAICE_ADVECTION |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_advection.F |
166 |
SEAICE_ADVECTION |
WRITE(msgBuf,'(A,2I3)') |
|
./pkg/seaice/seaice_advection.F |
169 |
SEAICE_ADVECTION |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_advection.F |
206 |
SEAICE_ADVECTION |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_advection.F |
208 |
SEAICE_ADVECTION |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_advection.F |
288 |
SEAICE_ADVECTION |
WRITE(msgBuf,'(A,2I3)') |
|
./pkg/seaice/seaice_advection.F |
291 |
SEAICE_ADVECTION |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_advection.F |
393 |
SEAICE_ADVECTION |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/seaice/seaice_advection.F |
396 |
SEAICE_ADVECTION |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_advection.F |
595 |
SEAICE_ADVECTION |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/seaice/seaice_advection.F |
598 |
SEAICE_ADVECTION |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/forcing_surf_relax.F |
198 |
FORCING_SURF_RELAX |
WRITE(msgBuf,'(A,E24.17)') |
|
./model/src/forcing_surf_relax.F |
200 |
FORCING_SURF_RELAX |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/forcing_surf_relax.F |
234 |
FORCING_SURF_RELAX |
WRITE(msgBuf,'(A,E24.17)') |
|
./model/src/forcing_surf_relax.F |
236 |
FORCING_SURF_RELAX |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/forcing_surf_relax.F |
62 |
FORCING_SURF_RELAX |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_check.F |
104 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
106 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
107 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
109 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
119 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
121 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
122 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
124 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
130 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
132 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
133 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
135 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
141 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/seaice/seaice_check.F |
144 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
150 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
152 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
153 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
155 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
163 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
165 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
166 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
168 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
175 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
177 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
178 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
180 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
185 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
187 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
188 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
190 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
205 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/seaice/seaice_check.F |
208 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
214 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/seaice/seaice_check.F |
217 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
233 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/seaice/seaice_check.F |
236 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
278 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: allowed advection schemes', |
|
./pkg/seaice/seaice_check.F |
280 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
281 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,7I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
285 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
286 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
288 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
290 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
292 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
295 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
297 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
300 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
302 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
305 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
307 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
325 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I3,A)') 'SEAICE_CHECK: SEAICEadvScheme=', |
|
./pkg/seaice/seaice_check.F |
327 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
329 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
331 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
334 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
336 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
339 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
341 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
344 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
346 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
353 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,1PE16.8)') 'SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
355 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
356 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
358 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
369 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
371 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
372 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
374 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
379 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
381 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
387 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
389 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
390 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: OR SEAICEpresPow1 ', |
|
./pkg/seaice/seaice_check.F |
392 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
399 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
401 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
402 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,2I4)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
405 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
409 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
411 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
412 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,2I4)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
414 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
418 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICE_maskRHS not allowed' |
|
./pkg/seaice/seaice_check.F |
419 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
427 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
429 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
436 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
438 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
439 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
441 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
446 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
448 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
453 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
455 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
460 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
462 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
463 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
465 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
466 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
468 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
473 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
475 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
476 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
478 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
483 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
485 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
486 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
488 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
489 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
491 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
492 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
494 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
500 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
502 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
503 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'they are replaced with run time', |
|
./pkg/seaice/seaice_check.F |
505 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
50 |
SEAICE_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_check.F |
511 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
513 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
514 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
516 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
522 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
524 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
525 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
527 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
533 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
535 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
536 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'it now is done', |
|
./pkg/seaice/seaice_check.F |
538 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
544 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
546 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
547 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
549 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
555 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
557 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
558 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
560 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
567 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
569 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
573 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
575 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
579 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
581 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
585 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
587 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
592 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
594 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
598 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
600 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
601 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
603 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
608 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_check.F |
610 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
611 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
614 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
619 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_check.F |
621 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
622 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
625 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
629 |
SEAICE_CHECK |
WRITE(msgBuf,'(3A)') 'S/R SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
632 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_check.F |
634 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
635 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
637 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_check.F |
639 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
643 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
645 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
651 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
653 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
661 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_check.F |
664 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
671 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
673 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
674 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I4)') |
|
./pkg/seaice/seaice_check.F |
677 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
682 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
685 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
686 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I4)') |
|
./pkg/seaice/seaice_check.F |
688 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
694 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICEnEVPstarSteps is '// |
|
./pkg/seaice/seaice_check.F |
696 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
701 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICEnEVPstarSteps is '// |
|
./pkg/seaice/seaice_check.F |
703 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
708 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICE_deltaTevp is set' |
|
./pkg/seaice/seaice_check.F |
709 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
710 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: but cpp-flag '// |
|
./pkg/seaice/seaice_check.F |
712 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
718 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
720 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
721 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
723 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
724 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
726 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
727 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
729 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
734 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
736 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
737 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') ' but CPP-flag ', |
|
./pkg/seaice/seaice_check.F |
739 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
73 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: #define ALLOW_SEAICE' |
|
./pkg/seaice/seaice_check.F |
746 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
748 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
749 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: but cpp-flag '// |
|
./pkg/seaice/seaice_check.F |
74 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_check.F |
751 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
759 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
762 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
763 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: but cpp-flag '// |
|
./pkg/seaice/seaice_check.F |
765 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
772 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICEuseTEM requires that' |
|
./pkg/seaice/seaice_check.F |
773 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
774 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
776 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
783 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
785 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
786 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
788 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
789 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
791 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
795 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
797 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
79 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
801 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
803 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
811 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
813 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
817 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
819 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
81 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
826 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
828 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
829 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: '// |
|
./pkg/seaice/seaice_check.F |
831 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
839 |
SEAICE_CHECK |
WRITE(msgBuf,'(3A)') 'S/R SEAICE_CHECK: JFNKres_t and ', |
|
./pkg/seaice/seaice_check.F |
841 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
842 |
SEAICE_CHECK |
WRITE(msgBuf,'(3A)') 'S/R SEAICE_CHECK: ', |
|
./pkg/seaice/seaice_check.F |
845 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
846 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/seaice/seaice_check.F |
849 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
852 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_CHECK: need to specify ', |
|
./pkg/seaice/seaice_check.F |
854 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
860 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I2,A,I2)') 'S/R SEAICE_CHECK: SEAICE_OLx/y = ', |
|
./pkg/seaice/seaice_check.F |
862 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
863 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I2,A,I2)') |
|
./pkg/seaice/seaice_check.F |
866 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
871 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/seaice/seaice_check.F |
874 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
879 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
881 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
882 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: '// |
|
./pkg/seaice/seaice_check.F |
884 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
88 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
891 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICEuseBDF2 = .TRUE. '// |
|
./pkg/seaice/seaice_check.F |
893 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
897 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICEuseIMEX = .TRUE. '// |
|
./pkg/seaice/seaice_check.F |
899 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
904 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') '** WARNING ** SEAICE_CHECK: '// |
|
./pkg/seaice/seaice_check.F |
907 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
90 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
911 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I2)') |
|
./pkg/seaice/seaice_check.F |
913 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
914 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: '// |
|
./pkg/seaice/seaice_check.F |
916 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
926 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') '** WARNING ** SEAICE_CHECK: '// |
|
./pkg/seaice/seaice_check.F |
928 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
929 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_check.F |
931 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') '** WARNING ** SEAICE_CHECK: '// |
|
./pkg/seaice/seaice_check.F |
933 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
934 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_check.F |
936 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') '** WARNING ** SEAICE_CHECK: '// |
|
./pkg/seaice/seaice_check.F |
938 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check.F |
939 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_check.F |
95 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
97 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
104 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** SEAICE_CHECK_PICKUP:', |
|
./pkg/seaice/seaice_check_pickup.F |
106 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
116 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** SEAICE_CHECK_PICKUP:', |
|
./pkg/seaice/seaice_check_pickup.F |
118 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
127 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** SEAICE_CHECK_PICKUP:', |
|
./pkg/seaice/seaice_check_pickup.F |
129 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
142 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'SEAICE_CHECK_PICKUP: ', |
|
./pkg/seaice/seaice_check_pickup.F |
144 |
SEAICE_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
157 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'SEAICE_CHECK_PICKUP: ', |
|
./pkg/seaice/seaice_check_pickup.F |
159 |
SEAICE_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
169 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') |
|
./pkg/seaice/seaice_check_pickup.F |
173 |
SEAICE_CHECK_PICKUP |
& msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
183 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'SEAICE_CHECK_PICKUP: ', |
|
./pkg/seaice/seaice_check_pickup.F |
185 |
SEAICE_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
195 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'SEAICE_CHECK_PICKUP: ', |
|
./pkg/seaice/seaice_check_pickup.F |
198 |
SEAICE_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
205 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(3A)') '** WARNING ** SEAICE_CHECK_PICKUP:', |
|
./pkg/seaice/seaice_check_pickup.F |
208 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
212 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** SEAICE_CHECK_PICKUP: ', |
|
./pkg/seaice/seaice_check_pickup.F |
214 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
65 |
SEAICE_CHECK_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_check_pickup.F |
96 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** SEAICE_CHECK_PICKUP:', |
|
./pkg/seaice/seaice_check_pickup.F |
98 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_do_ridging.F |
426 |
SEAICE_DO_RIDGING |
WRITE(msgBuf,'(A)') 'SEAICE_DO_RIDGING: *** WARNING ***' |
|
./pkg/seaice/seaice_do_ridging.F |
427 |
SEAICE_DO_RIDGING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_do_ridging.F |
429 |
SEAICE_DO_RIDGING |
WRITE(msgBuf,'(A,I2,A)') 'SEAICE_DO_RIDGING: '// |
|
./pkg/seaice/seaice_do_ridging.F |
432 |
SEAICE_DO_RIDGING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_do_ridging.F |
439 |
SEAICE_DO_RIDGING |
WRITE(msgBuf,'(A,I2,A,I10)') |
|
./pkg/seaice/seaice_do_ridging.F |
442 |
SEAICE_DO_RIDGING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_do_ridging.F |
97 |
SEAICE_DO_RIDGING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_fake.F |
43 |
SEAICE_FAKE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_fake.F |
45 |
SEAICE_FAKE |
WRITE(msgBuf,'(2A)') 'SEAICE_FAKE:', |
|
./pkg/seaice/seaice_fake.F |
47 |
SEAICE_FAKE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_fgmres.F |
477 |
SEAICE_FGMRES |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_fgmres.F |
534 |
SEAICE_FGMRES |
write(msgBuf, 199) its, ro |
|
./pkg/seaice/seaice_fgmres.F |
535 |
SEAICE_FGMRES |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_fgmres.F |
675 |
SEAICE_FGMRES |
write(msgBuf, 199) its, ro |
|
./pkg/seaice/seaice_fgmres.F |
676 |
SEAICE_FGMRES |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_growth.F |
102 |
SEAICE_GROWTH |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_growth.F |
104 |
SEAICE_GROWTH |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_growth.F |
2624 |
SEAICE_GROWTH |
WRITE(msgBuf,'(a,a,e24.17)') 'rm Global mean of ', |
|
./pkg/seaice/seaice_growth.F |
2626 |
SEAICE_GROWTH |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_growth.F |
2645 |
SEAICE_GROWTH |
WRITE(msgBuf,'(a,a,e24.17)') 'rm Global mean of ', |
|
./pkg/seaice/seaice_growth.F |
2647 |
SEAICE_GROWTH |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_init_fixed.F |
178 |
SEAICE_INIT_FIXED |
WRITE(msgBuf,'(A,I2,A)') |
|
./pkg/seaice/seaice_init_fixed.F |
181 |
SEAICE_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_init_fixed.F |
184 |
SEAICE_INIT_FIXED |
WRITE(msgBuf,HlimitMsgFormat) |
|
./pkg/seaice/seaice_init_fixed.F |
186 |
SEAICE_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_init_fixed.F |
34 |
SEAICE_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_jfnk.F |
261 |
SEAICE_JFNK |
WRITE(msgBuf,'(2A,2(1XI6),2E12.5)') |
|
./pkg/seaice/seaice_jfnk.F |
266 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
268 |
SEAICE_JFNK |
WRITE(msgBuf,'(3(A,I6))') |
|
./pkg/seaice/seaice_jfnk.F |
272 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
338 |
SEAICE_JFNK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_jfnk.F |
340 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
342 |
SEAICE_JFNK |
WRITE(msgBuf,'(A)') ' // Begin JFNK statistics' |
|
./pkg/seaice/seaice_jfnk.F |
343 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
345 |
SEAICE_JFNK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_jfnk.F |
347 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
349 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/seaice/seaice_jfnk.F |
351 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
353 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/seaice/seaice_jfnk.F |
355 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
357 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/seaice/seaice_jfnk.F |
359 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
361 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/seaice/seaice_jfnk.F |
363 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
365 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/seaice/seaice_jfnk.F |
367 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
369 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/seaice/seaice_jfnk.F |
371 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
373 |
SEAICE_JFNK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_jfnk.F |
375 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
377 |
SEAICE_JFNK |
WRITE(msgBuf,'(A)') ' // End JFNK statistics' |
|
./pkg/seaice/seaice_jfnk.F |
378 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
380 |
SEAICE_JFNK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_jfnk.F |
382 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
397 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/seaice/seaice_jfnk.F |
400 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
406 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I4,A,I10)') |
|
./pkg/seaice/seaice_jfnk.F |
409 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
414 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I6,A,I10)') |
|
./pkg/seaice/seaice_jfnk.F |
417 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
495 |
SEAICE_JFNK_UPDATE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_jfnk.F |
541 |
SEAICE_JFNK_UPDATE |
WRITE(msgBuf,'(2A,2(1XI6),3E12.5)') |
|
./pkg/seaice/seaice_jfnk.F |
545 |
SEAICE_JFNK_UPDATE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_jfnk.F |
85 |
SEAICE_JFNK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_lsr.F |
447 |
SEAICE_LSR |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/seaice/seaice_lsr.F |
449 |
SEAICE_LSR |
CALL DEBUG_STATS_RL( 1, UICE, msgBuf, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
450 |
SEAICE_LSR |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/seaice/seaice_lsr.F |
452 |
SEAICE_LSR |
CALL DEBUG_STATS_RL( 1, VICE, msgBuf, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
816 |
SEAICE_LSR |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/seaice/seaice_lsr.F |
818 |
SEAICE_LSR |
CALL DEBUG_STATS_RL( 1, UICE, msgBuf, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
819 |
SEAICE_LSR |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/seaice/seaice_lsr.F |
821 |
SEAICE_LSR |
CALL DEBUG_STATS_RL( 1, VICE, msgBuf, myThid ) |
|
./pkg/seaice/seaice_lsr.F |
825 |
SEAICE_LSR |
WRITE(msgBuf,'(2A,I10,A,I4,A)') '** WARNING ** SEAICE_LSR ', |
|
./pkg/seaice/seaice_lsr.F |
827 |
SEAICE_LSR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/seaice/seaice_lsr.F |
829 |
SEAICE_LSR |
WRITE(msgBuf,'(2(A,I6,0PF6.3,1PE14.6))') |
|
./pkg/seaice/seaice_lsr.F |
832 |
SEAICE_LSR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/seaice/seaice_lsr.F |
86 |
SEAICE_LSR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_monitor.F |
143 |
SEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/seaice/seaice_monitor.F |
145 |
SEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor.F |
146 |
SEAICE_MONITOR |
WRITE(msgBuf,'(A)') '// End MONITOR SEAICE statistics' |
|
./pkg/seaice/seaice_monitor.F |
147 |
SEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor.F |
148 |
SEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/seaice/seaice_monitor.F |
150 |
SEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor.F |
45 |
SEAICE_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_monitor.F |
85 |
SEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/seaice/seaice_monitor.F |
87 |
SEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor.F |
88 |
SEAICE_MONITOR |
WRITE(msgBuf,'(A)') '// Begin MONITOR SEAICE statistics' |
|
./pkg/seaice/seaice_monitor.F |
89 |
SEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor.F |
90 |
SEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/seaice/seaice_monitor.F |
92 |
SEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor_ad.F |
139 |
ADSEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/seaice/seaice_monitor_ad.F |
141 |
ADSEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor_ad.F |
142 |
ADSEAICE_MONITOR |
WRITE(msgBuf,'(A)') '// End AD_MONITOR SEAICE statistics' |
|
./pkg/seaice/seaice_monitor_ad.F |
143 |
ADSEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor_ad.F |
144 |
ADSEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/seaice/seaice_monitor_ad.F |
146 |
ADSEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor_ad.F |
51 |
ADSEAICE_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_monitor_ad.F |
91 |
ADSEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/seaice/seaice_monitor_ad.F |
93 |
ADSEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor_ad.F |
94 |
ADSEAICE_MONITOR |
WRITE(msgBuf,'(A)') '// Begin AD_MONITOR SEAICE statistics' |
|
./pkg/seaice/seaice_monitor_ad.F |
95 |
ADSEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor_ad.F |
96 |
ADSEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/seaice/seaice_monitor_ad.F |
98 |
ADSEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_preconditioner.F |
215 |
SEAICE_PRECONDITIONER |
WRITE(msgBuf,'(A,I3,A,I3,A)') |
|
./pkg/seaice/seaice_preconditioner.F |
218 |
SEAICE_PRECONDITIONER |
CALL DEBUG_STATS_RL( 1, UICE, msgBuf, myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
219 |
SEAICE_PRECONDITIONER |
WRITE(msgBuf,'(A,I3,A,I3,A)') |
|
./pkg/seaice/seaice_preconditioner.F |
222 |
SEAICE_PRECONDITIONER |
CALL DEBUG_STATS_RL( 1, VICE, msgBuf, myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
399 |
SEAICE_PRECONDITIONER |
WRITE(msgBuf,'(A,I3,A,I3,A)') |
|
./pkg/seaice/seaice_preconditioner.F |
402 |
SEAICE_PRECONDITIONER |
CALL DEBUG_STATS_RL( 1, UICE, msgBuf, myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
403 |
SEAICE_PRECONDITIONER |
WRITE(msgBuf,'(A,I3,A,I3,A)') |
|
./pkg/seaice/seaice_preconditioner.F |
406 |
SEAICE_PRECONDITIONER |
CALL DEBUG_STATS_RL( 1, VICE, msgBuf, myThid ) |
|
./pkg/seaice/seaice_preconditioner.F |
86 |
SEAICE_PRECONDITIONER |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_read_pickup.F |
103 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'SEAICE_READ_PICKUP: ', |
|
./pkg/seaice/seaice_read_pickup.F |
106 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
107 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'SEAICE_READ_PICKUP: ', |
|
./pkg/seaice/seaice_read_pickup.F |
110 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
113 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> SEAICE_READ_PICKUP: ', |
|
./pkg/seaice/seaice_read_pickup.F |
115 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
118 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/seaice/seaice_read_pickup.F |
120 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
123 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/seaice/seaice_read_pickup.F |
125 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
126 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/seaice/seaice_read_pickup.F |
128 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
285 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'SEAICE_READ_PICKUP: ', |
|
./pkg/seaice/seaice_read_pickup.F |
287 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
56 |
SEAICE_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_read_pickup.F |
87 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'SEAICE_READ_PICKUP: ', |
|
./pkg/seaice/seaice_read_pickup.F |
89 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
90 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'SEAICE_READ_PICKUP: ', |
|
./pkg/seaice/seaice_read_pickup.F |
92 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
1000 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
1007 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
1010 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
1011 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
1014 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
1017 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)')'S/R SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
1019 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
1020 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)')'S/R SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
1022 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
1026 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
1029 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
1033 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
1036 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
1040 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
1043 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
1046 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
1048 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
1049 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
1051 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
1087 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') |
|
./pkg/seaice/seaice_readparms.F |
1090 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
1091 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') |
|
./pkg/seaice/seaice_readparms.F |
1094 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
1095 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,E13.6,A)') |
|
./pkg/seaice/seaice_readparms.F |
1098 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
1109 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
1111 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/seaice/seaice_readparms.F |
1116 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
1118 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/seaice/seaice_readparms.F |
1123 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
1125 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/seaice/seaice_readparms.F |
1130 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
1132 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/seaice/seaice_readparms.F |
1137 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
1139 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/seaice/seaice_readparms.F |
52 |
SEAICE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_readparms.F |
552 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
554 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_readparms.F |
556 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') ' SEAICE_READPARMS: opening data.seaice' |
|
./pkg/seaice/seaice_readparms.F |
557 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_readparms.F |
585 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
587 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_readparms.F |
615 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
617 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
618 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
620 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
630 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
632 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
636 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
638 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
660 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
663 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/seaice/seaice_readparms.F |
671 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
674 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/seaice/seaice_readparms.F |
676 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
679 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/seaice/seaice_readparms.F |
709 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
|
./pkg/seaice/seaice_readparms.F |
711 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
720 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
|
./pkg/seaice/seaice_readparms.F |
722 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
731 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
|
./pkg/seaice/seaice_readparms.F |
734 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
|
./pkg/seaice/seaice_readparms.F |
737 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
761 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
|
./pkg/seaice/seaice_readparms.F |
763 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
770 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
|
./pkg/seaice/seaice_readparms.F |
773 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
|
./pkg/seaice/seaice_readparms.F |
776 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
820 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
823 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
824 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
827 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
831 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
834 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
835 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
838 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
842 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
845 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
846 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
849 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
852 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)')'S/R SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
854 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
855 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)')'S/R SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
857 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
861 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
863 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
864 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
866 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
870 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
872 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
873 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
875 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
879 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
881 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
882 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: ', |
|
./pkg/seaice/seaice_readparms.F |
884 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
888 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
891 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
892 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
895 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
899 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
902 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
903 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
906 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
910 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
913 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
914 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
918 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
922 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
925 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
926 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
929 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
933 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
936 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
937 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
940 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
944 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: "LAD" ', |
|
./pkg/seaice/seaice_readparms.F |
946 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
947 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'always use modified Euler step ', |
|
./pkg/seaice/seaice_readparms.F |
949 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
953 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
956 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
960 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
963 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
964 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
967 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
971 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
974 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
975 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
978 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
982 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
985 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
986 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
989 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
993 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_readparms.F |
996 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
997 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_summary.F |
100 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
102 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
110 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' pkg/seaice dynamics is OFF ' |
|
./pkg/seaice/seaice_summary.F |
111 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
245 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/seaice/seaice_summary.F |
246 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
248 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
250 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
252 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
254 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
257 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
259 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
308 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/seaice/seaice_summary.F |
309 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
311 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
313 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
315 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
317 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
330 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' pkg/seaice thermodynamics is OFF ' |
|
./pkg/seaice/seaice_summary.F |
331 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
364 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(2A)') 'SEAICE_areaGainFormula =', |
|
./pkg/seaice/seaice_summary.F |
366 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_summary.F |
370 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' 1=from growth by ATM ' |
|
./pkg/seaice/seaice_summary.F |
371 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_summary.F |
372 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' 2=from predicted growth by ATM' |
|
./pkg/seaice/seaice_summary.F |
373 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_summary.F |
376 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(2A)') 'SEAICE_areaLossFormula =', |
|
./pkg/seaice/seaice_summary.F |
378 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_summary.F |
37 |
SEAICE_SUMMARY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_summary.F |
382 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(2A)') ' 1=from all but only melt ', |
|
./pkg/seaice/seaice_summary.F |
384 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_summary.F |
385 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' 2=from net melt-grow>0 by ATM and OCN' |
|
./pkg/seaice/seaice_summary.F |
386 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_summary.F |
387 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' 3=from predicted melt by ATM' |
|
./pkg/seaice/seaice_summary.F |
388 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_summary.F |
405 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
407 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
421 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/seaice/seaice_summary.F |
422 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
424 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
426 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
428 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
430 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
532 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/seaice/seaice_summary.F |
533 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
535 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
537 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
539 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
53 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
541 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
55 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
57 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
592 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') '== SItracer no. ',iTracer, |
|
./pkg/seaice/seaice_summary.F |
594 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
59 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
61 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
621 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/seaice/seaice_summary.F |
622 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
624 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
626 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
628 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
630 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
63 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
644 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/seaice/seaice_summary.F |
645 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
647 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
649 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
651 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
653 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
655 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
657 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
659 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/seaice/seaice_summary.F |
660 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
68 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/seaice/seaice_summary.F |
69 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
71 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
73 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
75 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
77 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
93 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/seaice/seaice_summary.F |
94 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
96 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
98 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_write_pickup.F |
197 |
SEAICE_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'WRITE_SEAICE_PICKUP: ', |
|
./pkg/seaice/seaice_write_pickup.F |
199 |
SEAICE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
200 |
SEAICE_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'WRITE_SEAICE_PICKUP: ', |
|
./pkg/seaice/seaice_write_pickup.F |
202 |
SEAICE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
63 |
SEAICE_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/shap_filt/shap_filt_readparms.F |
180 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'SHAP_FILT: CPP-option NO_SLIP_SHAP', |
|
./pkg/shap_filt/shap_filt_readparms.F |
182 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
183 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') ' ==> use parameter Shap_noSlip=1. ', |
|
./pkg/shap_filt/shap_filt_readparms.F |
185 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
199 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'SHAP_FILT with rigidLid ', |
|
./pkg/shap_filt/shap_filt_readparms.F |
201 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
204 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SHAP_FILT_READPARMS: WARNING <<< ', |
|
./pkg/shap_filt/shap_filt_readparms.F |
206 |
SHAP_FILT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, errorMessageUnit, SQUEEZE_RIGHT,1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
207 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SHAP_FILT_READPARMS: WARNING <<< ', |
|
./pkg/shap_filt/shap_filt_readparms.F |
209 |
SHAP_FILT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, errorMessageUnit, SQUEEZE_RIGHT,1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
217 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A,I3)') 'SHAP_FILT on CS-grid ', |
|
./pkg/shap_filt/shap_filt_readparms.F |
219 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
223 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'SHAP_FILT on CS-grid:', |
|
./pkg/shap_filt/shap_filt_readparms.F |
225 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
226 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(A,I3,A)') ' Shap_funct=', Shap_funct, |
|
./pkg/shap_filt/shap_filt_readparms.F |
228 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
38 |
SHAP_FILT_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/shap_filt/shap_filt_readparms.F |
66 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(A)') ' SHAP_FILT_READPARMS: opening data.shap' |
|
./pkg/shap_filt/shap_filt_readparms.F |
67 |
SHAP_FILT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/shap_filt/shap_filt_readparms.F |
96 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/shap_filt/shap_filt_readparms.F |
98 |
SHAP_FILT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_cg2d.F |
175 |
INI_CG2D |
WRITE(msgBuf,'(2A,1PE23.16)') 'INI_CG2D: ', |
|
./model/src/ini_cg2d.F |
177 |
INI_CG2D |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/ini_cg2d.F |
179 |
INI_CG2D |
WRITE(msgBuf,'(2A,1PE22.15,A,1PE16.10,A)') 'INI_CG2D: ', |
|
./model/src/ini_cg2d.F |
181 |
INI_CG2D |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/ini_cg2d.F |
183 |
INI_CG2D |
WRITE(msgBuf,*) ' ' |
|
./model/src/ini_cg2d.F |
184 |
INI_CG2D |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/ini_cg2d.F |
43 |
INI_CG2D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_cg3d.F |
178 |
INI_CG3D |
WRITE(msgBuf,'(2A,1PE23.16)') 'INI_CG3D: ', |
|
./model/src/ini_cg3d.F |
180 |
INI_CG3D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_cg3d.F |
182 |
INI_CG3D |
WRITE(msgBuf,*) ' ' |
|
./model/src/ini_cg3d.F |
183 |
INI_CG3D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_cg3d.F |
45 |
INI_CG3D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/shelfice/shelfice_check.F |
100 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/shelfice/shelfice_check.F |
102 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
110 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/shelfice/shelfice_check.F |
112 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
113 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/shelfice/shelfice_check.F |
115 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
121 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/shelfice/shelfice_check.F |
123 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
27 |
SHELFICE_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/shelfice/shelfice_check.F |
33 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') 'SHELFICE_CHECK: #define ALLOW_SHELFICE' |
|
./pkg/shelfice/shelfice_check.F |
34 |
SHELFICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/shelfice/shelfice_check.F |
40 |
SHELFICE_CHECK |
WRITE(msgBuf,'(2A)') 'SHELFICE_CHECK: cannot specify both', |
|
./pkg/shelfice/shelfice_check.F |
42 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
48 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/shelfice/shelfice_check.F |
50 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
62 |
SHELFICE_CHECK |
WRITE(msgBuf,'(2A,I3,A)') 'Current nonHydrostatic', |
|
./pkg/shelfice/shelfice_check.F |
64 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
65 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') ' not compatible with SHELFICE code' |
|
./pkg/shelfice/shelfice_check.F |
66 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
86 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/shelfice/shelfice_check.F |
88 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
89 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/shelfice/shelfice_check.F |
91 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
97 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/shelfice/shelfice_check.F |
99 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_cori.F |
162 |
INI_CORI |
WRITE(msgBuf,'(A,I6,2A)') |
|
./model/src/ini_cori.F |
164 |
INI_CORI |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_cori.F |
170 |
INI_CORI |
WRITE(msgBuf,'(A)') 'INI_CORI: Needs to compile MDSIO pkg' |
|
./model/src/ini_cori.F |
171 |
INI_CORI |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_cori.F |
51 |
INI_CORI |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/shelfice/shelfice_readparms.F |
132 |
SHELFICE_READPARMS |
WRITE(msgBuf,'(A)') ' SHELFICE_READPARMS: opening data.shelfice' |
|
./pkg/shelfice/shelfice_readparms.F |
133 |
SHELFICE_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/shelfice/shelfice_readparms.F |
140 |
SHELFICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/shelfice/shelfice_readparms.F |
142 |
SHELFICE_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/shelfice/shelfice_readparms.F |
41 |
SHELFICE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/showflops/SHOWFLOPS.h |
5 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/showflops/SHOWFLOPS_INIT.h |
5 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_curvilinear_grid.F |
119 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') 'INI_CURVILINEAR_GRID:', |
|
./model/src/ini_curvilinear_grid.F |
121 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
143 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') 'INI_CURVILINEAR_GRID:', |
|
./model/src/ini_curvilinear_grid.F |
145 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
206 |
INI_CURVILINEAR_GRID |
msgBuf(i:i) = ' ' |
|
./model/src/ini_curvilinear_grid.F |
208 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') msgBuf,' ; Reading grid info using MNC' |
|
./model/src/ini_curvilinear_grid.F |
209 |
INI_CURVILINEAR_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_curvilinear_grid.F |
274 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(3A)') tmpBuf(1:iL), |
|
./model/src/ini_curvilinear_grid.F |
276 |
INI_CURVILINEAR_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_curvilinear_grid.F |
278 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A)') ' =>' |
|
./model/src/ini_curvilinear_grid.F |
282 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
283 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'xC' |
|
./model/src/ini_curvilinear_grid.F |
286 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'yC' |
|
./model/src/ini_curvilinear_grid.F |
288 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
289 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxF' |
|
./model/src/ini_curvilinear_grid.F |
292 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyF' |
|
./model/src/ini_curvilinear_grid.F |
294 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
295 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'rA' |
|
./model/src/ini_curvilinear_grid.F |
298 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'xG' |
|
./model/src/ini_curvilinear_grid.F |
300 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
301 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'yG' |
|
./model/src/ini_curvilinear_grid.F |
304 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dxV' |
|
./model/src/ini_curvilinear_grid.F |
306 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
307 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dyU' |
|
./model/src/ini_curvilinear_grid.F |
310 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'rAz' |
|
./model/src/ini_curvilinear_grid.F |
312 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
313 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxC' |
|
./model/src/ini_curvilinear_grid.F |
316 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyC' |
|
./model/src/ini_curvilinear_grid.F |
318 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
319 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'rAw' |
|
./model/src/ini_curvilinear_grid.F |
322 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'rAs' |
|
./model/src/ini_curvilinear_grid.F |
324 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
325 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxG' |
|
./model/src/ini_curvilinear_grid.F |
328 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyG' |
|
./model/src/ini_curvilinear_grid.F |
333 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
334 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'AngleCS' |
|
./model/src/ini_curvilinear_grid.F |
337 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'AngleSN' |
|
./model/src/ini_curvilinear_grid.F |
343 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') |
|
./model/src/ini_curvilinear_grid.F |
345 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
349 |
INI_CURVILINEAR_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_curvilinear_grid.F |
51 |
INI_CURVILINEAR_GRID |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/showflops/showflops_init.F |
62 |
SHOWFLOPS_INIT |
WRITE(msgBuf,'(A34,F10.6,A,F10.6)') |
|
./pkg/showflops/showflops_init.F |
65 |
SHOWFLOPS_INIT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_init.F |
68 |
SHOWFLOPS_INIT |
WRITE(msgBuf,'(A34,F10.6,A,F10.6)') |
|
./pkg/showflops/showflops_init.F |
71 |
SHOWFLOPS_INIT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_init.F |
80 |
SHOWFLOPS_INIT |
WRITE(msgBuf,'(A22,A26,F10.6)'), |
|
./pkg/showflops/showflops_init.F |
83 |
SHOWFLOPS_INIT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_inloop.F |
101 |
SHOWFLOPS_INLOOP |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_inloop.F |
63 |
SHOWFLOPS_INLOOP |
WRITE(msgBuf,'(A34,3F10.6,I8)') |
|
./pkg/showflops/showflops_inloop.F |
66 |
SHOWFLOPS_INLOOP |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_inloop.F |
80 |
SHOWFLOPS_INLOOP |
WRITE(msgBuf,'(F12.6,A,F12.6,A34,I8)') |
|
./pkg/showflops/showflops_inloop.F |
83 |
SHOWFLOPS_INLOOP |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_inloop.F |
86 |
SHOWFLOPS_INLOOP |
WRITE(msgBuf,'(F12.6,A,F12.6,A34,I8)') |
|
./pkg/showflops/showflops_inloop.F |
89 |
SHOWFLOPS_INLOOP |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_inloop.F |
98 |
SHOWFLOPS_INLOOP |
WRITE(msgBuf,'(F12.6,A2,A22,A17,I8)'), fp_result(ipcl), |
|
./pkg/showflops/showflops_insolve.F |
59 |
SHOWFLOPS_INSOLVE |
WRITE(msgBuf,'(A34,3F10.6)') |
|
./pkg/showflops/showflops_insolve.F |
62 |
SHOWFLOPS_INSOLVE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_insolve.F |
77 |
SHOWFLOPS_INSOLVE |
WRITE(msgBuf,'(A34,F12.6,A,F12.6)') |
|
./pkg/showflops/showflops_insolve.F |
80 |
SHOWFLOPS_INSOLVE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_insolve.F |
83 |
SHOWFLOPS_INSOLVE |
WRITE(msgBuf,'(A34,F12.6,A,F12.6)') |
|
./pkg/showflops/showflops_insolve.F |
86 |
SHOWFLOPS_INSOLVE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_insolve.F |
95 |
SHOWFLOPS_INSOLVE |
WRITE(msgBuf,'(A22,A26,F12.6)'), |
|
./pkg/showflops/showflops_insolve.F |
98 |
SHOWFLOPS_INSOLVE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/bar_check.F |
41 |
BAR_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/bar_check.F |
64 |
BAR_CHECK |
WRITE(msgBuf,'(A,I4,A,I8)') 'BAR_CHECK: thread', myThid, |
|
./eesupp/src/bar_check.F |
66 |
BAR_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_depths.F |
196 |
INI_DEPTHS |
WRITE(msgBuf,'(A,A)') 'S/R INI_DEPTHS: ', |
|
./model/src/ini_depths.F |
198 |
INI_DEPTHS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_depths.F |
60 |
INI_DEPTHS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_depths.F |
65 |
INI_DEPTHS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_depths.F |
68 |
INI_DEPTHS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/smooth/smooth_readparms.F |
103 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(2A)') 'PROFILES_READPARMS: ', |
|
./pkg/smooth/smooth_readparms.F |
105 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/smooth/smooth_readparms.F |
31 |
SMOOTH_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/smooth/smooth_readparms.F |
92 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(A)') 'PROFILES_READPARMS: opening data.smooth' |
|
./pkg/smooth/smooth_readparms.F |
93 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/adstreamice_cg_solve.F |
227 |
ADSTREAMICE_CG_SOLVE |
WRITE(msgBuf,'(A,I5,A)') 'DONE WITH MANUAL CG ADJOINT:',tmpiter, |
|
./pkg/streamice/adstreamice_cg_solve.F |
229 |
ADSTREAMICE_CG_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/adstreamice_cg_solve.F |
79 |
ADSTREAMICE_CG_SOLVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/adstreamice_cg_solve.F |
86 |
ADSTREAMICE_CG_SOLVE |
WRITE(msgBuf,'(A)') 'CALLING MANUAL CG ADJOINT' |
|
./pkg/streamice/adstreamice_cg_solve.F |
87 |
ADSTREAMICE_CG_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
107 |
INI_EOS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
109 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/ini_eos.F |
110 |
INI_EOS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
112 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/ini_eos.F |
113 |
INI_EOS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
115 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/ini_eos.F |
170 |
INI_EOS |
WRITE(msgBuf,'(a)') |
|
./model/src/ini_eos.F |
172 |
INI_EOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
174 |
INI_EOS |
WRITE(msgBuf,'(a,a)') |
|
./model/src/ini_eos.F |
177 |
INI_EOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
179 |
INI_EOS |
WRITE(msgBuf,'(a)') |
|
./model/src/ini_eos.F |
181 |
INI_EOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
183 |
INI_EOS |
WRITE(msgBuf,'(a)') |
|
./model/src/ini_eos.F |
185 |
INI_EOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
187 |
INI_EOS |
WRITE(msgBuf,'(a)') |
|
./model/src/ini_eos.F |
189 |
INI_EOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
374 |
EOS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_eos.F |
42 |
INI_EOS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_eos.F |
461 |
EOS_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_eos.F |
464 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
505 |
EOS_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
507 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
510 |
EOS_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
512 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
515 |
EOS_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
517 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
520 |
EOS_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
522 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
525 |
EOS_CHECK |
WRITE(msgBuf,'(2(A,F4.1),A,F5.0,2A,F10.5,1X,F11.5)') |
|
./model/src/ini_eos.F |
530 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
532 |
EOS_CHECK |
WRITE(msgBuf,'(A,F10.5,1X,F11.5)') |
|
./model/src/ini_eos.F |
535 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
540 |
EOS_CHECK |
WRITE(msgBuf,'(A,F10.5,1X,F11.5)') |
|
./model/src/ini_eos.F |
543 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
551 |
EOS_CHECK |
WRITE(msgBuf,'(A)') 'EOS_CHECK: Done' |
|
./model/src/ini_eos.F |
552 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
83 |
INI_EOS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
85 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/ini_eos.F |
86 |
INI_EOS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
88 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/streamice/streamice_adv_front.F |
307 |
STREAMICE_ADV_FRONT |
WRITE(msgBuf,'(A,I5,A)') 'FRONT ADVANCE: ',iter_rpt, |
|
./pkg/streamice/streamice_adv_front.F |
309 |
STREAMICE_ADV_FRONT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_adv_front.F |
48 |
STREAMICE_ADV_FRONT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_advect_2dtracer.F |
236 |
STREAMICE_ADVECT_2DTRACER |
WRITE(msgBuf,'(A)') 'END STREAMICE_ADVECT_THICKNESS' |
|
./pkg/streamice/streamice_advect_2dtracer.F |
237 |
STREAMICE_ADVECT_2DTRACER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_advect_2dtracer.F |
58 |
STREAMICE_ADVECT_2DTRACER |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_advect_thickness.F |
358 |
STREAMICE_ADVECT_THICKNESS |
WRITE(msgBuf,'(A)') 'END STREAMICE_ADVECT_THICKNESS' |
|
./pkg/streamice/streamice_advect_thickness.F |
359 |
STREAMICE_ADVECT_THICKNESS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_advect_thickness.F |
50 |
STREAMICE_ADVECT_THICKNESS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_apply_flux_ctrl.F |
36 |
STREAMICE_APPLY_FLUX_CTRL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_cg_solve.F |
213 |
STREAMICE_CG_SOLVE |
WRITE(msgBuf,'(A,I1,I1,E14.7)') 'CONJ GRAD INIT RESID LOCAL, ', |
|
./pkg/streamice/streamice_cg_solve.F |
215 |
STREAMICE_CG_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_cg_solve.F |
221 |
STREAMICE_CG_SOLVE |
WRITE(msgBuf,'(A,E14.7)') 'CONJ GRAD INIT RESID, ', |
|
./pkg/streamice/streamice_cg_solve.F |
223 |
STREAMICE_CG_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_cg_solve.F |
269 |
STREAMICE_CG_SOLVE |
WRITE(msgBuf,'(A)') 'BEGINNING MAIN CG LOOP' |
|
./pkg/streamice/streamice_cg_solve.F |
270 |
STREAMICE_CG_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_cg_solve.F |
70 |
STREAMICE_CG_SOLVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
192 |
STREAMICE_CG_SOLVE_MATFREE |
WRITE(msgBuf,'(A)') 'BEGINNING MAIN CG LOOP' |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
193 |
STREAMICE_CG_SOLVE_MATFREE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_cg_solve_matfree.F |
51 |
STREAMICE_CG_SOLVE_MATFREE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_cg_solve_petsc.F |
70 |
STREAMICE_CG_SOLVE_PETSC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_check.F |
33 |
STREAMICE_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_check.F |
39 |
STREAMICE_CHECK |
WRITE(msgBuf,'(A)') 'STREAMICE_CHECK: #define STREAMICE' |
|
./pkg/streamice/streamice_check.F |
40 |
STREAMICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_diagnostics_state.F |
30 |
STREAMICE_DIAGNOSTICS_STATE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_diagnostics_state.F |
38 |
STREAMICE_DIAGNOSTICS_STATE |
WRITE(msgBuf,'(A)') 'CALLING FILL DIAGNOSTICS' |
|
./pkg/streamice/streamice_diagnostics_state.F |
39 |
STREAMICE_DIAGNOSTICS_STATE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_dump.F |
54 |
STREAMICE_DUMP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_dump_ad.F |
63 |
ADSTREAMICE_DUMP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_init_diagnostics.F |
140 |
STREAMICE_INIT_DIAGNOSTICS |
WRITE(msgBuf,'(A)') 'ADDED DIAGS TO LIST' |
|
./pkg/streamice/streamice_init_diagnostics.F |
141 |
STREAMICE_INIT_DIAGNOSTICS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_init_diagnostics.F |
30 |
STREAMICE_INIT_DIAGNOSTICS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_init_fixed.F |
101 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'COST MASK - NOT IMPLENTED' |
|
./pkg/streamice/streamice_init_fixed.F |
102 |
STREAMICE_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_init_fixed.F |
126 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'U FACE MASK - NOT SET' |
|
./pkg/streamice/streamice_init_fixed.F |
127 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
135 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'V FACE MASK - NOT SET' |
|
./pkg/streamice/streamice_init_fixed.F |
136 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
151 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'U DIRICH VALS - NOT SET' |
|
./pkg/streamice/streamice_init_fixed.F |
152 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
164 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'V DIRICH VALS - NOT SET' |
|
./pkg/streamice/streamice_init_fixed.F |
165 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
173 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'THICK BC AT U FACE - NOT SET' |
|
./pkg/streamice/streamice_init_fixed.F |
174 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
182 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'THICK BC AT V FACE - NOT SET' |
|
./pkg/streamice/streamice_init_fixed.F |
183 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
192 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'MASS FLUX AT U FACE - NOT SET' |
|
./pkg/streamice/streamice_init_fixed.F |
193 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
201 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'MASS FLUX AT V FACE - NOT SET' |
|
./pkg/streamice/streamice_init_fixed.F |
202 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
212 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'TRAC BC AT U FACE - NOT SET' |
|
./pkg/streamice/streamice_init_fixed.F |
213 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
221 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'TRAC BC AT V FACE - NOT SET' |
|
./pkg/streamice/streamice_init_fixed.F |
222 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
237 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'H MASK FILE - NOT SET' |
|
./pkg/streamice/streamice_init_fixed.F |
238 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_fixed.F |
39 |
STREAMICE_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_init_fixed.F |
72 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'INIT CALVE MASK - NOT IMPLENTED' |
|
./pkg/streamice/streamice_init_fixed.F |
73 |
STREAMICE_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_init_fixed.F |
80 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'SIG FROM FILE - NOT IMPLENTED' |
|
./pkg/streamice/streamice_init_fixed.F |
81 |
STREAMICE_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_init_fixed.F |
89 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'SIG COORD INIT - NOT IMPLENTED' |
|
./pkg/streamice/streamice_init_fixed.F |
90 |
STREAMICE_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_init_varia.F |
177 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'STREAMICE TOPOG - FILENAME MISSING' |
|
./pkg/streamice/streamice_init_varia.F |
178 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_init_varia.F |
189 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'initializing analytic thickness' |
|
./pkg/streamice/streamice_init_varia.F |
190 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_init_varia.F |
278 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT THICKNESS - FILENAME MISSING' |
|
./pkg/streamice/streamice_init_varia.F |
279 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_init_varia.F |
285 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT THICKNESS - NOT IMPLENTED' |
|
./pkg/streamice/streamice_init_varia.F |
286 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_init_varia.F |
299 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT THICKNESS - FILENAME MISSING' |
|
./pkg/streamice/streamice_init_varia.F |
300 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_varia.F |
309 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT HMASK - FILENAME MISSING' |
|
./pkg/streamice/streamice_init_varia.F |
310 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_varia.F |
346 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT GLEN - FILENAME MISSING' |
|
./pkg/streamice/streamice_init_varia.F |
347 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_init_varia.F |
371 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT GLEN CONSTANT - NOT IMPLENTED' |
|
./pkg/streamice/streamice_init_varia.F |
372 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_varia.F |
389 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT BDOT - FILENAME MISSING' |
|
./pkg/streamice/streamice_init_varia.F |
390 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_init_varia.F |
409 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT C_BASAL - FILENAME MISSING' |
|
./pkg/streamice/streamice_init_varia.F |
410 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_init_varia.F |
42 |
STREAMICE_INIT_VARIA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_init_varia.F |
464 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT TRAC - NOT IMPLENTED' |
|
./pkg/streamice/streamice_init_varia.F |
465 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_varia.F |
480 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'TRAC2dInit - NO FILE SPECIFIED' |
|
./pkg/streamice/streamice_init_varia.F |
481 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_init_varia.F |
506 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'IMPOSED NORMAL U STRESS NOT SET' |
|
./pkg/streamice/streamice_init_varia.F |
507 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_varia.F |
515 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'IMPOSED NORMAL V STRESS NOT SET' |
|
./pkg/streamice/streamice_init_varia.F |
516 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_varia.F |
524 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'IMPOSED SHEAR U STRESS NOT SET' |
|
./pkg/streamice/streamice_init_varia.F |
525 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/streamice/streamice_init_varia.F |
533 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'IMPOSED SHEAR V STRESS NOT SET' |
|
./pkg/streamice/streamice_init_varia.F |
534 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./model/src/ini_global_domain.F |
104 |
INI_GLOBAL_DOMAIN |
WRITE(msgBuf,'(A,I6,A,2I4,A)') |
|
./model/src/ini_global_domain.F |
107 |
INI_GLOBAL_DOMAIN |
WRITE(msgBuf,'(A,I6,I6)') 'Empty tile bi,bj=', bi, bj |
|
./model/src/ini_global_domain.F |
109 |
INI_GLOBAL_DOMAIN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_global_domain.F |
114 |
INI_GLOBAL_DOMAIN |
IF ( msgBuf(1:1).NE.' ' ) THEN |
|
./model/src/ini_global_domain.F |
115 |
INI_GLOBAL_DOMAIN |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/ini_global_domain.F |
116 |
INI_GLOBAL_DOMAIN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_global_domain.F |
157 |
INI_GLOBAL_DOMAIN |
WRITE(msgBuf,'(A,I4,A)') 'INI_GLOBAL_DOMAIN: Found', |
|
./model/src/ini_global_domain.F |
159 |
INI_GLOBAL_DOMAIN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_global_domain.F |
52 |
INI_GLOBAL_DOMAIN |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_global_domain.F |
99 |
INI_GLOBAL_DOMAIN |
msgBuf(1:1) = ' ' |
|
./pkg/streamice/streamice_petsc_numerate.F |
36 |
STREAMICE_PETSC_NUMERATE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_read_pickup.F |
101 |
STREAMICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
110 |
STREAMICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'STREAMICE_READ_PICKUP: ', |
|
./pkg/streamice/streamice_read_pickup.F |
112 |
STREAMICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
167 |
STREAMICE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'STREAMICE_READ_PICKUP: ', |
|
./pkg/streamice/streamice_read_pickup.F |
169 |
STREAMICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
176 |
STREAMICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'STREAMICE_READ_PICKUP: ', |
|
./pkg/streamice/streamice_read_pickup.F |
178 |
STREAMICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
49 |
STREAMICE_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_read_pickup.F |
68 |
STREAMICE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'STREAMICE_READ_PICKUP: ', |
|
./pkg/streamice/streamice_read_pickup.F |
70 |
STREAMICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
71 |
STREAMICE_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'STREAMICE_READ_PICKUP: ', |
|
./pkg/streamice/streamice_read_pickup.F |
73 |
STREAMICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
83 |
STREAMICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'STREAMICE_READ_PICKUP: ', |
|
./pkg/streamice/streamice_read_pickup.F |
86 |
STREAMICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
87 |
STREAMICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'STREAMICE_READ_PICKUP: ', |
|
./pkg/streamice/streamice_read_pickup.F |
90 |
STREAMICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
94 |
STREAMICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> STREAMICE_READ_PICKUP: ', |
|
./pkg/streamice/streamice_read_pickup.F |
96 |
STREAMICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/streamice/streamice_read_pickup.F |
99 |
STREAMICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/streamice/streamice_readparms.F |
300 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') 'STREAMICE_READPARMS: opening data.streamice' |
|
./pkg/streamice/streamice_readparms.F |
301 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_readparms.F |
310 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/streamice/streamice_readparms.F |
312 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_readparms.F |
317 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/streamice/streamice_readparms.F |
319 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_readparms.F |
325 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/streamice/streamice_readparms.F |
327 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_readparms.F |
333 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/streamice/streamice_readparms.F |
335 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_readparms.F |
341 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/streamice/streamice_readparms.F |
343 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_readparms.F |
357 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/streamice/streamice_readparms.F |
359 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_readparms.F |
36 |
STREAMICE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_solo_timestep.F |
44 |
STREAMICE_SOLO_TIMESTEP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_solo_timestep.F |
83 |
STREAMICE_SOLO_TIMESTEP |
WRITE(msgBuf,'(A,I10.10,E9.2,A)') |
|
./pkg/streamice/streamice_solo_timestep.F |
86 |
STREAMICE_SOLO_TIMESTEP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_vel_solve.F |
197 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,E15.7)') 'initial nonlinear resid (error): ', |
|
./pkg/streamice/streamice_vel_solve.F |
199 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_vel_solve.F |
300 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,I5,A,I4,A)') 'streamice linear solve number', |
|
./pkg/streamice/streamice_vel_solve.F |
304 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_vel_solve.F |
433 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,1PE22.14)') 'STREAMICE_FP_ERROR =', |
|
./pkg/streamice/streamice_vel_solve.F |
435 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_vel_solve.F |
449 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,E15.7)') 'err/err_init', |
|
./pkg/streamice/streamice_vel_solve.F |
451 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_vel_solve.F |
458 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,E15.7)') 'new cg tol: ', |
|
./pkg/streamice/streamice_vel_solve.F |
460 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_vel_solve.F |
477 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,I5,A)') 'VELOCITY SOLVE CONVERGED, ', |
|
./pkg/streamice/streamice_vel_solve.F |
479 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_vel_solve.F |
482 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,I5,A)') 'VELOCITY SOLVE NOT CONVERGED IN ', |
|
./pkg/streamice/streamice_vel_solve.F |
484 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/streamice/streamice_vel_solve.F |
52 |
STREAMICE_VEL_SOLVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_velmask_upd.F |
42 |
STREAMICE_VELMASK_UPD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_grid.F |
143 |
INI_GRID |
WRITE(msgBuf,'(2A)') 'S/R INI_GRID: ', |
|
./model/src/ini_grid.F |
145 |
INI_GRID |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_grid.F |
54 |
INI_GRID |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/streamice/streamice_write_pickup.F |
150 |
STREAMICE_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'STREAMICE_WRITE_PICKUP: ', |
|
./pkg/streamice/streamice_write_pickup.F |
152 |
STREAMICE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/streamice/streamice_write_pickup.F |
153 |
STREAMICE_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'STREAMICE_WRITE_PICKUP: ', |
|
./pkg/streamice/streamice_write_pickup.F |
155 |
STREAMICE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/streamice/streamice_write_pickup.F |
60 |
STREAMICE_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/thsice/thsice_advdiff.F |
532 |
THSICE_ADVDIFF |
WRITE(msgBuf,'(2A)') 'S/R THSICE_ADVDIFF: ', |
|
./pkg/thsice/thsice_advdiff.F |
534 |
THSICE_ADVDIFF |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/thsice/thsice_advdiff.F |
535 |
THSICE_ADVDIFF |
WRITE(msgBuf,'(2A)') ' ', |
|
./pkg/thsice/thsice_advdiff.F |
537 |
THSICE_ADVDIFF |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/thsice/thsice_advdiff.F |
80 |
THSICE_ADVDIFF |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/thsice/thsice_albedo.F |
176 |
THSICE_ALBEDO |
WRITE(msgBuf,'(A,I10,4I6)') |
|
./pkg/thsice/thsice_albedo.F |
178 |
THSICE_ALBEDO |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/thsice/thsice_albedo.F |
179 |
THSICE_ALBEDO |
WRITE(msgBuf,'(A,1P3E17.9)') |
|
./pkg/thsice/thsice_albedo.F |
182 |
THSICE_ALBEDO |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/thsice/thsice_albedo.F |
89 |
THSICE_ALBEDO |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/thsice/thsice_check.F |
103 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** THSICE_CHECK: ', |
|
./pkg/thsice/thsice_check.F |
105 |
THSICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/thsice/thsice_check.F |
107 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** THSICE_CHECK: ', |
|
./pkg/thsice/thsice_check.F |
109 |
THSICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/thsice/thsice_check.F |
35 |
THSICE_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/thsice/thsice_check.F |
40 |
THSICE_CHECK |
WRITE(msgBuf,'(A)') 'THSICE_CHECK: #define THSICE' |
|
./pkg/thsice/thsice_check.F |
41 |
THSICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/thsice/thsice_check.F |
48 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/thsice/thsice_check.F |
50 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/thsice/thsice_check.F |
51 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/thsice/thsice_check.F |
53 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/thsice/thsice_check.F |
57 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/thsice/thsice_check.F |
60 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/thsice/thsice_check.F |
65 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') 'THSICE_CHECK: Need to compile ', |
|
./pkg/thsice/thsice_check.F |
67 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/thsice/thsice_check.F |
74 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') 'THSICE_CHECK: to use thSIceBalanceAtmFW', |
|
./pkg/thsice/thsice_check.F |
76 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/thsice/thsice_check.F |
80 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') 'THSICE_CHECK: cannot use', |
|
./pkg/thsice/thsice_check.F |
82 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/thsice/thsice_check.F |
89 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/thsice/thsice_check.F |
91 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/thsice/thsice_check.F |
95 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/thsice/thsice_check.F |
97 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/thsice/thsice_cost_test.F |
115 |
THSICE_COST_TEST |
WRITE(msgBuf,'(A)') |
|
./pkg/thsice/thsice_cost_test.F |
117 |
THSICE_COST_TEST |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/thsice/thsice_cost_test.F |
70 |
THSICE_COST_TEST |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/thsice/thsice_monitor.F |
101 |
THSICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/thsice/thsice_monitor.F |
103 |
THSICE_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/thsice/thsice_monitor.F |
104 |
THSICE_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/thsice/thsice_monitor.F |
106 |
THSICE_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/thsice/thsice_monitor.F |
107 |
THSICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/thsice/thsice_monitor.F |
109 |
THSICE_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/thsice/thsice_monitor.F |
274 |
THSICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/thsice/thsice_monitor.F |
276 |
THSICE_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/thsice/thsice_monitor.F |
277 |
THSICE_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/thsice/thsice_monitor.F |
279 |
THSICE_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/thsice/thsice_monitor.F |
280 |
THSICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/thsice/thsice_monitor.F |
282 |
THSICE_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/thsice/thsice_monitor.F |
48 |
THSICE_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/thsice/thsice_readparms.F |
197 |
THSICE_READPARMS |
WRITE(msgBuf,'(A)') ' THSICE_READPARMS: read THSICE_CONST' |
|
./pkg/thsice/thsice_readparms.F |
198 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/thsice/thsice_readparms.F |
202 |
THSICE_READPARMS |
WRITE(msgBuf,'(A)') ' THSICE_READPARMS: read THSICE_PARM01' |
|
./pkg/thsice/thsice_readparms.F |
203 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/thsice/thsice_readparms.F |
208 |
THSICE_READPARMS |
WRITE(msgBuf,'(A)') ' THSICE_READPARMS: read THSICE_COST' |
|
./pkg/thsice/thsice_readparms.F |
209 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/thsice/thsice_readparms.F |
257 |
THSICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** THSICE_READPARMS:', |
|
./pkg/thsice/thsice_readparms.F |
259 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/thsice/thsice_readparms.F |
261 |
THSICE_READPARMS |
WRITE(msgBuf,'(2A)') 'THSICE_READPARMS: useSEAICE=T =>', |
|
./pkg/thsice/thsice_readparms.F |
263 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/thsice/thsice_readparms.F |
268 |
THSICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** THSICE_READPARMS:', |
|
./pkg/thsice/thsice_readparms.F |
270 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/thsice/thsice_readparms.F |
272 |
THSICE_READPARMS |
WRITE(msgBuf,'(2A)') 'THSICE_READPARMS:', |
|
./pkg/thsice/thsice_readparms.F |
274 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/thsice/thsice_readparms.F |
46 |
THSICE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/thsice/thsice_readparms.F |
98 |
THSICE_READPARMS |
WRITE(msgBuf,'(A)') ' THSICE_READPARMS: opening data.ice' |
|
./pkg/thsice/thsice_readparms.F |
99 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/thsice/thsice_solve4temp.F |
158 |
THSICE_SOLVE4TEMP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/thsice/thsice_solve4temp.F |
349 |
THSICE_SOLVE4TEMP |
WRITE( msgBuf, '(A)') |
|
./pkg/thsice/thsice_solve4temp.F |
351 |
THSICE_SOLVE4TEMP |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/thsice/thsice_solve4temp.F |
548 |
THSICE_SOLVE4TEMP |
WRITE( msgBuf, '(A,2I4,2I3,I10,F12.3)') |
|
./pkg/thsice/thsice_solve4temp.F |
551 |
THSICE_SOLVE4TEMP |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/ini_model_io.F |
100 |
INI_MODEL_IO |
WRITE(msgBuf,'(A,2(I10,A))') |
|
./model/src/ini_model_io.F |
103 |
INI_MODEL_IO |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_model_io.F |
104 |
INI_MODEL_IO |
WRITE(msgBuf,'(2A)') |
|
./model/src/ini_model_io.F |
107 |
INI_MODEL_IO |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_model_io.F |
144 |
INI_MODEL_IO |
WRITE(msgBuf,'(2A,I4,A)') 'INI_MODEL_IO: ', |
|
./model/src/ini_model_io.F |
146 |
INI_MODEL_IO |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_model_io.F |
170 |
INI_MODEL_IO |
WRITE(msgBuf,'(2A)') '** WARNING ** INI_MODEL_IO:', |
|
./model/src/ini_model_io.F |
172 |
INI_MODEL_IO |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/ini_model_io.F |
44 |
INI_MODEL_IO |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_model_io.F |
76 |
INI_MODEL_IO |
WRITE(msgBuf,'(2A)') |
|
./model/src/ini_model_io.F |
79 |
INI_MODEL_IO |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/ini_model_io.F |
81 |
INI_MODEL_IO |
WRITE(msgBuf,'(2A)') '** WARNING ** INI_MODEL_IO:', |
|
./model/src/ini_model_io.F |
83 |
INI_MODEL_IO |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/timeave/timeave_statv_write.F |
198 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A)') 'S/R WRITE_TIME_AVERAGES' |
|
./pkg/timeave/timeave_statv_write.F |
199 |
TIMEAVE_STATV_WRITE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/timeave/timeave_statv_write.F |
200 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A)') 'Error writing out data' |
|
./pkg/timeave/timeave_statv_write.F |
201 |
TIMEAVE_STATV_WRITE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/timeave/timeave_statv_write.F |
202 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./pkg/timeave/timeave_statv_write.F |
203 |
TIMEAVE_STATV_WRITE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/timeave/timeave_statv_write.F |
207 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/timeave/timeave_statv_write.F |
209 |
TIMEAVE_STATV_WRITE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/timeave/timeave_statv_write.F |
211 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/timeave/timeave_statv_write.F |
212 |
TIMEAVE_STATV_WRITE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/timeave/timeave_statv_write.F |
53 |
TIMEAVE_STATV_WRITE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_nh_fields.F |
46 |
INI_NH_FIELDS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_nh_fields.F |
66 |
INI_NH_FIELDS |
WRITE(msgBuf,'(A,I4)') |
|
./model/src/ini_nh_fields.F |
68 |
INI_NH_FIELDS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/zonal_filt/zonal_filt_init.F |
60 |
ZONAL_FILT_INIT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/zonal_filt/zonal_filt_init.F |
74 |
ZONAL_FILT_INIT |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/zonal_filt/zonal_filt_init.F |
76 |
ZONAL_FILT_INIT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
77 |
ZONAL_FILT_INIT |
WRITE(msgBuf,'(A)') |
|
./pkg/zonal_filt/zonal_filt_init.F |
79 |
ZONAL_FILT_INIT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
100 |
ZONAL_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
103 |
ZONAL_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R ZONAL_FILT_READPARMS: WARNING <<< ', |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
105 |
ZONAL_FILT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, errorMessageUnit, SQUEEZE_RIGHT,1) |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
106 |
ZONAL_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R ZONAL_FILT_READPARMS: WARNING <<< ', |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
108 |
ZONAL_FILT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, errorMessageUnit, SQUEEZE_RIGHT,1) |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
27 |
ZONAL_FILT_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
53 |
ZONAL_FILT_READPARMS |
WRITE(msgBuf,'(A)')' ZONAL_FILT_READPARMS: opening data.zonfilt' |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
54 |
ZONAL_FILT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
73 |
ZONAL_FILT_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
75 |
ZONAL_FILT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
98 |
ZONAL_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'ZONAL_FILT with rigidLid ', |
|
./model/src/ini_p_ground.F |
205 |
INI_P_GROUND |
WRITE(msgBuf,'(2A)') |
|
./model/src/ini_p_ground.F |
208 |
INI_P_GROUND |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_p_ground.F |
209 |
INI_P_GROUND |
WRITE(msgBuf,'(A,F7.1,2A,F6.4,A,F8.0)') |
|
./model/src/ini_p_ground.F |
212 |
INI_P_GROUND |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_p_ground.F |
61 |
INI_P_GROUND |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_p_ground.F |
81 |
INI_P_GROUND |
WRITE(msgBuf,'(A,I2,A)') |
|
./model/src/ini_p_ground.F |
84 |
INI_P_GROUND |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_parms.F |
1017 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; starts to read PARM04' |
|
./model/src/ini_parms.F |
1018 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
1022 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1024 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1025 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS: Problem in namelist PARM04' |
|
./model/src/ini_parms.F |
1026 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1029 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; read PARM04 : OK' |
|
./model/src/ini_parms.F |
1030 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
1037 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
1040 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1044 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
1047 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1051 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
1054 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1058 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
1061 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1070 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'Too many specifications for delX:', |
|
./model/src/ini_parms.F |
1072 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1086 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'Too many specifications for delY:', |
|
./model/src/ini_parms.F |
1088 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1104 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1106 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1111 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1113 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/ini_parms.F |
1115 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1117 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/ini_parms.F |
1150 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1152 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1163 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; Cylinder OK' |
|
./model/src/ini_parms.F |
1164 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
1199 |
INI_PARMS |
WRITE(msgBuf,'(A,I4)') |
|
./model/src/ini_parms.F |
1201 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1207 |
INI_PARMS |
WRITE(msgBuf,'(A,I4)') |
|
./model/src/ini_parms.F |
1209 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1225 |
INI_PARMS |
WRITE(msgBuf,'(A,I4)') |
|
./model/src/ini_parms.F |
1227 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1233 |
INI_PARMS |
WRITE(msgBuf,'(A,I4)') |
|
./model/src/ini_parms.F |
1235 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1246 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1248 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1254 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1256 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1263 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1265 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1272 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; starts to read PARM05' |
|
./model/src/ini_parms.F |
1273 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
1277 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1279 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1280 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS: Problem in namelist PARM05' |
|
./model/src/ini_parms.F |
1281 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1284 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; read PARM05 : OK' |
|
./model/src/ini_parms.F |
1285 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
1291 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
1294 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1298 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
1300 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1304 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1306 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1307 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1309 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1316 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1318 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1319 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1321 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1326 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1328 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1329 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1331 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1364 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS: finished reading file "data"' |
|
./model/src/ini_parms.F |
1365 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
1370 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1372 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1373 |
INI_PARMS |
WRITE(msgBuf,'(I4,A)') nRetired, |
|
./model/src/ini_parms.F |
1375 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1380 |
INI_PARMS |
WRITE(msgBuf,'(A,I3,A)') |
|
./model/src/ini_parms.F |
1382 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
341 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
343 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
378 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; starts to read PARM01' |
|
./model/src/ini_parms.F |
379 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
383 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
385 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
386 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS: Problem in namelist PARM01' |
|
./model/src/ini_parms.F |
387 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
390 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; read PARM01 : OK' |
|
./model/src/ini_parms.F |
391 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
411 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS:', |
|
./model/src/ini_parms.F |
413 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
420 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
422 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
424 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
426 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
453 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
455 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
485 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: Cannot set both ', |
|
./model/src/ini_parms.F |
487 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
490 |
INI_PARMS |
WRITE(msgBuf,'(A,2(I5,A))') 'S/R INI_PARMS: Partial setting (', |
|
./model/src/ini_parms.F |
492 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
511 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: Cannot set both ', |
|
./model/src/ini_parms.F |
513 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
516 |
INI_PARMS |
WRITE(msgBuf,'(A,2(I5,A))') 'S/R INI_PARMS: Partial setting (', |
|
./model/src/ini_parms.F |
518 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
537 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: Cannot set both ', |
|
./model/src/ini_parms.F |
539 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
542 |
INI_PARMS |
WRITE(msgBuf,'(A,2(I5,A))') 'S/R INI_PARMS: Partial setting (', |
|
./model/src/ini_parms.F |
544 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
54 |
INI_PARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_parms.F |
570 |
INI_PARMS |
WRITE(msgBuf,'(A,I5,A)') |
|
./model/src/ini_parms.F |
573 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
579 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
582 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
591 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
593 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
597 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
599 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
606 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
608 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
612 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
614 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
618 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
620 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
638 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "useConstantF" ', |
|
./model/src/ini_parms.F |
640 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
641 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: set "selectCoriMap"', |
|
./model/src/ini_parms.F |
643 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
647 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "useBetaPlaneF" ', |
|
./model/src/ini_parms.F |
649 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
650 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: set "selectCoriMap"', |
|
./model/src/ini_parms.F |
652 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
656 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "useSphereF" ', |
|
./model/src/ini_parms.F |
658 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
659 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: set "selectCoriMap"', |
|
./model/src/ini_parms.F |
661 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
665 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
668 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
669 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
672 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
676 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
679 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
683 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tracerAdvScheme" ', |
|
./model/src/ini_parms.F |
685 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
689 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "trac_EvPrRn" ', |
|
./model/src/ini_parms.F |
691 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
695 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tempDiffusion" ', |
|
./model/src/ini_parms.F |
697 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
698 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to turn off diffusion', |
|
./model/src/ini_parms.F |
700 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
704 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "saltDiffusion" ', |
|
./model/src/ini_parms.F |
706 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
707 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to turn off diffusion', |
|
./model/src/ini_parms.F |
709 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
713 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
716 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
717 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to use Strain & Tension', |
|
./model/src/ini_parms.F |
719 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
723 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
726 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
727 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to use Strain & Tension', |
|
./model/src/ini_parms.F |
729 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
733 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
736 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
740 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
743 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
747 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
750 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
754 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
757 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
761 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "useOldFreezing" ', |
|
./model/src/ini_parms.F |
763 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
767 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; starts to read PARM02' |
|
./model/src/ini_parms.F |
768 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
772 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
774 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
775 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS: Problem in namelist PARM02' |
|
./model/src/ini_parms.F |
776 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
779 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; read PARM02 : OK' |
|
./model/src/ini_parms.F |
780 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
790 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; starts to read PARM03' |
|
./model/src/ini_parms.F |
791 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
795 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
797 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
798 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS: Problem in namelist PARM03' |
|
./model/src/ini_parms.F |
799 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
802 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; read PARM03 : OK' |
|
./model/src/ini_parms.F |
803 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
809 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tauThetaClimRelax3Dim" ', |
|
./model/src/ini_parms.F |
811 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
812 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: 3-dim. relaxation code', |
|
./model/src/ini_parms.F |
814 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
818 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tauSaltClimRelax3Dim" ', |
|
./model/src/ini_parms.F |
820 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
821 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: 3-dim. relaxation code', |
|
./model/src/ini_parms.F |
823 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
827 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "calendarDumps" ', |
|
./model/src/ini_parms.F |
829 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
830 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: calendarDumps', |
|
./model/src/ini_parms.F |
832 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
839 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
841 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
851 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: ', |
|
./model/src/ini_parms.F |
853 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
854 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: ', |
|
./model/src/ini_parms.F |
856 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
874 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
876 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
880 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
882 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
885 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
887 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
891 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
893 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
911 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
914 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
960 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
962 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
963 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
965 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
969 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
971 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
972 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
974 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
979 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
981 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
982 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
984 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./verification/adjustment.cs-32x32x1/code_min/main.F |
112 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/adjustment.cs-32x32x1/code_min/main.F |
211 |
NO PROCEDURE |
WRITE( msgBuf,'(A)') 'PROGRAM MAIN: ends with fatal Error' |
|
./verification/adjustment.cs-32x32x1/code_min/main.F |
212 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./model/src/ini_pressure.F |
146 |
INI_PRESSURE |
WRITE(msgBuf,'(A,I4,A,1PE20.12)') |
|
./model/src/ini_pressure.F |
148 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
160 |
INI_PRESSURE |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_pressure.F |
162 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
164 |
INI_PRESSURE |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_pressure.F |
166 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
168 |
INI_PRESSURE |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_pressure.F |
170 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
173 |
INI_PRESSURE |
WRITE(msgBuf,'(A,I2,A)') |
|
./model/src/ini_pressure.F |
176 |
INI_PRESSURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_pressure.F |
180 |
INI_PRESSURE |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_pressure.F |
182 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
192 |
INI_PRESSURE |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_pressure.F |
195 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
202 |
INI_PRESSURE |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/ini_pressure.F |
203 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
55 |
INI_PRESSURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_pressure.F |
63 |
INI_PRESSURE |
WRITE(msgBuf,'(a)') |
|
./model/src/ini_pressure.F |
65 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/advect_xy/code/ini_salt.F |
112 |
INI_SALT |
WRITE(msgBuf,'(A,I10,A)') |
|
./verification/advect_xy/code/ini_salt.F |
115 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/advect_xy/code/ini_salt.F |
116 |
INI_SALT |
WRITE(msgBuf,'(A,A)') |
|
./verification/advect_xy/code/ini_salt.F |
119 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/advect_xy/code/ini_salt.F |
122 |
INI_SALT |
WRITE(msgBuf,'(A,I10,A)') |
|
./verification/advect_xy/code/ini_salt.F |
125 |
INI_SALT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./verification/advect_xy/code/ini_salt.F |
49 |
INI_SALT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/advect_xy/code/ini_theta.F |
113 |
INI_THETA |
WRITE(msgBuf,'(A,I10,A)') |
|
./verification/advect_xy/code/ini_theta.F |
116 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/advect_xy/code/ini_theta.F |
117 |
INI_THETA |
WRITE(msgBuf,'(A,A)') |
|
./verification/advect_xy/code/ini_theta.F |
120 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/advect_xy/code/ini_theta.F |
123 |
INI_THETA |
WRITE(msgBuf,'(A,I10,A)') |
|
./verification/advect_xy/code/ini_theta.F |
126 |
INI_THETA |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./verification/advect_xy/code/ini_theta.F |
50 |
INI_THETA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
195 |
INI_DEPTHS |
WRITE(msgBuf,'(A,A)') 'S/R INI_DEPTHS: ', |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
197 |
INI_DEPTHS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
60 |
INI_DEPTHS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
65 |
INI_DEPTHS |
WRITE(msgBuf,'(A,A)') |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
68 |
INI_DEPTHS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./eesupp/src/check_threads.F |
115 |
CHECK_THREADS |
WRITE(msgBuf,'(A,I5,A)') 'CHECK_THREADS:', nChecks, |
|
./eesupp/src/check_threads.F |
117 |
CHECK_THREADS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/check_threads.F |
141 |
CHECK_THREADS |
WRITE(msgBuf,'(A,I5,A,I5,A)') |
|
./eesupp/src/check_threads.F |
144 |
CHECK_THREADS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/check_threads.F |
61 |
CHECK_THREADS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/check_threads.F |
80 |
CHECK_THREADS |
WRITE(msgBuf,'(2A,I6)') 'CHECK_THREADS:', |
|
./eesupp/src/check_threads.F |
82 |
CHECK_THREADS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/check_threads.F |
83 |
CHECK_THREADS |
WRITE(msgBuf,'(2A,I6)') ' not equal to ', |
|
./eesupp/src/check_threads.F |
85 |
CHECK_THREADS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_salt.F |
113 |
INI_SALT |
WRITE(msgBuf,'(A,I10,A)') |
|
./model/src/ini_salt.F |
116 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_salt.F |
117 |
INI_SALT |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_salt.F |
120 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_salt.F |
123 |
INI_SALT |
WRITE(msgBuf,'(A,I10,A)') |
|
./model/src/ini_salt.F |
126 |
INI_SALT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/ini_salt.F |
52 |
INI_SALT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
152 |
ADDUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') 'S/R ADDUMMY_IN_STEPPING' |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
153 |
ADDUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
154 |
ADDUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') 'Error writing out model state' |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
155 |
ADDUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
156 |
ADDUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
157 |
ADDUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
159 |
ADDUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
161 |
ADDUMMY_IN_STEPPING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
163 |
ADDUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') ' ' |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
164 |
ADDUMMY_IN_STEPPING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
58 |
ADDUMMY_IN_STEPPING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_sigma_hfac.F |
120 |
INI_SIGMA_HFAC |
WRITE(msgBuf,'(A,1PE14.6)') |
|
./model/src/ini_sigma_hfac.F |
122 |
INI_SIGMA_HFAC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_sigma_hfac.F |
51 |
INI_SIGMA_HFAC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
125 |
ADDUMMY_IN_HFAC |
WRITE(msgBuf,'(A)') 'S/R WRITE_STATE' |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
126 |
ADDUMMY_IN_HFAC |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
127 |
ADDUMMY_IN_HFAC |
WRITE(msgBuf,'(A)') 'Error writing out model state' |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
128 |
ADDUMMY_IN_HFAC |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
129 |
ADDUMMY_IN_HFAC |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
130 |
ADDUMMY_IN_HFAC |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
132 |
ADDUMMY_IN_HFAC |
WRITE(msgBuf,'(A,I10)') |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
134 |
ADDUMMY_IN_HFAC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
136 |
ADDUMMY_IN_HFAC |
WRITE(msgBuf,'(A)') ' ' |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
137 |
ADDUMMY_IN_HFAC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
80 |
ADDUMMY_IN_HFAC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_theta.F |
114 |
INI_THETA |
WRITE(msgBuf,'(A,I10,A)') |
|
./model/src/ini_theta.F |
117 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_theta.F |
118 |
INI_THETA |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_theta.F |
121 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_theta.F |
124 |
INI_THETA |
WRITE(msgBuf,'(A,I10,A)') |
|
./model/src/ini_theta.F |
127 |
INI_THETA |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/ini_theta.F |
53 |
INI_THETA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_vertical_grid.F |
114 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,I4,A,E16.8)') |
|
./model/src/ini_vertical_grid.F |
116 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
117 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_vertical_grid.F |
119 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
155 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,I4,A,E16.8)') |
|
./model/src/ini_vertical_grid.F |
158 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
159 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,1PE14.6,A,2E14.6)') |
|
./model/src/ini_vertical_grid.F |
162 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
339 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(2A)') 'S/R INI_VERTICAL_GRID:', |
|
./model/src/ini_vertical_grid.F |
341 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
343 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,I4,2(A,1PE14.6),A,1P2E14.6)') |
|
./model/src/ini_vertical_grid.F |
346 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
355 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(2A)') 'S/R INI_VERTICAL_GRID:', |
|
./model/src/ini_vertical_grid.F |
357 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
359 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,I4,2(A,1PE14.6),A,1P2E14.6)') |
|
./model/src/ini_vertical_grid.F |
362 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
366 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(2A,1PE14.6)') 'S/R INI_VERTICAL_GRID:', |
|
./model/src/ini_vertical_grid.F |
368 |
INI_VERTICAL_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_vertical_grid.F |
370 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(2A,1PE14.6)') 'S/R INI_VERTICAL_GRID:', |
|
./model/src/ini_vertical_grid.F |
372 |
INI_VERTICAL_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_vertical_grid.F |
375 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(2A)') 'S/R INI_VERTICAL_GRID:', |
|
./model/src/ini_vertical_grid.F |
377 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
37 |
INI_VERTICAL_GRID |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_vertical_grid.F |
45 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,2(A,L5))') 'Enter INI_VERTICAL_GRID:', |
|
./model/src/ini_vertical_grid.F |
48 |
INI_VERTICAL_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_vertical_grid.F |
63 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_vertical_grid.F |
65 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
66 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_vertical_grid.F |
68 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
82 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,I4,A,E16.8)') |
|
./model/src/ini_vertical_grid.F |
84 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
85 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_vertical_grid.F |
87 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
139 |
INI_SALT |
WRITE(msgBuf,'(A,A)') |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
142 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
47 |
INI_SALT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/comm_stats.F |
101 |
COMM_STATS |
WRITE(msgBuf,'(A,A,1PE15.2)') |
|
./eesupp/src/comm_stats.F |
106 |
COMM_STATS |
WRITE(msgBuf,'(A,A,1PE15.2)') |
|
./eesupp/src/comm_stats.F |
110 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
119 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I6.6)') |
|
./eesupp/src/comm_stats.F |
121 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
123 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
125 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
127 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
129 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
131 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
133 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
135 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
137 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
140 |
COMM_STATS |
WRITE(msgBuf,'(A,A,1PE15.2)') |
|
./eesupp/src/comm_stats.F |
144 |
COMM_STATS |
WRITE(msgBuf,'(A,A,1PE15.2)') |
|
./eesupp/src/comm_stats.F |
148 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
31 |
COMM_STATS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/comm_stats.F |
35 |
COMM_STATS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/comm_stats.F |
37 |
COMM_STATS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
39 |
COMM_STATS |
WRITE(msgBuf,'(A)') '// Tile <-> Tile communication statistics' |
|
./eesupp/src/comm_stats.F |
40 |
COMM_STATS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
42 |
COMM_STATS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/comm_stats.F |
44 |
COMM_STATS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
50 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I6.6)') |
|
./eesupp/src/comm_stats.F |
52 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
55 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
57 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
59 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
61 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
63 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
65 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
67 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
69 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
72 |
COMM_STATS |
WRITE(msgBuf,'(A,A,1PE15.2)') |
|
./eesupp/src/comm_stats.F |
77 |
COMM_STATS |
WRITE(msgBuf,'(A,A,1PE15.2)') |
|
./eesupp/src/comm_stats.F |
81 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
84 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
86 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
88 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
90 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
92 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
94 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
96 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
98 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F |
63 |
CTRL_MAP_INI_GENARR |
character*(MAX_LEN_MBUF) msgBuf |
|
./model/src/load_grid_spacing.F |
105 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(3A)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
107 |
LOAD_GRID_SPACING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_grid_spacing.F |
123 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(2A,I5)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
125 |
LOAD_GRID_SPACING |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/load_grid_spacing.F |
130 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(2A,I5,A,1PE16.8,A)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
132 |
LOAD_GRID_SPACING |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/load_grid_spacing.F |
136 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(2A,I5,A)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
138 |
LOAD_GRID_SPACING |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/load_grid_spacing.F |
148 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(2A,I5)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
150 |
LOAD_GRID_SPACING |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/load_grid_spacing.F |
155 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(2A,I5,A,1PE16.8,A)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
157 |
LOAD_GRID_SPACING |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/load_grid_spacing.F |
161 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(2A,I5,A)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
163 |
LOAD_GRID_SPACING |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/load_grid_spacing.F |
46 |
LOAD_GRID_SPACING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/load_grid_spacing.F |
65 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(3A)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
67 |
LOAD_GRID_SPACING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_grid_spacing.F |
75 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(3A)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
77 |
LOAD_GRID_SPACING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_grid_spacing.F |
85 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(3A)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
87 |
LOAD_GRID_SPACING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_grid_spacing.F |
94 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(3A)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
96 |
LOAD_GRID_SPACING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_ref_files.F |
103 |
LOAD_REF_FILES |
WRITE(msgBuf,'(3A)') 'S/R LOAD_REF_FILES:', |
|
./model/src/load_ref_files.F |
105 |
LOAD_REF_FILES |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_ref_files.F |
114 |
LOAD_REF_FILES |
WRITE(msgBuf,'(3A)') 'S/R LOAD_REF_FILES:', |
|
./model/src/load_ref_files.F |
116 |
LOAD_REF_FILES |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_ref_files.F |
42 |
LOAD_REF_FILES |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/load_ref_files.F |
61 |
LOAD_REF_FILES |
WRITE(msgBuf,'(2A,I4,A)') 'S/R LOAD_REF_FILES:', |
|
./model/src/load_ref_files.F |
63 |
LOAD_REF_FILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/load_ref_files.F |
72 |
LOAD_REF_FILES |
WRITE(msgBuf,'(3A)') 'S/R LOAD_REF_FILES:', |
|
./model/src/load_ref_files.F |
74 |
LOAD_REF_FILES |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_ref_files.F |
92 |
LOAD_REF_FILES |
WRITE(msgBuf,'(2A,I4,A)') 'S/R LOAD_REF_FILES:', |
|
./model/src/load_ref_files.F |
94 |
LOAD_REF_FILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/packages_boot.F |
101 |
PACKAGES_BOOT |
WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: opening data.pkg' |
|
./model/src/packages_boot.F |
102 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/packages_boot.F |
164 |
PACKAGES_BOOT |
WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: finished reading data.pkg' |
|
./model/src/packages_boot.F |
165 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/packages_boot.F |
178 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') '** WARNING ** pkg/profiles uses NetCDF', |
|
./model/src/packages_boot.F |
180 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/packages_boot.F |
182 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') '** WARNING ** PACKAGES_BOOT:', |
|
./model/src/packages_boot.F |
184 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/packages_boot.F |
186 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') ' PACKAGES_BOOT: undef HAVE_NETCDF', |
|
./model/src/packages_boot.F |
188 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/packages_boot.F |
207 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') ' PACKAGES_BOOT: On/Off package Summary' |
|
./model/src/packages_boot.F |
208 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/packages_boot.F |
43 |
PACKAGES_BOOT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/packages_boot.F |
451 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') ' PACKAGES_BOOT: End of package Summary' |
|
./model/src/packages_boot.F |
452 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/packages_boot.F |
454 |
PACKAGES_BOOT |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/packages_boot.F |
455 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
67 |
CTRL_MAP_INI_GENARR |
character*(MAX_LEN_MBUF) msgBuf |
|
./model/src/packages_check.F |
101 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
102 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
|
./model/src/packages_check.F |
104 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
39 |
PACKAGES_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/packages_check.F |
419 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
|
./model/src/packages_check.F |
421 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
422 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
|
./model/src/packages_check.F |
424 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
431 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
|
./model/src/packages_check.F |
433 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
434 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
|
./model/src/packages_check.F |
436 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
43 |
PACKAGES_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/packages_check.F |
45 |
PACKAGES_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/packages_check.F |
47 |
PACKAGES_CHECK |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/packages_check.F |
48 |
PACKAGES_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/packages_check.F |
57 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING **', |
|
./model/src/packages_check.F |
59 |
PACKAGES_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/packages_check.F |
61 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING **', |
|
./model/src/packages_check.F |
63 |
PACKAGES_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/packages_check.F |
71 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/packages_check.F |
74 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
75 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
|
./model/src/packages_check.F |
77 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
84 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/packages_check.F |
87 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
88 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
|
./model/src/packages_check.F |
90 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
98 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') |
|
./verification/hs94.1x64x5/code/ini_theta.F |
118 |
INI_THETA |
WRITE(msgBuf,'(A,A)') |
|
./verification/hs94.1x64x5/code/ini_theta.F |
121 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
54 |
INI_THETA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/packages_error_msg.F |
39 |
PACKAGES_ERROR_MSG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/packages_error_msg.F |
50 |
PACKAGES_ERROR_MSG |
WRITE(msgBuf,'(4A)') 'from PACKAGES_CHECK: ', |
|
./model/src/packages_error_msg.F |
53 |
PACKAGES_ERROR_MSG |
WRITE(msgBuf,'(4A)') 'from PACKAGES_CHECK: ', |
|
./model/src/packages_error_msg.F |
56 |
PACKAGES_ERROR_MSG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/packages_error_msg.F |
57 |
PACKAGES_ERROR_MSG |
WRITE(msgBuf,'(5A)') 'but pkg/',msgLwc(1:iLen), |
|
./model/src/packages_error_msg.F |
59 |
PACKAGES_ERROR_MSG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/packages_error_msg.F |
60 |
PACKAGES_ERROR_MSG |
WRITE(msgBuf,'(3A)') |
|
./model/src/packages_error_msg.F |
63 |
PACKAGES_ERROR_MSG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
150 |
CTRL_MAP_GENTIM2D |
WRITE(msgBuf,'(A,I6,A,I6,A,1PE21.14)') ' xx_gentim2d ', |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
152 |
CTRL_MAP_GENTIM2D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
63 |
CTRL_MAP_GENTIM2D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
63 |
CTRL_MAP_INI_GENARR |
character*(MAX_LEN_MBUF) msgBuf |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
118 |
INI_THETA |
WRITE(msgBuf,'(A,A)') |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
121 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
54 |
INI_THETA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
150 |
CTRL_MAP_GENTIM2D |
WRITE(msgBuf,'(A,I6,A,I6,A,1PE21.14)') ' xx_gentim2d ', |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
152 |
CTRL_MAP_GENTIM2D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
63 |
CTRL_MAP_GENTIM2D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
62 |
CTRL_MAP_INI_GENARR |
character*(MAX_LEN_MBUF) msgBuf |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
118 |
INI_THETA |
WRITE(msgBuf,'(A,A)') |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
121 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
54 |
INI_THETA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
118 |
INI_THETA |
WRITE(msgBuf,'(A,A)') |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
121 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
54 |
INI_THETA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/packages_unused_msg.F |
103 |
PACKAGES_UNUSED_MSG |
WRITE(msgBuf,'(5A)') '** Warning ** ', caller_sub(1:iLen2), |
|
./model/src/packages_unused_msg.F |
105 |
PACKAGES_UNUSED_MSG |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/packages_unused_msg.F |
107 |
PACKAGES_UNUSED_MSG |
WRITE(msgBuf,'(5A)') '** Warning ** ', caller_sub(1:iLen2), |
|
./model/src/packages_unused_msg.F |
109 |
PACKAGES_UNUSED_MSG |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/packages_unused_msg.F |
50 |
PACKAGES_UNUSED_MSG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/read_pickup.F |
116 |
READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'READ_PICKUP: ', |
|
./model/src/read_pickup.F |
118 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/read_pickup.F |
119 |
READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'READ_PICKUP: ', |
|
./model/src/read_pickup.F |
121 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/read_pickup.F |
132 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'READ_PICKUP: ', |
|
./model/src/read_pickup.F |
136 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/read_pickup.F |
137 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'READ_PICKUP: ', |
|
./model/src/read_pickup.F |
140 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
143 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> READ_PICKUP: ', |
|
./model/src/read_pickup.F |
145 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
148 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./model/src/read_pickup.F |
150 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
153 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./model/src/read_pickup.F |
155 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
156 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./model/src/read_pickup.F |
158 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
438 |
READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'READ_PICKUP: ', |
|
./model/src/read_pickup.F |
440 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/read_pickup.F |
76 |
READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/remove_mean.F |
102 |
REMOVE_MEAN_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/remove_mean.F |
207 |
REMOVE_MEAN_RS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/rotate_uv2en.F |
245 |
ROTATE_UV2EN_RS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/rotate_uv2en.F |
251 |
ROTATE_UV2EN_RS |
WRITE(msgBuf,'(2A,I4,A)') ' ROTATE_UV2EN: ', |
|
./model/src/rotate_uv2en.F |
253 |
ROTATE_UV2EN_RS |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./model/src/rotate_uv2en.F |
64 |
ROTATE_UV2EN_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/rotate_uv2en.F |
70 |
ROTATE_UV2EN_RL |
WRITE(msgBuf,'(2A,I4,A)') ' ROTATE_UV2EN: ', |
|
./model/src/rotate_uv2en.F |
72 |
ROTATE_UV2EN_RL |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
124 |
CTRL_MAP_INI_GENARR |
WRITE(msgBuf,'(A)') |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
126 |
CTRL_MAP_INI_GENARR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
62 |
CTRL_MAP_INI_GENARR |
character*(MAX_LEN_MBUF) msgBuf |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
44 |
COST_WEIGHTS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
96 |
COST_WEIGHTS |
WRITE(msgBuf,'(3A)') 'S/R COST_WEIGHTS:', |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
98 |
COST_WEIGHTS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
44 |
COST_WEIGHTS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
96 |
COST_WEIGHTS |
WRITE(msgBuf,'(3A)') 'S/R COST_WEIGHTS:', |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
98 |
COST_WEIGHTS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
122 |
CTRL_MAP_INI_GENARR |
WRITE(msgBuf,'(A)') |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
124 |
CTRL_MAP_INI_GENARR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
61 |
CTRL_MAP_INI_GENARR |
character*(MAX_LEN_MBUF) msgBuf |
|
./model/src/set_parms.F |
133 |
SET_PARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** SET_PARMS: ', |
|
./model/src/set_parms.F |
135 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_parms.F |
154 |
SET_PARMS |
WRITE(msgBuf,'(A,A)') '** WARNING ** SET_PARMS: ', |
|
./model/src/set_parms.F |
156 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_parms.F |
242 |
SET_PARMS |
WRITE(msgBuf,'(A,A)') '** WARNING ** SET_PARMS: ', |
|
./model/src/set_parms.F |
244 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_parms.F |
246 |
SET_PARMS |
WRITE(msgBuf,'(2A,1PE20.13)') '** WARNING ** SET_PARMS: ', |
|
./model/src/set_parms.F |
248 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_parms.F |
250 |
SET_PARMS |
WRITE(msgBuf,'(2A,1PE20.13)') '** WARNING ** SET_PARMS: ', |
|
./model/src/set_parms.F |
252 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_parms.F |
265 |
SET_PARMS |
WRITE(msgBuf,'(A,A)') 'SET_PARMS: done' |
|
./model/src/set_parms.F |
266 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/set_parms.F |
40 |
SET_PARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/set_parms.F |
75 |
SET_PARMS |
WRITE(msgBuf,'(2A)') 'SET_PARAMS: ', |
|
./model/src/set_parms.F |
77 |
SET_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/set_parms.F |
78 |
SET_PARMS |
WRITE(msgBuf,'(2A)') 'SET_PARAMS: ', |
|
./model/src/set_parms.F |
80 |
SET_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/set_parms.F |
87 |
SET_PARMS |
WRITE(msgBuf,'(2A)') 'SET_PARAMS: ', |
|
./model/src/set_parms.F |
89 |
SET_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/set_parms.F |
90 |
SET_PARMS |
WRITE(msgBuf,'(2A)') 'SET_PARAMS: ', |
|
./model/src/set_parms.F |
92 |
SET_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
124 |
CTRL_MAP_INI_GENARR |
WRITE(msgBuf,'(A)') |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
126 |
CTRL_MAP_INI_GENARR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
62 |
CTRL_MAP_INI_GENARR |
character*(MAX_LEN_MBUF) msgBuf |
|
./model/src/set_ref_state.F |
101 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_ref_state.F |
103 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
|
./model/src/set_ref_state.F |
105 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_ref_state.F |
314 |
SET_REF_STATE |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/set_ref_state.F |
315 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/set_ref_state.F |
316 |
SET_REF_STATE |
WRITE(msgBuf,'(A)') |
|
./model/src/set_ref_state.F |
318 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/set_ref_state.F |
319 |
SET_REF_STATE |
WRITE(msgBuf,'(A)') |
|
./model/src/set_ref_state.F |
321 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/set_ref_state.F |
323 |
SET_REF_STATE |
WRITE(msgBuf,'(A,F5.1,A,F15.1,A,F13.3)') |
|
./model/src/set_ref_state.F |
326 |
SET_REF_STATE |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/set_ref_state.F |
40 |
SET_REF_STATE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/set_ref_state.F |
82 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
|
./model/src/set_ref_state.F |
84 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/set_ref_state.F |
85 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
|
./model/src/set_ref_state.F |
87 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/set_ref_state.F |
91 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
|
./model/src/set_ref_state.F |
93 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/set_ref_state.F |
94 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
|
./model/src/set_ref_state.F |
96 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/set_ref_state.F |
99 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
|
./model/src/solve_for_pressure.F |
102 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(2A,L5)') 'SOLVE_FOR_PRESSURE:', |
|
./model/src/solve_for_pressure.F |
104 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/solve_for_pressure.F |
106 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A,2(A,L5))') 'SOLVE_FOR_PRESSURE:', |
|
./model/src/solve_for_pressure.F |
108 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/solve_for_pressure.F |
109 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(2A,L5)') 'SOLVE_FOR_PRESSURE:', |
|
./model/src/solve_for_pressure.F |
111 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/solve_for_pressure.F |
321 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A20,1PE23.14)') 'cg2d_init_res =',firstResidual |
|
./model/src/solve_for_pressure.F |
322 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/solve_for_pressure.F |
323 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A27,2I8)') |
|
./model/src/solve_for_pressure.F |
325 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/solve_for_pressure.F |
328 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A20,1PE23.14)') 'cg2d_min_res =',minResidualSq |
|
./model/src/solve_for_pressure.F |
329 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/solve_for_pressure.F |
331 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A20,1PE23.14)') 'cg2d_last_res =',lastResidual |
|
./model/src/solve_for_pressure.F |
332 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/solve_for_pressure.F |
403 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A20,1PE23.14)') 'cg3d_init_res =',firstResidual |
|
./model/src/solve_for_pressure.F |
404 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/solve_for_pressure.F |
405 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A27,I16)') 'cg3d_iters (last) = ',numIters |
|
./model/src/solve_for_pressure.F |
406 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/solve_for_pressure.F |
407 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A20,1PE23.14)') 'cg3d_last_res =',lastResidual |
|
./model/src/solve_for_pressure.F |
408 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/solve_for_pressure.F |
63 |
SOLVE_FOR_PRESSURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/state_summary.F |
43 |
STATE_SUMMARY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/state_summary.F |
47 |
STATE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/state_summary.F |
49 |
STATE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/state_summary.F |
51 |
STATE_SUMMARY |
WRITE(msgBuf,'(A)') '// Model current state' |
|
./model/src/state_summary.F |
52 |
STATE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/state_summary.F |
54 |
STATE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/state_summary.F |
56 |
STATE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/state_summary.F |
58 |
STATE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/state_summary.F |
59 |
STATE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeboot_minimal.F |
100 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/eeboot_minimal.F |
149 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/eeboot_minimal.F |
151 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/eeboot_minimal.F |
172 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(2A)') '** WARNING ** EEBOOT_MINIMAL: ', |
|
./eesupp/src/eeboot_minimal.F |
174 |
EEBOOT_MINIMAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./eesupp/src/eeboot_minimal.F |
176 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(2A)') '** WARNING ** EEBOOT_MINIMAL: ', |
|
./eesupp/src/eeboot_minimal.F |
178 |
EEBOOT_MINIMAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./eesupp/src/eeboot_minimal.F |
195 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(A,I6)') |
|
./eesupp/src/eeboot_minimal.F |
197 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/eeboot_minimal.F |
205 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(A,I6)') |
|
./eesupp/src/eeboot_minimal.F |
207 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/eeboot_minimal.F |
220 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(2(A,I6))') |
|
./eesupp/src/eeboot_minimal.F |
223 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/eeboot_minimal.F |
46 |
EEBOOT_MINIMAL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/eeboot_minimal.F |
98 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(A,I5)') |
|
./model/src/write_pickup.F |
322 |
WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'WRITE_PICKUP: ', |
|
./model/src/write_pickup.F |
324 |
WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/write_pickup.F |
325 |
WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'WRITE_PICKUP: ', |
|
./model/src/write_pickup.F |
327 |
WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/write_pickup.F |
80 |
WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/eedata_example.F |
20 |
EEDATA_EXAMPLE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/eedata_example.F |
22 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '// Shown below is an example "eedata" file.' |
|
./eesupp/src/eedata_example.F |
23 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedata_example.F |
24 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(2A)') '// To use this example copy and paste', |
|
./eesupp/src/eedata_example.F |
26 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedata_example.F |
27 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(2A)') '// Then remove the text up to', |
|
./eesupp/src/eedata_example.F |
29 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedata_example.F |
30 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># Example "eedata" file' |
|
./eesupp/src/eedata_example.F |
31 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedata_example.F |
32 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># Lines beginning "#" are comments' |
|
./eesupp/src/eedata_example.F |
33 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedata_example.F |
34 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># nTx - No. threads per process in X' |
|
./eesupp/src/eedata_example.F |
35 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedata_example.F |
36 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># nTy - No. threads per process in Y' |
|
./eesupp/src/eedata_example.F |
37 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedata_example.F |
38 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '>&EEPARMS ' |
|
./eesupp/src/eedata_example.F |
39 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedata_example.F |
40 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> nTx=1, ' |
|
./eesupp/src/eedata_example.F |
41 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedata_example.F |
42 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> nTy=1, ' |
|
./eesupp/src/eedata_example.F |
43 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedata_example.F |
44 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '>& ' |
|
./eesupp/src/eedata_example.F |
45 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedata_example.F |
46 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(2A)') '># Note: Some systems use & as the ', |
|
./eesupp/src/eedata_example.F |
48 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedata_example.F |
49 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># Other systems use a / character.' |
|
./eesupp/src/eedata_example.F |
50 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedata_example.F |
51 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/eedata_example.F |
52 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./eesupp/src/eedie.F |
100 |
EEDIE |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/eedie.F |
103 |
EEDIE |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./eesupp/src/eedie.F |
32 |
EEDIE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/eedie.F |
42 |
EEDIE |
WRITE(msgBuf,'(2A)') |
|
./eesupp/src/eedie.F |
44 |
EEDIE |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./eesupp/src/eedie.F |
60 |
EEDIE |
WRITE(msgBuf,'(A,I5,A)') |
|
./eesupp/src/eedie.F |
62 |
EEDIE |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./eesupp/src/eedie.F |
63 |
EEDIE |
WRITE(msgBuf,'(A,I5,A)') |
|
./eesupp/src/eedie.F |
65 |
EEDIE |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./eesupp/src/eeintro_msg.F |
26 |
EEINTRO_MSG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/eeintro_msg.F |
29 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/eeintro_msg.F |
30 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
32 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeintro_msg.F |
34 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
36 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') '// MITgcm UV' |
|
./eesupp/src/eeintro_msg.F |
37 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
39 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') '// =========' |
|
./eesupp/src/eeintro_msg.F |
40 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
42 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeintro_msg.F |
44 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
46 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') '// execution environment starting up...' |
|
./eesupp/src/eeintro_msg.F |
47 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
49 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/eeintro_msg.F |
50 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
54 |
EEINTRO_MSG |
WRITE(msgBuf,'(2A)') '// MITgcmUV version: ', |
|
./eesupp/src/eeintro_msg.F |
56 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
60 |
EEINTRO_MSG |
WRITE(msgBuf,'(2A)') '// Build user: ', |
|
./eesupp/src/eeintro_msg.F |
62 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
66 |
EEINTRO_MSG |
WRITE(msgBuf,'(2A)') '// Build host: ', |
|
./eesupp/src/eeintro_msg.F |
68 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
72 |
EEINTRO_MSG |
WRITE(msgBuf,'(2A)') '// Build date: ', |
|
./eesupp/src/eeintro_msg.F |
74 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
78 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/eeintro_msg.F |
79 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeset_parms.F |
167 |
EESET_PARMS |
WRITE(msgBuf,'(2A)') 'EESET_PARMS: ', |
|
./eesupp/src/eeset_parms.F |
169 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./eesupp/src/eeset_parms.F |
194 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeset_parms.F |
196 |
EESET_PARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT, 1) |
|
./eesupp/src/eeset_parms.F |
197 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeset_parms.F |
199 |
EESET_PARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT, 1) |
|
./eesupp/src/eeset_parms.F |
200 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeset_parms.F |
202 |
EESET_PARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT, 1) |
|
./eesupp/src/eeset_parms.F |
208 |
EESET_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
209 |
EESET_PARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, SQUEEZE_RIGHT, 1) |
|
./eesupp/src/eeset_parms.F |
213 |
EESET_PARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/eeset_parms.F |
214 |
EESET_PARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, SQUEEZE_RIGHT, 1) |
|
./eesupp/src/eeset_parms.F |
241 |
EESET_PARMS |
WRITE(msgBuf,'(2A)') 'EESET_PARMS: ', |
|
./eesupp/src/eeset_parms.F |
243 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./eesupp/src/eeset_parms.F |
256 |
EESET_PARMS |
WRITE(msgBuf,'(2A)') 'EESET_PARMS: ', |
|
./eesupp/src/eeset_parms.F |
258 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./eesupp/src/eeset_parms.F |
259 |
EESET_PARMS |
WRITE(msgBuf,'(A)') 'EESET_PARMS: with #define ALWAYS_USE_MPI' |
|
./eesupp/src/eeset_parms.F |
260 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./eesupp/src/eeset_parms.F |
267 |
EESET_PARMS |
WRITE(msgBuf,'(2A)') 'EESET_PARMS: ', |
|
./eesupp/src/eeset_parms.F |
269 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./eesupp/src/eeset_parms.F |
270 |
EESET_PARMS |
WRITE(msgBuf,'(A)') 'EESET_PARMS: with #undef ALLOW_USE_MPI' |
|
./eesupp/src/eeset_parms.F |
271 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./eesupp/src/eeset_parms.F |
53 |
EESET_PARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/aim_v23/aim_do_co2.F |
119 |
AIM_DO_CO2 |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/aim_v23/aim_do_co2.F |
120 |
AIM_DO_CO2 |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/aim_v23/aim_do_co2.F |
121 |
AIM_DO_CO2 |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/aim_v23/aim_do_co2.F |
122 |
AIM_DO_CO2 |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/aim_v23/aim_do_co2.F |
123 |
AIM_DO_CO2 |
WRITE(msgBuf,'(2A)') '// AIM_DO_CO2: Read pickup ',fn(iLo:iHi) |
|
./pkg/aim_v23/aim_do_co2.F |
124 |
AIM_DO_CO2 |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/aim_v23/aim_do_co2.F |
60 |
AIM_DO_CO2 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/aim_v23/aim_dyn2aim.F |
224 |
AIM_DYN2AIM |
WRITE(msgBuf,'(A,1PE20.13,A,2I4)') |
|
./pkg/aim_v23/aim_dyn2aim.F |
227 |
AIM_DYN2AIM |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/aim_dyn2aim.F |
228 |
AIM_DYN2AIM |
WRITE(msgBuf,'(A,3I4,3I3,I6,2F9.3)') |
|
./pkg/aim_v23/aim_dyn2aim.F |
231 |
AIM_DYN2AIM |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/aim_dyn2aim.F |
67 |
AIM_DYN2AIM |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/eewrite_eeenv.F |
102 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nTy =',nTy, |
|
./eesupp/src/eewrite_eeenv.F |
104 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
107 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' Nr =', Nr, |
|
./eesupp/src/eewrite_eeenv.F |
109 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
112 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' Nx =', Nx, |
|
./eesupp/src/eewrite_eeenv.F |
114 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
117 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' Ny =', Ny, |
|
./eesupp/src/eewrite_eeenv.F |
119 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
122 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nTiles =', nSx*nSy, |
|
./eesupp/src/eewrite_eeenv.F |
124 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
127 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nProcs =', nPx*nPy, |
|
./eesupp/src/eewrite_eeenv.F |
129 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
132 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') 'nThreads =', nTx*nTy, |
|
./eesupp/src/eewrite_eeenv.F |
134 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
137 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,L5,A)') 'usingMPI =', usingMPI, |
|
./eesupp/src/eewrite_eeenv.F |
139 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
142 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,A,A)') ' ', ' ' , |
|
./eesupp/src/eewrite_eeenv.F |
144 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
147 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,A,A)') ' ', ' ' , |
|
./eesupp/src/eewrite_eeenv.F |
149 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
152 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,A,A)') ' ', ' ' , |
|
./eesupp/src/eewrite_eeenv.F |
154 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
157 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,L5,A)') 'useCoupler=', useCoupler, |
|
./eesupp/src/eewrite_eeenv.F |
159 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
161 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,A,A)') ' ', ' ', |
|
./eesupp/src/eewrite_eeenv.F |
163 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
166 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,L5,A)') 'debugMode =', debugMode, |
|
./eesupp/src/eewrite_eeenv.F |
168 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
170 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,L5,A)') |
|
./eesupp/src/eewrite_eeenv.F |
173 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
175 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') 'maxLengthPrt1D=', maxLengthPrt1D, |
|
./eesupp/src/eewrite_eeenv.F |
177 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
180 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/eewrite_eeenv.F |
181 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
34 |
EEWRITE_EEENV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/eewrite_eeenv.F |
37 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eewrite_eeenv.F |
39 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
42 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eewrite_eeenv.F |
44 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
47 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eewrite_eeenv.F |
49 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
52 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eewrite_eeenv.F |
54 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
57 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nPx =',nPx, |
|
./eesupp/src/eewrite_eeenv.F |
59 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
62 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nPy =',nPy, |
|
./eesupp/src/eewrite_eeenv.F |
64 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
67 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nSx =',nSx, |
|
./eesupp/src/eewrite_eeenv.F |
69 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
72 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nSy =',nSy, |
|
./eesupp/src/eewrite_eeenv.F |
74 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
77 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' sNx =',sNx, |
|
./eesupp/src/eewrite_eeenv.F |
79 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
82 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' sNy =',sNy, |
|
./eesupp/src/eewrite_eeenv.F |
84 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
87 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' OLx =',OLx, |
|
./eesupp/src/eewrite_eeenv.F |
89 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
92 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' OLy =',OLy, |
|
./eesupp/src/eewrite_eeenv.F |
94 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
97 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nTx =',nTx, |
|
./eesupp/src/eewrite_eeenv.F |
99 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/aim_v23/aim_readparms.F |
271 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') ' AIM_READ_PHYSPARMS: opening data.aimphys' |
|
./pkg/aim_v23/aim_readparms.F |
272 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
305 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/aim_v23/aim_readparms.F |
307 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
318 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/aim_v23/aim_readparms.F |
320 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/aim_v23/aim_readparms.F |
321 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') |
|
./pkg/aim_v23/aim_readparms.F |
323 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/aim_v23/aim_readparms.F |
331 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/aim_v23/aim_readparms.F |
333 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/aim_v23/aim_readparms.F |
334 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') |
|
./pkg/aim_v23/aim_readparms.F |
336 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/aim_v23/aim_readparms.F |
365 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/aim_v23/aim_readparms.F |
366 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
367 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/aim_v23/aim_readparms.F |
368 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
369 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') '// AIM physics parameters :' |
|
./pkg/aim_v23/aim_readparms.F |
370 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
371 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/aim_v23/aim_readparms.F |
372 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
513 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/aim_v23/aim_readparms.F |
515 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
529 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/aim_v23/aim_readparms.F |
58 |
AIM_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/aim_v23/aim_write_local.F |
49 |
AIM_WRITE_LOCAL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/aim_v23/aim_write_local.F |
60 |
AIM_WRITE_LOCAL |
WRITE(msgBuf,'(A,I10,A,2I5,A,I4,2A)') |
|
./pkg/aim_v23/aim_write_local.F |
63 |
AIM_WRITE_LOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/aim_v23/aim_write_local.F |
64 |
AIM_WRITE_LOCAL |
WRITE(msgBuf,'(A,I4,A,I4)') |
|
./pkg/aim_v23/aim_write_local.F |
66 |
AIM_WRITE_LOCAL |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/aim_write_phys.F |
52 |
AIM_WRITE_PHYS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/aim_v23/aim_write_phys.F |
80 |
AIM_WRITE_PHYS |
WRITE(msgBuf,'(A,I10,A,2I5,A,I4,2A)') |
|
./pkg/aim_v23/aim_write_phys.F |
83 |
AIM_WRITE_PHYS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/aim_v23/aim_write_phys.F |
84 |
AIM_WRITE_PHYS |
WRITE(msgBuf,'(A,I4,A,I4)') |
|
./pkg/aim_v23/aim_write_phys.F |
86 |
AIM_WRITE_PHYS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/aim_write_phys.F |
90 |
AIM_WRITE_PHYS |
WRITE(msgBuf,'(A,I10,A,2I5,A,I4,2A)') |
|
./pkg/aim_v23/aim_write_phys.F |
93 |
AIM_WRITE_PHYS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/aim_v23/aim_write_phys.F |
94 |
AIM_WRITE_PHYS |
WRITE(msgBuf,'(A,I4,A,I4)') |
|
./pkg/aim_v23/aim_write_phys.F |
97 |
AIM_WRITE_PHYS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
190 |
AIM_WRITE_TAVE |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/aim_v23/aim_write_tave.F |
192 |
AIM_WRITE_TAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/aim_v23/aim_write_tave.F |
194 |
AIM_WRITE_TAVE |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/aim_v23/aim_write_tave.F |
195 |
AIM_WRITE_TAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/aim_v23/aim_write_tave.F |
47 |
AIM_WRITE_TAVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/aim_v23/phy_suflux_post.F |
148 |
SUFLUX_POST |
WRITE(msgBuf,'(A,1PE20.13,A,2I4)') |
|
./pkg/aim_v23/phy_suflux_post.F |
151 |
SUFLUX_POST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/phy_suflux_post.F |
152 |
SUFLUX_POST |
WRITE(msgBuf,'(A,1P3E10.3,A,0P3F8.5)') |
|
./pkg/aim_v23/phy_suflux_post.F |
155 |
SUFLUX_POST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/phy_suflux_post.F |
156 |
SUFLUX_POST |
WRITE(msgBuf,'(A,2I4,3I3,I6,2F9.3)') |
|
./pkg/aim_v23/phy_suflux_post.F |
159 |
SUFLUX_POST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/phy_suflux_post.F |
94 |
SUFLUX_POST |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm2d/atm2d_readparms.F |
102 |
ATM2D_READPARMS |
WRITE(msgBuf,'(A)') ' ATM2D_READPARMS: read PARM01_ATM2D' |
|
./pkg/atm2d/atm2d_readparms.F |
103 |
ATM2D_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/atm2d/atm2d_readparms.F |
47 |
ATM2D_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm2d/atm2d_readparms.F |
52 |
ATM2D_READPARMS |
WRITE(msgBuf,'(A)') ' ATM2D_READPARMS: opening data.atm2d' |
|
./pkg/atm2d/atm2d_readparms.F |
53 |
ATM2D_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/atm_compon_interf/atm_export_atmconfig.F |
43 |
ATM_EXPORT_ATMCONFIG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm_compon_interf/atm_export_atmconfig.F |
54 |
ATM_EXPORT_ATMCONFIG |
WRITE(msgBuf,'(2A)') 'ATM_EXPORT_ATMCONFIG: ', |
|
./pkg/atm_compon_interf/atm_export_atmconfig.F |
56 |
ATM_EXPORT_ATMCONFIG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/get_periodic_interval.F |
56 |
GET_PERIODIC_INTERVAL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/get_periodic_interval.F |
76 |
GET_PERIODIC_INTERVAL |
IF ( cycleLength.LT.0. ) WRITE(msgBuf,'(A)') |
|
./eesupp/src/get_periodic_interval.F |
78 |
GET_PERIODIC_INTERVAL |
IF ( recSpacing .LE.0. ) WRITE(msgBuf,'(A)') |
|
./eesupp/src/get_periodic_interval.F |
80 |
GET_PERIODIC_INTERVAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/get_periodic_interval.F |
81 |
GET_PERIODIC_INTERVAL |
WRITE(msgBuf,'(A,2(A,1PE16.8))') 'GET_PERIODIC_INTERVAL: ', |
|
./eesupp/src/get_periodic_interval.F |
83 |
GET_PERIODIC_INTERVAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/get_periodic_interval.F |
90 |
GET_PERIODIC_INTERVAL |
WRITE(msgBuf,'(2A,I5,A)') 'GET_PERIODIC_INTERVAL: ', |
|
./eesupp/src/get_periodic_interval.F |
92 |
GET_PERIODIC_INTERVAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/get_periodic_interval.F |
93 |
GET_PERIODIC_INTERVAL |
WRITE(msgBuf,'(A,2(A,1PE16.8))') 'GET_PERIODIC_INTERVAL: ', |
|
./eesupp/src/get_periodic_interval.F |
95 |
GET_PERIODIC_INTERVAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_compon_interf/cpl_exch_configs.F |
103 |
CPL_EXCH_CONFIGS |
WRITE(msgBuf,'(2(A,I6),2(A,I4),A)') |
|
./pkg/atm_compon_interf/cpl_exch_configs.F |
106 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_compon_interf/cpl_exch_configs.F |
107 |
CPL_EXCH_CONFIGS |
WRITE(msgBuf,'(A,E30.15)') |
|
./pkg/atm_compon_interf/cpl_exch_configs.F |
109 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_compon_interf/cpl_exch_configs.F |
110 |
CPL_EXCH_CONFIGS |
WRITE(msgBuf,'(A,E30.15)') |
|
./pkg/atm_compon_interf/cpl_exch_configs.F |
112 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_compon_interf/cpl_exch_configs.F |
51 |
CPL_EXCH_CONFIGS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm_compon_interf/cpl_export_my_data.F |
47 |
CPL_EXPORT_MY_DATA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm_compon_interf/cpl_export_my_data.F |
57 |
CPL_EXPORT_MY_DATA |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/atm_compon_interf/cpl_export_my_data.F |
59 |
CPL_EXPORT_MY_DATA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/atm_compon_interf/cpl_import_external_data.F |
43 |
CPL_IMPORT_EXTERNAL_DATA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm_compon_interf/cpl_import_external_data.F |
54 |
CPL_IMPORT_EXTERNAL_DATA |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/atm_compon_interf/cpl_import_external_data.F |
56 |
CPL_IMPORT_EXTERNAL_DATA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/atm_compon_interf/cpl_readparms.F |
108 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/atm_compon_interf/cpl_readparms.F |
110 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/atm_compon_interf/cpl_readparms.F |
118 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
|
./pkg/atm_compon_interf/cpl_readparms.F |
120 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_compon_interf/cpl_readparms.F |
121 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
|
./pkg/atm_compon_interf/cpl_readparms.F |
123 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_compon_interf/cpl_readparms.F |
129 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImportFlxCO2', |
|
./pkg/atm_compon_interf/cpl_readparms.F |
131 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_compon_interf/cpl_readparms.F |
137 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: cpl_atmSendFrq', |
|
./pkg/atm_compon_interf/cpl_readparms.F |
139 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_compon_interf/cpl_readparms.F |
151 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/atm_compon_interf/cpl_readparms.F |
152 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/atm_compon_interf/cpl_readparms.F |
153 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/atm_compon_interf/cpl_readparms.F |
154 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/atm_compon_interf/cpl_readparms.F |
155 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// Coupling package parameters :' |
|
./pkg/atm_compon_interf/cpl_readparms.F |
156 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/atm_compon_interf/cpl_readparms.F |
157 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/atm_compon_interf/cpl_readparms.F |
158 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/atm_compon_interf/cpl_readparms.F |
50 |
CPL_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm_compon_interf/cpl_readparms.F |
80 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') ' CPL_READPARMS: opening data.cpl' |
|
./pkg/atm_compon_interf/cpl_readparms.F |
81 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/atm_phys/atm_phys_check.F |
31 |
ATM_PHYS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm_phys/atm_phys_check.F |
36 |
ATM_PHYS_CHECK |
WRITE(msgBuf,'(A)') 'ATM_PHYS_CHECK: #define ALLOW_ATM_PHYS' |
|
./pkg/atm_phys/atm_phys_check.F |
37 |
ATM_PHYS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/atm_phys/atm_phys_check.F |
73 |
ATM_PHYS_CHECK |
WRITE(msgBuf,'(A)') 'An example requirement is:' |
|
./pkg/atm_phys/atm_phys_check.F |
74 |
ATM_PHYS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/atm_phys/atm_phys_check.F |
75 |
ATM_PHYS_CHECK |
WRITE(msgBuf,'(A)') 'atmPhys_addTendT needs tempStepping=.true.' |
|
./pkg/atm_phys/atm_phys_check.F |
76 |
ATM_PHYS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/atm_phys/atm_phys_check.F |
81 |
ATM_PHYS_CHECK |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/atm_phys/atm_phys_check.F |
82 |
ATM_PHYS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
42 |
ATM_PHYS_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
65 |
ATM_PHYS_INIT_FIXED |
WRITE(msgBuf,'(A)') 'ATM_PHYS_INIT_FIXED: opening data.atm_gray' |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
66 |
ATM_PHYS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
75 |
ATM_PHYS_INIT_FIXED |
WRITE(msgBuf,'(A)') |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
77 |
ATM_PHYS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
101 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
103 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
112 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'ATM_PHYS_READ_PICKUP: ', |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
114 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
146 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'ATM_PHYS_READ_PICKUP: ', |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
148 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
155 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'ATM_PHYS_READ_PICKUP: ', |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
157 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
51 |
ATM_PHYS_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
70 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'ATM_PHYS_READ_PICKUP: ', |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
72 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
73 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'ATM_PHYS_READ_PICKUP: ', |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
75 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
85 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'ATM_PHYS_READ_PICKUP: ', |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
88 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
89 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'ATM_PHYS_READ_PICKUP: ', |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
92 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
96 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ATM_PHYS_READ_PICKUP: ', |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
98 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/atm_phys/atm_phys_readparms.F |
32 |
ATM_PHYS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm_phys/atm_phys_readparms.F |
69 |
ATM_PHYS_READPARMS |
WRITE(msgBuf,'(A)') 'ATM_PHYS_READPARMS: opening data.atm_phys' |
|
./pkg/atm_phys/atm_phys_readparms.F |
70 |
ATM_PHYS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/atm_phys/atm_phys_readparms.F |
79 |
ATM_PHYS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/atm_phys/atm_phys_readparms.F |
81 |
ATM_PHYS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
62 |
ATM_PHYS_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
88 |
ATM_PHYS_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'ATM_PHYS_WRITE_PICKUP: ', |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
90 |
ATM_PHYS_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
91 |
ATM_PHYS_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'ATM_PHYS_WRITE_PICKUP: ', |
|
./pkg/atm_phys/atm_phys_write_pickup.F |
93 |
ATM_PHYS_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/autodiff/addummy_in_dynamics.F |
67 |
ADDUMMY_IN_DYNAMICS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/autodiff/addummy_in_stepping.F |
67 |
ADDUMMY_IN_STEPPING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/ini_procs.F |
151 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
154 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
162 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
165 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
210 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
213 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
234 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
237 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
249 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
252 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
264 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
267 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
276 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
279 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
282 |
INI_PROCS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_procs.F |
284 |
INI_PROCS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_procs.F |
286 |
INI_PROCS |
WRITE(msgBuf,'(A,I3,A,A)') ' My Processor Name (len:', |
|
./eesupp/src/ini_procs.F |
288 |
INI_PROCS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_procs.F |
290 |
INI_PROCS |
WRITE(msgBuf,'(A,I3,A,I3,A,I3,A,I3,A)') ' Located at (', |
|
./eesupp/src/ini_procs.F |
293 |
INI_PROCS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_procs.F |
295 |
INI_PROCS |
WRITE(msgBuf,'(A,I6,A,I6,A,I6,A,I6,A)') ' Origin at (', |
|
./eesupp/src/ini_procs.F |
298 |
INI_PROCS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_procs.F |
300 |
INI_PROCS |
WRITE(msgBuf,'(A,I4.4)') |
|
./eesupp/src/ini_procs.F |
302 |
INI_PROCS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_procs.F |
304 |
INI_PROCS |
WRITE(msgBuf,'(A,I4.4)') |
|
./eesupp/src/ini_procs.F |
306 |
INI_PROCS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_procs.F |
308 |
INI_PROCS |
WRITE(msgBuf,'(A,I4.4)') |
|
./eesupp/src/ini_procs.F |
310 |
INI_PROCS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_procs.F |
312 |
INI_PROCS |
WRITE(msgBuf,'(A,I4.4)') |
|
./eesupp/src/ini_procs.F |
314 |
INI_PROCS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_procs.F |
344 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
347 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
352 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
355 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
368 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
371 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
376 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
379 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
393 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
396 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
401 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
404 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
415 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
418 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
423 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
426 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
442 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
445 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
450 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
453 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
465 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
468 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
473 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
476 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
489 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
492 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
497 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
500 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
510 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
513 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
518 |
INI_PROCS |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/ini_procs.F |
521 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
540 |
INI_PROCS |
WRITE(msgBuf,'(2A,I6,A)') 'INI_PROCS: ', |
|
./eesupp/src/ini_procs.F |
542 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
543 |
INI_PROCS |
WRITE(msgBuf,'(2A)') 'INI_PROCS: ', |
|
./eesupp/src/ini_procs.F |
545 |
INI_PROCS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_procs.F |
64 |
INI_PROCS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/autodiff/adread_adwrite.F |
130 |
ADREAD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/autodiff/adread_adwrite.F |
175 |
ADREAD |
WRITE(msgBuf,'(2A,3I6,I9,2I3,2A)') 'ADREAD: ', |
|
./pkg/autodiff/adread_adwrite.F |
178 |
ADREAD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/adread_adwrite.F |
328 |
ADWRITE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/autodiff/adread_adwrite.F |
374 |
ADWRITE |
WRITE(msgBuf,'(2A,3I6,I9,2I3,2A)') 'ADWRITE:', |
|
./pkg/autodiff/adread_adwrite.F |
377 |
ADWRITE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/adread_adwrite.F |
393 |
ADWRITE |
write(msgBuf,'(A,2I5)') |
|
./pkg/autodiff/adread_adwrite.F |
396 |
ADWRITE |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/autodiff/adread_adwrite.F |
398 |
ADWRITE |
write(msgBuf,'(2A)') 'for file ', fname(1:lenLoc) |
|
./pkg/autodiff/adread_adwrite.F |
399 |
ADWRITE |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/autodiff/autodiff_check.F |
102 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/autodiff/autodiff_check.F |
104 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
108 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/autodiff/autodiff_check.F |
110 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
129 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/autodiff/autodiff_check.F |
132 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
30 |
AUTODIFF_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/autodiff/autodiff_check.F |
39 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/autodiff/autodiff_check.F |
41 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
42 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/autodiff/autodiff_check.F |
45 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
46 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/autodiff/autodiff_check.F |
49 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
54 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/autodiff/autodiff_check.F |
56 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
57 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/autodiff/autodiff_check.F |
60 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
61 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/autodiff/autodiff_check.F |
64 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
71 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/autodiff/autodiff_check.F |
73 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
74 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/autodiff/autodiff_check.F |
77 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
78 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/autodiff/autodiff_check.F |
81 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
87 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/autodiff/autodiff_check.F |
89 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
90 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/autodiff/autodiff_check.F |
92 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_check.F |
93 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/autodiff/autodiff_check.F |
95 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
102 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(2A,I2)') 'S/R ADAUTODIFF_INADMODE_SET: ', |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
104 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
28 |
ADAUTODIFF_INADMODE_SET |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
53 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(A,L5)') |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
55 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
57 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(A,L5)') |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
59 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
61 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(A,L5)') |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
63 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
65 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(A,L5)') |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
67 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
69 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(A,L5)') |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
72 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
75 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(A,1PE21.14)') |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
77 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
81 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(A,L5)') |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
84 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
90 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_SET: ', |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
92 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
96 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_SET: ', |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
98 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
101 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(2A,I2)') 'S/R ADAUTODIFF_INADMODE_UNSET: ', |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
103 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
28 |
ADAUTODIFF_INADMODE_UNSET |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
52 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(A,L5)') |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
54 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
56 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(A,L5)') |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
58 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
60 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(A,L5)') |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
62 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
64 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(A,L5)') |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
66 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
68 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(A,L5)') |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
71 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
74 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(A,1PE21.14)') |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
76 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
80 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(A,L5)') |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
83 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
89 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_UNSET: ', |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
91 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
95 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_UNSET: ', |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
97 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
100 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./eesupp/src/ini_threading_environment.F |
116 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,A,I5,A,I5)') |
|
./eesupp/src/ini_threading_environment.F |
120 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./eesupp/src/ini_threading_environment.F |
126 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,A)') |
|
./eesupp/src/ini_threading_environment.F |
130 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./eesupp/src/ini_threading_environment.F |
136 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,A)') |
|
./eesupp/src/ini_threading_environment.F |
140 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./eesupp/src/ini_threading_environment.F |
167 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
169 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
171 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') '// Mapping of tiles to threads' |
|
./eesupp/src/ini_threading_environment.F |
172 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
175 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
177 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
180 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,I4,A,4(I4,A1))') |
|
./eesupp/src/ini_threading_environment.F |
183 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_BOTH , 1) |
|
./eesupp/src/ini_threading_environment.F |
185 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/ini_threading_environment.F |
186 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT , 1) |
|
./eesupp/src/ini_threading_environment.F |
190 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
192 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
194 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') '// Tile <-> Tile connectvity table' |
|
./eesupp/src/ini_threading_environment.F |
195 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
197 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
199 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
203 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6,A)') |
|
./eesupp/src/ini_threading_environment.F |
206 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT , 1) |
|
./eesupp/src/ini_threading_environment.F |
209 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6,A,A)') |
|
./eesupp/src/ini_threading_environment.F |
214 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
215 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6)') |
|
./eesupp/src/ini_threading_environment.F |
219 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
221 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
223 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
227 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6,A,A)') |
|
./eesupp/src/ini_threading_environment.F |
232 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
233 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6)') |
|
./eesupp/src/ini_threading_environment.F |
237 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
239 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
241 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
245 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6,A,A)') |
|
./eesupp/src/ini_threading_environment.F |
250 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
251 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6)') |
|
./eesupp/src/ini_threading_environment.F |
255 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
257 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
259 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
263 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6,A,A)') |
|
./eesupp/src/ini_threading_environment.F |
268 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
269 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6)') |
|
./eesupp/src/ini_threading_environment.F |
273 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
275 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
277 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
281 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/ini_threading_environment.F |
282 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
290 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(2A)') 'EXCH-1 useCubedSphereExchange', |
|
./eesupp/src/ini_threading_environment.F |
292 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_threading_environment.F |
298 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(2A)') 'EXCH-1 useCubedSphereExchange', |
|
./eesupp/src/ini_threading_environment.F |
300 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_threading_environment.F |
316 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(3A)') 'EXCH-1 using Comm = ', |
|
./eesupp/src/ini_threading_environment.F |
318 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_threading_environment.F |
57 |
INI_THREADING_ENVIRONMENT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/ini_threading_environment.F |
92 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(2A,2I6)') |
|
./eesupp/src/ini_threading_environment.F |
96 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./eesupp/src/ini_threading_environment.F |
97 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(2A)') |
|
./pkg/autodiff/autodiff_readparms.F |
121 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/autodiff/autodiff_readparms.F |
122 |
AUTODIFF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_readparms.F |
124 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A)') '// AUTODIFF parameters :' |
|
./pkg/autodiff/autodiff_readparms.F |
125 |
AUTODIFF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_readparms.F |
127 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/autodiff/autodiff_readparms.F |
128 |
AUTODIFF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_readparms.F |
160 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/autodiff/autodiff_readparms.F |
161 |
AUTODIFF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_readparms.F |
167 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(2A)') 'AUTODIFF_READPARMS: ', |
|
./pkg/autodiff/autodiff_readparms.F |
169 |
AUTODIFF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/autodiff/autodiff_readparms.F |
173 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(2A)') 'AUTODIFF_READPARMS: ', |
|
./pkg/autodiff/autodiff_readparms.F |
175 |
AUTODIFF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/autodiff/autodiff_readparms.F |
184 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/autodiff/autodiff_readparms.F |
186 |
AUTODIFF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/autodiff/autodiff_readparms.F |
32 |
AUTODIFF_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/autodiff/autodiff_readparms.F |
70 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A)') 'AUTODIFF_READPARMS: opening data.autodiff' |
|
./pkg/autodiff/autodiff_readparms.F |
71 |
AUTODIFF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_readparms.F |
80 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/autodiff/autodiff_readparms.F |
82 |
AUTODIFF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
115 |
AUTODIFF_WHTAPEIO_SYNC |
write(msgBuf,'(a,i1,a,i3)') 'whio : create lev ', |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
118 |
AUTODIFF_WHTAPEIO_SYNC |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
144 |
AUTODIFF_WHTAPEIO_SYNC |
write(msgBuf,'(a,i1,a,i3)') 'whio : write lev ', |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
147 |
AUTODIFF_WHTAPEIO_SYNC |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
55 |
AUTODIFF_WHTAPEIO_SYNC |
character*(max_len_mbuf) msgBuf |
|
./pkg/autodiff/g_dummy_in_stepping.F |
130 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') 'S/R WRITE_STATE' |
|
./pkg/autodiff/g_dummy_in_stepping.F |
131 |
G_DUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
132 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') 'Error writing out model state' |
|
./pkg/autodiff/g_dummy_in_stepping.F |
133 |
G_DUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
134 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./pkg/autodiff/g_dummy_in_stepping.F |
135 |
G_DUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
137 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/autodiff/g_dummy_in_stepping.F |
139 |
G_DUMMY_IN_STEPPING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/g_dummy_in_stepping.F |
141 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/autodiff/g_dummy_in_stepping.F |
142 |
G_DUMMY_IN_STEPPING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/g_dummy_in_stepping.F |
65 |
G_DUMMY_IN_STEPPING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/main.F |
117 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/main.F |
214 |
NO PROCEDURE |
WRITE( msgBuf,'(A)') 'PROGRAM MAIN: ends with fatal Error' |
|
./eesupp/src/main.F |
215 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./pkg/bbl/bbl_check.F |
31 |
BBL_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/bbl/bbl_check.F |
35 |
BBL_CHECK |
WRITE(msgBuf,'(A)') 'BBL_CHECK: #define BBL' |
|
./pkg/bbl/bbl_check.F |
36 |
BBL_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bbl/bbl_read_pickup.F |
100 |
BBL_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
102 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'BBL_READ_PICKUP: ', |
|
./pkg/bbl/bbl_read_pickup.F |
104 |
BBL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
136 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'BBL_READ_PICKUP: ', |
|
./pkg/bbl/bbl_read_pickup.F |
138 |
BBL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
144 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'BBL_READ_PICKUP: ', |
|
./pkg/bbl/bbl_read_pickup.F |
146 |
BBL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
50 |
BBL_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/bbl/bbl_read_pickup.F |
69 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'BBL_READ_PICKUP: ', |
|
./pkg/bbl/bbl_read_pickup.F |
71 |
BBL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
72 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'BBL_READ_PICKUP: ', |
|
./pkg/bbl/bbl_read_pickup.F |
74 |
BBL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
83 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'BBL_READ_PICKUP: ', |
|
./pkg/bbl/bbl_read_pickup.F |
86 |
BBL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
87 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'BBL_READ_PICKUP: ', |
|
./pkg/bbl/bbl_read_pickup.F |
90 |
BBL_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
93 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> BBL_READ_PICKUP: ', |
|
./pkg/bbl/bbl_read_pickup.F |
95 |
BBL_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/bbl/bbl_read_pickup.F |
98 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/bbl/bbl_readparms.F |
32 |
BBL_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/bbl/bbl_readparms.F |
63 |
BBL_READPARMS |
WRITE(msgBuf,'(A)') 'BBL_READPARMS: opening data.bbl' |
|
./pkg/bbl/bbl_readparms.F |
64 |
BBL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bbl/bbl_readparms.F |
73 |
BBL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/bbl/bbl_readparms.F |
75 |
BBL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bbl/bbl_write_pickup.F |
60 |
BBL_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/bbl/bbl_write_pickup.F |
93 |
BBL_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'BBL_WRITE_PICKUP: ', |
|
./pkg/bbl/bbl_write_pickup.F |
95 |
BBL_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/bbl/bbl_write_pickup.F |
96 |
BBL_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'BBL_WRITE_PICKUP: ', |
|
./pkg/bbl/bbl_write_pickup.F |
98 |
BBL_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/bulk_force/bulkf_readparms.F |
151 |
BULKF_READPARMS |
WRITE(msgBuf,'(A)')' BULKF_READPARMS: starts to read BULKF_CONST' |
|
./pkg/bulk_force/bulkf_readparms.F |
152 |
BULKF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bulk_force/bulkf_readparms.F |
155 |
BULKF_READPARMS |
WRITE(msgBuf,'(A)') ' BULKF_READPARMS: read BULKF_CONST : OK' |
|
./pkg/bulk_force/bulkf_readparms.F |
156 |
BULKF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bulk_force/bulkf_readparms.F |
159 |
BULKF_READPARMS |
WRITE(msgBuf,'(A)')' BULKF_READPARMS: starts to read BULKF_PARM01' |
|
./pkg/bulk_force/bulkf_readparms.F |
160 |
BULKF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bulk_force/bulkf_readparms.F |
163 |
BULKF_READPARMS |
WRITE(msgBuf,'(A)') ' BULKF_READPARMS: read BULKF_PARM01 : OK' |
|
./pkg/bulk_force/bulkf_readparms.F |
164 |
BULKF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bulk_force/bulkf_readparms.F |
171 |
BULKF_READPARMS |
WRITE(msgBuf,'(A)')' BULKF_READPARMS: starts reading BULKF_PARM02' |
|
./pkg/bulk_force/bulkf_readparms.F |
172 |
BULKF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bulk_force/bulkf_readparms.F |
175 |
BULKF_READPARMS |
WRITE(msgBuf,'(A)') ' BULKF_READPARMS: read BULKF_PARM02 : OK' |
|
./pkg/bulk_force/bulkf_readparms.F |
176 |
BULKF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bulk_force/bulkf_readparms.F |
187 |
BULKF_READPARMS |
WRITE(msgBuf,'(2A)') ' BULKF_READPARMS: ', |
|
./pkg/bulk_force/bulkf_readparms.F |
189 |
BULKF_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/bulk_force/bulkf_readparms.F |
190 |
BULKF_READPARMS |
WRITE(msgBuf,'(2A)') ' BULKF_READPARMS: => recompile with', |
|
./pkg/bulk_force/bulkf_readparms.F |
192 |
BULKF_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/bulk_force/bulkf_readparms.F |
32 |
BULKF_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_addtime.F |
65 |
CAL_ADDTIME |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_addtime.F |
69 |
CAL_ADDTIME |
WRITE( msgBuf,'(2A,4I9)') 'CAL_ADDTIME: ', |
|
./pkg/cal/cal_addtime.F |
71 |
CAL_ADDTIME |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_addtime.F |
72 |
CAL_ADDTIME |
WRITE( msgBuf,'(2A,4I9)') 'CAL_ADDTIME: ', |
|
./pkg/cal/cal_addtime.F |
74 |
CAL_ADDTIME |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_addtime.F |
75 |
CAL_ADDTIME |
WRITE( msgBuf,'(2A,I2,A)') 'CAL_ADDTIME: ', |
|
./pkg/cal/cal_addtime.F |
77 |
CAL_ADDTIME |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_checkdate.F |
109 |
CAL_CHECKDATE |
WRITE( msgBuf,'(2A,I10)') 'CAL_CHECKDATE:', |
|
./pkg/cal/cal_checkdate.F |
111 |
CAL_CHECKDATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_checkdate.F |
126 |
CAL_CHECKDATE |
WRITE( msgBuf,'(2A,I10)') '** WARNING ** CAL_CHECKDATE:', |
|
./pkg/cal/cal_checkdate.F |
128 |
CAL_CHECKDATE |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/cal/cal_checkdate.F |
132 |
CAL_CHECKDATE |
WRITE( msgBuf,'(2A,I10)') '** WARNING ** CAL_CHECKDATE:', |
|
./pkg/cal/cal_checkdate.F |
134 |
CAL_CHECKDATE |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/cal/cal_checkdate.F |
138 |
CAL_CHECKDATE |
WRITE( msgBuf,'(2A,I10)') '** WARNING ** CAL_CHECKDATE:', |
|
./pkg/cal/cal_checkdate.F |
140 |
CAL_CHECKDATE |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/cal/cal_checkdate.F |
52 |
CAL_CHECKDATE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_checkdate.F |
68 |
CAL_CHECKDATE |
WRITE( msgBuf,'(2A,4I9)') 'CAL_CHECKDATE:', |
|
./pkg/cal/cal_checkdate.F |
70 |
CAL_CHECKDATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_checkdate.F |
71 |
CAL_CHECKDATE |
WRITE( msgBuf,'(2A,I2,A)') 'CAL_CHECKDATE:', |
|
./pkg/cal/cal_checkdate.F |
73 |
CAL_CHECKDATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_checkdate.F |
92 |
CAL_CHECKDATE |
WRITE( msgBuf,'(2A,I10)') 'CAL_CHECKDATE:', |
|
./pkg/cal/cal_checkdate.F |
94 |
CAL_CHECKDATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_convdate.F |
50 |
CAL_CONVDATE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_convdate.F |
54 |
CAL_CONVDATE |
WRITE( msgBuf,'(2A,4I9)') 'CAL_CONVDATE: ', |
|
./pkg/cal/cal_convdate.F |
56 |
CAL_CONVDATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_convdate.F |
57 |
CAL_CONVDATE |
WRITE( msgBuf,'(2A,I2,A)') 'CAL_CONVDATE: ', |
|
./pkg/cal/cal_convdate.F |
59 |
CAL_CONVDATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_fulldate.F |
101 |
CAL_FULLDATE |
WRITE( msgBuf,'(2A)') 'CAL_FULLDATE: ', |
|
./pkg/cal/cal_fulldate.F |
103 |
CAL_FULLDATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_fulldate.F |
53 |
CAL_FULLDATE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_fulldate.F |
62 |
CAL_FULLDATE |
WRITE( msgBuf,'(A,2(A,I9))') 'CAL_FULLDATE: ', |
|
./pkg/cal/cal_fulldate.F |
64 |
CAL_FULLDATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_fulldate.F |
65 |
CAL_FULLDATE |
WRITE( msgBuf,'(2A,I2,A)') 'CAL_FULLDATE: ', |
|
./pkg/cal/cal_fulldate.F |
67 |
CAL_FULLDATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_fulldate.F |
74 |
CAL_FULLDATE |
WRITE( msgBuf,'(A,2(A,I9))') 'CAL_FULLDATE: ', |
|
./pkg/cal/cal_fulldate.F |
76 |
CAL_FULLDATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_getdate.F |
47 |
CAL_GETDATE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_getdate.F |
60 |
CAL_GETDATE |
WRITE( msgBuf,'(2A,I10,A,F19.2)') 'CAL_GETDATE: ', |
|
./pkg/cal/cal_getdate.F |
62 |
CAL_GETDATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_getdate.F |
63 |
CAL_GETDATE |
WRITE( msgBuf,'(2A,I2,A)') 'CAL_GETDATE: ', |
|
./pkg/cal/cal_getdate.F |
65 |
CAL_GETDATE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_isleap.F |
40 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_isleap.F |
44 |
NO PROCEDURE |
WRITE( msgBuf,'(A,2(A,I9))') 'CAL_ISLEAP: ', |
|
./pkg/cal/cal_isleap.F |
46 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_isleap.F |
47 |
NO PROCEDURE |
WRITE( msgBuf,'(2A,I2,A)') 'CAL_ISLEAP: ', |
|
./pkg/cal/cal_isleap.F |
49 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_printdate.F |
60 |
CAL_PRINTDATE |
write(msgBuf,'(i10,i8,i3,i4)') caldate(1), caldate(2), |
|
./pkg/cal/cal_printdate.F |
62 |
CAL_PRINTDATE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cal/cal_printdate.F |
66 |
CAL_PRINTDATE |
write(msgBuf,'(i10,i8,i3,i4)') caldate(1), caldate(2), |
|
./pkg/cal/cal_printdate.F |
68 |
CAL_PRINTDATE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cal/cal_printerror.F |
125 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
127 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
128 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
130 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
132 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
133 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
135 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
137 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
138 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
140 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
142 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
143 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
228 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
230 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
231 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
240 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
242 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
243 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
252 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
254 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
255 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
264 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
266 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
267 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
268 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
270 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
271 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
280 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
282 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
283 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
292 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
294 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
295 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
304 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
306 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
307 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
316 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
318 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
319 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
353 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
355 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
356 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
357 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
359 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
360 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
362 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
364 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
365 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
367 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
369 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
370 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
372 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
374 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
375 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
377 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
379 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
380 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
382 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
384 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
385 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
387 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
389 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
390 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
392 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
394 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
395 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
397 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
399 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
400 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
414 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
416 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
417 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
431 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
433 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
434 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
98 |
CAL_PRINTERROR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_readparms.F |
101 |
CAL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_readparms.F |
103 |
CAL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cal/cal_readparms.F |
57 |
CAL_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_readparms.F |
92 |
CAL_READPARMS |
WRITE(msgBuf,'(A)') 'CAL_READPARMS: opening data.cal' |
|
./pkg/cal/cal_readparms.F |
93 |
CAL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cal/cal_subdates.F |
46 |
CAL_SUBDATES |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_subdates.F |
51 |
CAL_SUBDATES |
WRITE( msgBuf,'(2A,4I9)') 'CAL_SUBDATES: ', 'finaldate=', |
|
./pkg/cal/cal_subdates.F |
53 |
CAL_SUBDATES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_subdates.F |
54 |
CAL_SUBDATES |
WRITE( msgBuf,'(2A,4I9)') 'CAL_SUBDATES: ', 'initialdate=', |
|
./pkg/cal/cal_subdates.F |
56 |
CAL_SUBDATES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_subdates.F |
57 |
CAL_SUBDATES |
WRITE( msgBuf,'(2A,I2,A)') 'CAL_SUBDATES: ', |
|
./pkg/cal/cal_subdates.F |
59 |
CAL_SUBDATES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_summary.F |
132 |
CAL_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/cal/cal_summary.F |
133 |
CAL_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cal/cal_summary.F |
135 |
CAL_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_summary.F |
137 |
CAL_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cal/cal_summary.F |
139 |
CAL_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_summary.F |
141 |
CAL_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cal/cal_summary.F |
143 |
CAL_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_summary.F |
145 |
CAL_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cal/cal_summary.F |
147 |
CAL_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/cal/cal_summary.F |
148 |
CAL_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cal/cal_summary.F |
37 |
CAL_SUMMARY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_summary.F |
58 |
CAL_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/cal/cal_summary.F |
59 |
CAL_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cal/cal_summary.F |
61 |
CAL_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_summary.F |
63 |
CAL_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cal/cal_summary.F |
65 |
CAL_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_summary.F |
67 |
CAL_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cal/cal_summary.F |
69 |
CAL_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_summary.F |
71 |
CAL_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cal/cal_summary.F |
73 |
CAL_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/cal/cal_summary.F |
74 |
CAL_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cal/cal_timeinterval.F |
52 |
CAL_TIMEINTERVAL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_timeinterval.F |
63 |
CAL_TIMEINTERVAL |
WRITE( msgBuf,'(2A,F19.2,2A)') 'CAL_TIMEINTERVAL: ', |
|
./pkg/cal/cal_timeinterval.F |
65 |
CAL_TIMEINTERVAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_timeinterval.F |
66 |
CAL_TIMEINTERVAL |
WRITE( msgBuf,'(2A,I2,A)') 'CAL_TIMEINTERVAL: ', |
|
./pkg/cal/cal_timeinterval.F |
68 |
CAL_TIMEINTERVAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_timeinterval.F |
79 |
CAL_TIMEINTERVAL |
WRITE( msgBuf,'(2A,F15.2,2A)') 'CAL_TIMEINTERVAL: ', |
|
./pkg/cal/cal_timeinterval.F |
81 |
CAL_TIMEINTERVAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_timeinterval.F |
82 |
CAL_TIMEINTERVAL |
WRITE( msgBuf,'(2A,I2,A)') 'CAL_TIMEINTERVAL: ', |
|
./pkg/cal/cal_timeinterval.F |
84 |
CAL_TIMEINTERVAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_timepassed.F |
65 |
CAL_TIMEPASSED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_timepassed.F |
70 |
CAL_TIMEPASSED |
WRITE( msgBuf,'(2A,4I9)') 'CAL_TIMEPASSED: ', 'initialdate=', |
|
./pkg/cal/cal_timepassed.F |
72 |
CAL_TIMEPASSED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_timepassed.F |
73 |
CAL_TIMEPASSED |
WRITE( msgBuf,'(2A,4I9)') 'CAL_TIMEPASSED: ', 'finaldate=', |
|
./pkg/cal/cal_timepassed.F |
75 |
CAL_TIMEPASSED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_timepassed.F |
76 |
CAL_TIMEPASSED |
WRITE( msgBuf,'(2A,I2,A)') 'CAL_TIMEPASSED: ', |
|
./pkg/cal/cal_timepassed.F |
78 |
CAL_TIMEPASSED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_toseconds.F |
53 |
CAL_TOSECONDS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_toseconds.F |
60 |
CAL_TOSECONDS |
WRITE( msgBuf,'(2A,4I9)') 'CAL_TOSECONDS: ', |
|
./pkg/cal/cal_toseconds.F |
62 |
CAL_TOSECONDS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cal/cal_toseconds.F |
63 |
CAL_TOSECONDS |
WRITE( msgBuf,'(2A,I2,A)') 'CAL_TOSECONDS: ', |
|
./pkg/cal/cal_toseconds.F |
65 |
CAL_TOSECONDS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/mds_reclen.F |
28 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/mds_reclen.F |
36 |
NO PROCEDURE |
WRITE(msgBuf,'(A,I2.2)') |
|
./eesupp/src/mds_reclen.F |
38 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/mds_reclen.F |
39 |
NO PROCEDURE |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/mds_reclen.F |
41 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/mdsfindunit.F |
27 |
MDSFINDUNIT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/mdsfindunit.F |
42 |
MDSFINDUNIT |
WRITE(msgBuf,'(A,I4)') |
|
./eesupp/src/mdsfindunit.F |
44 |
MDSFINDUNIT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/mdsfindunit.F |
46 |
MDSFINDUNIT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/mdsfindunit.F |
48 |
MDSFINDUNIT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/mdsfindunit.F |
60 |
MDSFINDUNIT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/mdsfindunit.F |
62 |
MDSFINDUNIT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cfc/cfc11_forcing.F |
100 |
CFC11_FORCING |
WRITE(msgBuf,'(A,6X,I10,I6,F9.4,F7.1)') |
|
./pkg/cfc/cfc11_forcing.F |
103 |
CFC11_FORCING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc11_forcing.F |
105 |
CFC11_FORCING |
WRITE(msgBuf,'(A,1PE16.7,I6,0PF9.4,F7.1)') |
|
./pkg/cfc/cfc11_forcing.F |
108 |
CFC11_FORCING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc11_forcing.F |
110 |
CFC11_FORCING |
WRITE(msgBuf,'(2(A,F14.6))') |
|
./pkg/cfc/cfc11_forcing.F |
113 |
CFC11_FORCING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc11_forcing.F |
75 |
CFC11_FORCING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cfc/cfc12_forcing.F |
101 |
CFC12_FORCING |
WRITE(msgBuf,'(A,6X,I10,I6,F9.4,F7.1)') |
|
./pkg/cfc/cfc12_forcing.F |
104 |
CFC12_FORCING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc12_forcing.F |
106 |
CFC12_FORCING |
WRITE(msgBuf,'(A,1PE16.7,I6,0PF9.4,F7.1)') |
|
./pkg/cfc/cfc12_forcing.F |
109 |
CFC12_FORCING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc12_forcing.F |
111 |
CFC12_FORCING |
WRITE(msgBuf,'(2(A,F14.6))') |
|
./pkg/cfc/cfc12_forcing.F |
114 |
CFC12_FORCING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc12_forcing.F |
76 |
CFC12_FORCING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cfc/cfc_atmos.F |
103 |
CFC_ATMOS |
WRITE(msgBuf,'(A,I8,A)') |
|
./pkg/cfc/cfc_atmos.F |
105 |
CFC_ATMOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc_atmos.F |
107 |
CFC_ATMOS |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_atmos.F |
109 |
CFC_ATMOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc_atmos.F |
112 |
CFC_ATMOS |
WRITE(msgBuf,'(F7.1,4F9.2)') |
|
./pkg/cfc/cfc_atmos.F |
115 |
CFC_ATMOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc_atmos.F |
119 |
CFC_ATMOS |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_atmos.F |
121 |
CFC_ATMOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc_atmos.F |
43 |
CFC_ATMOS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cfc/cfc_atmos.F |
50 |
CFC_ATMOS |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_atmos.F |
52 |
CFC_ATMOS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cfc/cfc_atmos.F |
57 |
CFC_ATMOS |
WRITE(msgBuf,'(3A)') |
|
./pkg/cfc/cfc_atmos.F |
59 |
CFC_ATMOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc_atmos.F |
62 |
CFC_ATMOS |
WRITE(msgBuf,'(3A)') |
|
./pkg/cfc/cfc_atmos.F |
64 |
CFC_ATMOS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cfc/cfc_atmos.F |
90 |
CFC_ATMOS |
WRITE(msgBuf,'(3A)') |
|
./pkg/cfc/cfc_atmos.F |
92 |
CFC_ATMOS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cfc/cfc_atmos.F |
93 |
CFC_ATMOS |
WRITE(msgBuf,'(2A,I9)') 'CFC_ATMOS: exceeds max num', |
|
./pkg/cfc/cfc_atmos.F |
95 |
CFC_ATMOS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cfc/cfc_check.F |
103 |
CFC_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_check.F |
105 |
CFC_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cfc/cfc_check.F |
111 |
CFC_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_check.F |
113 |
CFC_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cfc/cfc_check.F |
121 |
CFC_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_check.F |
123 |
CFC_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cfc/cfc_check.F |
124 |
CFC_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_check.F |
126 |
CFC_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cfc/cfc_check.F |
131 |
CFC_CHECK |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/cfc/cfc_check.F |
133 |
CFC_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cfc/cfc_check.F |
138 |
CFC_CHECK |
WRITE(msgBuf,'(A)') 'CFC_CHECK: done' |
|
./pkg/cfc/cfc_check.F |
139 |
CFC_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cfc/cfc_check.F |
37 |
CFC_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cfc/cfc_check.F |
46 |
CFC_CHECK |
WRITE(msgBuf,'(A)') 'CFC_CHECK: #define ALLOW_CFC' |
|
./pkg/cfc/cfc_check.F |
47 |
CFC_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cfc/cfc_check.F |
51 |
CFC_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_check.F |
53 |
CFC_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cfc/cfc_check.F |
54 |
CFC_CHECK |
WRITE(msgBuf,'(A)') '// CFC pkg configuration summary' |
|
./pkg/cfc/cfc_check.F |
55 |
CFC_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cfc/cfc_check.F |
56 |
CFC_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_check.F |
58 |
CFC_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cfc/cfc_check.F |
90 |
CFC_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_check.F |
92 |
CFC_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cfc/cfc_check.F |
93 |
CFC_CHECK |
WRITE(msgBuf,'(A)') '// End of CFC pkg config summary' |
|
./pkg/cfc/cfc_check.F |
94 |
CFC_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cfc/cfc_check.F |
95 |
CFC_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_check.F |
97 |
CFC_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cfc/cfc_readparms.F |
42 |
CFC_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cfc/cfc_readparms.F |
69 |
CFC_READPARMS |
WRITE(msgBuf,'(A)') ' CFC_READPARMS: opening data.cfc' |
|
./pkg/cfc/cfc_readparms.F |
70 |
CFC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc_readparms.F |
81 |
CFC_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_readparms.F |
83 |
CFC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/nml_change_syntax.F |
114 |
NML_CHANGE_SYNTAX |
WRITE(msgBuf,'(2A)') 'NML_CHANGE_SYNTAX: warning: ', |
|
./eesupp/src/nml_change_syntax.F |
116 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./eesupp/src/nml_change_syntax.F |
118 |
NML_CHANGE_SYNTAX |
WRITE(msgBuf,'(4A)') 'NML_CHANGE_SYNTAX: ', |
|
./eesupp/src/nml_change_syntax.F |
121 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./eesupp/src/nml_change_syntax.F |
144 |
NML_CHANGE_SYNTAX |
WRITE(msgBuf,'(2A)') 'NML_CHANGE_SYNTAX: ', |
|
./eesupp/src/nml_change_syntax.F |
146 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./eesupp/src/nml_change_syntax.F |
148 |
NML_CHANGE_SYNTAX |
WRITE(msgBuf,'(4A)') 'NML_CHANGE_SYNTAX: ', |
|
./eesupp/src/nml_change_syntax.F |
151 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./eesupp/src/nml_change_syntax.F |
200 |
NML_CHANGE_SYNTAX |
WRITE(msgBuf,'(2A)') 'NML_CHANGE_SYNTAX: ', |
|
./eesupp/src/nml_change_syntax.F |
202 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./eesupp/src/nml_change_syntax.F |
204 |
NML_CHANGE_SYNTAX |
WRITE(msgBuf,'(4A)') 'NML_CHANGE_SYNTAX: ', |
|
./eesupp/src/nml_change_syntax.F |
207 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./eesupp/src/nml_change_syntax.F |
221 |
NML_CHANGE_SYNTAX |
WRITE(msgBuf,'(2A)') 'NML_CHANGE_SYNTAX: ', |
|
./eesupp/src/nml_change_syntax.F |
223 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./eesupp/src/nml_change_syntax.F |
225 |
NML_CHANGE_SYNTAX |
WRITE(msgBuf,'(4A)') 'NML_CHANGE_SYNTAX: ', |
|
./eesupp/src/nml_change_syntax.F |
228 |
NML_CHANGE_SYNTAX |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./eesupp/src/nml_change_syntax.F |
71 |
NML_CHANGE_SYNTAX |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cheapaml/cheapaml_init_varia.F |
101 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
|
./pkg/cheapaml/cheapaml_init_varia.F |
103 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
124 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
|
./pkg/cheapaml/cheapaml_init_varia.F |
126 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
130 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
|
./pkg/cheapaml/cheapaml_init_varia.F |
132 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
150 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
|
./pkg/cheapaml/cheapaml_init_varia.F |
152 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
156 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
|
./pkg/cheapaml/cheapaml_init_varia.F |
158 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
180 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
|
./pkg/cheapaml/cheapaml_init_varia.F |
182 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
185 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
|
./pkg/cheapaml/cheapaml_init_varia.F |
187 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
265 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
|
./pkg/cheapaml/cheapaml_init_varia.F |
267 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
48 |
CHEAPAML_INIT_VARIA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cheapaml/cheapaml_init_varia.F |
96 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
|
./pkg/cheapaml/cheapaml_init_varia.F |
98 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
101 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
103 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
112 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
114 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
157 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
159 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
176 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
178 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
184 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
187 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
190 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
192 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
51 |
CHEAPAML_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
72 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
74 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
75 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
77 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
86 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
89 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
90 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
93 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
96 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
98 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_readparms.F |
189 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(A)') ' CHEAPAML_READPARMS: read CHEAPAML_CONST' |
|
./pkg/cheapaml/cheapaml_readparms.F |
190 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_readparms.F |
195 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(A)') ' CHEAPAML_READPARMS: read CHEAPAML_PARM01' |
|
./pkg/cheapaml/cheapaml_readparms.F |
196 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_readparms.F |
201 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(A)') ' CHEAPAML_READPARMS: read CHEAPAML_PARM02' |
|
./pkg/cheapaml/cheapaml_readparms.F |
202 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_readparms.F |
25 |
CHEAPAML_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cheapaml/cheapaml_readparms.F |
82 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(A)') ' BULKF_READPARMS: opening data.cheapaml' |
|
./pkg/cheapaml/cheapaml_readparms.F |
83 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
121 |
CHEAPAML_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'CHEAPAML_WRITE_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
123 |
CHEAPAML_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
124 |
CHEAPAML_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'CHEAPAML_WRITE_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
126 |
CHEAPAML_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
62 |
CHEAPAML_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/open_copy_data_file.F |
107 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') |
|
./eesupp/src/open_copy_data_file.F |
109 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/open_copy_data_file.F |
110 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') 'S/R CALLED BY ',caller_sub |
|
./eesupp/src/open_copy_data_file.F |
111 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/open_copy_data_file.F |
129 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/open_copy_data_file.F |
131 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/open_copy_data_file.F |
133 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A,A)') '// Parameter file "',data_file,'"' |
|
./eesupp/src/open_copy_data_file.F |
134 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/open_copy_data_file.F |
136 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/open_copy_data_file.F |
138 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/open_copy_data_file.F |
145 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
146 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/open_copy_data_file.F |
151 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/open_copy_data_file.F |
152 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/open_copy_data_file.F |
48 |
OPEN_COPY_DATA_FILE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/open_copy_data_file.F |
67 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') |
|
./eesupp/src/open_copy_data_file.F |
69 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/open_copy_data_file.F |
72 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A,A)') |
|
./eesupp/src/open_copy_data_file.F |
74 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/open_copy_data_file.F |
75 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') 'S/R CALLED BY ',caller_sub |
|
./eesupp/src/open_copy_data_file.F |
76 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/print.F |
1000 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1032 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,A)') '// ',plotBuf |
|
./eesupp/src/print.F |
1033 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1048 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,A)') '// ',plotBuf |
|
./eesupp/src/print.F |
1049 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1081 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,A)') '// ',plotBuf |
|
./eesupp/src/print.F |
1082 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1090 |
PRINT_MAPRS |
msgBuf = |
|
./eesupp/src/print.F |
1092 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1094 |
PRINT_MAPRS |
msgBuf = |
|
./eesupp/src/print.F |
1096 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1098 |
PRINT_MAPRS |
msgBuf = |
|
./eesupp/src/print.F |
1100 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1102 |
PRINT_MAPRS |
msgBuf = ' ' |
|
./eesupp/src/print.F |
1103 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1212 |
PRINT_MAPRL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/print.F |
1265 |
PRINT_MAPRL |
msgBuf = |
|
./eesupp/src/print.F |
1267 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1272 |
PRINT_MAPRL |
WRITE(msgBuf,'(A)') fldTitle(iStrngLo:iStrngHi) |
|
./eesupp/src/print.F |
1274 |
PRINT_MAPRL |
msgBuf = '// UNKNOWN FIELD' |
|
./eesupp/src/print.F |
1276 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1278 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
1280 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1282 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
1284 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1287 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
1290 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
1293 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1295 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,1024A1)') |
|
./eesupp/src/print.F |
1297 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1299 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,1024A1)') |
|
./eesupp/src/print.F |
1301 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1303 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,3(A,I6),A)') |
|
./eesupp/src/print.F |
1308 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1310 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,3(A,I6),A)') |
|
./eesupp/src/print.F |
1315 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1317 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,3(A,I4),A)') |
|
./eesupp/src/print.F |
1322 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1324 |
PRINT_MAPRL |
msgBuf = |
|
./eesupp/src/print.F |
1326 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1432 |
PRINT_MAPRL |
msgBuf = |
|
./eesupp/src/print.F |
1434 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1521 |
PRINT_MAPRL |
msgBuf = |
|
./eesupp/src/print.F |
1523 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1525 |
PRINT_MAPRL |
msgBuf = |
|
./eesupp/src/print.F |
1527 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1529 |
PRINT_MAPRL |
msgBuf = |
|
./eesupp/src/print.F |
1531 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1533 |
PRINT_MAPRL |
msgBuf = ' ' |
|
./eesupp/src/print.F |
1534 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
338 |
PRINT_LIST_I |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/print.F |
373 |
PRINT_LIST_I |
WRITE(msgBuf,'(A,I9,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
375 |
PRINT_LIST_I |
& WRITE(msgBuf(45:),fmt1) |
|
./eesupp/src/print.F |
378 |
PRINT_LIST_I |
WRITE(msgBuf,'(I5,'' '',A,I9,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
380 |
PRINT_LIST_I |
& WRITE(msgBuf(45:),fmt2) |
|
./eesupp/src/print.F |
383 |
PRINT_LIST_I |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
395 |
PRINT_LIST_I |
WRITE(msgBuf,'(A,I9,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
397 |
PRINT_LIST_I |
& WRITE(msgBuf(45:),'(A,1X,A,I3,1X,A)') |
|
./eesupp/src/print.F |
400 |
PRINT_LIST_I |
WRITE(msgBuf,'(I5,'' '',A,I9,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
402 |
PRINT_LIST_I |
& WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)') |
|
./eesupp/src/print.F |
405 |
PRINT_LIST_I |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
471 |
PRINT_LIST_L |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/print.F |
506 |
PRINT_LIST_L |
WRITE(msgBuf,'(A,L5,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
508 |
PRINT_LIST_L |
& WRITE(msgBuf(45:),fmt1) |
|
./eesupp/src/print.F |
511 |
PRINT_LIST_L |
WRITE(msgBuf,'(I5,'' '',A,L5,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
513 |
PRINT_LIST_L |
& WRITE(msgBuf(45:),fmt2) |
|
./eesupp/src/print.F |
516 |
PRINT_LIST_L |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
528 |
PRINT_LIST_L |
WRITE(msgBuf,'(A,L5,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
530 |
PRINT_LIST_L |
& WRITE(msgBuf(45:),'(A,1X,A,I3,1X,A)') |
|
./eesupp/src/print.F |
533 |
PRINT_LIST_L |
WRITE(msgBuf,'(I5,'' '',A,L5,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
535 |
PRINT_LIST_L |
& WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)') |
|
./eesupp/src/print.F |
538 |
PRINT_LIST_L |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
604 |
PRINT_LIST_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/print.F |
639 |
PRINT_LIST_RL |
WRITE(msgBuf,'(A,1PE23.15,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
641 |
PRINT_LIST_RL |
& WRITE(msgBuf(45:),fmt1) |
|
./eesupp/src/print.F |
644 |
PRINT_LIST_RL |
WRITE(msgBuf,'(I5,'' '',A,1PE23.15,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
646 |
PRINT_LIST_RL |
& WRITE(msgBuf(45:),fmt2) |
|
./eesupp/src/print.F |
649 |
PRINT_LIST_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
661 |
PRINT_LIST_RL |
WRITE(msgBuf,'(A,1PE23.15,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
663 |
PRINT_LIST_RL |
& WRITE(msgBuf(45:),fmt1) |
|
./eesupp/src/print.F |
666 |
PRINT_LIST_RL |
WRITE(msgBuf,'(I5,'' '',A,1PE23.15,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
668 |
PRINT_LIST_RL |
& WRITE(msgBuf(45:),fmt2) |
|
./eesupp/src/print.F |
671 |
PRINT_LIST_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
779 |
PRINT_MAPRS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/print.F |
831 |
PRINT_MAPRS |
msgBuf = |
|
./eesupp/src/print.F |
833 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
838 |
PRINT_MAPRS |
WRITE(msgBuf,'(A)') fldTitle(iStrngLo:iStrngHi) |
|
./eesupp/src/print.F |
840 |
PRINT_MAPRS |
msgBuf = '// UNKNOWN FIELD' |
|
./eesupp/src/print.F |
842 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
844 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
846 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
848 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
850 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
853 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
856 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
859 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
861 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,1024A1)') |
|
./eesupp/src/print.F |
863 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
865 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,1024A1)') |
|
./eesupp/src/print.F |
867 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
869 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,3(A,I6),A)') |
|
./eesupp/src/print.F |
874 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
876 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,3(A,I6),A)') |
|
./eesupp/src/print.F |
881 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
883 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,3(A,I4),A)') |
|
./eesupp/src/print.F |
888 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
890 |
PRINT_MAPRS |
msgBuf = |
|
./eesupp/src/print.F |
892 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
998 |
PRINT_MAPRS |
msgBuf = |
|
./pkg/cost/cost_check.F |
25 |
COST_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cost/cost_check.F |
27 |
COST_CHECK |
WRITE(msgBuf,'(A)') 'COST_CHECK: cost package' |
|
./pkg/cost/cost_check.F |
28 |
COST_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/stop_if_error.F |
48 |
STOP_IF_ERROR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/stop_if_error.F |
61 |
STOP_IF_ERROR |
WRITE(msgBuf,'(A,I5,A)') |
|
./eesupp/src/stop_if_error.F |
63 |
STOP_IF_ERROR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cost/cost_readparms.F |
81 |
COST_READPARMS |
WRITE(msgBuf,'(A)') 'COST_READPARMS: opening data.cost' |
|
./pkg/cost/cost_readparms.F |
82 |
COST_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cost/cost_readparms.F |
92 |
COST_READPARMS |
WRITE(msgBuf,'(A)') 'COST_READPARMS: finished reading data.cost' |
|
./pkg/cost/cost_readparms.F |
93 |
COST_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/ctrl_check.F |
100 |
CTRL_CHECK |
WRITE(msgBuf,'(3A)') 'CTRL_CHECK : ', |
|
./pkg/ctrl/ctrl_check.F |
103 |
CTRL_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ctrl/ctrl_check.F |
113 |
CTRL_CHECK |
WRITE(msgBuf,'(3A)') 'CTRL_CHECK : ', |
|
./pkg/ctrl/ctrl_check.F |
116 |
CTRL_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ctrl/ctrl_check.F |
126 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
128 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
129 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') ' ALLOW_HFLUX_CONTROL' |
|
./pkg/ctrl/ctrl_check.F |
130 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
131 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') ' ALLOW_SFLUX_CONTROL' |
|
./pkg/ctrl/ctrl_check.F |
132 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
133 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'to be control variables' |
|
./pkg/ctrl/ctrl_check.F |
134 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
148 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
150 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
151 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') ' ALLOW_USTRESS_CONTROL' |
|
./pkg/ctrl/ctrl_check.F |
152 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
153 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') ' ALLOW_VSTRESS_CONTROL' |
|
./pkg/ctrl/ctrl_check.F |
154 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
155 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'to be control variables' |
|
./pkg/ctrl/ctrl_check.F |
156 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
157 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'except if wspeedfile is specified' |
|
./pkg/ctrl/ctrl_check.F |
158 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
159 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'and ifdef ALLOW_BULK_LARGEYEAGER04' |
|
./pkg/ctrl/ctrl_check.F |
160 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
169 |
CTRL_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** CTRL_CHECK: ', |
|
./pkg/ctrl/ctrl_check.F |
172 |
CTRL_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ctrl/ctrl_check.F |
184 |
CTRL_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/ctrl/ctrl_check.F |
187 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
33 |
CTRL_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ctrl/ctrl_check.F |
36 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'CTRL_CHECK: ctrl package' |
|
./pkg/ctrl/ctrl_check.F |
37 |
CTRL_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/ctrl_check.F |
44 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
46 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
47 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
49 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
57 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
59 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
65 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
67 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
72 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
74 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
80 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
82 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_check.F |
89 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
91 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_getrec.F |
82 |
CTRL_GETREC |
character*(max_len_mbuf) msgBuf |
|
./pkg/ctrl/ctrl_getrec.F |
89 |
CTRL_GETREC |
write(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_getrec.F |
91 |
CTRL_GETREC |
call PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_getrec.F |
92 |
CTRL_GETREC |
write(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_getrec.F |
94 |
CTRL_GETREC |
call PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_getrec.F |
95 |
CTRL_GETREC |
write(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_getrec.F |
97 |
CTRL_GETREC |
call PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/write_utils.F |
120 |
WRITE_1D_L |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
123 |
WRITE_1D_L |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
124 |
WRITE_1D_L |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
128 |
WRITE_1D_L |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
129 |
WRITE_1D_L |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
179 |
WRITE_1D_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
201 |
WRITE_1D_RL |
WRITE(msgBuf,'(A,A)') head(1:ILH), comment(1:ILC) |
|
./eesupp/src/write_utils.F |
202 |
WRITE_1D_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
221 |
WRITE_1D_RL |
WRITE(msgBuf,'(A)') ' . . .' |
|
./eesupp/src/write_utils.F |
222 |
WRITE_1D_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
230 |
WRITE_1D_RL |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
231 |
WRITE_1D_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
275 |
WRITE_0D_I |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
281 |
WRITE_0D_I |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
282 |
WRITE_0D_I |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
286 |
WRITE_0D_I |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
287 |
WRITE_0D_I |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
331 |
WRITE_0D_L |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
336 |
WRITE_0D_L |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
337 |
WRITE_0D_L |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
341 |
WRITE_0D_L |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
342 |
WRITE_0D_L |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
386 |
WRITE_0D_R4 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
393 |
WRITE_0D_R4 |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
394 |
WRITE_0D_R4 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
398 |
WRITE_0D_R4 |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
399 |
WRITE_0D_R4 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
443 |
WRITE_0D_R8 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
450 |
WRITE_0D_R8 |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
451 |
WRITE_0D_R8 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
455 |
WRITE_0D_R8 |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
456 |
WRITE_0D_R8 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
500 |
WRITE_0D_RS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
507 |
WRITE_0D_RS |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
508 |
WRITE_0D_RS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
512 |
WRITE_0D_RS |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
513 |
WRITE_0D_RS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
557 |
WRITE_0D_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
564 |
WRITE_0D_RL |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
565 |
WRITE_0D_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
569 |
WRITE_0D_RL |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
570 |
WRITE_0D_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
624 |
WRITE_0D_C |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
638 |
WRITE_0D_C |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
639 |
WRITE_0D_C |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
643 |
WRITE_0D_C |
WRITE(msgBuf,'(14X,3A)') "'", fld(iS:iL), "'" |
|
./eesupp/src/write_utils.F |
645 |
WRITE_0D_C |
WRITE(msgBuf,'(14X,3A)') "'","'" |
|
./eesupp/src/write_utils.F |
647 |
WRITE_0D_C |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
649 |
WRITE_0D_C |
WRITE(msgBuf,'(A)') ' ;' |
|
./eesupp/src/write_utils.F |
64 |
WRITE_1D_I |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
650 |
WRITE_0D_C |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
67 |
WRITE_1D_I |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
68 |
WRITE_1D_I |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
72 |
WRITE_1D_I |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
73 |
WRITE_1D_I |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/ctrl_init_rec.F |
118 |
CTRL_INIT_REC |
WRITE( msgBuf,'(A,A,A)') |
|
./pkg/ctrl/ctrl_init_rec.F |
120 |
CTRL_INIT_REC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/ctrl_init_rec.F |
122 |
CTRL_INIT_REC |
WRITE( msgBuf,'(A,I10,A,I10)') |
|
./pkg/ctrl/ctrl_init_rec.F |
124 |
CTRL_INIT_REC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/ctrl_init_rec.F |
75 |
CTRL_INIT_REC |
WRITE( msgBuf,'(A,A)') |
|
./pkg/ctrl/ctrl_init_rec.F |
77 |
CTRL_INIT_REC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
151 |
CTRL_MAP_GENTIM2D |
WRITE(msgBuf,'(A,I6,A,1PE21.14)') |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
153 |
CTRL_MAP_GENTIM2D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
62 |
CTRL_MAP_GENTIM2D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ctrl/ctrl_readparms.F |
428 |
CTRL_READPARMS |
WRITE(msgBuf,'(A)') 'CTRL_READPARMS: opening data.ctrl' |
|
./pkg/ctrl/ctrl_readparms.F |
429 |
CTRL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/ctrl_readparms.F |
443 |
CTRL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_readparms.F |
445 |
CTRL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/optim_readparms.F |
76 |
OPTIM_READPARMS |
WRITE(msgBuf,'(A)') 'OPTIM_READPARMS: opening data.optim' |
|
./pkg/ctrl/optim_readparms.F |
77 |
OPTIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/optim_readparms.F |
87 |
OPTIM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/optim_readparms.F |
89 |
OPTIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/debug/debug_call.F |
25 |
DEBUG_CALL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/debug/debug_call.F |
27 |
DEBUG_CALL |
WRITE(msgBuf,'(A,A)') 'CALLING S/R ',text |
|
./pkg/debug/debug_call.F |
28 |
DEBUG_CALL |
CALL DEBUG_MSG( msgBuf, myThid ) |
|
./pkg/debug/debug_enter.F |
25 |
DEBUG_ENTER |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/debug/debug_enter.F |
27 |
DEBUG_ENTER |
WRITE(msgBuf,'(A,A)') 'ENTERED S/R ',text |
|
./pkg/debug/debug_enter.F |
28 |
DEBUG_ENTER |
CALL DEBUG_MSG( msgBuf, myThid ) |
|
./pkg/debug/debug_leave.F |
25 |
DEBUG_LEAVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/debug/debug_leave.F |
27 |
DEBUG_LEAVE |
WRITE(msgBuf,'(A,A)') 'LEAVING S/R ',text |
|
./pkg/debug/debug_leave.F |
28 |
DEBUG_LEAVE |
CALL DEBUG_MSG( msgBuf, myThid ) |
|
./pkg/debug/debug_msg.F |
35 |
DEBUG_MSG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/debug/debug_msg.F |
39 |
DEBUG_MSG |
WRITE(msgBuf,'(A11,A60)') 'DEBUG_MSG: ',text |
|
./pkg/debug/debug_msg.F |
40 |
DEBUG_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diag_cg2d.F |
213 |
DIAG_CG2D |
WRITE(msgBuf,'(2A,I6,A,1PE17.9,A,1PE14.6)')' diag_cg2d:', |
|
./pkg/diagnostics/diag_cg2d.F |
215 |
DIAG_CG2D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diag_cg2d.F |
312 |
DIAG_CG2D |
WRITE(msgBuf,'(A,I6,A,1PE17.9)') |
|
./pkg/diagnostics/diag_cg2d.F |
314 |
DIAG_CG2D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diag_cg2d.F |
87 |
DIAG_CG2D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diag_vegtile_fill.F |
135 |
DIAG_VEGTILE_FILL |
WRITE(msgBuf,'(2A,I4,A)') 'DIAGNOSTICS_FILL: ', |
|
./pkg/diagnostics/diag_vegtile_fill.F |
137 |
DIAG_VEGTILE_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
138 |
DIAG_VEGTILE_FILL |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_FILL: ', |
|
./pkg/diagnostics/diag_vegtile_fill.F |
140 |
DIAG_VEGTILE_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
141 |
DIAG_VEGTILE_FILL |
WRITE(msgBuf,'(2A,2I4,I3)') 'calling DIAGNOSTICS_FILL ', |
|
./pkg/diagnostics/diag_vegtile_fill.F |
143 |
DIAG_VEGTILE_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
144 |
DIAG_VEGTILE_FILL |
WRITE(msgBuf,'(2A,I6,A)') 'DIAGNOSTICS_FILL: ', |
|
./pkg/diagnostics/diag_vegtile_fill.F |
146 |
DIAG_VEGTILE_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
62 |
DIAG_VEGTILE_FILL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_addtolist.F |
114 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(2A,I6)') 'DIAGNOSTICS_ADDTOLIST:', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
116 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
117 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_addtolist.F |
119 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
53 |
DIAGNOSTICS_ADDTOLIST |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_addtolist.F |
74 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(3A,I6,A)') 'DIAGNOSTICS_ADDTOLIST: diag=', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
76 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_addtolist.F |
78 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_ADDTOLIST:', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
80 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_addtolist.F |
86 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(3A,I6,A)') 'DIAGNOSTICS_ADDTOLIST: diag=', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
88 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
89 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(4A,I6)') 'DIAGNOSTICS_ADDTOLIST: cannot ', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
91 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
92 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(4A,I6,A)') 'DIAGNOSTICS_ADDTOLIST:', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
94 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
272 |
DIAGNOSTICS_CALC_PHIVEL |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_CALC_PHIVEL: ', |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
274 |
DIAGNOSTICS_CALC_PHIVEL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
85 |
DIAGNOSTICS_CALC_PHIVEL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_check.F |
103 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
105 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
106 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
108 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
109 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
111 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
136 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
139 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
140 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I4,3(A,F16.8))') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
143 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
149 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
151 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
152 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
154 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
172 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
174 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
176 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
178 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
180 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
183 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
186 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
188 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
190 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
193 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
30 |
DIAGNOSTICS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_check.F |
42 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
44 |
DIAGNOSTICS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_check.F |
50 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') '**CAUTION** (DIAGNOSTICS_CHECK): ', |
|
./pkg/diagnostics/diagnostics_check.F |
52 |
DIAGNOSTICS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_check.F |
54 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') '**CAUTION** ', |
|
./pkg/diagnostics/diagnostics_check.F |
56 |
DIAGNOSTICS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_check.F |
58 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') '**CAUTION** ', |
|
./pkg/diagnostics/diagnostics_check.F |
60 |
DIAGNOSTICS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_check.F |
66 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
69 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_check.F |
72 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
75 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_check.F |
86 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
88 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
89 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
91 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
92 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
94 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
100 |
DIAGNOSTICS_FILL_FIELD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_fill_field.F |
199 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,I4,A)') 'DIAGNOSTICS_FILL_FIELD: ', |
|
./pkg/diagnostics/diagnostics_fill_field.F |
201 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
202 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_FILL_FIELD: ', |
|
./pkg/diagnostics/diagnostics_fill_field.F |
204 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
205 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,2I4,I3)') 'calling DIAGNOSTICS_FILL_FIELD ', |
|
./pkg/diagnostics/diagnostics_fill_field.F |
207 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
208 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,I6,A)') 'DIAGNOSTICS_FILL_FIELD: ', |
|
./pkg/diagnostics/diagnostics_fill_field.F |
210 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
119 |
DIAGNOSTICS_FRACT_FILL |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_FRACT_FILL: ', |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
121 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
122 |
DIAGNOSTICS_FRACT_FILL |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_FRACT_FILL: ', |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
124 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
158 |
DIAGNOSTICS_FRACT_FILL |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_FRACT_FILL: ', |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
160 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
161 |
DIAGNOSTICS_FRACT_FILL |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_FRACT_FILL: ', |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
163 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
84 |
DIAGNOSTICS_FRACT_FILL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
104 |
DIAGNOSTICS_INTERP_VERT |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_INTERP_VERT: ', |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
106 |
DIAGNOSTICS_INTERP_VERT |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
79 |
DIAGNOSTICS_INTERP_VERT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_list_check.F |
100 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
101 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
103 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
107 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
109 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
110 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
112 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
117 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(5A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
120 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
121 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
123 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
128 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(5A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
131 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
132 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
134 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
138 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
140 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
141 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
143 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
147 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
149 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
150 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
152 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
156 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
158 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
159 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
161 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
165 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
167 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
168 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
170 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
174 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
176 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
177 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
179 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
183 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
185 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
186 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
188 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
192 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
194 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
195 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
197 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
47 |
DIAGNOSTICS_LIST_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_list_check.F |
71 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
73 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
74 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
76 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
80 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
82 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
83 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
85 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
89 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
91 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
92 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
94 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
98 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_out.F |
210 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/diagnostics/diagnostics_out.F |
212 |
DIAGNOSTICS_OUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_out.F |
214 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A,I6,3A,I4,2A)') |
|
./pkg/diagnostics/diagnostics_out.F |
217 |
DIAGNOSTICS_OUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_out.F |
220 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A,2(I3,A))') |
|
./pkg/diagnostics/diagnostics_out.F |
224 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A,2(I3,A))') |
|
./pkg/diagnostics/diagnostics_out.F |
228 |
DIAGNOSTICS_OUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_out.F |
230 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_out.F |
232 |
DIAGNOSTICS_OUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_out.F |
349 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_OUT: ', |
|
./pkg/diagnostics/diagnostics_out.F |
351 |
DIAGNOSTICS_OUT |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
374 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_OUT: ', |
|
./pkg/diagnostics/diagnostics_out.F |
376 |
DIAGNOSTICS_OUT |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
81 |
DIAGNOSTICS_OUT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_readparms.F |
183 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
185 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/diagnostics/diagnostics_readparms.F |
190 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_READPARMS,', |
|
./pkg/diagnostics/diagnostics_readparms.F |
192 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_readparms.F |
195 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_READPARMS,', |
|
./pkg/diagnostics/diagnostics_readparms.F |
197 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_readparms.F |
204 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_READPARMS,', |
|
./pkg/diagnostics/diagnostics_readparms.F |
206 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_readparms.F |
209 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_READPARMS,', |
|
./pkg/diagnostics/diagnostics_readparms.F |
211 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_readparms.F |
277 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,F18.6,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
280 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
281 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
283 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
308 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
310 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
311 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,A,F8.0)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
313 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
314 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
316 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
331 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
333 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
334 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,3A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
336 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
337 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
339 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
346 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
348 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
349 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
351 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
352 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,F18.6,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
354 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
403 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
405 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
406 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
408 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
432 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
435 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_readparms.F |
437 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,I4,A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
440 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_readparms.F |
444 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,I4,A,I4,2A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
447 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
448 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,A,I4,2A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
451 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
466 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
468 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
469 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,3A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
472 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
473 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
475 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
482 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
484 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
485 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
487 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
488 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,F18.6,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
490 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
498 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
500 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
511 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
513 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
514 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
516 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
517 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
519 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
521 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'Creating Output Stream: ', fnames(n) |
|
./pkg/diagnostics/diagnostics_readparms.F |
522 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
523 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2(A,F18.6))') 'Output Frequency:', freq(n), |
|
./pkg/diagnostics/diagnostics_readparms.F |
525 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
526 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2(A,F18.6),A,I4)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
529 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
534 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,1PE20.12,3A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
541 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,1PE20.12,3A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
545 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
547 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') ' Cumulate all Levels (to be set later)' |
|
./pkg/diagnostics/diagnostics_readparms.F |
548 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
550 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,A)') ' Levels: ','will be set later' |
|
./pkg/diagnostics/diagnostics_readparms.F |
551 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
555 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,1P10E10.3)')' interp: ', (levs(k,n),k=l,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
556 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
563 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,n),k=l,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
564 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
569 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(21A)') ' Fields: ',(' ',flds(l,n),l=nf,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
570 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
573 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
575 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
576 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
578 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
580 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'Creating Stats. Output Stream: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
582 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
583 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2(A,F18.6))') 'Output Frequency:', |
|
./pkg/diagnostics/diagnostics_readparms.F |
585 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
586 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') ' Regions: ' |
|
./pkg/diagnostics/diagnostics_readparms.F |
591 |
DIAGNOSTICS_READPARMS |
IF (l.LE.MAX_LEN_MBUF) WRITE(msgBuf(l-2:l),'(I3)') j |
|
./pkg/diagnostics/diagnostics_readparms.F |
594 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
597 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(21A)') ' Fields: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
599 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
602 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
604 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
605 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
606 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
79 |
DIAGNOSTICS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_set_calc.F |
106 |
DIAGNOSTICS_SET_CALC |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_SET_CALC: ', |
|
./pkg/diagnostics/diagnostics_set_calc.F |
108 |
DIAGNOSTICS_SET_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_calc.F |
110 |
DIAGNOSTICS_SET_CALC |
WRITE(msgBuf,'(A,1P1E19.6,A,0PF16.3)') |
|
./pkg/diagnostics/diagnostics_set_calc.F |
112 |
DIAGNOSTICS_SET_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_calc.F |
115 |
DIAGNOSTICS_SET_CALC |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_SET_CALC: ', |
|
./pkg/diagnostics/diagnostics_set_calc.F |
117 |
DIAGNOSTICS_SET_CALC |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_calc.F |
135 |
DIAGNOSTICS_SET_CALC |
WRITE(msgBuf,'(2(A,2I5),A,F16.3)') |
|
./pkg/diagnostics/diagnostics_set_calc.F |
138 |
DIAGNOSTICS_SET_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_calc.F |
143 |
DIAGNOSTICS_SET_CALC |
WRITE(msgBuf,'(2(A,2I5),A,F16.3)') |
|
./pkg/diagnostics/diagnostics_set_calc.F |
146 |
DIAGNOSTICS_SET_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_calc.F |
153 |
DIAGNOSTICS_SET_CALC |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_calc.F |
155 |
DIAGNOSTICS_SET_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_calc.F |
40 |
DIAGNOSTICS_SET_CALC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_set_levels.F |
105 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I4,3A)') |
|
./pkg/diagnostics/diagnostics_set_levels.F |
108 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_levels.F |
113 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,4A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
116 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
121 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
123 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
133 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,4A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
135 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
140 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
142 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
150 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
152 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
158 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(6A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
161 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
166 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
168 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
174 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_levels.F |
176 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
177 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(A)') 'DIAGNOSTICS_SET_LEVELS: done' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
178 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
179 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(A,I6)') |
|
./pkg/diagnostics/diagnostics_set_levels.F |
181 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
187 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_levels.F |
190 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
246 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
248 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
249 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
251 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
252 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
254 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
66 |
DIAGNOSTICS_SET_LEVELS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
103 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A,I4,A)') 'DIAGNOSTICS_SET_POINTERS: ', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
105 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
109 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(21A)') ' Fields: ',(' ',flds(i,ld),i=md,j) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
110 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
150 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_SET_POINTERS: ', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
152 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
163 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I8,A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
166 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
170 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
173 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
174 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I8,A,I8)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
177 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
180 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
183 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
184 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I6,A,I6)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
187 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
215 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I6,5A,I6)') ' set mate pointer for diag #', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
218 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
238 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A,I4,2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
241 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
244 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,2(I6,A))') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
247 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
248 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_SET_POINTERS: in', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
250 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
257 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_SET_POINTERS: ', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
259 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
265 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
266 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
282 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I4,A,I6,2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
285 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
286 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A,I4,A,I6,2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
289 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
290 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_SET_POINTERS: ', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
292 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
299 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A)') 'DIAGNOSTICS_SET_POINTERS: done' |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
300 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
302 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
304 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
40 |
DIAGNOSTICS_SET_POINTERS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
73 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_SET_POINTERS: ', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
75 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
80 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A,2(A,I4),2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
83 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
90 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A,2(A,I4),2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
93 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_setdiag.F |
101 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
122 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,A)') |
|
./pkg/diagnostics/diagnostics_setdiag.F |
124 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
126 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(A,2(I3,A),I6,1X,A)') 'SETDIAG: Allocate', |
|
./pkg/diagnostics/diagnostics_setdiag.F |
129 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
133 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(3A,I6,1X,2A)') '- NOTE - SETDIAG: ',tmpMsg, |
|
./pkg/diagnostics/diagnostics_setdiag.F |
135 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
187 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(3A,I6,1X,A)') |
|
./pkg/diagnostics/diagnostics_setdiag.F |
190 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
192 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(A,2(I3,A),I6,1X,A)') 'SETDIAG: Allocate', |
|
./pkg/diagnostics/diagnostics_setdiag.F |
195 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
198 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(3A,I6,1X,2A)') '- NOTE - SETDIAG: ',tmpMsg, |
|
./pkg/diagnostics/diagnostics_setdiag.F |
200 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
54 |
DIAGNOSTICS_SETDIAG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_setdiag.F |
98 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(2(A,I6,1X,A))') |
|
./pkg/diagnostics/diagnostics_status_error.F |
101 |
DIAGNOSTICS_STATUS_ERROR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_status_error.F |
103 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(3A)') callerSubR, ': before ', |
|
./pkg/diagnostics/diagnostics_status_error.F |
106 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(3A)') callerSubR, ': before ', |
|
./pkg/diagnostics/diagnostics_status_error.F |
109 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(3A)') callerSubR, ': before ', |
|
./pkg/diagnostics/diagnostics_status_error.F |
112 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(3A)') callerSubR, ': before ', |
|
./pkg/diagnostics/diagnostics_status_error.F |
115 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(3A)') callerSubR, ': before ', |
|
./pkg/diagnostics/diagnostics_status_error.F |
118 |
DIAGNOSTICS_STATUS_ERROR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_status_error.F |
123 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(4A)') callerSubR, |
|
./pkg/diagnostics/diagnostics_status_error.F |
125 |
DIAGNOSTICS_STATUS_ERROR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_status_error.F |
45 |
DIAGNOSTICS_STATUS_ERROR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_status_error.F |
52 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(4A)') '*** DIAGNOSTICS_STATUS_ERROR ***', |
|
./pkg/diagnostics/diagnostics_status_error.F |
54 |
DIAGNOSTICS_STATUS_ERROR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_status_error.F |
57 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(1A,2(A,I3),2A)') callerSubR, |
|
./pkg/diagnostics/diagnostics_status_error.F |
60 |
DIAGNOSTICS_STATUS_ERROR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_status_error.F |
62 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(3A,2(A,I3))') callerSubR, |
|
./pkg/diagnostics/diagnostics_status_error.F |
65 |
DIAGNOSTICS_STATUS_ERROR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_status_error.F |
69 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(4A)') callerSubR, |
|
./pkg/diagnostics/diagnostics_status_error.F |
71 |
DIAGNOSTICS_STATUS_ERROR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_status_error.F |
76 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(3A)') callerSubR, |
|
./pkg/diagnostics/diagnostics_status_error.F |
78 |
DIAGNOSTICS_STATUS_ERROR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_status_error.F |
80 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(3A)') callerSubR, ': after ', |
|
./pkg/diagnostics/diagnostics_status_error.F |
83 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(3A)') callerSubR, ': after ', |
|
./pkg/diagnostics/diagnostics_status_error.F |
86 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(3A)') callerSubR, ': after ', |
|
./pkg/diagnostics/diagnostics_status_error.F |
89 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(3A)') callerSubR, ': after ', |
|
./pkg/diagnostics/diagnostics_status_error.F |
92 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(3A)') callerSubR, ': after ', |
|
./pkg/diagnostics/diagnostics_status_error.F |
95 |
DIAGNOSTICS_STATUS_ERROR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_status_error.F |
99 |
DIAGNOSTICS_STATUS_ERROR |
WRITE(msgBuf,'(2A)') callerSubR, |
|
./pkg/diagnostics/diagnostics_summary.F |
113 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(I6,3A,2(I7,A),I4,A)') |
|
./pkg/diagnostics/diagnostics_summary.F |
132 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
133 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
135 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I7,A)') tmpBuf(1:iLen),xOld,cSep |
|
./pkg/diagnostics/diagnostics_summary.F |
137 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I7,A,I3,2A)') tmpBuf(1:iLen),xOld, |
|
./pkg/diagnostics/diagnostics_summary.F |
145 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
146 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
147 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(ipt,1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
150 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
151 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
152 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(im,1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
155 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
156 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
185 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A)') ' Regions: ' |
|
./pkg/diagnostics/diagnostics_summary.F |
190 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
191 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j |
|
./pkg/diagnostics/diagnostics_summary.F |
195 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
199 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(I6,3A,2(I7,A))') |
|
./pkg/diagnostics/diagnostics_summary.F |
204 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
205 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
206 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,1PE12.5,A)') tmpBuf(1:iLen), |
|
./pkg/diagnostics/diagnostics_summary.F |
211 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
212 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
213 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,1PE12.5,A)') tmpBuf(1:iLen), |
|
./pkg/diagnostics/diagnostics_summary.F |
216 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
217 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
38 |
DIAGNOSTICS_SUMMARY |
CHARACTER*(MAX_LEN_MBUF) msgBuf, tmpBuf |
|
./pkg/diagnostics/diagnostics_summary.F |
54 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I6)') |
|
./pkg/diagnostics/diagnostics_summary.F |
56 |
DIAGNOSTICS_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_summary.F |
64 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_summary.F |
66 |
DIAGNOSTICS_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
145 |
DIAGNOSTICS_SWITCH_ONOFF |
WRITE(msgBuf,'(2A,I3,A,I4)') 'DIAGNOSTICS_SWITCH_ONOFF:', |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
147 |
DIAGNOSTICS_SWITCH_ONOFF |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
148 |
DIAGNOSTICS_SWITCH_ONOFF |
WRITE(msgBuf,'(2A,I4,A,F17.6)') 'DIAGNOSTICS_SWITCH_ONOFF:', |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
150 |
DIAGNOSTICS_SWITCH_ONOFF |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
44 |
DIAGNOSTICS_SWITCH_ONOFF |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_utils.F |
338 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_utils.F |
360 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
362 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
373 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A,I5)') '** WARNING ** DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
375 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
377 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I5,A)')'** WARNING ** DIAGNOSTICS_SETKLEV:', |
|
./pkg/diagnostics/diagnostics_utils.F |
379 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
383 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A,I5)') 'DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
385 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
386 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I5,3A)') 'DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
388 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
391 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A,I5)') '** WARNING ** DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
393 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
395 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I5,3A)') '** WARNING ** will set level Nb', |
|
./pkg/diagnostics/diagnostics_utils.F |
397 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
399 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A)') '** WARNING ** DIAGNOSTICS_SETKLEV', |
|
./pkg/diagnostics/diagnostics_utils.F |
401 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
441 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_utils.F |
453 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A)') 'DIAGS_GET_PARMS_I: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
455 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
491 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_utils.F |
529 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I4,A)') '** WARNING ** ', |
|
./pkg/diagnostics/diagnostics_utils.F |
531 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
533 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(3A)') '** WARNING ** ', |
|
./pkg/diagnostics/diagnostics_utils.F |
535 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
571 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_utils.F |
598 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I4,A)') '** WARNING ** ', |
|
./pkg/diagnostics/diagnostics_utils.F |
600 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
602 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(3A)') '** WARNING ** ', |
|
./pkg/diagnostics/diagnostics_utils.F |
604 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagstats_close_io.F |
38 |
DIAGSTATS_CLOSE_IO |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_close_io.F |
57 |
DIAGSTATS_CLOSE_IO |
WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_CLOSE_IO: ', |
|
./pkg/diagnostics/diagstats_close_io.F |
59 |
DIAGSTATS_CLOSE_IO |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_fill.F |
110 |
DIAGSTATS_FILL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_fill.F |
200 |
DIAGSTATS_FILL |
WRITE(msgBuf,'(2A,I4,A)') 'DIAGSTATS_FILL: ', |
|
./pkg/diagnostics/diagstats_fill.F |
202 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
203 |
DIAGSTATS_FILL |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGSTATS_FILL: ', |
|
./pkg/diagnostics/diagstats_fill.F |
205 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
206 |
DIAGSTATS_FILL |
WRITE(msgBuf,'(2A,2I4,I3)') 'calling DIAGSTATS_FILL ', |
|
./pkg/diagnostics/diagstats_fill.F |
208 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
209 |
DIAGSTATS_FILL |
WRITE(msgBuf,'(2A,I6,A)') 'DIAGSTATS_FILL: ', |
|
./pkg/diagnostics/diagstats_fill.F |
211 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_ini_io.F |
39 |
DIAGSTATS_INI_IO |
CHARACTER*(MAX_LEN_MBUF) msgBuf, tmpBuf |
|
./pkg/diagnostics/diagstats_ini_io.F |
62 |
DIAGSTATS_INI_IO |
WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_INI_IO: ', |
|
./pkg/diagnostics/diagstats_ini_io.F |
64 |
DIAGSTATS_INI_IO |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_ini_io.F |
72 |
DIAGSTATS_INI_IO |
WRITE(msgBuf,'(A)') '# Regions : ' |
|
./pkg/diagnostics/diagstats_ini_io.F |
76 |
DIAGSTATS_INI_IO |
tmpBuf(1:iL) = msgBuf(1:iL) |
|
./pkg/diagnostics/diagstats_ini_io.F |
77 |
DIAGSTATS_INI_IO |
WRITE(msgBuf,'(A,I3)') tmpBuf(1:iL),j |
|
./pkg/diagnostics/diagstats_ini_io.F |
81 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A)') msgBuf(1:iL) |
|
./pkg/diagnostics/diagstats_output.F |
100 |
DIAGSTATS_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagstats_output.F |
102 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(A,I6,3A,I4,2A)') |
|
./pkg/diagnostics/diagstats_output.F |
105 |
DIAGSTATS_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagstats_output.F |
107 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(2A)') '- WARNING - has not been filled,', |
|
./pkg/diagnostics/diagstats_output.F |
109 |
DIAGSTATS_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagstats_output.F |
111 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagstats_output.F |
113 |
DIAGSTATS_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagstats_output.F |
61 |
DIAGSTATS_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_output.F |
97 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(A,I10,A,I4)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
118 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(A,I8,A)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
121 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_pointers.F |
125 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
128 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
129 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(A,I8,A,I8)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
132 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
135 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
138 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
139 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(A,I6,A,I6)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
142 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
156 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(A,3(A,I5))') 'DIAGSTATS_SET_POINTERS:', |
|
./pkg/diagnostics/diagstats_set_pointers.F |
159 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
166 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(2A)') 'DIAGSTATS_SET_POINTERS:', |
|
./pkg/diagnostics/diagstats_set_pointers.F |
168 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
174 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(A)') 'DIAGSTATS_SET_POINTERS: done' |
|
./pkg/diagnostics/diagstats_set_pointers.F |
175 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_pointers.F |
177 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
179 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_pointers.F |
41 |
DIAGSTATS_SET_POINTERS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_set_pointers.F |
78 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(3A)') 'DIAGSTATS_SET_POINTERS: ', |
|
./pkg/diagnostics/diagstats_set_pointers.F |
80 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
135 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A,I3,A,I4)') 'DIAGSTATS_SET_REGIONS: ', |
|
./pkg/diagnostics/diagstats_set_regions.F |
137 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
141 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A,I3,A,I3,A)') 'DIAGSTATS_SET_REGIONS: ', |
|
./pkg/diagnostics/diagstats_set_regions.F |
144 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
169 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(A,I4,A)') 'DIAGSTATS_SET_REGIONS: define', |
|
./pkg/diagnostics/diagstats_set_regions.F |
171 |
DIAGSTATS_SET_REGIONS |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagstats_set_regions.F |
175 |
DIAGSTATS_SET_REGIONS |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagstats_set_regions.F |
176 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j |
|
./pkg/diagnostics/diagstats_set_regions.F |
180 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_regions.F |
182 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagstats_set_regions.F |
184 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_regions.F |
213 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A)') 'DIAGSTATS_SET_REGIONS:', |
|
./pkg/diagnostics/diagstats_set_regions.F |
215 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
219 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(A)') 'DIAGSTATS_SET_REGIONS: define no region' |
|
./pkg/diagnostics/diagstats_set_regions.F |
220 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_regions.F |
222 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagstats_set_regions.F |
224 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_regions.F |
36 |
DIAGSTATS_SET_REGIONS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_set_regions.F |
73 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A)') 'DIAGSTATS_SET_REGIONS:', |
|
./pkg/diagnostics/diagstats_set_regions.F |
75 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
79 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A,I4,A,I4)') 'DIAGSTATS_SET_REGIONS:', |
|
./pkg/diagnostics/diagstats_set_regions.F |
82 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_setdiag.F |
100 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
128 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,A)') |
|
./pkg/diagnostics/diagstats_setdiag.F |
131 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
133 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I3,A,I6,1X,A)') 'SETDIAG: Allocate', |
|
./pkg/diagnostics/diagstats_setdiag.F |
135 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
140 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,2A)') |
|
./pkg/diagnostics/diagstats_setdiag.F |
143 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
53 |
DIAGSTATS_SETDIAG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_setdiag.F |
86 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,A)') |
|
./pkg/diagnostics/diagstats_setdiag.F |
88 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
90 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I3,A,I6,1X,A)') 'SETDIAG: Allocate', |
|
./pkg/diagnostics/diagstats_setdiag.F |
92 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
97 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,2A)') |
|
./pkg/dic/dic_fields_load.F |
217 |
DIC_FIELDS_LOAD |
WRITE(msgBuf,'(2A)') |
|
./pkg/dic/dic_fields_load.F |
220 |
DIC_FIELDS_LOAD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/dic/dic_fields_load.F |
47 |
DIC_FIELDS_LOAD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/dic/dic_ini_forcing.F |
35 |
DIC_INI_FORCING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/dic/dic_ini_forcing.F |
63 |
DIC_INI_FORCING |
WRITE(msgBuf,'(2A)') |
|
./pkg/dic/dic_ini_forcing.F |
66 |
DIC_INI_FORCING |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/dic/dic_init_fixed.F |
32 |
DIC_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/dic/dic_init_fixed.F |
94 |
DIC_INIT_FIXED |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/dic/dic_init_fixed.F |
95 |
DIC_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_init_fixed.F |
96 |
DIC_INIT_FIXED |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/dic/dic_init_fixed.F |
97 |
DIC_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_init_fixed.F |
98 |
DIC_INIT_FIXED |
WRITE(msgBuf,'(A)') '// DIC_INIT_FIXED parameters :' |
|
./pkg/dic/dic_init_fixed.F |
99 |
DIC_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_read_co2_pickup.F |
38 |
DIC_READ_CO2_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/dic/dic_read_co2_pickup.F |
64 |
DIC_READ_CO2_PICKUP |
WRITE(msgBuf,'(4A)') 'DIC_READ_CO2_PICKUP: ', |
|
./pkg/dic/dic_read_co2_pickup.F |
66 |
DIC_READ_CO2_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/dic/dic_read_pickup.F |
31 |
DIC_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/dic/dic_read_pickup.F |
67 |
DIC_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'DIC_READ_PICKUP: ', |
|
./pkg/dic/dic_read_pickup.F |
70 |
DIC_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/dic/dic_read_pickup.F |
73 |
DIC_READ_PICKUP |
WRITE(msgBuf,'(2A)') 'WARNING >> DIC_READ_PICKUP: ', |
|
./pkg/dic/dic_read_pickup.F |
75 |
DIC_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/dic/dic_readparms.F |
143 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') ' DIC_READPARMS: opening data.dic' |
|
./pkg/dic/dic_readparms.F |
144 |
DIC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/dic/dic_readparms.F |
163 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/dic/dic_readparms.F |
165 |
DIC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/dic/dic_readparms.F |
190 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/dic/dic_readparms.F |
191 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_readparms.F |
192 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/dic/dic_readparms.F |
193 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_readparms.F |
194 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') '// DIC package parameters :' |
|
./pkg/dic/dic_readparms.F |
195 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_readparms.F |
196 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/dic/dic_readparms.F |
197 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_readparms.F |
289 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/dic/dic_readparms.F |
291 |
DIC_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/dic/dic_readparms.F |
38 |
DIC_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/dic/dic_write_pickup.F |
101 |
DIC_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'DIC_WRITE_PICKUP: ', |
|
./pkg/dic/dic_write_pickup.F |
103 |
DIC_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
104 |
DIC_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'DIC_WRITE_PICKUP: ', |
|
./pkg/dic/dic_write_pickup.F |
106 |
DIC_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
56 |
DIC_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/down_slope/dwnslp_init_fixed.F |
199 |
DWNSLP_INIT_FIXED |
WRITE(msgBuf,'(A,I8,A)') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
201 |
DWNSLP_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
202 |
DWNSLP_INIT_FIXED |
WRITE(msgBuf,'(A,2I4,A,I8)') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
204 |
DWNSLP_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
297 |
DWNSLP_INIT_FIXED |
WRITE(msgBuf,'(A,2I4,I8)') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
299 |
DWNSLP_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/down_slope/dwnslp_init_fixed.F |
41 |
DWNSLP_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/down_slope/dwnslp_readparms.F |
35 |
DWNSLP_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/down_slope/dwnslp_readparms.F |
58 |
DWNSLP_READPARMS |
WRITE(msgBuf,'(A)')' DWNSLP_READPARMS: opening data.down_slope' |
|
./pkg/down_slope/dwnslp_readparms.F |
59 |
DWNSLP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/down_slope/dwnslp_readparms.F |
77 |
DWNSLP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/down_slope/dwnslp_readparms.F |
79 |
DWNSLP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/down_slope/dwnslp_readparms.F |
91 |
DWNSLP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/down_slope/dwnslp_readparms.F |
93 |
DWNSLP_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/down_slope/dwnslp_readparms.F |
97 |
DWNSLP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/down_slope/dwnslp_readparms.F |
99 |
DWNSLP_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/ebm/ebm_readparms.F |
101 |
EBM_READPARMS |
WRITE(msgBuf,'(2A)') 'EBM_READPARMS: ', |
|
./pkg/ebm/ebm_readparms.F |
103 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ebm/ebm_readparms.F |
104 |
EBM_READPARMS |
WRITE(msgBuf,'(2A)') 'EBM_READPARMS: ', |
|
./pkg/ebm/ebm_readparms.F |
106 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ebm/ebm_readparms.F |
109 |
EBM_READPARMS |
WRITE(msgBuf,'(2A)') ' EBM_READPARMS: ', |
|
./pkg/ebm/ebm_readparms.F |
111 |
EBM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ebm/ebm_readparms.F |
38 |
EBM_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ebm/ebm_readparms.F |
61 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') ' EBM_READPARMS: opening data.ebm' |
|
./pkg/ebm/ebm_readparms.F |
62 |
EBM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ebm/ebm_readparms.F |
80 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') 'S/R EBM_READPARMS' |
|
./pkg/ebm/ebm_readparms.F |
81 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ebm/ebm_readparms.F |
82 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') 'Error reading numerical model ' |
|
./pkg/ebm/ebm_readparms.F |
83 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ebm/ebm_readparms.F |
84 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') 'parameter file "data.ebm"' |
|
./pkg/ebm/ebm_readparms.F |
85 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ebm/ebm_readparms.F |
86 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') 'Problem in namelist EBM_PARM01' |
|
./pkg/ebm/ebm_readparms.F |
87 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ebm/ebm_readparms.F |
94 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') ' EBM_READPARMS: finished reading data.ebm' |
|
./pkg/ebm/ebm_readparms.F |
95 |
EBM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/cost_averagesfields.F |
122 |
COST_AVERAGESFIELDS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ecco/cost_averagesfields.F |
191 |
COST_AVERAGESFIELDS |
WRITE(msgBuf,'(A,I6,A,1PE21.14)') |
|
./pkg/ecco/cost_averagesfields.F |
193 |
COST_AVERAGESFIELDS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/cost_gencost_boxmean.F |
189 |
COST_GENCOST_BOXMEAN |
WRITE(msgBuf,'(A,I3,1PE21.14)') |
|
./pkg/ecco/cost_gencost_boxmean.F |
191 |
COST_GENCOST_BOXMEAN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/cost_gencost_boxmean.F |
206 |
COST_GENCOST_BOXMEAN |
WRITE(msgBuf,'(A,I3,1PE21.14)') |
|
./pkg/ecco/cost_gencost_boxmean.F |
208 |
COST_GENCOST_BOXMEAN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/cost_gencost_sstv4.F |
209 |
COST_GENCOST_SSTV4 |
WRITE(msgBuf,'(A,I4,A,I4,A,I10,A,1PE15.2)') 'sstv4 reading ', |
|
./pkg/ecco/cost_gencost_sstv4.F |
211 |
COST_GENCOST_SSTV4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
361 |
COST_GENCOST_SSTV4 |
WRITE(msgBuf,'(A,I4,A,I4,A,I10,A,1PE15.2)') 'sstv4 reading ', |
|
./pkg/ecco/cost_gencost_sstv4.F |
363 |
COST_GENCOST_SSTV4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
88 |
COST_GENCOST_SSTV4 |
character*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ecco/cost_readscatxfields.F |
147 |
COST_READSCATXFIELDS |
WRITE(msgBuf,'(2A)') 'cost_readscatxfields : did not find', |
|
./pkg/ecco/cost_readscatxfields.F |
149 |
COST_READSCATXFIELDS |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ecco/cost_readscatxfields.F |
81 |
COST_READSCATXFIELDS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ecco/cost_readscatyfields.F |
146 |
COST_READSCATYFIELDS |
WRITE(msgBuf,'(2A)') 'cost_readscatyfields : did not find', |
|
./pkg/ecco/cost_readscatyfields.F |
148 |
COST_READSCATYFIELDS |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ecco/cost_readscatyfields.F |
81 |
COST_READSCATYFIELDS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ecco/cost_readtopex.F |
123 |
COST_READTOPEX |
WRITE(msgBuf,'(A,I4,A,I4,A,I10,A,1PE15.2)') 'tpx reading ', |
|
./pkg/ecco/cost_readtopex.F |
125 |
COST_READTOPEX |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ecco/cost_readtopex.F |
140 |
COST_READTOPEX |
WRITE(msgBuf,'(A,I4,A,I4,A,I10,A,1PE15.2)') 'tpx now reading ', |
|
./pkg/ecco/cost_readtopex.F |
142 |
COST_READTOPEX |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ecco/cost_readtopex.F |
73 |
COST_READTOPEX |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ecco/ecco_check.F |
104 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/ecco/ecco_check.F |
107 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ecco/ecco_check.F |
134 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/ecco/ecco_check.F |
137 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ecco/ecco_check.F |
139 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/ecco/ecco_check.F |
143 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/ecco/ecco_check.F |
146 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ecco/ecco_check.F |
148 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/ecco/ecco_check.F |
191 |
ECCO_CHECK_FILES |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ecco/ecco_check.F |
211 |
ECCO_CHECK_FILES |
WRITE(msgBuf,'(4A)') |
|
./pkg/ecco/ecco_check.F |
214 |
ECCO_CHECK_FILES |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ecco/ecco_check.F |
242 |
ECCO_CHECK_FILES |
WRITE(msgBuf,'(5A)') |
|
./pkg/ecco/ecco_check.F |
245 |
ECCO_CHECK_FILES |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ecco/ecco_check.F |
258 |
ECCO_CHECK_FILES |
WRITE(msgBuf,'(4A)') |
|
./pkg/ecco/ecco_check.F |
261 |
ECCO_CHECK_FILES |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ecco/ecco_check.F |
38 |
ECCO_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ecco/ecco_check.F |
48 |
ECCO_CHECK |
WRITE(msgBuf,'(2A,2I10)') |
|
./pkg/ecco/ecco_check.F |
52 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ecco/ecco_check.F |
54 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/ecco/ecco_check.F |
61 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/ecco/ecco_check.F |
64 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ecco/ecco_check.F |
66 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
290 |
ECCO_COST_INIT_FIXED |
WRITE(msgBuf,'(2A,I10)') |
|
./pkg/ecco/ecco_cost_init_fixed.F |
293 |
ECCO_COST_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ecco/ecco_cost_init_fixed.F |
295 |
ECCO_COST_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/ecco/ecco_readparms.F |
37 |
ECCO_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ecco/ecco_readparms.F |
465 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') 'ECCO_READPARMS: opening data.ecco' |
|
./pkg/ecco/ecco_readparms.F |
466 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/ecco_readparms.F |
476 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ecco/ecco_readparms.F |
478 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/ecco_readparms.F |
488 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/ecco/ecco_readparms.F |
491 |
ECCO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ecco/ecco_readparms.F |
492 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ecco/ecco_readparms.F |
494 |
ECCO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ecco/ecco_readparms.F |
498 |
ECCO_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R ECCO_READPARMS: ', |
|
./pkg/ecco/ecco_readparms.F |
500 |
ECCO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ecco/ecco_readparms.F |
501 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ecco/ecco_readparms.F |
503 |
ECCO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ecco/ecco_readparms.F |
540 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ecco/ecco_readparms.F |
542 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/ecco_readparms.F |
590 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,I2,2A)') |
|
./pkg/ecco/ecco_readparms.F |
593 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ecco/ecco_readparms.F |
602 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,I2,2A)') |
|
./pkg/ecco/ecco_readparms.F |
605 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ecco/ecco_readparms.F |
613 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,I2,2A)') |
|
./pkg/ecco/ecco_readparms.F |
616 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ecco/ecco_readparms.F |
636 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ecco/ecco_readparms.F |
638 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |