File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_readparms.F |
507 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') 'ECCO_READPARMS: opening data.ecco' |
./pkg/ecco/ecco_readparms.F |
508 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/ecco_readparms.F |
50 |
ECCO_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/ecco/ecco_readparms.F |
518 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ecco/ecco_readparms.F |
520 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/ecco_readparms.F |
530 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/ecco/ecco_readparms.F |
533 |
ECCO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ecco/ecco_readparms.F |
534 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ecco/ecco_readparms.F |
536 |
ECCO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ecco/ecco_readparms.F |
540 |
ECCO_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R ECCO_READPARMS: ', |
./pkg/ecco/ecco_readparms.F |
542 |
ECCO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ecco/ecco_readparms.F |
543 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ecco/ecco_readparms.F |
545 |
ECCO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ecco/ecco_readparms.F |
644 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ecco/ecco_readparms.F |
646 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/ecco_readparms.F |
675 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,I3,3A,L5)') 'gencost k_boxmean/horflux=', |
./pkg/ecco/ecco_readparms.F |
677 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/ecco_readparms.F |
690 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,i3,3A,L5)') 'gencost k_transp=', |
./pkg/ecco/ecco_readparms.F |
692 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/ecco_readparms.F |
795 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,A)') 'm_',gencost_barfile(k)(1:il) |
./pkg/ecco/ecco_readparms.F |
796 |
ECCO_READPARMS |
gencost_barfile(k)=msgBuf(1:il+2) |
./pkg/ecco/ecco_readparms.F |
800 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,A)') 'm_ustress',gencost_barfile(k)(9:il) |
./pkg/ecco/ecco_readparms.F |
801 |
ECCO_READPARMS |
gencost_barfile(k)=msgBuf(1:il+1) |
./pkg/ecco/ecco_readparms.F |
805 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,A)') 'm_vstress',gencost_barfile(k)(9:il) |
./pkg/ecco/ecco_readparms.F |
806 |
ECCO_READPARMS |
gencost_barfile(k)=msgBuf(1:il+1) |
./pkg/ecco/ecco_readparms.F |
829 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,I2,2A)') |
./pkg/ecco/ecco_readparms.F |
832 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_readparms.F |
841 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,I2,2A)') |
./pkg/ecco/ecco_readparms.F |
844 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_readparms.F |
852 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,I2,2A)') |
./pkg/ecco/ecco_readparms.F |
855 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_readparms.F |
877 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,I2,2A)') |
./pkg/ecco/ecco_readparms.F |
880 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_readparms.F |
904 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ecco/ecco_readparms.F |
906 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./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 |
133 |
W2_READPARMS |
WRITE(msgBuf,'(A)') 'W2_READPARMS: file data.exch2 not found' |
./pkg/exch2/w2_readparms.F |
134 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/exch2/w2_readparms.F |
136 |
W2_READPARMS |
WRITE(msgBuf,'(2A,I3)') '=> use W2_EXCH2 default:', |
./pkg/exch2/w2_readparms.F |
139 |
W2_READPARMS |
WRITE(msgBuf,'(2A,I3)') '=> use W2_EXCH2 default:', |
./pkg/exch2/w2_readparms.F |
142 |
W2_READPARMS |
WRITE(msgBuf,'(2A,I3)') '=> use W2_EXCH2 default:', |
./pkg/exch2/w2_readparms.F |
145 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/exch2/w2_readparms.F |
169 |
W2_READPARMS |
WRITE(msgBuf,'(2A)') ' W2_READPARMS:', |
./pkg/exch2/w2_readparms.F |
171 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_readparms.F |
172 |
W2_READPARMS |
WRITE(msgBuf,'(A,2(A,I3))') ' W2_READPARMS:', |
./pkg/exch2/w2_readparms.F |
174 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_readparms.F |
185 |
W2_READPARMS |
WRITE(msgBuf,'(2A)') ' W2_READPARMS:', |
./pkg/exch2/w2_readparms.F |
187 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_readparms.F |
188 |
W2_READPARMS |
WRITE(msgBuf,'(A,2(A,I3))') ' W2_READPARMS:', |
./pkg/exch2/w2_readparms.F |
190 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exch2/w2_readparms.F |
197 |
W2_READPARMS |
WRITE(msgBuf,'(A,L5,A)') 'W2_useE2ioLayOut=', W2_useE2ioLayOut, |
./pkg/exch2/w2_readparms.F |
199 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/exch2/w2_readparms.F |
200 |
W2_READPARMS |
WRITE(msgBuf,'(A,I4,A)') 'W2_mapIO =', W2_mapIO, |
./pkg/exch2/w2_readparms.F |
202 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/exch2/w2_readparms.F |
203 |
W2_READPARMS |
WRITE(msgBuf,'(A,I4,A)') 'W2_printMsg =', W2_printMsg, |
./pkg/exch2/w2_readparms.F |
205 |
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 |
72 |
ADEXF_ADJOINT_SNAPSHOTS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_check.F |
111 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_check.F |
113 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
119 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') 'EXF_CHECK: useRelativeWind ', |
./pkg/exf/exf_check.F |
121 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
128 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_check.F |
130 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
137 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** EXF_CHECK: "wspeed" ', |
./pkg/exf/exf_check.F |
139 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_check.F |
148 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** EXF_CHECK: "hflux" ', |
./pkg/exf/exf_check.F |
150 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_check.F |
154 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** EXF_CHECK: "sflux" ', |
./pkg/exf/exf_check.F |
156 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_check.F |
169 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** EXF_CHECK: "aqh" ', |
./pkg/exf/exf_check.F |
171 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_check.F |
177 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
179 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
183 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
185 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
193 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** EXF_CHECK: "hs" ', |
./pkg/exf/exf_check.F |
195 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_check.F |
199 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** EXF_CHECK: "hl" ', |
./pkg/exf/exf_check.F |
201 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_check.F |
207 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
209 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
213 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
215 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
222 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
224 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
231 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
233 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
237 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
239 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
244 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
246 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
250 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
252 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
257 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
259 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
263 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
265 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
273 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** EXF_CHECK: "swdown" ', |
./pkg/exf/exf_check.F |
275 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_check.F |
281 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** EXF_CHECK: "lwdown" ', |
./pkg/exf/exf_check.F |
283 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_check.F |
289 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
291 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
295 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
297 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
304 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
306 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
313 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
315 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
322 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
324 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
331 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
333 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
340 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
342 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
346 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** EXF_CHECK: "runoftemp" ', |
./pkg/exf/exf_check.F |
348 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_check.F |
355 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') 'EXF_CHECK: Cannot read-in field ', |
./pkg/exf/exf_check.F |
357 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
361 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') 'EXF_CHECK: exf salt flux is not', |
./pkg/exf/exf_check.F |
363 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
373 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'EXF_CHECK: ZENITHANGLE code ', |
./pkg/exf/exf_check.F |
375 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
379 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'EXF_CHECK: unsupported ', |
./pkg/exf/exf_check.F |
381 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
385 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') |
./pkg/exf/exf_check.F |
388 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_check.F |
392 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'EXF_CHECK: using diurnal albedo ', |
./pkg/exf/exf_check.F |
394 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
398 |
EXF_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** EXF_CHECK: ', |
./pkg/exf/exf_check.F |
401 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_check.F |
406 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'EXF_CHECK: unsupported option', |
./pkg/exf/exf_check.F |
408 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
415 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'EXF_CHECK: ', |
./pkg/exf/exf_check.F |
417 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
418 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'EXF_CHECK: ', |
./pkg/exf/exf_check.F |
420 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
421 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'EXF_CHECK: ', |
./pkg/exf/exf_check.F |
423 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
42 |
EXF_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_check.F |
49 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'EXF_CHECK: #define ALLOW_EXF' |
./pkg/exf/exf_check.F |
500 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_check.F |
502 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
508 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'EXF_CHECK: ', |
./pkg/exf/exf_check.F |
50 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_check.F |
510 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
511 |
EXF_CHECK |
WRITE(msgBuf,'(A,A,A)') 'EXF_CHECK: ', |
./pkg/exf/exf_check.F |
514 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
522 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') |
./pkg/exf/exf_check.F |
525 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
532 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_check.F |
534 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
540 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'EXF_CHECK: ', |
./pkg/exf/exf_check.F |
542 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
543 |
EXF_CHECK |
WRITE(msgBuf,'(A,A,A)') 'EXF_CHECK: ', |
./pkg/exf/exf_check.F |
546 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
559 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_check.F |
561 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
565 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') 'EXF_CHECK: rotateStressOnAgrid ', |
./pkg/exf/exf_check.F |
567 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
573 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') 'EXF_CHECK: rotateStressOnAgrid ', |
./pkg/exf/exf_check.F |
575 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
582 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** EXF_CHECK: ', |
./pkg/exf/exf_check.F |
584 |
EXF_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_check.F |
58 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_check.F |
590 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_check.F |
592 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
593 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') |
./pkg/exf/exf_check.F |
596 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
601 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'EXF_CHECK: ', |
./pkg/exf/exf_check.F |
603 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
608 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'EXF_CHECK: ', |
./pkg/exf/exf_check.F |
60 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
610 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
616 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'EXF_CHECK: climsstTauRelax > 0' |
./pkg/exf/exf_check.F |
617 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
618 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_check.F |
620 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
624 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'EXF_CHECK: climsstTauRelax > 0 but' |
./pkg/exf/exf_check.F |
625 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
626 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'EXF_CHECK: climsstfile is not set' |
./pkg/exf/exf_check.F |
627 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
634 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'EXF_CHECK: climsssTauRelax > 0' |
./pkg/exf/exf_check.F |
635 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
636 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_check.F |
638 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
642 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'EXF_CHECK: climsssTauRelax > 0 but' |
./pkg/exf/exf_check.F |
643 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
644 |
EXF_CHECK |
WRITE(msgBuf,'(A)') 'EXF_CHECK: climsssfile is not set' |
./pkg/exf/exf_check.F |
645 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
653 |
EXF_CHECK |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/exf/exf_check.F |
655 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
66 |
EXF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_check.F |
68 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
712 |
EXF_CHECK_INTERP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_check.F |
717 |
EXF_CHECK_INTERP |
WRITE(msgBuf,'(3A)') 'EXF_CHECK_INTERP: ',loc_name, |
./pkg/exf/exf_check.F |
719 |
EXF_CHECK_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
725 |
EXF_CHECK_INTERP |
WRITE(msgBuf,'(3A)') 'EXF_CHECK_INTERP: ',loc_name, |
./pkg/exf/exf_check.F |
727 |
EXF_CHECK_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
731 |
EXF_CHECK_INTERP |
WRITE(msgBuf,'(3A)') 'EXF_CHECK_INTERP: ',loc_name, |
./pkg/exf/exf_check.F |
733 |
EXF_CHECK_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
737 |
EXF_CHECK_INTERP |
WRITE(msgBuf,'(6A)') 'EXF_CHECK_INTERP: ', |
./pkg/exf/exf_check.F |
740 |
EXF_CHECK_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
745 |
EXF_CHECK_INTERP |
WRITE(msgBuf,'(4A,1PE16.8)') 'EXF_CHECK_INTERP: ', |
./pkg/exf/exf_check.F |
747 |
EXF_CHECK_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
748 |
EXF_CHECK_INTERP |
WRITE(msgBuf,'(4A)') 'EXF_CHECK_INTERP: Fix it ', |
./pkg/exf/exf_check.F |
74 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') 'EXF_CHECK: ', |
./pkg/exf/exf_check.F |
750 |
EXF_CHECK_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
76 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
81 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') 'EXF_CHECK: The use of ', |
./pkg/exf/exf_check.F |
83 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
89 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') 'EXF_CHECK: ', |
./pkg/exf/exf_check.F |
91 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_check.F |
96 |
EXF_CHECK |
WRITE(msgBuf,'(2A)') 'EXF_CHECK: ', |
./pkg/exf/exf_check.F |
98 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_getffield_start.F |
114 |
EXF_GETFFIELD_START |
WRITE(msgBuf,'(8A)') 'S/R EXF_GETFFIELD_START: ', |
./pkg/exf/exf_getffield_start.F |
117 |
EXF_GETFFIELD_START |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_getffield_start.F |
120 |
EXF_GETFFIELD_START |
WRITE(msgBuf,'(8A)') 'S/R EXF_GETFFIELD_START: ', |
./pkg/exf/exf_getffield_start.F |
123 |
EXF_GETFFIELD_START |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_getffield_start.F |
126 |
EXF_GETFFIELD_START |
WRITE(msgBuf,'(5A)') ' ', |
./pkg/exf/exf_getffield_start.F |
129 |
EXF_GETFFIELD_START |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_getffield_start.F |
134 |
EXF_GETFFIELD_START |
WRITE(msgBuf,'(6A)') 'S/R EXF_GETFFIELD_START: ', |
./pkg/exf/exf_getffield_start.F |
137 |
EXF_GETFFIELD_START |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_getffield_start.F |
139 |
EXF_GETFFIELD_START |
WRITE(msgBuf,'(3A,F14.2,A)') ' ', |
./pkg/exf/exf_getffield_start.F |
142 |
EXF_GETFFIELD_START |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_getffield_start.F |
56 |
EXF_GETFFIELD_START |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_getffield_start.F |
70 |
EXF_GETFFIELD_START |
WRITE(msgBuf,'(8A)') 'S/R EXF_GETFFIELD_START: ', |
./pkg/exf/exf_getffield_start.F |
73 |
EXF_GETFFIELD_START |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_getffield_start.F |
75 |
EXF_GETFFIELD_START |
WRITE(msgBuf,'(5A)') ' ', |
./pkg/exf/exf_getffield_start.F |
78 |
EXF_GETFFIELD_START |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_getffieldrec.F |
125 |
EXF_GETFFIELDREC |
WRITE(msgBuf,'(4A,1P1E17.10,A)') 'EXF_GetFFieldRec ', |
./pkg/exf/exf_getffieldrec.F |
127 |
EXF_GETFFIELDREC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_getffieldrec.F |
128 |
EXF_GETFFIELDREC |
WRITE(msgBuf,'(2A,1P1E18.10,A)') 'EXF_GetFFieldRec: ', |
./pkg/exf/exf_getffieldrec.F |
130 |
EXF_GETFFIELDREC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_getffieldrec.F |
237 |
EXF_GETFFIELDREC |
WRITE(msgBuf,'(3A,I10,A,1P1E17.10)') |
./pkg/exf/exf_getffieldrec.F |
240 |
EXF_GETFFIELDREC |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_getffieldrec.F |
242 |
EXF_GETFFIELDREC |
WRITE(msgBuf,'(2(A,1P1E18.10))') |
./pkg/exf/exf_getffieldrec.F |
245 |
EXF_GETFFIELDREC |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_getffieldrec.F |
247 |
EXF_GETFFIELDREC |
WRITE(msgBuf,'(3(A,I8))') 'EXF_GetFFieldRec: intimeP=', |
./pkg/exf/exf_getffieldrec.F |
249 |
EXF_GETFFIELDREC |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_getffieldrec.F |
251 |
EXF_GETFFIELDREC |
WRITE(msgBuf,'(2(A,1P1E14.7),A,1P1E16.9)') |
./pkg/exf/exf_getffieldrec.F |
254 |
EXF_GETFFIELDREC |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/exf/exf_getffieldrec.F |
256 |
EXF_GETFFIELDREC |
WRITE(msgBuf,'(2A)') 'EXF_GetFFieldRec: ', |
./pkg/exf/exf_getffieldrec.F |
258 |
EXF_GETFFIELDREC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_getffieldrec.F |
259 |
EXF_GETFFIELDREC |
WRITE(msgBuf,'(2A,1P2E18.10)') 'EXF_GetFFieldRec: ', |
./pkg/exf/exf_getffieldrec.F |
261 |
EXF_GETFFIELDREC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_getffieldrec.F |
90 |
EXF_GETFFIELDREC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_init_fixed.F |
38 |
EXF_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_init_fixed.F |
590 |
EXF_INIT_FIXED |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/exf/exf_init_fixed.F |
592 |
EXF_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_init_fld.F |
106 |
EXF_INIT_FLD |
WRITE(msgBuf,'(4A,I3,2A)') 'EXF_INIT_FLD: ', |
./pkg/exf/exf_init_fld.F |
109 |
EXF_INIT_FLD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_init_fld.F |
80 |
EXF_INIT_FLD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_interp.F |
107 |
EXF_INTERP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_interp.F |
320 |
EXF_INTERP |
WRITE(msgBuf,'(3A,I6,A,2L5)') |
./pkg/exf/exf_interp.F |
323 |
EXF_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_interp.F |
325 |
EXF_INTERP |
WRITE(msgBuf,'(2A,3F4.1,A,3F12.6)') ' S.edge (j=-1,0,1) :', |
./pkg/exf/exf_interp.F |
327 |
EXF_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_interp.F |
329 |
EXF_INTERP |
WRITE(msgBuf,'(2A,3F4.1,A,3F12.6)') ' N.edge (j=+0,+1,+2)', |
./pkg/exf/exf_interp.F |
331 |
EXF_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_interp.F |
360 |
EXF_INTERP |
WRITE(msgBuf,'(3A,I6)') |
./pkg/exf/exf_interp.F |
362 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp.F |
363 |
EXF_INTERP |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_interp.F |
365 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp.F |
366 |
EXF_INTERP |
WRITE(msgBuf,'(A,2I8,2I6,A,1P2E14.6)') 'i,j,bi,bj=', |
./pkg/exf/exf_interp.F |
368 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp.F |
369 |
EXF_INTERP |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nxIn=', nxIn, |
./pkg/exf/exf_interp.F |
371 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp.F |
372 |
EXF_INTERP |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nyIn=', nyIn, |
./pkg/exf/exf_interp.F |
374 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp.F |
420 |
EXF_INTERP |
WRITE(msgBuf,'(3A,I4,A,I4)') |
./pkg/exf/exf_interp.F |
423 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp.F |
424 |
EXF_INTERP |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_interp.F |
426 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp.F |
427 |
EXF_INTERP |
WRITE(msgBuf,'(A,2I8,2I6,A,1PE16.8)') |
./pkg/exf/exf_interp.F |
429 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp.F |
430 |
EXF_INTERP |
WRITE(msgBuf,'(A,I8,A,1PE16.8)') |
./pkg/exf/exf_interp.F |
432 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp.F |
433 |
EXF_INTERP |
WRITE(msgBuf,'(A,I8,A,1PE16.8)') |
./pkg/exf/exf_interp.F |
435 |
EXF_INTERP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp_read.F |
115 |
EXF_INTERP_READ |
WRITE(msgBuf,'(A,A)') |
./pkg/exf/exf_interp_read.F |
117 |
EXF_INTERP_READ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_interp_read.F |
121 |
EXF_INTERP_READ |
WRITE(msgBuf,'(2A)') |
./pkg/exf/exf_interp_read.F |
123 |
EXF_INTERP_READ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_interp_read.F |
125 |
EXF_INTERP_READ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp_read.F |
126 |
EXF_INTERP_READ |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_interp_read.F |
128 |
EXF_INTERP_READ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_interp_read.F |
130 |
EXF_INTERP_READ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp_read.F |
53 |
EXF_INTERP_READ |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_interp_uv.F |
121 |
EXF_INTERP_UV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_interp_uv.F |
342 |
EXF_INTERP_UV |
WRITE(msgBuf,'(3A,I6,A,2L5)') |
./pkg/exf/exf_interp_uv.F |
345 |
EXF_INTERP_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_interp_uv.F |
347 |
EXF_INTERP_UV |
WRITE(msgBuf,'(2A,3F4.1,A,3F12.6)') ' S.edge (j=-1,0,1) :', |
./pkg/exf/exf_interp_uv.F |
349 |
EXF_INTERP_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_interp_uv.F |
351 |
EXF_INTERP_UV |
WRITE(msgBuf,'(2A,3F4.1,A,3F12.6)') ' N.edge (j=+0,+1,+2)', |
./pkg/exf/exf_interp_uv.F |
353 |
EXF_INTERP_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_interp_uv.F |
386 |
EXF_INTERP_UV |
WRITE(msgBuf,'(3A,I6)') |
./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,1P2E14.6)') 'i,j,bi,bj=', |
./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,I9,A,1P2E14.6)') 'nxIn=', nxIn, |
./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,I9,A,1P2E14.6)') 'nyIn=', nyIn, |
./pkg/exf/exf_interp_uv.F |
400 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp_uv.F |
446 |
EXF_INTERP_UV |
WRITE(msgBuf,'(3A,I4,A,I4)') |
./pkg/exf/exf_interp_uv.F |
449 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp_uv.F |
450 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_interp_uv.F |
452 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp_uv.F |
453 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A,2I8,2I6,A,1PE16.8)') |
./pkg/exf/exf_interp_uv.F |
455 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp_uv.F |
456 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A,I8,A,1PE16.8)') |
./pkg/exf/exf_interp_uv.F |
458 |
EXF_INTERP_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_interp_uv.F |
459 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A,I8,A,1PE16.8)') |
./pkg/exf/exf_interp_uv.F |
461 |
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 |
101 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/exf/exf_monitor.F |
247 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
./pkg/exf/exf_monitor.F |
249 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/exf/exf_monitor.F |
250 |
EXF_MONITOR |
WRITE(msgBuf,'(A)') '// End MONITOR EXF statistics' |
./pkg/exf/exf_monitor.F |
251 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/exf/exf_monitor.F |
252 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
./pkg/exf/exf_monitor.F |
254 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/exf/exf_monitor.F |
52 |
EXF_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_monitor.F |
94 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
./pkg/exf/exf_monitor.F |
96 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/exf/exf_monitor.F |
97 |
EXF_MONITOR |
WRITE(msgBuf,'(A)') '// Begin MONITOR EXF statistics' |
./pkg/exf/exf_monitor.F |
98 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/exf/exf_monitor.F |
99 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
./pkg/exf/exf_monitor_ad.F |
100 |
ADEXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/exf/exf_monitor_ad.F |
206 |
ADEXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
./pkg/exf/exf_monitor_ad.F |
208 |
ADEXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/exf/exf_monitor_ad.F |
209 |
ADEXF_MONITOR |
WRITE(msgBuf,'(A,I2)') |
./pkg/exf/exf_monitor_ad.F |
212 |
ADEXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/exf/exf_monitor_ad.F |
213 |
ADEXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
./pkg/exf/exf_monitor_ad.F |
215 |
ADEXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/exf/exf_monitor_ad.F |
57 |
ADEXF_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_monitor_ad.F |
91 |
ADEXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
./pkg/exf/exf_monitor_ad.F |
93 |
ADEXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/exf/exf_monitor_ad.F |
94 |
ADEXF_MONITOR |
WRITE(msgBuf,'(A,I2)') |
./pkg/exf/exf_monitor_ad.F |
97 |
ADEXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/exf/exf_monitor_ad.F |
98 |
ADEXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
./pkg/exf/exf_readparms.F |
1000 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_readparms.F |
1002 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_readparms.F |
1006 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_readparms.F |
1008 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_readparms.F |
1015 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_readparms.F |
1017 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_readparms.F |
1041 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_readparms.F |
1043 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_readparms.F |
1083 |
EXF_READPARMS |
WRITE(msgBuf,'(2A)') 'EXF_READPARMS: ', |
./pkg/exf/exf_readparms.F |
1085 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_readparms.F |
1086 |
EXF_READPARMS |
WRITE(msgBuf,'(2A)') 'since SST relax. is handled by EXF', |
./pkg/exf/exf_readparms.F |
1088 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_readparms.F |
1097 |
EXF_READPARMS |
WRITE(msgBuf,'(2A)') 'EXF_READPARMS: ', |
./pkg/exf/exf_readparms.F |
1099 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_readparms.F |
1100 |
EXF_READPARMS |
WRITE(msgBuf,'(2A)') 'since SSS relax. is handled by EXF', |
./pkg/exf/exf_readparms.F |
1102 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_readparms.F |
75 |
EXF_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_readparms.F |
943 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') 'EXF_READPARMS: opening data.exf' |
./pkg/exf/exf_readparms.F |
944 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_readparms.F |
952 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_readparms.F |
954 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_readparms.F |
995 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_readparms.F |
997 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_fld.F |
101 |
EXF_SET_FLD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_set_fld.F |
121 |
EXF_SET_FLD |
WRITE(msgBuf,'(5A)') 'EXF_SET_FLD: ', |
./pkg/exf/exf_set_fld.F |
123 |
EXF_SET_FLD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_fld.F |
139 |
EXF_SET_FLD |
WRITE(msgBuf,'(4A,1PE16.8,2A)') 'EXF_SET_FLD: ', |
./pkg/exf/exf_set_fld.F |
142 |
EXF_SET_FLD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_set_fld.F |
156 |
EXF_SET_FLD |
WRITE(msgBuf,'(2A,I10,2I7)') 'EXF_SET_FLD: ', |
./pkg/exf/exf_set_fld.F |
158 |
EXF_SET_FLD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_fld.F |
160 |
EXF_SET_FLD |
WRITE(msgBuf,'(2A,2(L2,2X),E16.9)') 'EXF_SET_FLD: ', |
./pkg/exf/exf_set_fld.F |
162 |
EXF_SET_FLD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_fld.F |
176 |
EXF_SET_FLD |
WRITE(msgBuf,'(4A,I10,A,I6)') 'EXF_SET_FLD: ', |
./pkg/exf/exf_set_fld.F |
179 |
EXF_SET_FLD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_fld.F |
181 |
EXF_SET_FLD |
WRITE(msgBuf,'(4A)') 'EXF_SET_FLD: ', |
./pkg/exf/exf_set_fld.F |
183 |
EXF_SET_FLD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_fld.F |
235 |
EXF_SET_FLD |
WRITE(msgBuf,'(4A,I10,A,I6)') 'EXF_SET_FLD: ', |
./pkg/exf/exf_set_fld.F |
238 |
EXF_SET_FLD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_fld.F |
240 |
EXF_SET_FLD |
WRITE(msgBuf,'(4A)') 'EXF_SET_FLD: ', |
./pkg/exf/exf_set_fld.F |
242 |
EXF_SET_FLD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_uv.F |
113 |
EXF_SET_UV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_set_uv.F |
140 |
EXF_SET_UV |
WRITE(msgBuf,'(6A)') 'EXF_SET_UV: ', |
./pkg/exf/exf_set_uv.F |
142 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_uv.F |
144 |
EXF_SET_UV |
WRITE(msgBuf,'(6A)') 'EXF_SET_UV: ', |
./pkg/exf/exf_set_uv.F |
146 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_uv.F |
161 |
EXF_SET_UV |
WRITE(msgBuf,'(4A,1PE16.8,2A)') 'EXF_SET_UV: ', |
./pkg/exf/exf_set_uv.F |
164 |
EXF_SET_UV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/exf/exf_set_uv.F |
177 |
EXF_SET_UV |
WRITE(msgBuf,'(2A,I10,2I7)') 'EXF_SET_UV: ', |
./pkg/exf/exf_set_uv.F |
179 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_uv.F |
181 |
EXF_SET_UV |
WRITE(msgBuf,'(2A,2(L2,2X),E16.9)') 'EXF_SET_UV: ', |
./pkg/exf/exf_set_uv.F |
183 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_uv.F |
203 |
EXF_SET_UV |
WRITE(msgBuf,'(6A,I10)') 'EXF_SET_UV: ', |
./pkg/exf/exf_set_uv.F |
205 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_uv.F |
208 |
EXF_SET_UV |
WRITE(msgBuf,'(2A,I6,3A)') 'EXF_SET_UV: ', |
./pkg/exf/exf_set_uv.F |
210 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_uv.F |
213 |
EXF_SET_UV |
WRITE(msgBuf,'(2A,I6,3A)') 'EXF_SET_UV: ', |
./pkg/exf/exf_set_uv.F |
215 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_uv.F |
368 |
EXF_SET_UV |
WRITE(msgBuf,'(6A,I10)') 'EXF_SET_UV: ', |
./pkg/exf/exf_set_uv.F |
370 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_uv.F |
373 |
EXF_SET_UV |
WRITE(msgBuf,'(2A,I6,3A)') 'EXF_SET_UV: ', |
./pkg/exf/exf_set_uv.F |
375 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_set_uv.F |
378 |
EXF_SET_UV |
WRITE(msgBuf,'(2A,I6,3A)') 'EXF_SET_UV: ', |
./pkg/exf/exf_set_uv.F |
380 |
EXF_SET_UV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
211 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' EXF main CPP flags:' |
./pkg/exf/exf_summary.F |
212 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
218 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
220 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
223 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
225 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
230 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
232 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
235 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
237 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
242 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
244 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
247 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
249 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
254 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
256 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
259 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
261 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
266 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
268 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
271 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
273 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
306 |
EXF_SUMMARY |
WRITE(msgBuf,'(2A,L5)') ' Interp. U & V comp. together:', |
./pkg/exf/exf_summary.F |
308 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
377 |
EXF_SUMMARY |
WRITE(msgBuf,'(2A,L5)') ' Interp. U & V comp. together:', |
./pkg/exf/exf_summary.F |
379 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
432 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
434 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
464 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
466 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
491 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
493 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
511 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
513 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
553 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
555 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
576 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
578 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
587 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
589 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
591 |
EXF_SUMMARY |
WRITE(msgBuf,'(3A)') ' >> ', runoftempfile(1:il), ' <<' |
./pkg/exf/exf_summary.F |
592 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
597 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
599 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
603 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
605 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
616 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
618 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
632 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
634 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
64 |
EXF_SUMMARY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_summary.F |
715 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
717 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
719 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
721 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
723 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
725 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
72 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
740 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
742 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
74 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
756 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' climsst relaxation is NOT used' |
./pkg/exf/exf_summary.F |
757 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
761 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
763 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
76 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
774 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
776 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
78 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
790 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' climsss relaxation is NOT used' |
./pkg/exf/exf_summary.F |
791 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
795 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
797 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
803 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
805 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
807 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
809 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
80 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
811 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/exf/exf_summary.F |
813 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
82 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
864 |
EXF_FLD_SUMMARY |
CHARACTER*(MAX_LEN_MBUF) tmpBuf, msgBuf |
./pkg/exf/exf_summary.F |
877 |
EXF_FLD_SUMMARY |
WRITE(msgBuf,'(A,F12.0)') tmpBuf(1:jL), fld_start_time |
./pkg/exf/exf_summary.F |
878 |
EXF_FLD_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
882 |
EXF_FLD_SUMMARY |
WRITE(msgBuf,'(A,F12.0)') tmpBuf(1:jL), fld_period |
./pkg/exf/exf_summary.F |
883 |
EXF_FLD_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
88 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' EXF general parameters:' |
./pkg/exf/exf_summary.F |
893 |
EXF_FLD_SUMMARY |
WRITE(msgBuf,'(A,F12.0)') tmpBuf(1:jL), fld_repeatCycle |
./pkg/exf/exf_summary.F |
894 |
EXF_FLD_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
897 |
EXF_FLD_SUMMARY |
WRITE(msgBuf,'(3A)') ' ', fld_fullName, ' is read from file:' |
./pkg/exf/exf_summary.F |
898 |
EXF_FLD_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
89 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
901 |
EXF_FLD_SUMMARY |
WRITE(msgBuf,'(3A)') ' >> ', fld_file(1:iL), ' <<' |
./pkg/exf/exf_summary.F |
902 |
EXF_FLD_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
91 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
./pkg/exf/exf_summary.F |
92 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
940 |
EXF_PRINT_INTERP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/exf/exf_summary.F |
944 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,A,A)') |
./pkg/exf/exf_summary.F |
946 |
EXF_PRINT_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
949 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,A,A,I3,A)') |
./pkg/exf/exf_summary.F |
951 |
EXF_PRINT_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
956 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,F10.5,A,I6,A,F10.7)') |
./pkg/exf/exf_summary.F |
960 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,1PE10.3,A,I6,A,1PE10.3)') |
./pkg/exf/exf_summary.F |
964 |
EXF_PRINT_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/exf/exf_summary.F |
976 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,F10.5,A,I6,A,F10.7)') |
./pkg/exf/exf_summary.F |
980 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,F10.5,A,I6,A,2F8.5)') |
./pkg/exf/exf_summary.F |
986 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,1PE10.3,A,I6,A,1PE10.3)') |
./pkg/exf/exf_summary.F |
990 |
EXF_PRINT_INTERP |
WRITE(msgBuf,'(3X,A,1PE10.3,A,I6,A,1P2E10.3)') |
./pkg/exf/exf_summary.F |
995 |
EXF_PRINT_INTERP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/fizhi/fizhi_readparms.F |
101 |
FIZHI_READPARMS |
WRITE(msgBuf,'(A,I10)') |
./pkg/fizhi/fizhi_readparms.F |
103 |
FIZHI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1) |
./pkg/fizhi/fizhi_readparms.F |
104 |
FIZHI_READPARMS |
WRITE(msgBuf,'(A,F12.2)') ' CHANGING END TIME TO',endtime |
./pkg/fizhi/fizhi_readparms.F |
105 |
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/flt/flt_exch2.F |
170 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCH2:', |
./pkg/flt/flt_exch2.F |
174 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
177 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCH2:', |
./pkg/flt/flt_exch2.F |
181 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
307 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCH2:', |
./pkg/flt/flt_exch2.F |
311 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
314 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCH2:', |
./pkg/flt/flt_exch2.F |
318 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
410 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCH2:+E', |
./pkg/flt/flt_exch2.F |
414 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
439 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCH2:+W', |
./pkg/flt/flt_exch2.F |
443 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
468 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCH2:+N', |
./pkg/flt/flt_exch2.F |
472 |
FLT_EXCH2 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_exch2.F |
497 |
FLT_EXCH2 |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCH2:+S', |
./pkg/flt/flt_exch2.F |
501 |
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 |
75 |
FLT_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'FLT_INIT_FIXED:', |
./pkg/flt/flt_init_fixed.F |
77 |
FLT_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_init_varia.F |
106 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(2A,I3,A)') 'FLT_INIT_VARIA:', |
./pkg/flt/flt_init_varia.F |
108 |
FLT_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_init_varia.F |
109 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(2A,I3,A)') 'FLT_INIT_VARIA:', |
./pkg/flt/flt_init_varia.F |
111 |
FLT_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/flt/flt_init_varia.F |
115 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(2A)') |
./pkg/flt/flt_init_varia.F |
117 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/flt/flt_init_varia.F |
135 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(A,2I4,A,1P2E15.8)') |
./pkg/flt/flt_init_varia.F |
137 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/flt/flt_init_varia.F |
178 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(2A)') 'FLT_INIT_VARIA:', |
./pkg/flt/flt_init_varia.F |
180 |
FLT_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/flt/flt_init_varia.F |
191 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(A,I4,A,I4)') 'iG,jG=',iG,',',jG |
./pkg/flt/flt_init_varia.F |
192 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/flt/flt_init_varia.F |
219 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(A,2I4,A,1P2E15.8)') |
./pkg/flt/flt_init_varia.F |
221 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/flt/flt_init_varia.F |
267 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_INIT_VARIA:', |
./pkg/flt/flt_init_varia.F |
271 |
FLT_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/flt/flt_init_varia.F |
282 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(A,2(A,I9))') 'FLT_INIT_VARIA:', |
./pkg/flt/flt_init_varia.F |
285 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/flt/flt_init_varia.F |
287 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(A)') ' ' |
./pkg/flt/flt_init_varia.F |
288 |
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_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 |
100 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_check.F |
106 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/gchem/gchem_check.F |
108 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_check.F |
114 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/gchem/gchem_check.F |
116 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_check.F |
122 |
GCHEM_CHECK |
WRITE(msgBuf,'(2A,I5,A)') 'GCHEM_CHECK: ', |
./pkg/gchem/gchem_check.F |
124 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/gchem/gchem_check.F |
125 |
GCHEM_CHECK |
WRITE(msgBuf,'(2A,I5,A)') 'GCHEM_CHECK: ', |
./pkg/gchem/gchem_check.F |
128 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_check.F |
132 |
GCHEM_CHECK |
WRITE(msgBuf,'(2A,I5,A)') 'GCHEM_CHECK: ', |
./pkg/gchem/gchem_check.F |
134 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_check.F |
135 |
GCHEM_CHECK |
WRITE(msgBuf,'(2A,I5,A)') 'GCHEM_CHECK: ', |
./pkg/gchem/gchem_check.F |
138 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_check.F |
143 |
GCHEM_CHECK |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/gchem/gchem_check.F |
145 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_check.F |
170 |
GCHEM_CHECK |
WRITE(msgBuf,'(2A)') 'GCHEM_CHECK ', |
./pkg/gchem/gchem_check.F |
172 |
GCHEM_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/gchem/gchem_check.F |
174 |
GCHEM_CHECK |
WRITE(msgBuf,'(2A)') ' ' |
./pkg/gchem/gchem_check.F |
175 |
GCHEM_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/gchem/gchem_check.F |
44 |
GCHEM_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/gchem/gchem_check.F |
54 |
GCHEM_CHECK |
WRITE(msgBuf,'(2A)') 'GCHEM_CHECK ', |
./pkg/gchem/gchem_check.F |
56 |
GCHEM_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/gchem/gchem_check.F |
63 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'GCHEM_ADD2TR_TENDENCY needed to use CFC' |
./pkg/gchem/gchem_check.F |
64 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_check.F |
71 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'GCHEM_SEPARATE_FORCING needed to use DIC' |
./pkg/gchem/gchem_check.F |
72 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_check.F |
76 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/gchem/gchem_check.F |
78 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_check.F |
82 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/gchem/gchem_check.F |
84 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_check.F |
91 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'usePTRACERS has to be .TRUE. for GCHEM' |
./pkg/gchem/gchem_check.F |
92 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_check.F |
98 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/gchem/gchem_readparms.F |
100 |
GCHEM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/gchem/gchem_readparms.F |
107 |
GCHEM_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/gchem/gchem_readparms.F |
109 |
GCHEM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/gchem/gchem_readparms.F |
122 |
GCHEM_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/gchem/gchem_readparms.F |
125 |
GCHEM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_readparms.F |
126 |
GCHEM_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/gchem/gchem_readparms.F |
129 |
GCHEM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gchem/gchem_readparms.F |
37 |
GCHEM_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/gchem/gchem_readparms.F |
99 |
GCHEM_READPARMS |
WRITE(msgBuf,'(A)') ' GCHEM_READPARMS: opening data.gchem' |
./pkg/gchem/gchem_tr_register.F |
35 |
GCHEM_TR_REGISTER |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/gchem/gchem_tr_register.F |
42 |
GCHEM_TR_REGISTER |
WRITE(msgBuf,'(2A,2I5)') 'GCHEM_TR_REGISTER: ', |
./pkg/gchem/gchem_tr_register.F |
44 |
GCHEM_TR_REGISTER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/gchem/gchem_tr_register.F |
93 |
GCHEM_TR_REGISTER |
WRITE(msgBuf,'(2A,2I5)') 'GCHEM_TR_REGISTER: ', |
./pkg/gchem/gchem_tr_register.F |
96 |
GCHEM_TR_REGISTER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/gchem/gchem_tr_register.F |
98 |
GCHEM_TR_REGISTER |
WRITE(msgBuf,'(A)') ' ' |
./pkg/gchem/gchem_tr_register.F |
99 |
GCHEM_TR_REGISTER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/generic_advdiff/gad_advection.F |
161 |
GAD_ADVECTION |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/generic_advdiff/gad_advection.F |
189 |
GAD_ADVECTION |
WRITE(msgBuf,'(A,2I3)') |
./pkg/generic_advdiff/gad_advection.F |
192 |
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_implicit_r.F |
347 |
GAD_IMPLICIT_R |
WRITE(msgBuf,'(4A)') 'GAD_IMPLICIT_R: ', |
./pkg/generic_advdiff/gad_implicit_r.F |
349 |
GAD_IMPLICIT_R |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/generic_advdiff/gad_implicit_r.F |
351 |
GAD_IMPLICIT_R |
WRITE(msgBuf,'(4A)') 'GAD_IMPLICIT_R: ', |
./pkg/generic_advdiff/gad_implicit_r.F |
353 |
GAD_IMPLICIT_R |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/generic_advdiff/gad_implicit_r.F |
99 |
GAD_IMPLICIT_R |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/generic_advdiff/gad_init_fixed.F |
100 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(2A,I6)') 'GAD_INIT_FIXED: ', |
./pkg/generic_advdiff/gad_init_fixed.F |
102 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_init_fixed.F |
107 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(2A,I6)') 'GAD_INIT_FIXED: ', |
./pkg/generic_advdiff/gad_init_fixed.F |
109 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_init_fixed.F |
114 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(2A,I6)') 'GAD_INIT_FIXED: ', |
./pkg/generic_advdiff/gad_init_fixed.F |
116 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_init_fixed.F |
185 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A,9I3)') |
./pkg/generic_advdiff/gad_init_fixed.F |
187 |
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 |
207 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/generic_advdiff/gad_init_fixed.F |
208 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
./pkg/generic_advdiff/gad_init_fixed.F |
209 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)')'// GAD parameters :' |
./pkg/generic_advdiff/gad_init_fixed.F |
210 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
./pkg/generic_advdiff/gad_init_fixed.F |
211 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/generic_advdiff/gad_init_fixed.F |
212 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
./pkg/generic_advdiff/gad_init_fixed.F |
257 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/generic_advdiff/gad_init_fixed.F |
258 |
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 |
65 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') |
./pkg/generic_advdiff/gad_init_fixed.F |
67 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_init_fixed.F |
93 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(2A,I6)') 'GAD_INIT_FIXED: ', |
./pkg/generic_advdiff/gad_init_fixed.F |
95 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
107 |
GAD_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'GAD_READ_PICKUP: ', |
./pkg/generic_advdiff/gad_read_pickup.F |
110 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
113 |
GAD_READ_PICKUP |
WRITE(msgBuf,'(2A)') 'WARNING >> GAD_READ_PICKUP: ', |
./pkg/generic_advdiff/gad_read_pickup.F |
115 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
158 |
GAD_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'GAD_READ_PICKUP: ', |
./pkg/generic_advdiff/gad_read_pickup.F |
161 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
164 |
GAD_READ_PICKUP |
WRITE(msgBuf,'(2A)') 'WARNING >> GAD_READ_PICKUP: ', |
./pkg/generic_advdiff/gad_read_pickup.F |
166 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/generic_advdiff/gad_read_pickup.F |
43 |
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, standardMessageUnit, |
./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 |
146 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
148 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ggl90/ggl90_readparms.F |
153 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
155 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
156 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
158 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
159 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
161 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
162 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
164 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
167 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
169 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ggl90/ggl90_readparms.F |
174 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
176 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ggl90/ggl90_readparms.F |
181 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
183 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
184 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
186 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
187 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
189 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
190 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
192 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
195 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
197 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ggl90/ggl90_readparms.F |
208 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
210 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ggl90/ggl90_readparms.F |
216 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') 'OLx/OLy must be greater than 2' |
./pkg/ggl90/ggl90_readparms.F |
217 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
232 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
234 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
238 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
240 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
244 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
246 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
250 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') 'GGL90viscMax must be greater than zero' |
./pkg/ggl90/ggl90_readparms.F |
251 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
255 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') 'GGL90diffMax must be greater than zero' |
./pkg/ggl90/ggl90_readparms.F |
256 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/ggl90/ggl90_readparms.F |
261 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
263 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ggl90/ggl90_readparms.F |
265 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') '// GGL90 configuration' |
./pkg/ggl90/ggl90_readparms.F |
266 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ggl90/ggl90_readparms.F |
268 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
270 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ggl90/ggl90_readparms.F |
316 |
GGL90_READPARMS |
WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL) |
./pkg/ggl90/ggl90_readparms.F |
317 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ggl90/ggl90_readparms.F |
360 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
362 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ggl90/ggl90_readparms.F |
364 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') '// End of GGL90 config. summary' |
./pkg/ggl90/ggl90_readparms.F |
365 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ggl90/ggl90_readparms.F |
367 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ggl90/ggl90_readparms.F |
369 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ggl90/ggl90_readparms.F |
371 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
./pkg/ggl90/ggl90_readparms.F |
372 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ggl90/ggl90_readparms.F |
44 |
GGL90_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/ggl90/ggl90_readparms.F |
84 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') ' GGL90_READPARMS: opening data.ggl90' |
./pkg/ggl90/ggl90_readparms.F |
85 |
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 |
166 |
GMREDI_CALC_PSI_BVP |
WRITE(msgBuf,'(A)') |
./pkg/gmredi/gmredi_calc_psi_bvp.F |
168 |
GMREDI_CALC_PSI_BVP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_calc_psi_bvp.F |
238 |
GMREDI_CALC_PSI_BVP |
WRITE(msgBuf,'(A)') |
./pkg/gmredi/gmredi_calc_psi_bvp.F |
240 |
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 |
197 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/gmredi/gmredi_check.F |
199 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
200 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/gmredi/gmredi_check.F |
202 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
211 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/gmredi/gmredi_check.F |
213 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
214 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/gmredi/gmredi_check.F |
216 |
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 |
236 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A)') ' GMREDI_CHECK: ', |
./pkg/gmredi/gmredi_check.F |
238 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
239 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A)') ' GMREDI_CHECK: ', |
./pkg/gmredi/gmredi_check.F |
241 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
247 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A)') ' GMREDI_CHECK: ', |
./pkg/gmredi/gmredi_check.F |
249 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
256 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A)') ' GMREDI_CHECK: ', |
./pkg/gmredi/gmredi_check.F |
258 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
262 |
GMREDI_CHECK |
WRITE(msgBuf,'(3A)') |
./pkg/gmredi/gmredi_check.F |
268 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/gmredi/gmredi_check.F |
271 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
276 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/gmredi/gmredi_check.F |
278 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
289 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A,I3,A,L5)') ' GMREDI_CHECK:', |
./pkg/gmredi/gmredi_check.F |
291 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
295 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A)') ' GMREDI_CHECK:', |
./pkg/gmredi/gmredi_check.F |
297 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_check.F |
314 |
GMREDI_CHECK |
WRITE(msgBuf,'(A,9I3)') |
./pkg/gmredi/gmredi_check.F |
316 |
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 |
103 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> GMREDI_READ_PICKUP: ', |
./pkg/gmredi/gmredi_read_pickup.F |
105 |
GMREDI_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
108 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/gmredi/gmredi_read_pickup.F |
110 |
GMREDI_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
119 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'GMREDI_READ_PICKUP: ', |
./pkg/gmredi/gmredi_read_pickup.F |
121 |
GMREDI_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
212 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'GMREDI_READ_PICKUP: ', |
./pkg/gmredi/gmredi_read_pickup.F |
214 |
GMREDI_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
221 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'GMREDI_READ_PICKUP: ', |
./pkg/gmredi/gmredi_read_pickup.F |
223 |
GMREDI_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
51 |
GMREDI_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/gmredi/gmredi_read_pickup.F |
77 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'GMREDI_READ_PICKUP: ', |
./pkg/gmredi/gmredi_read_pickup.F |
79 |
GMREDI_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
80 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'GMREDI_READ_PICKUP: ', |
./pkg/gmredi/gmredi_read_pickup.F |
82 |
GMREDI_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
92 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'GMREDI_READ_PICKUP: ', |
./pkg/gmredi/gmredi_read_pickup.F |
95 |
GMREDI_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/gmredi/gmredi_read_pickup.F |
96 |
GMREDI_READ_PICKUP |
WRITE(msgBuf,'(4A)') '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 |
168 |
GMREDI_READPARMS |
WRITE(msgBuf,'(A)') ' GM_READPARMS: opening data.gmredi' |
./pkg/gmredi/gmredi_readparms.F |
169 |
GMREDI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/gmredi/gmredi_readparms.F |
178 |
GMREDI_READPARMS |
WRITE(msgBuf,'(A)') ' GM_READPARMS: finished reading data.gmredi' |
./pkg/gmredi/gmredi_readparms.F |
179 |
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 |
147 |
GRDCHK_READPARMS |
WRITE(msgBuf,'(A)') 'i/j GloPos must be <= sNx/y' |
./pkg/grdchk/grdchk_readparms.F |
148 |
GRDCHK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/grdchk/grdchk_readparms.F |
152 |
GRDCHK_READPARMS |
WRITE(msgBuf,'(A)') 'i/j GloTile must be <= nSx*nPx/y' |
./pkg/grdchk/grdchk_readparms.F |
153 |
GRDCHK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/grdchk/grdchk_readparms.F |
157 |
GRDCHK_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R GRDCHK_READPARMS: ', |
./pkg/grdchk/grdchk_readparms.F |
159 |
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_init_fixed.F |
43 |
ICEFRONT_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/icefront/icefront_init_fixed.F |
59 |
ICEFRONT_INIT_FIXED |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/icefront/icefront_init_fixed.F |
61 |
ICEFRONT_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/icefront/icefront_readparms.F |
115 |
ICEFRONT_READPARMS |
WRITE(msgBuf,'(A)') ' ICEFRONT_READPARMS: opening data.icefront' |
./pkg/icefront/icefront_readparms.F |
116 |
ICEFRONT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/icefront/icefront_readparms.F |
123 |
ICEFRONT_READPARMS |
WRITE(msgBuf,'(A)') ' ICEFRONT_READPARMS: reading ICEFRONT_PARM01' |
./pkg/icefront/icefront_readparms.F |
124 |
ICEFRONT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/icefront/icefront_readparms.F |
130 |
ICEFRONT_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/icefront/icefront_readparms.F |
132 |
ICEFRONT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/icefront/icefront_readparms.F |
138 |
ICEFRONT_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/icefront/icefront_readparms.F |
140 |
ICEFRONT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/icefront/icefront_readparms.F |
38 |
ICEFRONT_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./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 |
94 |
KL10_READPARMS |
WRITE(msgBuf,'(A)') 'KLviscMax must be greater than zero' |
./pkg/kl10/kl10_readparms.F |
95 |
KL10_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./model/src/calc_3d_diffusivity.F |
159 |
CALC_3D_DIFFUSIVITY |
WRITE(msgBuf,'(A,I4)') |
./model/src/calc_3d_diffusivity.F |
161 |
CALC_3D_DIFFUSIVITY |
CALL PRINT_ERROR(msgBuf, myThid) |
./model/src/calc_3d_diffusivity.F |
190 |
CALC_3D_DIFFUSIVITY |
WRITE(msgBuf,'(A,I4)') |
./model/src/calc_3d_diffusivity.F |
192 |
CALC_3D_DIFFUSIVITY |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/calc_3d_diffusivity.F |
72 |
CALC_3D_DIFFUSIVITY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/kpp/kpp_check.F |
132 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'Some form of convection has been enabled' |
./pkg/kpp/kpp_check.F |
133 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/kpp/kpp_check.F |
139 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP needs implicitDiffusion to be enabled' |
./pkg/kpp/kpp_check.F |
140 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/kpp/kpp_check.F |
144 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP needs implicitViscosity to be enabled' |
./pkg/kpp/kpp_check.F |
145 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/kpp/kpp_check.F |
151 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP needs CPP flag SHORTWAVE_HEATING enabled' |
./pkg/kpp/kpp_check.F |
152 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/kpp/kpp_check.F |
172 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP horizontal smoothing requires OLx=OLy=4' |
./pkg/kpp/kpp_check.F |
173 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/kpp/kpp_check.F |
181 |
KPP_CHECK |
WRITE(msgBuf,'(A,A)') 'KPPuseDoubleDiff=.TRUE. requires ', |
./pkg/kpp/kpp_check.F |
183 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/kpp/kpp_check.F |
188 |
KPP_CHECK |
WRITE(msgBuf,'(A)') ' ' |
./pkg/kpp/kpp_check.F |
189 |
KPP_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./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_readparms.F |
160 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') ' KPP_READPARMS ; starts to read KPP_PARM01' |
./pkg/kpp/kpp_readparms.F |
161 |
KPP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/kpp/kpp_readparms.F |
170 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/kpp/kpp_readparms.F |
172 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/kpp/kpp_readparms.F |
173 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/kpp/kpp_readparms.F |
175 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/kpp/kpp_readparms.F |
178 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') ' KPP_READPARMS ; read KPP_PARM01 : OK' |
./pkg/kpp/kpp_readparms.F |
179 |
KPP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/kpp/kpp_readparms.F |
189 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') ' KPP_READPARMS: finished reading data.kpp' |
./pkg/kpp/kpp_readparms.F |
190 |
KPP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/kpp/kpp_readparms.F |
196 |
KPP_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R KPP_READPARMS: "KPPmixingMaps"', |
./pkg/kpp/kpp_readparms.F |
198 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/kpp/kpp_readparms.F |
202 |
KPP_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R KPP_READPARMS: "num_v_smooth_BV"', |
./pkg/kpp/kpp_readparms.F |
204 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/kpp/kpp_readparms.F |
208 |
KPP_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R KPP_READPARMS: "num_z_smooth_sh"', |
./pkg/kpp/kpp_readparms.F |
210 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/kpp/kpp_readparms.F |
214 |
KPP_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R KPP_READPARMS: "num_m_smooth_sh"', |
./pkg/kpp/kpp_readparms.F |
216 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/kpp/kpp_readparms.F |
220 |
KPP_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R KPP_READPARMS: ', |
./pkg/kpp/kpp_readparms.F |
222 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/kpp/kpp_readparms.F |
223 |
KPP_READPARMS |
WRITE(msgBuf,'(I4,A)') nRetired, |
./pkg/kpp/kpp_readparms.F |
225 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/kpp/kpp_readparms.F |
31 |
KPP_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/kpp/kpp_readparms.F |
72 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') ' KPP_READPARMS: opening data.kpp' |
./pkg/kpp/kpp_readparms.F |
73 |
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 |
270 |
LAND_OUTPUT |
WRITE(msgBuf,'(A,I10)') |
./pkg/land/land_output.F |
272 |
LAND_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/land/land_output.F |
274 |
LAND_OUTPUT |
WRITE(msgBuf,'(A)') ' ' |
./pkg/land/land_output.F |
275 |
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 |
./pkg/layers/layers_check.F |
102 |
LAYERS_CHECK |
WRITE(msgBuf,'(2A,I3,A,I9)') 'LAYERS_CHECK: ', |
./pkg/layers/layers_check.F |
104 |
LAYERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_check.F |
112 |
LAYERS_CHECK |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/layers/layers_check.F |
114 |
LAYERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_check.F |
118 |
LAYERS_CHECK |
WRITE(msgBuf,'(A)') 'LAYERS_CHECK: done' |
./pkg/layers/layers_check.F |
119 |
LAYERS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/layers/layers_check.F |
25 |
LAYERS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/layers/layers_check.F |
34 |
LAYERS_CHECK |
WRITE(msgBuf,'(A)') 'LAYERS_CHECK: #define LAYERS' |
./pkg/layers/layers_check.F |
35 |
LAYERS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/layers/layers_check.F |
79 |
LAYERS_CHECK |
WRITE(msgBuf,'(A,I2,A,I4)') 'LAYERS_CHECK(iLa=', iLa, |
./pkg/layers/layers_check.F |
81 |
LAYERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_check.F |
92 |
LAYERS_CHECK |
WRITE(msgBuf,'(A,I2,A)') 'LAYERS_CHECK(iLa=', iLa, |
./pkg/layers/layers_check.F |
94 |
LAYERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_check.F |
95 |
LAYERS_CHECK |
WRITE(msgBuf,'(A,I2,A)') 'LAYERS_CHECK(iLa=', iLa, |
./pkg/layers/layers_check.F |
97 |
LAYERS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_fluxcalc.F |
118 |
LAYERS_FLUXCALC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/layers/layers_fluxcalc.F |
200 |
LAYERS_FLUXCALC |
WRITE(msgBuf,'(2A,I3,A,I3,A,1E14.6)') |
./pkg/layers/layers_fluxcalc.F |
203 |
LAYERS_FLUXCALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_fluxcalc.F |
280 |
LAYERS_FLUXCALC |
WRITE(msgBuf,'(2A,I3,A,I3,A,1E14.6)') |
./pkg/layers/layers_fluxcalc.F |
283 |
LAYERS_FLUXCALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_fluxcalc.F |
460 |
LAYERS_DIAPYCNAL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/layers/layers_fluxcalc.F |
573 |
LAYERS_DIAPYCNAL |
WRITE(msgBuf,'(2A,I3,A,I3,A,1E14.6)') |
./pkg/layers/layers_fluxcalc.F |
576 |
LAYERS_DIAPYCNAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_fluxcalc.F |
597 |
LAYERS_DIAPYCNAL |
WRITE(msgBuf,'(2A,I3,A,I3,A,1E14.6)') |
./pkg/layers/layers_fluxcalc.F |
600 |
LAYERS_DIAPYCNAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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 |
105 |
LAYERS_READPARMS |
WRITE(msgBuf,'(2A,I2,A,I9)') 'LAYERS_READPARMS: ', |
./pkg/layers/layers_readparms.F |
107 |
LAYERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_readparms.F |
134 |
LAYERS_READPARMS |
WRITE(msgBuf,'(2A)') 'LAYERS_READPARMS: ', |
./pkg/layers/layers_readparms.F |
136 |
LAYERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_readparms.F |
137 |
LAYERS_READPARMS |
WRITE(msgBuf,'(2A)') 'LAYERS_READPARMS: ', |
./pkg/layers/layers_readparms.F |
139 |
LAYERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_readparms.F |
140 |
LAYERS_READPARMS |
WRITE(msgBuf,'(2A,I4,A)') 'LAYERS_READPARMS: ', |
./pkg/layers/layers_readparms.F |
142 |
LAYERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_readparms.F |
155 |
LAYERS_READPARMS |
WRITE(msgBuf,'(2A,I2,3A)') 'LAYERS_READPARMS: ', |
./pkg/layers/layers_readparms.F |
157 |
LAYERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_readparms.F |
169 |
LAYERS_READPARMS |
WRITE(msgBuf,'(2A,I4,A,I3,A)') 'LAYERS_READPARMS: ', |
./pkg/layers/layers_readparms.F |
171 |
LAYERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/layers/layers_readparms.F |
187 |
LAYERS_READPARMS |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/layers/layers_readparms.F |
189 |
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 |
82 |
LAYERS_READPARMS |
WRITE(msgBuf,'(A)') 'LAYERS_READPARMS: opening data.layers' |
./pkg/layers/layers_readparms.F |
83 |
LAYERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/layers/layers_readparms.F |
92 |
LAYERS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/layers/layers_readparms.F |
94 |
LAYERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/layers/layers_save.F |
65 |
LAYERS_FILL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/layers/layers_save.F |
94 |
LAYERS_FILL |
WRITE(msgBuf,'(2A)') |
./pkg/layers/layers_save.F |
97 |
LAYERS_FILL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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/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 |
105 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') ' -----------------------------------' |
./pkg/longstep/longstep_readparms.F |
106 |
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 |
93 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/longstep/longstep_readparms.F |
94 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/longstep/longstep_readparms.F |
95 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') '// longstep parameters ' |
./pkg/longstep/longstep_readparms.F |
96 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
./pkg/longstep/longstep_readparms.F |
97 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/longstep/longstep_readparms.F |
98 |
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 |
./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 |
140 |
MNC_READPARMS |
WRITE(msgBuf,'(a)') ' MNC_READPARMS: finished reading data.mnc' |
./pkg/mnc/mnc_readparms.F |
141 |
MNC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
./pkg/mnc/mnc_readparms.F |
185 |
MNC_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** MNC_READPARMS: ', |
./pkg/mnc/mnc_readparms.F |
187 |
MNC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/mnc/mnc_readparms.F |
191 |
MNC_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** MNC_READPARMS: ', |
./pkg/mnc/mnc_readparms.F |
193 |
MNC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/mnc/mnc_readparms.F |
197 |
MNC_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** MNC_READPARMS: ', |
./pkg/mnc/mnc_readparms.F |
199 |
MNC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./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) |
./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, |
./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 |
./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, |
./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, |
./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/mom_vecinv/mom_vi_u_coriolis.F |
181 |
MOM_VI_U_CORIOLIS |
WRITE(msgBuf,'(A,I5,A)') |
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
184 |
MOM_VI_U_CORIOLIS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
47 |
MOM_VI_U_CORIOLIS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
209 |
MOM_VI_U_CORIOLIS_C4 |
WRITE(msgBuf,'(A,I5,A)') |
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
212 |
MOM_VI_U_CORIOLIS_C4 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
50 |
MOM_VI_U_CORIOLIS_C4 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
181 |
MOM_VI_V_CORIOLIS |
WRITE(msgBuf,'(A,I5,A)') |
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
184 |
MOM_VI_V_CORIOLIS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
47 |
MOM_VI_V_CORIOLIS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
209 |
MOM_VI_V_CORIOLIS_C4 |
WRITE(msgBuf,'(A,I5,A)') |
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
212 |
MOM_VI_V_CORIOLIS_C4 |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
50 |
MOM_VI_V_CORIOLIS_C4 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./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/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/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 |
147 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** CHECK_PICKUP: ', |
./model/src/check_pickup.F |
149 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/check_pickup.F |
159 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'CHECK_PICKUP: ', |
./model/src/check_pickup.F |
161 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/check_pickup.F |
169 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'CHECK_PICKUP: ', |
./model/src/check_pickup.F |
171 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/check_pickup.F |
201 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'CHECK_PICKUP: ', |
./model/src/check_pickup.F |
203 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/check_pickup.F |
210 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'CHECK_PICKUP: ', |
./model/src/check_pickup.F |
213 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/check_pickup.F |
216 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** CHECK_PICKUP: ', |
./model/src/check_pickup.F |
218 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/check_pickup.F |
223 |
CHECK_PICKUP |
WRITE(msgBuf,'(2(A,I10))') |
./model/src/check_pickup.F |
226 |
CHECK_PICKUP |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/check_pickup.F |
227 |
CHECK_PICKUP |
WRITE(msgBuf,'(2(A,I10))') |
./model/src/check_pickup.F |
230 |
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: ', |
./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) |
./model/src/config_check.F |
1001 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
1010 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') '// CONFIG_CHECK : Normal End' |
./model/src/config_check.F |
1011 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/config_check.F |
1013 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
1015 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/config_check.F |
1017 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') ' ' |
./model/src/config_check.F |
1018 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/config_check.F |
102 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
104 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
105 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
107 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
114 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
116 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
117 |
CONFIG_CHECK |
IF ( implicitIntGravWave ) WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
119 |
CONFIG_CHECK |
IF ( nonHydrostatic ) WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
121 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
128 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
130 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
131 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,1P2E20.7)') |
./model/src/config_check.F |
133 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
140 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
142 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
143 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
145 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
149 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
151 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
152 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
154 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
158 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
160 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
161 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
163 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
169 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
171 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
172 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
174 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
178 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
180 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
181 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
183 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
190 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
192 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
193 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
195 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
202 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
204 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
205 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
207 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
211 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
213 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
214 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
216 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
223 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
225 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
232 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
234 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
235 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
237 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
244 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
246 |
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 |
256 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
258 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
259 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
261 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
268 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
270 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
271 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
273 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
280 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
282 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
283 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
285 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
291 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
293 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
294 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
296 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
302 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
304 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
305 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I4,A)') 'CONFIG_CHECK: selectAddFluid=', |
./model/src/config_check.F |
307 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
316 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
318 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
319 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
321 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
322 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
324 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
328 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
330 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
331 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
333 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
334 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
336 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
344 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
346 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
347 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)')' is missing.', |
./model/src/config_check.F |
349 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
354 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
356 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
357 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)')' is not compiled.', |
./model/src/config_check.F |
359 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
367 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
369 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
370 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)')' is missing.', |
./model/src/config_check.F |
372 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
379 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: addFrictionHeating=T', |
./model/src/config_check.F |
381 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
382 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: Re-compile with:', |
./model/src/config_check.F |
384 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
391 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
./model/src/config_check.F |
394 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
395 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
397 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
404 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
./model/src/config_check.F |
407 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
408 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
40 |
CONFIG_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./model/src/config_check.F |
410 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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 |
421 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
423 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
436 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
./model/src/config_check.F |
439 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
445 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
./model/src/config_check.F |
448 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
453 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
./model/src/config_check.F |
456 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
45 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
464 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
466 |
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 |
478 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
47 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/config_check.F |
480 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
484 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
486 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
494 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') 'CONFIG_CHECK: Variable gravity', |
./model/src/config_check.F |
496 |
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,A)') 'CONFIG_CHECK: Variable gravity', |
./model/src/config_check.F |
502 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
509 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
./model/src/config_check.F |
50 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/config_check.F |
512 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
518 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
./model/src/config_check.F |
521 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
527 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I10,A)') |
./model/src/config_check.F |
530 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
535 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
./model/src/config_check.F |
538 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
543 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
545 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
546 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
548 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
553 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
555 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
556 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
558 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
563 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
565 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
566 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
568 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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 |
583 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
585 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
586 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
588 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
593 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A,I3,A)') 'CONFIG_CHECK: r* Coordinate', |
./model/src/config_check.F |
595 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
596 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A,I3,A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
598 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
605 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A,I3)') '** WARNING ** CONFIG_CHECK: ', |
./model/src/config_check.F |
607 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
613 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
615 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
619 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
621 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
625 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
627 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
630 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
632 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
643 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
./model/src/config_check.F |
645 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
647 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** ', |
./model/src/config_check.F |
649 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
656 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
658 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
659 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
65 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
661 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
667 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
./model/src/config_check.F |
669 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
671 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** works better', |
./model/src/config_check.F |
673 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
67 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
680 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
682 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
683 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
685 |
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 |
691 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
./model/src/config_check.F |
693 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
695 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
./model/src/config_check.F |
697 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
703 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: selectAddFluid=', |
./model/src/config_check.F |
705 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
706 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
708 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
70 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
712 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
714 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
715 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
717 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
721 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
./model/src/config_check.F |
723 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
725 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** ', |
./model/src/config_check.F |
727 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
734 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
736 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
741 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
743 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
749 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
751 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
752 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
754 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
760 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: implicitIntGravWave', |
./model/src/config_check.F |
762 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
763 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: To by-pass this', |
./model/src/config_check.F |
765 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
770 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
772 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
773 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
775 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
780 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: Needs exactConserv=T', |
./model/src/config_check.F |
782 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
787 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
./model/src/config_check.F |
789 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
791 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
./model/src/config_check.F |
793 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
798 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: selectImplicitDrag=2', |
./model/src/config_check.F |
79 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
800 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
805 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
./model/src/config_check.F |
807 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
809 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** => not consistent with', |
./model/src/config_check.F |
811 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
815 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
./model/src/config_check.F |
817 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
819 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
./model/src/config_check.F |
81 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
821 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
828 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
830 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
836 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
./model/src/config_check.F |
838 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
842 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: momAdvection ', |
./model/src/config_check.F |
844 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
849 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A,I4)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
84 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
851 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
855 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A,I8,A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
858 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
865 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
867 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
86 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
879 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
./model/src/config_check.F |
881 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
883 |
CONFIG_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** to turn ON CD-scheme:', |
./model/src/config_check.F |
885 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/config_check.F |
888 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/config_check.F |
890 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
891 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
./model/src/config_check.F |
894 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
89 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A,I6)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
900 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
./model/src/config_check.F |
902 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
906 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)')'CONFIG_CHECK: ', |
./model/src/config_check.F |
908 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
912 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)')'CONFIG_CHECK: ', |
./model/src/config_check.F |
914 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
91 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
920 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: staggerTimeStep', |
./model/src/config_check.F |
922 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
926 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: momForcingOutAB=', |
./model/src/config_check.F |
928 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
929 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: momForcingOutAB ', |
./model/src/config_check.F |
931 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
935 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: tracForcingOutAB=', |
./model/src/config_check.F |
937 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
938 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: tracForcingOutAB ', |
./model/src/config_check.F |
93 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: when compiled ', |
./model/src/config_check.F |
940 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
944 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A,I4)') 'CONFIG_CHECK: ', |
./model/src/config_check.F |
946 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
950 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: selectImplicitDrag=1', |
./model/src/config_check.F |
952 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
959 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
./model/src/config_check.F |
95 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
962 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
966 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
./model/src/config_check.F |
969 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
976 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
./model/src/config_check.F |
978 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
983 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
./model/src/config_check.F |
986 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
991 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
./model/src/config_check.F |
994 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/config_check.F |
999 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/monitor/monitor.F |
186 |
MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
./pkg/monitor/monitor.F |
188 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
./pkg/monitor/monitor.F |
189 |
MONITOR |
WRITE(msgBuf,'(A)') |
./pkg/monitor/monitor.F |
191 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
./pkg/monitor/monitor.F |
192 |
MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
./pkg/monitor/monitor.F |
194 |
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)') |
./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)') '// ==========================', |
./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 |
259 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
./model/src/config_summary.F |
261 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
263 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(I3,13F8.3)') |
./model/src/config_summary.F |
265 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
267 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') ' ;' |
./model/src/config_summary.F |
268 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
271 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') 'selectP_inEOS_Zc =', |
./model/src/config_summary.F |
273 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
277 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' 0= -g*rhoConst*z ; ', |
./model/src/config_summary.F |
279 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
364 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') 'nonlinFreeSurf =', |
./model/src/config_summary.F |
366 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
370 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' -1,0= Off ; 1,2,3= On,', |
./model/src/config_summary.F |
372 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
436 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') |
./model/src/config_summary.F |
438 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
442 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' 0= Expl. ; 1= Impl. on provis. Vel ;', |
./model/src/config_summary.F |
444 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
452 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') |
./model/src/config_summary.F |
454 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
458 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' 0= f-Plane ; 1= Beta-Plane ;', |
./model/src/config_summary.F |
460 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
478 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') 'selectVortScheme=', |
./model/src/config_summary.F |
480 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
484 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 0 : enstrophy (Shallow-Water Eq.)', |
./model/src/config_summary.F |
486 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
487 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 1 : same as 0 with modified hFac' |
./model/src/config_summary.F |
488 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
489 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 2 : energy conserving scheme', |
./model/src/config_summary.F |
491 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
492 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 3 : energy (general)', |
./model/src/config_summary.F |
494 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
495 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' from Sadourny', |
./model/src/config_summary.F |
497 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
590 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' rwSuffixType = ', |
./model/src/config_summary.F |
592 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
596 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 0 : myIter (I10.10) ;', |
./model/src/config_summary.F |
598 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
599 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 2 : myTime (seconds);', |
./model/src/config_summary.F |
601 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
602 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 4 : myTime/3600 (hours)' |
./model/src/config_summary.F |
603 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
612 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') '/* debLev[*] :', |
./model/src/config_summary.F |
614 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
615 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') 'debLevZero =', debLevZero, |
./model/src/config_summary.F |
617 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
618 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') ' debLevA =', debLevA, |
./model/src/config_summary.F |
620 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
621 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') ' debLevB =', debLevB, |
./model/src/config_summary.F |
623 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
624 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') ' debLevC =', debLevC, |
./model/src/config_summary.F |
626 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
627 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') ' debLevD =', debLevD, |
./model/src/config_summary.F |
629 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
630 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') ' debLevE =', debLevE, |
./model/src/config_summary.F |
632 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
638 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
./model/src/config_summary.F |
639 |
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 |
640 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
./model/src/config_summary.F |
642 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
643 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
./model/src/config_summary.F |
644 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
665 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
./model/src/config_summary.F |
666 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
667 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
./model/src/config_summary.F |
669 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
670 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
./model/src/config_summary.F |
671 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
781 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
./model/src/config_summary.F |
782 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
783 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
./model/src/config_summary.F |
785 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
786 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
./model/src/config_summary.F |
787 |
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 |
976 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
./model/src/config_summary.F |
978 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
979 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// End of Model config. summary' |
./model/src/config_summary.F |
980 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
981 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
./model/src/config_summary.F |
983 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/config_summary.F |
984 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
./model/src/config_summary.F |
985 |
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/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) |
./pkg/my82/my82_readparms.F |
102 |
MY82_READPARMS |
WRITE(msgBuf,'(A)') 'MYviscMax must be greater than zero' |
./pkg/my82/my82_readparms.F |
103 |
MY82_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/my82/my82_readparms.F |
107 |
MY82_READPARMS |
WRITE(msgBuf,'(A)') 'MYdiffMax must be greater than zero' |
./pkg/my82/my82_readparms.F |
108 |
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/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) |
./pkg/mypackage/mypackage_read_pickup.F |
102 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> MYPACKAGE_READ_PICKUP: ', |
./pkg/mypackage/mypackage_read_pickup.F |
104 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
107 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/mypackage/mypackage_read_pickup.F |
109 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
118 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'MYPACKAGE_READ_PICKUP: ', |
./pkg/mypackage/mypackage_read_pickup.F |
120 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
165 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'MYPACKAGE_READ_PICKUP: ', |
./pkg/mypackage/mypackage_read_pickup.F |
167 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
174 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'MYPACKAGE_READ_PICKUP: ', |
./pkg/mypackage/mypackage_read_pickup.F |
176 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
52 |
MYPACKAGE_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/mypackage/mypackage_read_pickup.F |
76 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'MYPACKAGE_READ_PICKUP: ', |
./pkg/mypackage/mypackage_read_pickup.F |
78 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
79 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'MYPACKAGE_READ_PICKUP: ', |
./pkg/mypackage/mypackage_read_pickup.F |
81 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
91 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'MYPACKAGE_READ_PICKUP: ', |
./pkg/mypackage/mypackage_read_pickup.F |
94 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/mypackage/mypackage_read_pickup.F |
95 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') '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 |
./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 |
./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 |
120 |
OBCS_CHECK |
WRITE(msgBuf,'(A,2(I4,A))') |
./pkg/obcs/obcs_check.F |
122 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
123 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') ' OB_Jn = /* Northern OB local indices */' |
./pkg/obcs/obcs_check.F |
124 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
127 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') ' OB_Js = /* Southern OB local indices */' |
./pkg/obcs/obcs_check.F |
128 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
131 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') ' OB_Ie = /* Eastern OB local indices */' |
./pkg/obcs/obcs_check.F |
132 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
135 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') ' OB_Iw = /* Western OB local indices */' |
./pkg/obcs/obcs_check.F |
136 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
143 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: end summary.' |
./pkg/obcs/obcs_check.F |
144 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, 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 |
191 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
193 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
194 |
OBCS_CHECK |
WRITE(msgBuf,'(A,2I4,A)') |
./pkg/obcs/obcs_check.F |
196 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
205 |
OBCS_CHECK |
WRITE(msgBuf,'(A,I6,A)') |
./pkg/obcs/obcs_check.F |
207 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
219 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
221 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
227 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_ORLANSKI' |
./pkg/obcs/obcs_check.F |
228 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
232 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
234 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
235 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
237 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
245 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
247 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
251 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
253 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
257 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
259 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
265 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_OBCS_STEVENS' |
./pkg/obcs/obcs_check.F |
266 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
272 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
274 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
275 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
277 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
283 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
285 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
288 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
290 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/obcs/obcs_check.F |
292 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
294 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/obcs/obcs_check.F |
298 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
300 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/obcs/obcs_check.F |
302 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
304 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/obcs/obcs_check.F |
323 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
325 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
326 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
328 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
335 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
337 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
338 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
340 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
347 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
349 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
350 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
352 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
359 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
361 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
362 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
364 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
371 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
373 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
374 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
376 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
383 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
385 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
386 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
388 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
397 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/obcs/obcs_check.F |
399 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
406 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/obcs/obcs_check.F |
408 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
413 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
415 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
416 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_check.F |
418 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
428 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
430 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
431 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
433 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
440 |
OBCS_CHECK |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/obcs/obcs_check.F |
442 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
447 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: set-up OK' |
./pkg/obcs/obcs_check.F |
448 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
456 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'S/R OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
466 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
467 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
./pkg/obcs/obcs_check.F |
470 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
478 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
479 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
./pkg/obcs/obcs_check.F |
482 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
490 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
491 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
./pkg/obcs/obcs_check.F |
494 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
49 |
OBCS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/obcs/obcs_check.F |
502 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
503 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
./pkg/obcs/obcs_check.F |
506 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
517 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
518 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
./pkg/obcs/obcs_check.F |
521 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
529 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
530 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
./pkg/obcs/obcs_check.F |
533 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
541 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
542 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
./pkg/obcs/obcs_check.F |
545 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
553 |
OBCS_CHECK |
IF ( errCount.EQ.0 ) CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
554 |
OBCS_CHECK |
WRITE(msgBuf,'(2(A,I3),2(A,I5))') |
./pkg/obcs/obcs_check.F |
557 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
567 |
OBCS_CHECK |
WRITE(msgBuf,'(A,I6,A)') |
./pkg/obcs/obcs_check.F |
569 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_check.F |
574 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') 'OBCS_CHECK: ', |
./pkg/obcs/obcs_check.F |
576 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
63 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_OBCS' |
./pkg/obcs/obcs_check.F |
64 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/obcs/obcs_check.F |
66 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: start summary:' |
./pkg/obcs/obcs_check.F |
67 |
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 |
187 |
OBCS_DIAG_BALANCE |
WRITE(msgBuf,'(A,I9,2I4,A,1P2E16.8)') |
./pkg/obcs/obcs_diag_balance.F |
190 |
OBCS_DIAG_BALANCE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_diag_balance.F |
64 |
OBCS_DIAG_BALANCE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/obcs/obcs_exf_load.F |
276 |
OBCS_EXF_READ_XZ |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/obcs/obcs_exf_load.F |
297 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(A,1PE16.8,3A)') |
./pkg/obcs/obcs_exf_load.F |
300 |
OBCS_EXF_READ_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_exf_load.F |
314 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(4A)') ' OBCS_EXF_READ_XZ: ', |
./pkg/obcs/obcs_exf_load.F |
316 |
OBCS_EXF_READ_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_exf_load.F |
318 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(2A,I10,2I7)') ' OBCS_EXF_READ_XZ: ', |
./pkg/obcs/obcs_exf_load.F |
320 |
OBCS_EXF_READ_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_exf_load.F |
322 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(2A,2(L2,2X),E16.9)') ' OBCS_EXF_READ_XZ: ', |
./pkg/obcs/obcs_exf_load.F |
324 |
OBCS_EXF_READ_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_exf_load.F |
377 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(A,1PE16.8,3A)') |
./pkg/obcs/obcs_exf_load.F |
380 |
OBCS_EXF_READ_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_exf_load.F |
394 |
OBCS_EXF_READ_XZ |
WRITE(msgBuf,'(4A)') ' 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 |
551 |
OBCS_EXF_READ_YZ |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/obcs/obcs_exf_load.F |
572 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(A,1PE16.8,3A)') |
./pkg/obcs/obcs_exf_load.F |
575 |
OBCS_EXF_READ_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_exf_load.F |
589 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(4A)') ' OBCS_EXF_READ_XZ: ', |
./pkg/obcs/obcs_exf_load.F |
591 |
OBCS_EXF_READ_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_exf_load.F |
593 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(2A,I10,2I7)') ' OBCS_EXF_READ_YZ: ', |
./pkg/obcs/obcs_exf_load.F |
595 |
OBCS_EXF_READ_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_exf_load.F |
597 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(2A,2(L2,2X),E16.9)') ' OBCS_EXF_READ_YZ: ', |
./pkg/obcs/obcs_exf_load.F |
599 |
OBCS_EXF_READ_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_exf_load.F |
652 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(A,1PE16.8,3A)') |
./pkg/obcs/obcs_exf_load.F |
655 |
OBCS_EXF_READ_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_exf_load.F |
669 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(4A)') ' OBCS_EXF_READ_XZ: ', |
./pkg/obcs/obcs_exf_load.F |
671 |
OBCS_EXF_READ_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_exf_load.F |
673 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(2A,I10,2I7)') ' OBCS_EXF_READ_YZ: ', |
./pkg/obcs/obcs_exf_load.F |
675 |
OBCS_EXF_READ_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_exf_load.F |
677 |
OBCS_EXF_READ_YZ |
WRITE(msgBuf,'(2A,2(L2,2X),E16.9)') ' OBCS_EXF_READ_YZ: ', |
./pkg/obcs/obcs_exf_load.F |
679 |
OBCS_EXF_READ_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_fields_load.F |
355 |
OBCS_FIELDS_LOAD |
WRITE(msgBuf,'(1X,A,I10,1P1E20.12)') |
./pkg/obcs/obcs_fields_load.F |
358 |
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 |
361 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' OBCS_READPARMS: opening data.obcs' |
./pkg/obcs/obcs_readparms.F |
362 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_readparms.F |
375 |
OBCS_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/obcs/obcs_readparms.F |
378 |
OBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_readparms.F |
379 |
OBCS_READPARMS |
WRITE(msgBuf,'(A,A)') 'OBCS_READPARMS: ', |
./pkg/obcs/obcs_readparms.F |
381 |
OBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_readparms.F |
437 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' OBCS_READPARMS: finished reading data.obcs' |
./pkg/obcs/obcs_readparms.F |
438 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_readparms.F |
450 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_readparms.F |
452 |
OBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_readparms.F |
453 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/obcs/obcs_readparms.F |
455 |
OBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_readparms.F |
471 |
OBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'OBCS_READPARMS: ', |
./pkg/obcs/obcs_readparms.F |
473 |
OBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_readparms.F |
487 |
OBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'OBCS_READPARMS: ', |
./pkg/obcs/obcs_readparms.F |
489 |
OBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_readparms.F |
503 |
OBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'OBCS_READPARMS: ', |
./pkg/obcs/obcs_readparms.F |
505 |
OBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_readparms.F |
519 |
OBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'OBCS_READPARMS: ', |
./pkg/obcs/obcs_readparms.F |
521 |
OBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_readparms.F |
542 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' Northern OB global indices : OB_Jnorth =' |
./pkg/obcs/obcs_readparms.F |
543 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_readparms.F |
547 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' Southern OB global indices : OB_Jsouth =' |
./pkg/obcs/obcs_readparms.F |
548 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_readparms.F |
552 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' Eastern OB global indices : OB_Ieast =' |
./pkg/obcs/obcs_readparms.F |
553 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_readparms.F |
557 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' Western OB global indices : OB_Iwest =' |
./pkg/obcs/obcs_readparms.F |
558 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_readparms.F |
55 |
OBCS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/obcs/obcs_readparms.F |
562 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
./pkg/obcs/obcs_readparms.F |
563 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_set_connect.F |
212 |
OBCS_SET_CONNECT |
WRITE(msgBuf,'(A,3(A,I4),2(A,I10))') 'OBCS_SET_CONNECT: ', |
./pkg/obcs/obcs_set_connect.F |
215 |
OBCS_SET_CONNECT |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_set_connect.F |
220 |
OBCS_SET_CONNECT |
WRITE(msgBuf,'(A,2I4,A,I8)') 'OBCS_SET_CONNECT: bi,bj=', |
./pkg/obcs/obcs_set_connect.F |
223 |
OBCS_SET_CONNECT |
WRITE(msgBuf,'(A,2I4,2(A,I8))') 'OBCS_SET_CONNECT: bi,bj=', |
./pkg/obcs/obcs_set_connect.F |
227 |
OBCS_SET_CONNECT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_set_connect.F |
231 |
OBCS_SET_CONNECT |
WRITE(msgBuf,'(A,15I8)') |
./pkg/obcs/obcs_set_connect.F |
233 |
OBCS_SET_CONNECT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_set_connect.F |
267 |
OBCS_SET_CONNECT |
WRITE(msgBuf,'(A,I4,2(A,I10))') 'OBCS_SET_CONNECT: @ k=', k, |
./pkg/obcs/obcs_set_connect.F |
270 |
OBCS_SET_CONNECT |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/obcs/obcs_set_connect.F |
275 |
OBCS_SET_CONNECT |
WRITE(msgBuf,'(A,I4,2(A,I10))') 'OBCS_SET_CONNECT: @ k=', k, |
./pkg/obcs/obcs_set_connect.F |
277 |
OBCS_SET_CONNECT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_set_connect.F |
281 |
OBCS_SET_CONNECT |
WRITE(msgBuf,'(A,15I8)') |
./pkg/obcs/obcs_set_connect.F |
283 |
OBCS_SET_CONNECT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/obcs/obcs_set_connect.F |
40 |
OBCS_SET_CONNECT |
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_export_import_data.F |
46 |
CPL_EXPORT_IMPORT_DATA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/ocn_compon_interf/cpl_export_import_data.F |
57 |
CPL_EXPORT_IMPORT_DATA |
WRITE(msgBuf,'(A,I10)') |
./pkg/ocn_compon_interf/cpl_export_import_data.F |
59 |
CPL_EXPORT_IMPORT_DATA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ocn_compon_interf/cpl_export_import_data.F |
77 |
CPL_EXPORT_IMPORT_DATA |
WRITE(msgBuf,'(A,I10)') |
./pkg/ocn_compon_interf/cpl_export_import_data.F |
79 |
CPL_EXPORT_IMPORT_DATA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ocn_compon_interf/cpl_import_cplparms.F |
42 |
CPL_IMPORT_CPLPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/ocn_compon_interf/cpl_import_cplparms.F |
84 |
CPL_IMPORT_CPLPARMS |
WRITE(msgBuf,'(2A,I4,A)') 'CPL_IMPORT_CPLPARMS: ', |
./pkg/ocn_compon_interf/cpl_import_cplparms.F |
86 |
CPL_IMPORT_CPLPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_import_cplparms.F |
87 |
CPL_IMPORT_CPLPARMS |
WRITE(msgBuf,'(2A,I4,A)') 'CPL_IMPORT_CPLPARMS: ', |
./pkg/ocn_compon_interf/cpl_import_cplparms.F |
89 |
CPL_IMPORT_CPLPARMS |
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 |
134 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/ocn_compon_interf/cpl_readparms.F |
136 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
137 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/ocn_compon_interf/cpl_readparms.F |
139 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
147 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs', |
./pkg/ocn_compon_interf/cpl_readparms.F |
149 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
150 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/ocn_compon_interf/cpl_readparms.F |
152 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
158 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs', |
./pkg/ocn_compon_interf/cpl_readparms.F |
160 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
161 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/ocn_compon_interf/cpl_readparms.F |
163 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
169 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs', |
./pkg/ocn_compon_interf/cpl_readparms.F |
171 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
172 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/ocn_compon_interf/cpl_readparms.F |
174 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
180 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs', |
./pkg/ocn_compon_interf/cpl_readparms.F |
182 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
183 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/ocn_compon_interf/cpl_readparms.F |
185 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
193 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ocn_compon_interf/cpl_readparms.F |
195 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
196 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ocn_compon_interf/cpl_readparms.F |
198 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
206 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS:', |
./pkg/ocn_compon_interf/cpl_readparms.F |
208 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
210 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS:', |
./pkg/ocn_compon_interf/cpl_readparms.F |
212 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
215 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS:', |
./pkg/ocn_compon_interf/cpl_readparms.F |
217 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
225 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImportRunOff', |
./pkg/ocn_compon_interf/cpl_readparms.F |
227 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
228 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/ocn_compon_interf/cpl_readparms.F |
230 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
236 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImport', |
./pkg/ocn_compon_interf/cpl_readparms.F |
238 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
239 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/ocn_compon_interf/cpl_readparms.F |
241 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
245 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImportThSIce', |
./pkg/ocn_compon_interf/cpl_readparms.F |
247 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
248 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/ocn_compon_interf/cpl_readparms.F |
250 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
253 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS: ', |
./pkg/ocn_compon_interf/cpl_readparms.F |
255 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ocn_compon_interf/cpl_readparms.F |
257 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS: ', |
./pkg/ocn_compon_interf/cpl_readparms.F |
259 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ocn_compon_interf/cpl_readparms.F |
263 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImportSltPlm', |
./pkg/ocn_compon_interf/cpl_readparms.F |
265 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
266 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/ocn_compon_interf/cpl_readparms.F |
268 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
274 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImport', |
./pkg/ocn_compon_interf/cpl_readparms.F |
276 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
277 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/ocn_compon_interf/cpl_readparms.F |
279 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ocn_compon_interf/cpl_readparms.F |
301 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
./pkg/ocn_compon_interf/cpl_readparms.F |
302 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
303 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/ocn_compon_interf/cpl_readparms.F |
304 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
305 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// Coupling set-up summary :' |
./pkg/ocn_compon_interf/cpl_readparms.F |
306 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
307 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/ocn_compon_interf/cpl_readparms.F |
308 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
311 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// -------' |
./pkg/ocn_compon_interf/cpl_readparms.F |
312 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
313 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ocn_compon_interf/cpl_readparms.F |
315 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
338 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// -------' |
./pkg/ocn_compon_interf/cpl_readparms.F |
339 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
340 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ocn_compon_interf/cpl_readparms.F |
342 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
387 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/ocn_compon_interf/cpl_readparms.F |
388 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
389 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// End of Coupling set-up summary' |
./pkg/ocn_compon_interf/cpl_readparms.F |
390 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
391 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/ocn_compon_interf/cpl_readparms.F |
392 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ocn_compon_interf/cpl_readparms.F |
52 |
CPL_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/ocn_compon_interf/cpl_readparms.F |
85 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') ' CPL_READPARMS: opening data.cpl' |
./pkg/ocn_compon_interf/cpl_readparms.F |
86 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
46 |
OCN_CHECK_CPLCONFIG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
66 |
OCN_CHECK_CPLCONFIG |
WRITE(msgBuf,'(2A,I4,A)') 'OCN_CHECK_CPLCONFIG: ', |
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
68 |
OCN_CHECK_CPLCONFIG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
87 |
OCN_CHECK_CPLCONFIG |
WRITE(msgBuf,'(2(A,I6),2(A,I4),A)') |
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
90 |
OCN_CHECK_CPLCONFIG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
91 |
OCN_CHECK_CPLCONFIG |
WRITE(msgBuf,'(A,E30.15)') |
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
93 |
OCN_CHECK_CPLCONFIG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
94 |
OCN_CHECK_CPLCONFIG |
WRITE(msgBuf,'(A,E30.15)') |
./pkg/ocn_compon_interf/ocn_check_cplconfig.F |
96 |
OCN_CHECK_CPLCONFIG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ocn_compon_interf/ocn_export_data.F |
48 |
OCN_EXPORT_DATA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/ocn_compon_interf/ocn_export_data.F |
59 |
OCN_EXPORT_DATA |
WRITE(msgBuf,'(A,I10)') |
./pkg/ocn_compon_interf/ocn_export_data.F |
61 |
OCN_EXPORT_DATA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./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 |
124 |
OFFLINE_FIELDS_LOAD |
WRITE(msgBuf,'(2A,I5,A)') 'OFFLINE_FIELDS_LOAD: ', |
./pkg/offline/offline_fields_load.F |
126 |
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 |
102 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/offline/offline_readparms.F |
104 |
OFFLINE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/offline/offline_readparms.F |
118 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R OFFLINE_READPARMS: "KPP_ghatFile"', |
./pkg/offline/offline_readparms.F |
120 |
OFFLINE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/offline/offline_readparms.F |
121 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R OFFLINE_READPARMS: read instead ', |
./pkg/offline/offline_readparms.F |
123 |
OFFLINE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/offline/offline_readparms.F |
127 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R OFFLINE_READPARMS: ', |
./pkg/offline/offline_readparms.F |
129 |
OFFLINE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/offline/offline_readparms.F |
130 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R OFFLINE_READPARMS: ', |
./pkg/offline/offline_readparms.F |
132 |
OFFLINE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/offline/offline_readparms.F |
28 |
OFFLINE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/offline/offline_readparms.F |
61 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A)') ' OFFLINE_READPARMS: opening data.off' |
./pkg/offline/offline_readparms.F |
62 |
OFFLINE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./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 |
66 |
OFFLINE_RESET_PARMS |
WRITE(msgBuf,'(A,A)') '** WARNING ** OFFLINE_RESET_PARMS: ', |
./pkg/offline/offline_reset_parms.F |
68 |
OFFLINE_RESET_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/offline/offline_reset_parms.F |
70 |
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) |
./model/src/do_oceanic_phys.F |
216 |
DO_OCEANIC_PHYS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./model/src/do_oceanic_phys.F |
825 |
DO_OCEANIC_PHYS |
WRITE(msgBuf,'(A,2(I4,A))') |
./model/src/do_oceanic_phys.F |
827 |
DO_OCEANIC_PHYS |
CALL DEBUG_MSG(msgBuf(1:43),myThid) |
./pkg/pp81/pp81_readparms.F |
108 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') 'PPviscMax must be greater than zero' |
./pkg/pp81/pp81_readparms.F |
109 |
PP81_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/pp81/pp81_readparms.F |
113 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') 'PPalpha must not be zero' |
./pkg/pp81/pp81_readparms.F |
114 |
PP81_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/pp81/pp81_readparms.F |
118 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') 'PPnRi must not be zero' |
./pkg/pp81/pp81_readparms.F |
119 |
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_findunit.F |
27 |
PROFILES_FINDUNIT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/profiles/profiles_findunit.F |
42 |
PROFILES_FINDUNIT |
WRITE(msgBuf,'(A,I4)') |
./pkg/profiles/profiles_findunit.F |
44 |
PROFILES_FINDUNIT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/profiles/profiles_findunit.F |
46 |
PROFILES_FINDUNIT |
WRITE(msgBuf,'(A)') |
./pkg/profiles/profiles_findunit.F |
48 |
PROFILES_FINDUNIT |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/profiles/profiles_findunit.F |
61 |
PROFILES_FINDUNIT |
WRITE(msgBuf,'(A)') |
./pkg/profiles/profiles_findunit.F |
63 |
PROFILES_FINDUNIT |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/profiles/profiles_ini_io.F |
37 |
PROFILES_INI_IO |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/profiles/profiles_ini_io.F |
60 |
PROFILES_INI_IO |
WRITE(msgBuf,'(2A)') '** WARNING ** PROFILES_INI_IO: cannot ', |
./pkg/profiles/profiles_ini_io.F |
62 |
PROFILES_INI_IO |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/profiles/profiles_init_fixed.F |
110 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PROFILES_INIT_FIXED: ', |
./pkg/profiles/profiles_init_fixed.F |
112 |
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 |
231 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
./pkg/profiles/profiles_init_fixed.F |
234 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
253 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
./pkg/profiles/profiles_init_fixed.F |
256 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
271 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
./pkg/profiles/profiles_init_fixed.F |
274 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
319 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
./pkg/profiles/profiles_init_fixed.F |
322 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
340 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
./pkg/profiles/profiles_init_fixed.F |
343 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
543 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(4A)') |
./pkg/profiles/profiles_init_fixed.F |
547 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
556 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(4A)') |
./pkg/profiles/profiles_init_fixed.F |
560 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
567 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(4A)') |
./pkg/profiles/profiles_init_fixed.F |
571 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
578 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(4A)') |
./pkg/profiles/profiles_init_fixed.F |
582 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
596 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
./pkg/profiles/profiles_init_fixed.F |
599 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
841 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(A)') |
./pkg/profiles/profiles_init_fixed.F |
843 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
855 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(A,2i6)') |
./pkg/profiles/profiles_init_fixed.F |
858 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
862 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(A, i6,d20.5)') |
./pkg/profiles/profiles_init_fixed.F |
918 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(3A)') |
./pkg/profiles/profiles_init_fixed.F |
922 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
923 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(2A)') |
./pkg/profiles/profiles_init_fixed.F |
926 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_init_fixed.F |
927 |
PROFILES_INIT_FIXED |
WRITE(msgBuf,'(A)') |
./pkg/profiles/profiles_init_fixed.F |
929 |
PROFILES_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/profiles/profiles_readparms.F |
118 |
PROFILES_READPARMS |
WRITE(msgBuf,'(A)') 'PROFILES_READPARMS: opening data.profiles' |
./pkg/profiles/profiles_readparms.F |
119 |
PROFILES_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/profiles/profiles_readparms.F |
129 |
PROFILES_READPARMS |
WRITE(msgBuf,'(2A)') 'PROFILES_READPARMS: ', |
./pkg/profiles/profiles_readparms.F |
131 |
PROFILES_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/profiles/profiles_readparms.F |
192 |
PROFILES_READPARMS |
WRITE(msgBuf,'(3A)') |
./pkg/profiles/profiles_readparms.F |
195 |
PROFILES_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/profiles/profiles_readparms.F |
38 |
PROFILES_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./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/ptracers/ptracers_ad_dump.F |
63 |
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 |
WRITE(msgBuf,'(2A)') 'PTRACERS_INIT_FIXED: ', |
./pkg/ptracers/ptracers_init_fixed.F |
103 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_init_fixed.F |
104 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PTRACERS_INIT_FIXED: ', |
./pkg/ptracers/ptracers_init_fixed.F |
106 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_init_fixed.F |
107 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PTRACERS_INIT_FIXED: ', |
./pkg/ptracers/ptracers_init_fixed.F |
109 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_init_fixed.F |
127 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A,9I3)') 'PTRACERS_INIT_FIXED: ', |
./pkg/ptracers/ptracers_init_fixed.F |
129 |
PTRACERS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ptracers/ptracers_init_fixed.F |
144 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/ptracers/ptracers_init_fixed.F |
146 |
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 |
65 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A,I6)') 'PTRACERS_INIT_FIXED: ', |
./pkg/ptracers/ptracers_init_fixed.F |
67 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_init_fixed.F |
68 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A,I6)') 'PTRACERS_INIT_FIXED: ', |
./pkg/ptracers/ptracers_init_fixed.F |
70 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/do_write_pickup.F |
105 |
DO_WRITE_PICKUP |
WRITE(msgBuf,'(A11,I10,1X,A10)') |
./model/src/do_write_pickup.F |
107 |
DO_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/do_write_pickup.F |
117 |
DO_WRITE_PICKUP |
WRITE(msgBuf,'(A)') |
./model/src/do_write_pickup.F |
119 |
DO_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/do_write_pickup.F |
59 |
DO_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./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 |
101 |
ADPTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
./pkg/ptracers/ptracers_monitor_ad.F |
122 |
ADPTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
./pkg/ptracers/ptracers_monitor_ad.F |
124 |
ADPTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
./pkg/ptracers/ptracers_monitor_ad.F |
125 |
ADPTRACERS_MONITOR |
WRITE(msgBuf,'(A)') |
./pkg/ptracers/ptracers_monitor_ad.F |
127 |
ADPTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
./pkg/ptracers/ptracers_monitor_ad.F |
128 |
ADPTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
./pkg/ptracers/ptracers_monitor_ad.F |
130 |
ADPTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
./pkg/ptracers/ptracers_monitor_ad.F |
57 |
ADPTRACERS_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/ptracers/ptracers_monitor_ad.F |
93 |
ADPTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
./pkg/ptracers/ptracers_monitor_ad.F |
95 |
ADPTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
./pkg/ptracers/ptracers_monitor_ad.F |
96 |
ADPTRACERS_MONITOR |
WRITE(msgBuf,'(A)') |
./pkg/ptracers/ptracers_monitor_ad.F |
98 |
ADPTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
./pkg/ptracers/ptracers_monitor_ad.F |
99 |
ADPTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
./pkg/ptracers/ptracers_read_pickup.F |
126 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'PTRACERS_READ_PICKUP: ', |
./pkg/ptracers/ptracers_read_pickup.F |
128 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
129 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'PTRACERS_READ_PICKUP: ', |
./pkg/ptracers/ptracers_read_pickup.F |
131 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
140 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'PTRACERS_READ_PICKUP: ', |
./pkg/ptracers/ptracers_read_pickup.F |
143 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
144 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'PTRACERS_READ_PICKUP: ', |
./pkg/ptracers/ptracers_read_pickup.F |
147 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
150 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> PTRACERS_READ_PICKUP: ', |
./pkg/ptracers/ptracers_read_pickup.F |
152 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
155 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/ptracers/ptracers_read_pickup.F |
157 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
160 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/ptracers/ptracers_read_pickup.F |
162 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
163 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/ptracers/ptracers_read_pickup.F |
165 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
261 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'PTRACERS_READ_PICKUP: ', |
./pkg/ptracers/ptracers_read_pickup.F |
263 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
298 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(A,I3,A)')'PTRACERS_READ_PICKUP: iTracer = ', |
./pkg/ptracers/ptracers_read_pickup.F |
300 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
327 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'PTRACERS_READ_PICKUP: ', |
./pkg/ptracers/ptracers_read_pickup.F |
330 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
333 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(2A)') 'WARNING >> PTRACERS_READ_PICKUP: ', |
./pkg/ptracers/ptracers_read_pickup.F |
335 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ptracers/ptracers_read_pickup.F |
59 |
PTRACERS_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/ptracers/ptracers_read_pickup.F |
93 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(3A)')'PTRACERS_READ_PICKUP: MNC not yet coded', |
./pkg/ptracers/ptracers_read_pickup.F |
96 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ptracers/ptracers_readparms.F |
160 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') ' PTRACERS_READPARMS: opening data.ptracers' |
./pkg/ptracers/ptracers_readparms.F |
161 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ptracers/ptracers_readparms.F |
168 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ptracers/ptracers_readparms.F |
170 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ptracers/ptracers_readparms.F |
184 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(2A)')' PTRACERS_READPARMS: ', |
./pkg/ptracers/ptracers_readparms.F |
186 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
205 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A,I4,A,I4,A)') |
./pkg/ptracers/ptracers_readparms.F |
209 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
230 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ptracers/ptracers_readparms.F |
232 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_readparms.F |
233 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ptracers/ptracers_readparms.F |
235 |
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 |
141 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A)') 'S/R PTRACERS_WRITE_TIMEAVE' |
./pkg/ptracers/ptracers_write_timeave.F |
142 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
143 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A)') 'Error writing out data' |
./pkg/ptracers/ptracers_write_timeave.F |
144 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
145 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
./pkg/ptracers/ptracers_write_timeave.F |
146 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ptracers/ptracers_write_timeave.F |
150 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A,I10)') |
./pkg/ptracers/ptracers_write_timeave.F |
152 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ptracers/ptracers_write_timeave.F |
154 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A)') ' ' |
./pkg/ptracers/ptracers_write_timeave.F |
155 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ptracers/ptracers_write_timeave.F |
49 |
PTRACERS_WRITE_TIMEAVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/rbcs/rbcs_init_fixed.F |
101 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I3,3A)') 'Use relaxMaskFile(irbc=', irbc, |
./pkg/rbcs/rbcs_init_fixed.F |
103 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
105 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(A,1PE21.13)') |
./pkg/rbcs/rbcs_init_fixed.F |
107 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./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 |
117 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'Warning:', |
./pkg/rbcs/rbcs_init_fixed.F |
119 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
123 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(A,3A)') 'Use relaxMaskUFile', |
./pkg/rbcs/rbcs_init_fixed.F |
125 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
128 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(A,1PE21.13)') |
./pkg/rbcs/rbcs_init_fixed.F |
130 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
135 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A)') '** WARNING ** RBCS_INIT_FIXED:', |
./pkg/rbcs/rbcs_init_fixed.F |
137 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
139 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'Warning:', |
./pkg/rbcs/rbcs_init_fixed.F |
141 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
145 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(A,3A)') 'Use relaxMaskVFile', |
./pkg/rbcs/rbcs_init_fixed.F |
147 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
150 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(A,1PE21.13)') |
./pkg/rbcs/rbcs_init_fixed.F |
152 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
161 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A,I3,2A,I3)') |
./pkg/rbcs/rbcs_init_fixed.F |
165 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
167 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A,I3,2A,I3)') 'Warning:', |
./pkg/rbcs/rbcs_init_fixed.F |
170 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
174 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I3,3A)') 'Use relaxMaskFile(irbc=', irbc, |
./pkg/rbcs/rbcs_init_fixed.F |
176 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
178 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I3,A,1PE21.13)') |
./pkg/rbcs/rbcs_init_fixed.F |
181 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
318 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A)') ' --- RBCS_INIT_FIXED:', |
./pkg/rbcs/rbcs_init_fixed.F |
320 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
42 |
RBCS_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/rbcs/rbcs_init_fixed.F |
53 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A)') ' ' |
./pkg/rbcs/rbcs_init_fixed.F |
54 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
56 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A)') ' --- RBCS_INIT_FIXED:', |
./pkg/rbcs/rbcs_init_fixed.F |
58 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
64 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A,I3,2A)') '** WARNING ** RBCS_INIT_FIXED:', |
./pkg/rbcs/rbcs_init_fixed.F |
67 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
69 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A,I3,2A)') 'Warning:', |
./pkg/rbcs/rbcs_init_fixed.F |
72 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
76 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I3,3A)') 'Use relaxMaskFile(irbc=', irbc, |
./pkg/rbcs/rbcs_init_fixed.F |
78 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
80 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(A,1PE21.13)') |
./pkg/rbcs/rbcs_init_fixed.F |
82 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
89 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A,I3,2A)') '** WARNING ** RBCS_INIT_FIXED:', |
./pkg/rbcs/rbcs_init_fixed.F |
92 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/rbcs/rbcs_init_fixed.F |
94 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(2A,I3,2A)') 'Warning:', |
./pkg/rbcs/rbcs_init_fixed.F |
97 |
RBCS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_readparms.F |
140 |
RBCS_READPARMS |
WRITE(msgBuf,'(A)') ' RBCS_READPARMS: opening data.rbcs' |
./pkg/rbcs/rbcs_readparms.F |
141 |
RBCS_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_readparms.F |
151 |
RBCS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/rbcs/rbcs_readparms.F |
153 |
RBCS_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
./pkg/rbcs/rbcs_readparms.F |
176 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A,I6)')' RBCS_READPARAMS: ', |
./pkg/rbcs/rbcs_readparms.F |
178 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
179 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)')' RBCS_READPARAMS: ', |
./pkg/rbcs/rbcs_readparms.F |
181 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
187 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A,2(L2,A))') 'RBCS_READPARMS: ', |
./pkg/rbcs/rbcs_readparms.F |
190 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
191 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'RBCS_READPARMS: ', |
./pkg/rbcs/rbcs_readparms.F |
193 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
198 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)')' RBCS_READPARAMS: ', |
./pkg/rbcs/rbcs_readparms.F |
200 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
201 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)')' RBCS_READPARAMS: ', |
./pkg/rbcs/rbcs_readparms.F |
203 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
209 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)')' RBCS_READPARAMS: ', |
./pkg/rbcs/rbcs_readparms.F |
211 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
212 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)')' RBCS_READPARAMS: ', |
./pkg/rbcs/rbcs_readparms.F |
214 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
216 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)')' RBCS_READPARAMS: ', |
./pkg/rbcs/rbcs_readparms.F |
218 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
219 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)')' RBCS_READPARAMS: ', |
./pkg/rbcs/rbcs_readparms.F |
221 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
226 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'RBCS_READPARMS: ', |
./pkg/rbcs/rbcs_readparms.F |
228 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
232 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'RBCS_READPARMS: ', |
./pkg/rbcs/rbcs_readparms.F |
234 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
238 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'RBCS_READPARMS: ', |
./pkg/rbcs/rbcs_readparms.F |
240 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
244 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'RBCS_READPARMS: ', |
./pkg/rbcs/rbcs_readparms.F |
246 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
253 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A,I6,A)') 'RBCS_READPARMS: ', |
./pkg/rbcs/rbcs_readparms.F |
255 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
262 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A,I6,A)') 'RBCS_READPARMS: ', |
./pkg/rbcs/rbcs_readparms.F |
264 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
265 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A,I6,A)') 'RBCS_READPARMS: ', |
./pkg/rbcs/rbcs_readparms.F |
267 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/rbcs/rbcs_readparms.F |
40 |
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 ) |
./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 |
102 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: no Wall Clock limit set' |
./pkg/runclock/runclock_readparms.F |
103 |
RUNCLOCK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/runclock/runclock_readparms.F |
107 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A,I7)') |
./pkg/runclock/runclock_readparms.F |
109 |
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 |
80 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: ERR! RC_maxtime_hr<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_mi<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<0' |
./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_sc>59' |
./pkg/runclock/runclock_readparms.F |
93 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/runclock/runclock_readparms.F |
96 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: ERR! RC_maxtime_mi>59' |
./pkg/runclock/runclock_readparms.F |
97 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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 ) |
./model/src/find_hyd_press_1d.F |
138 |
FIND_HYD_PRESS_1D |
WRITE(msgBuf,'(A,I5,2(A,1PE20.12))') |
./model/src/find_hyd_press_1d.F |
140 |
FIND_HYD_PRESS_1D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/find_hyd_press_1d.F |
155 |
FIND_HYD_PRESS_1D |
WRITE(msgBuf,'(2A,I5,A,I3,A)') 'FIND_HYD_PRESS_1D: ', |
./model/src/find_hyd_press_1d.F |
158 |
FIND_HYD_PRESS_1D |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/find_hyd_press_1d.F |
161 |
FIND_HYD_PRESS_1D |
WRITE(msgBuf,'(2A,I5,A,I3,A)') 'FIND_HYD_PRESS_1D: ', |
./model/src/find_hyd_press_1d.F |
164 |
FIND_HYD_PRESS_1D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/find_hyd_press_1d.F |
57 |
FIND_HYD_PRESS_1D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./model/src/find_hyd_press_1d.F |
68 |
FIND_HYD_PRESS_1D |
WRITE(msgBuf,'(A)') ' ' |
./model/src/find_hyd_press_1d.F |
69 |
FIND_HYD_PRESS_1D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/find_hyd_press_1d.F |
71 |
FIND_HYD_PRESS_1D |
WRITE(msgBuf,'(2A,I5,A)') 'FIND_HYD_PRESS_1D: ', |
./model/src/find_hyd_press_1d.F |
74 |
FIND_HYD_PRESS_1D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/find_hyd_press_1d.F |
76 |
FIND_HYD_PRESS_1D |
WRITE(msgBuf,'(2A,I3,A,1PE13.6)') 'FIND_HYD_PRESS_1D: ', |
./model/src/find_hyd_press_1d.F |
79 |
FIND_HYD_PRESS_1D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/find_rho.F |
1171 |
FIND_RHO_SCALAR |
WRITE(msgBuf,'(3A)') |
./model/src/find_rho.F |
1174 |
FIND_RHO_SCALAR |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/find_rho.F |
1219 |
LOOK_FOR_NEG_SALINITY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./model/src/find_rho.F |
1234 |
LOOK_FOR_NEG_SALINITY |
WRITE(msgBuf,'(2A,I5,A,2I4)') 'S/R LOOK_FOR_NEG_SALINITY:', |
./model/src/find_rho.F |
1236 |
LOOK_FOR_NEG_SALINITY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/find_rho.F |
1238 |
LOOK_FOR_NEG_SALINITY |
WRITE(msgBuf,'(2A,I6,A)') 'S/R LOOK_FOR_NEG_SALINITY:', |
./model/src/find_rho.F |
1240 |
LOOK_FOR_NEG_SALINITY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/find_rho.F |
261 |
FIND_RHO_2D |
WRITE(msgBuf,'(3a)') |
./model/src/find_rho.F |
263 |
FIND_RHO_2D |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/find_rho.F |
74 |
FIND_RHO_2D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./model/src/find_rho.F |
868 |
FIND_RHO_SCALAR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./model/src/find_rho.F |
930 |
FIND_RHO_SCALAR |
WRITE(msgBuf,'(A,E13.5)') |
./model/src/find_rho.F |
932 |
FIND_RHO_SCALAR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/find_rho.F |
949 |
FIND_RHO_SCALAR |
WRITE(msgBuf,'(A)') |
./model/src/find_rho.F |
951 |
FIND_RHO_SCALAR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/find_rho.F |
953 |
FIND_RHO_SCALAR |
WRITE(msgBuf,'(A)') |
./model/src/find_rho.F |
955 |
FIND_RHO_SCALAR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./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 ) |
./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/salt_plume/salt_plume_readparms.F |
112 |
SALT_PLUME_READPARMS |
WRITE(msgBuf,'(A)') 'S/R SALT_PLUME_READPARMS' |
./pkg/salt_plume/salt_plume_readparms.F |
113 |
SALT_PLUME_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/salt_plume/salt_plume_readparms.F |
114 |
SALT_PLUME_READPARMS |
WRITE(msgBuf,'(A)') 'Invalid CriterionType' |
./pkg/salt_plume/salt_plume_readparms.F |
115 |
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 |
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 |
126 |
SBO_OUTPUT |
WRITE(msgBuf,'(A,1PE21.13)') |
./pkg/sbo/sbo_output.F |
128 |
SBO_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/sbo/sbo_output.F |
129 |
SBO_OUTPUT |
WRITE(msgBuf,'(A,1PE21.13)') |
./pkg/sbo/sbo_output.F |
131 |
SBO_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/sbo/sbo_output.F |
47 |
SBO_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/sbo/sbo_readparms.F |
103 |
SBO_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SBO_READPARMS: ', |
./pkg/sbo/sbo_readparms.F |
105 |
SBO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/sbo/sbo_readparms.F |
106 |
SBO_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/sbo/sbo_readparms.F |
108 |
SBO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/sbo/sbo_readparms.F |
114 |
SBO_READPARMS |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/sbo/sbo_readparms.F |
116 |
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 |
89 |
SBO_READPARMS |
WRITE(msgBuf,'(A)') ' SBO_READPARMS: finished reading data.sbo' |
./pkg/sbo/sbo_readparms.F |
90 |
SBO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/sbo/sbo_readparms.F |
96 |
SBO_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SBO_READPARMS: "sbo_taveFreq" ', |
./pkg/sbo/sbo_readparms.F |
98 |
SBO_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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 |
667 |
LSR |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/seaice/lsr.F |
669 |
LSR |
CALL DEBUG_STATS_RL( 1, uIce, msgBuf, myThid ) |
./pkg/seaice/lsr.F |
670 |
LSR |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/seaice/lsr.F |
672 |
LSR |
CALL DEBUG_STATS_RL( 1, vIce, msgBuf, myThid ) |
./pkg/seaice/lsr.F |
676 |
LSR |
WRITE(msgBuf,'(2A,I10,A,I4,A)') '** WARNING ** SEAICE_LSR ', |
./pkg/seaice/lsr.F |
678 |
LSR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/seaice/lsr.F |
680 |
LSR |
WRITE(msgBuf,'(2(A,I6,0PF6.3,1PE14.6))') |
./pkg/seaice/lsr.F |
683 |
LSR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/seaice/lsr.F |
88 |
LSR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_advection.F |
139 |
SEAICE_ADVECTION |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_advection.F |
169 |
SEAICE_ADVECTION |
WRITE(msgBuf,'(A,2I3)') |
./pkg/seaice/seaice_advection.F |
172 |
SEAICE_ADVECTION |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_advection.F |
209 |
SEAICE_ADVECTION |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_advection.F |
211 |
SEAICE_ADVECTION |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_advection.F |
291 |
SEAICE_ADVECTION |
WRITE(msgBuf,'(A,2I3)') |
./pkg/seaice/seaice_advection.F |
294 |
SEAICE_ADVECTION |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_advection.F |
396 |
SEAICE_ADVECTION |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/seaice/seaice_advection.F |
399 |
SEAICE_ADVECTION |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_advection.F |
598 |
SEAICE_ADVECTION |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/seaice/seaice_advection.F |
601 |
SEAICE_ADVECTION |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
102 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
104 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
111 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
113 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
114 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
116 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
125 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
127 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
128 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
130 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
136 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
138 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
139 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
141 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
147 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/seaice/seaice_check.F |
150 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
156 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
158 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
159 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
161 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
174 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
176 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
177 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
179 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
186 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
188 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
189 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
191 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
196 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
198 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
199 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
201 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
216 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/seaice/seaice_check.F |
219 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
225 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/seaice/seaice_check.F |
228 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
244 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/seaice/seaice_check.F |
247 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
289 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: allowed advection schemes', |
./pkg/seaice/seaice_check.F |
291 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
292 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,7I3)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
296 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
297 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
299 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
301 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
303 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
306 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
308 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
311 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
313 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
316 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
318 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
336 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I3,A)') 'SEAICE_CHECK: SEAICEadvScheme=', |
./pkg/seaice/seaice_check.F |
338 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
340 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
342 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
345 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
347 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
350 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
352 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
355 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
357 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
364 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,1PE16.8)') 'SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
366 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
367 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
369 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
380 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
382 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
383 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
385 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
390 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
392 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
398 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
400 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
401 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: OR SEAICEpresPow1 ', |
./pkg/seaice/seaice_check.F |
403 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
410 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
412 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
413 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,2I4)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
416 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
420 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
422 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
423 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,2I4)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
425 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
429 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICE_maskRHS not allowed' |
./pkg/seaice/seaice_check.F |
430 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
438 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
440 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
447 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
449 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
456 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
458 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_check.F |
459 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
461 |
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,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
475 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_check.F |
480 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
482 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, 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 |
493 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
495 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
496 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
498 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
505 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
507 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
508 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'they are replaced with run time', |
./pkg/seaice/seaice_check.F |
510 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
516 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
518 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
519 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
521 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
527 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
529 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
530 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
532 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
538 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
53 |
SEAICE_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_check.F |
540 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
541 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'it now is done', |
./pkg/seaice/seaice_check.F |
543 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
549 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
551 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
552 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
554 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
560 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
562 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
563 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
565 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
574 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
576 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
580 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
582 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
586 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
588 |
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 |
599 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
601 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
605 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
607 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
608 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
610 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
615 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_check.F |
617 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
618 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
621 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
626 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_check.F |
628 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
629 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
632 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
636 |
SEAICE_CHECK |
WRITE(msgBuf,'(3A)') 'S/R SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
639 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_check.F |
641 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
642 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
644 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_check.F |
646 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
650 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
652 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
658 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
660 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
672 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_check.F |
675 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
680 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_check.F |
683 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
689 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I2,A,I2)') 'S/R SEAICE_CHECK: SEAICE_OLx/y = ', |
./pkg/seaice/seaice_check.F |
691 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
692 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I2,A,I2)') |
./pkg/seaice/seaice_check.F |
695 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
700 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_check.F |
703 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
707 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I2,A,I2)') |
./pkg/seaice/seaice_check.F |
710 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
711 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I2,A,I2)') |
./pkg/seaice/seaice_check.F |
714 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
724 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
726 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
727 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I4)') |
./pkg/seaice/seaice_check.F |
730 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
735 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
738 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
739 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I4)') |
./pkg/seaice/seaice_check.F |
741 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
747 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICEnEVPstarSteps is '// |
./pkg/seaice/seaice_check.F |
749 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
754 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
756 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
757 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
759 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
760 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: but cpp-flag '// |
./pkg/seaice/seaice_check.F |
762 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
769 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
76 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: #define ALLOW_SEAICE' |
./pkg/seaice/seaice_check.F |
771 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
772 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') ' but CPP-flag ', |
./pkg/seaice/seaice_check.F |
774 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
77 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_check.F |
781 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
783 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
784 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: but cpp-flag '// |
./pkg/seaice/seaice_check.F |
786 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
794 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
797 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
798 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: but cpp-flag '// |
./pkg/seaice/seaice_check.F |
800 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
807 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICEuseTEM requires that' |
./pkg/seaice/seaice_check.F |
808 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
809 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
811 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
818 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
820 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
821 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
823 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
824 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
826 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
82 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
830 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
832 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
836 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
838 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
846 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
848 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
84 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
852 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
854 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
861 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
863 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
864 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: '// |
./pkg/seaice/seaice_check.F |
866 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
874 |
SEAICE_CHECK |
WRITE(msgBuf,'(3A)') 'S/R SEAICE_CHECK: JFNKres_t and ', |
./pkg/seaice/seaice_check.F |
876 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
877 |
SEAICE_CHECK |
WRITE(msgBuf,'(3A)') 'S/R SEAICE_CHECK: ', |
./pkg/seaice/seaice_check.F |
880 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
881 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/seaice/seaice_check.F |
884 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
887 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_CHECK: need to specify ', |
./pkg/seaice/seaice_check.F |
889 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
894 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/seaice/seaice_check.F |
897 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
902 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
904 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
905 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: '// |
./pkg/seaice/seaice_check.F |
907 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
913 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_check.F |
915 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
916 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: '// |
./pkg/seaice/seaice_check.F |
918 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
925 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICEuseBDF2 = .TRUE. '// |
./pkg/seaice/seaice_check.F |
927 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
931 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICEuseIMEX = .TRUE. '// |
./pkg/seaice/seaice_check.F |
933 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
938 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') '** WARNING ** SEAICE_CHECK: '// |
./pkg/seaice/seaice_check.F |
941 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_check.F |
945 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I2)') |
./pkg/seaice/seaice_check.F |
947 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
948 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: '// |
./pkg/seaice/seaice_check.F |
950 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
956 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I2)') |
./pkg/seaice/seaice_check.F |
958 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
959 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: '// |
./pkg/seaice/seaice_check.F |
95 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
./pkg/seaice/seaice_check.F |
961 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
967 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I2)') |
./pkg/seaice/seaice_check.F |
969 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
970 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: is greater than 0, '// |
./pkg/seaice/seaice_check.F |
972 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
97 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_check.F |
983 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') '** WARNING ** SEAICE_CHECK: '// |
./pkg/seaice/seaice_check.F |
985 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_check.F |
986 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_check.F |
988 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') '** WARNING ** SEAICE_CHECK: '// |
./pkg/seaice/seaice_check.F |
990 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_check.F |
991 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_check.F |
993 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') '** WARNING ** SEAICE_CHECK: '// |
./pkg/seaice/seaice_check.F |
995 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_check.F |
996 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./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 |
209 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_CHECK_PICKUP:', |
./pkg/seaice/seaice_check_pickup.F |
211 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_check_pickup.F |
215 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** SEAICE_CHECK_PICKUP: ', |
./pkg/seaice/seaice_check_pickup.F |
217 |
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 |
100 |
SEAICE_DO_RIDGING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_do_ridging.F |
429 |
SEAICE_DO_RIDGING |
WRITE(msgBuf,'(A)') 'SEAICE_DO_RIDGING: *** WARNING ***' |
./pkg/seaice/seaice_do_ridging.F |
430 |
SEAICE_DO_RIDGING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_do_ridging.F |
432 |
SEAICE_DO_RIDGING |
WRITE(msgBuf,'(A,I2,A)') 'SEAICE_DO_RIDGING: '// |
./pkg/seaice/seaice_do_ridging.F |
435 |
SEAICE_DO_RIDGING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_do_ridging.F |
442 |
SEAICE_DO_RIDGING |
WRITE(msgBuf,'(A,I2,A,I10)') |
./pkg/seaice/seaice_do_ridging.F |
445 |
SEAICE_DO_RIDGING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./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 |
346 |
SEAICE_FGMRES |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_fgmres.F |
399 |
SEAICE_FGMRES |
write(msgBuf, 199) its, ro |
./pkg/seaice/seaice_fgmres.F |
400 |
SEAICE_FGMRES |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./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_growth.F |
105 |
SEAICE_GROWTH |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_growth.F |
107 |
SEAICE_GROWTH |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_growth.F |
2664 |
SEAICE_GROWTH |
WRITE(msgBuf,'(a,a,e24.17)') 'rm Global mean of ', |
./pkg/seaice/seaice_growth.F |
2666 |
SEAICE_GROWTH |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_growth.F |
2685 |
SEAICE_GROWTH |
WRITE(msgBuf,'(a,a,e24.17)') 'rm Global mean of ', |
./pkg/seaice/seaice_growth.F |
2687 |
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_itd_remap.F |
534 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_itd_remap.F |
546 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/seaice/seaice_itd_remap.F |
549 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_itd_remap.F |
556 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/seaice/seaice_itd_remap.F |
559 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_itd_remap.F |
569 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/seaice/seaice_itd_remap.F |
572 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_itd_remap.F |
576 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/seaice/seaice_itd_remap.F |
579 |
SEAICE_ITD_REMAP_CHECK_BOUNDS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
304 |
SEAICE_JFNK |
WRITE(msgBuf,'(2A,2(1XI6),2E12.5)') |
./pkg/seaice/seaice_jfnk.F |
309 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
311 |
SEAICE_JFNK |
WRITE(msgBuf,'(3(A,I6))') |
./pkg/seaice/seaice_jfnk.F |
315 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
381 |
SEAICE_JFNK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_jfnk.F |
383 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
385 |
SEAICE_JFNK |
WRITE(msgBuf,'(A)') ' // Begin JFNK statistics' |
./pkg/seaice/seaice_jfnk.F |
386 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
388 |
SEAICE_JFNK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_jfnk.F |
390 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
392 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_jfnk.F |
394 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
396 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_jfnk.F |
398 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
400 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_jfnk.F |
402 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
404 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_jfnk.F |
406 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
408 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_jfnk.F |
410 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
412 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_jfnk.F |
414 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
416 |
SEAICE_JFNK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_jfnk.F |
418 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
420 |
SEAICE_JFNK |
WRITE(msgBuf,'(A)') ' // End JFNK statistics' |
./pkg/seaice/seaice_jfnk.F |
421 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
423 |
SEAICE_JFNK |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_jfnk.F |
425 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
440 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_jfnk.F |
443 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
449 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I4,A,I10)') |
./pkg/seaice/seaice_jfnk.F |
452 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
457 |
SEAICE_JFNK |
WRITE(msgBuf,'(A,I6,A,I10)') |
./pkg/seaice/seaice_jfnk.F |
460 |
SEAICE_JFNK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
538 |
SEAICE_JFNK_UPDATE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_jfnk.F |
584 |
SEAICE_JFNK_UPDATE |
WRITE(msgBuf,'(2A,2(1XI6),3E12.5)') |
./pkg/seaice/seaice_jfnk.F |
588 |
SEAICE_JFNK_UPDATE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_jfnk.F |
94 |
SEAICE_JFNK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./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 |
./pkg/seaice/seaice_krylov.F |
381 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(2A,2(1XI6),2E12.5)') |
./pkg/seaice/seaice_krylov.F |
386 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
388 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(3(A,I6))') |
./pkg/seaice/seaice_krylov.F |
392 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
436 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_krylov.F |
438 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
440 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A)') ' // Begin KRYLOV statistics' |
./pkg/seaice/seaice_krylov.F |
441 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
443 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_krylov.F |
445 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
447 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_krylov.F |
449 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
451 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_krylov.F |
454 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
456 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_krylov.F |
458 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
460 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_krylov.F |
462 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
464 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_krylov.F |
466 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
468 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_krylov.F |
470 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
472 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_krylov.F |
474 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
476 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A)') ' // End KRYLOV statistics' |
./pkg/seaice/seaice_krylov.F |
477 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
479 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_krylov.F |
481 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
497 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A,I10)') |
./pkg/seaice/seaice_krylov.F |
500 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
506 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A,I4,A,I10)') |
./pkg/seaice/seaice_krylov.F |
509 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
514 |
SEAICE_KRYLOV |
WRITE(msgBuf,'(A,I6,A,I10)') |
./pkg/seaice/seaice_krylov.F |
517 |
SEAICE_KRYLOV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_krylov.F |
86 |
SEAICE_KRYLOV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_lsr.F |
528 |
SEAICE_LSR |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/seaice/seaice_lsr.F |
530 |
SEAICE_LSR |
CALL DEBUG_STATS_RL( 1, UICE, msgBuf, myThid ) |
./pkg/seaice/seaice_lsr.F |
531 |
SEAICE_LSR |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/seaice/seaice_lsr.F |
533 |
SEAICE_LSR |
CALL DEBUG_STATS_RL( 1, VICE, msgBuf, myThid ) |
./pkg/seaice/seaice_lsr.F |
899 |
SEAICE_LSR |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/seaice/seaice_lsr.F |
89 |
SEAICE_LSR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_lsr.F |
901 |
SEAICE_LSR |
CALL DEBUG_STATS_RL( 1, UICE, msgBuf, myThid ) |
./pkg/seaice/seaice_lsr.F |
902 |
SEAICE_LSR |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/seaice/seaice_lsr.F |
904 |
SEAICE_LSR |
CALL DEBUG_STATS_RL( 1, VICE, msgBuf, myThid ) |
./pkg/seaice/seaice_lsr.F |
908 |
SEAICE_LSR |
WRITE(msgBuf,'(2A,I10,A,I4,A)') '** WARNING ** SEAICE_LSR ', |
./pkg/seaice/seaice_lsr.F |
910 |
SEAICE_LSR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/seaice/seaice_lsr.F |
912 |
SEAICE_LSR |
WRITE(msgBuf,'(2(A,I6,0PF6.3,1PE14.6))') |
./pkg/seaice/seaice_lsr.F |
915 |
SEAICE_LSR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./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 |
101 |
ADSEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/seaice/seaice_monitor_ad.F |
142 |
ADSEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
./pkg/seaice/seaice_monitor_ad.F |
144 |
ADSEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/seaice/seaice_monitor_ad.F |
145 |
ADSEAICE_MONITOR |
WRITE(msgBuf,'(A)') '// End AD_MONITOR SEAICE statistics' |
./pkg/seaice/seaice_monitor_ad.F |
146 |
ADSEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/seaice/seaice_monitor_ad.F |
147 |
ADSEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
./pkg/seaice/seaice_monitor_ad.F |
149 |
ADSEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/seaice/seaice_monitor_ad.F |
54 |
ADSEAICE_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_monitor_ad.F |
94 |
ADSEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
./pkg/seaice/seaice_monitor_ad.F |
96 |
ADSEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/seaice/seaice_monitor_ad.F |
97 |
ADSEAICE_MONITOR |
WRITE(msgBuf,'(A)') '// Begin AD_MONITOR SEAICE statistics' |
./pkg/seaice/seaice_monitor_ad.F |
98 |
ADSEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
./pkg/seaice/seaice_monitor_ad.F |
99 |
ADSEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
./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/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, UICE, msgBuf, myThid ) |
./pkg/seaice/seaice_preconditioner.F |
223 |
SEAICE_PRECONDITIONER |
WRITE(msgBuf,'(A,I3,A,I3,A)') |
./pkg/seaice/seaice_preconditioner.F |
226 |
SEAICE_PRECONDITIONER |
CALL DEBUG_STATS_RL( 1, VICE, msgBuf, myThid ) |
./pkg/seaice/seaice_preconditioner.F |
406 |
SEAICE_PRECONDITIONER |
WRITE(msgBuf,'(A,I3,A,I3,A)') |
./pkg/seaice/seaice_preconditioner.F |
409 |
SEAICE_PRECONDITIONER |
CALL DEBUG_STATS_RL( 1, UICE, msgBuf, myThid ) |
./pkg/seaice/seaice_preconditioner.F |
410 |
SEAICE_PRECONDITIONER |
WRITE(msgBuf,'(A,I3,A,I3,A)') |
./pkg/seaice/seaice_preconditioner.F |
413 |
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 |
108 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'SEAICE_READ_PICKUP: ', |
./pkg/seaice/seaice_read_pickup.F |
111 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
112 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') '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 >> SEAICE_READ_PICKUP: ', |
./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 |
128 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/seaice/seaice_read_pickup.F |
130 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
131 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/seaice/seaice_read_pickup.F |
133 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
290 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'SEAICE_READ_PICKUP: ', |
./pkg/seaice/seaice_read_pickup.F |
292 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
57 |
SEAICE_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_read_pickup.F |
92 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'SEAICE_READ_PICKUP: ', |
./pkg/seaice/seaice_read_pickup.F |
94 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_read_pickup.F |
95 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'SEAICE_READ_PICKUP: ', |
./pkg/seaice/seaice_read_pickup.F |
97 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1001 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1004 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1005 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_readparms.F |
1007 |
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 |
1015 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_readparms.F |
1017 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1021 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1024 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1025 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_readparms.F |
1027 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1031 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1034 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1035 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1038 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1042 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1045 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1046 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1049 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1053 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1056 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1057 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1060 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1063 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)')'S/R SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1065 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1066 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)')'S/R SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1068 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1072 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1074 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1075 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1077 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1081 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1083 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1084 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1086 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1090 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1092 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1093 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1095 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1099 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1102 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1103 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1106 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1110 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1113 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1114 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1117 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1121 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1124 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1125 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1129 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1133 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1136 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1137 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1140 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1144 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1147 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1148 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1151 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1155 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R SEAICE_READPARMS: "LAD" ', |
./pkg/seaice/seaice_readparms.F |
1157 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1158 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') 'always use modified Euler step ', |
./pkg/seaice/seaice_readparms.F |
1160 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1164 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1167 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1171 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1174 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1175 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1178 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1182 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1185 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1186 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1189 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1193 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1196 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1197 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1200 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1204 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1207 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1208 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1211 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1218 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1221 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1222 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1225 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1228 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)')'S/R SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1230 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1231 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)')'S/R SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1233 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1237 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1240 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1244 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1247 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1251 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
1254 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1257 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1259 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1260 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_readparms.F |
1262 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
1298 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/seaice/seaice_readparms.F |
1301 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
1302 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/seaice/seaice_readparms.F |
1305 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
1306 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,E13.6,A)') |
./pkg/seaice/seaice_readparms.F |
1309 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
1320 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1322 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/seaice/seaice_readparms.F |
1327 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1329 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/seaice/seaice_readparms.F |
1334 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1336 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/seaice/seaice_readparms.F |
1341 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1343 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/seaice/seaice_readparms.F |
1348 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** SEAICE_READPARMS: ', |
./pkg/seaice/seaice_readparms.F |
1350 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/seaice/seaice_readparms.F |
55 |
SEAICE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_readparms.F |
620 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_readparms.F |
622 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_readparms.F |
624 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') ' SEAICE_READPARMS: opening data.seaice' |
./pkg/seaice/seaice_readparms.F |
625 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_readparms.F |
657 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_readparms.F |
659 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_readparms.F |
703 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_readparms.F |
705 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
706 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_readparms.F |
708 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
730 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_readparms.F |
732 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
736 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_readparms.F |
738 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
775 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
778 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/seaice/seaice_readparms.F |
786 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
789 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/seaice/seaice_readparms.F |
791 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
794 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/seaice/seaice_readparms.F |
870 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
./pkg/seaice/seaice_readparms.F |
872 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
881 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
./pkg/seaice/seaice_readparms.F |
883 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
892 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
./pkg/seaice/seaice_readparms.F |
895 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
./pkg/seaice/seaice_readparms.F |
898 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
922 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
./pkg/seaice/seaice_readparms.F |
924 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
931 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
./pkg/seaice/seaice_readparms.F |
934 |
SEAICE_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SEAICE_READPARMS: Cannot specify ', |
./pkg/seaice/seaice_readparms.F |
937 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/seaice/seaice_readparms.F |
981 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
984 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
985 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_readparms.F |
987 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
991 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A,A)') |
./pkg/seaice/seaice_readparms.F |
994 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/seaice/seaice_readparms.F |
995 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_readparms.F |
997 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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 |
297 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
./pkg/seaice/seaice_summary.F |
298 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
300 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
302 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
304 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
306 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
309 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
311 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
37 |
SEAICE_SUMMARY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/seaice/seaice_summary.F |
384 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
./pkg/seaice/seaice_summary.F |
385 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
387 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
389 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
391 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
393 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
406 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' pkg/seaice thermodynamics is OFF ' |
./pkg/seaice/seaice_summary.F |
407 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
440 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(2A)') 'SEAICE_areaGainFormula =', |
./pkg/seaice/seaice_summary.F |
442 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_summary.F |
446 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' 1=from growth by ATM ' |
./pkg/seaice/seaice_summary.F |
447 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_summary.F |
448 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' 2=from predicted growth by ATM' |
./pkg/seaice/seaice_summary.F |
449 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_summary.F |
452 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(2A)') 'SEAICE_areaLossFormula =', |
./pkg/seaice/seaice_summary.F |
454 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_summary.F |
458 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(2A)') ' 1=from all but only melt ', |
./pkg/seaice/seaice_summary.F |
460 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_summary.F |
461 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' 2=from net melt-grow>0 by ATM and OCN' |
./pkg/seaice/seaice_summary.F |
462 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_summary.F |
463 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' 3=from predicted melt by ATM' |
./pkg/seaice/seaice_summary.F |
464 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/seaice/seaice_summary.F |
481 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
483 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
497 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
./pkg/seaice/seaice_summary.F |
498 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
500 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
502 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
504 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
506 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
53 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./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 |
59 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
613 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
./pkg/seaice/seaice_summary.F |
614 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
616 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
618 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
61 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
620 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
622 |
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 |
673 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A,I3,A)') '== SItracer no. ',iTracer, |
./pkg/seaice/seaice_summary.F |
675 |
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 |
702 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
./pkg/seaice/seaice_summary.F |
703 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
705 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
707 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
709 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
711 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
71 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
727 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
./pkg/seaice/seaice_summary.F |
728 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
730 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
732 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
734 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
736 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
738 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
./pkg/seaice/seaice_summary.F |
73 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
740 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/seaice/seaice_summary.F |
742 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
./pkg/seaice/seaice_summary.F |
743 |
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, |
./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_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/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 |
184 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'SHAP_FILT: CPP-option NO_SLIP_SHAP', |
./pkg/shap_filt/shap_filt_readparms.F |
186 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/shap_filt/shap_filt_readparms.F |
187 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') ' ==> use parameter Shap_noSlip=1. ', |
./pkg/shap_filt/shap_filt_readparms.F |
189 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/shap_filt/shap_filt_readparms.F |
203 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'SHAP_FILT with rigidLid ', |
./pkg/shap_filt/shap_filt_readparms.F |
205 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/shap_filt/shap_filt_readparms.F |
208 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SHAP_FILT_READPARMS: WARNING <<< ', |
./pkg/shap_filt/shap_filt_readparms.F |
210 |
SHAP_FILT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, errorMessageUnit, SQUEEZE_RIGHT,1) |
./pkg/shap_filt/shap_filt_readparms.F |
211 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SHAP_FILT_READPARMS: WARNING <<< ', |
./pkg/shap_filt/shap_filt_readparms.F |
213 |
SHAP_FILT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, errorMessageUnit, SQUEEZE_RIGHT,1) |
./pkg/shap_filt/shap_filt_readparms.F |
221 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A,I3)') 'SHAP_FILT on CS-grid ', |
./pkg/shap_filt/shap_filt_readparms.F |
223 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/shap_filt/shap_filt_readparms.F |
227 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'SHAP_FILT on CS-grid:', |
./pkg/shap_filt/shap_filt_readparms.F |
229 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/shap_filt/shap_filt_readparms.F |
230 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(A,I3,A)') ' Shap_funct=', Shap_funct, |
./pkg/shap_filt/shap_filt_readparms.F |
232 |
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_curvilinear_grid.F |
120 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') 'INI_CURVILINEAR_GRID:', |
./model/src/ini_curvilinear_grid.F |
122 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_curvilinear_grid.F |
144 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') 'INI_CURVILINEAR_GRID:', |
./model/src/ini_curvilinear_grid.F |
146 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_curvilinear_grid.F |
179 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') |
./model/src/ini_curvilinear_grid.F |
181 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_curvilinear_grid.F |
182 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') |
./model/src/ini_curvilinear_grid.F |
184 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_curvilinear_grid.F |
216 |
INI_CURVILINEAR_GRID |
msgBuf(i:i) = ' ' |
./model/src/ini_curvilinear_grid.F |
218 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') msgBuf,' ; Reading grid info using MNC' |
./model/src/ini_curvilinear_grid.F |
219 |
INI_CURVILINEAR_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_curvilinear_grid.F |
284 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(3A)') tmpBuf(1:iL), |
./model/src/ini_curvilinear_grid.F |
286 |
INI_CURVILINEAR_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_curvilinear_grid.F |
288 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A)') ' =>' |
./model/src/ini_curvilinear_grid.F |
292 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
./model/src/ini_curvilinear_grid.F |
293 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'xC' |
./model/src/ini_curvilinear_grid.F |
296 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'yC' |
./model/src/ini_curvilinear_grid.F |
298 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
./model/src/ini_curvilinear_grid.F |
299 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxF' |
./model/src/ini_curvilinear_grid.F |
302 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyF' |
./model/src/ini_curvilinear_grid.F |
304 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
./model/src/ini_curvilinear_grid.F |
305 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'rA' |
./model/src/ini_curvilinear_grid.F |
308 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'xG' |
./model/src/ini_curvilinear_grid.F |
310 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
./model/src/ini_curvilinear_grid.F |
311 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'yG' |
./model/src/ini_curvilinear_grid.F |
314 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dxV' |
./model/src/ini_curvilinear_grid.F |
316 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
./model/src/ini_curvilinear_grid.F |
317 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dyU' |
./model/src/ini_curvilinear_grid.F |
320 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'rAz' |
./model/src/ini_curvilinear_grid.F |
322 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
./model/src/ini_curvilinear_grid.F |
323 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxC' |
./model/src/ini_curvilinear_grid.F |
326 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyC' |
./model/src/ini_curvilinear_grid.F |
328 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
./model/src/ini_curvilinear_grid.F |
329 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'rAw' |
./model/src/ini_curvilinear_grid.F |
332 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'rAs' |
./model/src/ini_curvilinear_grid.F |
334 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
./model/src/ini_curvilinear_grid.F |
335 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxG' |
./model/src/ini_curvilinear_grid.F |
338 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyG' |
./model/src/ini_curvilinear_grid.F |
343 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
./model/src/ini_curvilinear_grid.F |
344 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'AngleCS' |
./model/src/ini_curvilinear_grid.F |
347 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'AngleSN' |
./model/src/ini_curvilinear_grid.F |
353 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') |
./model/src/ini_curvilinear_grid.F |
355 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_curvilinear_grid.F |
359 |
INI_CURVILINEAR_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_curvilinear_grid.F |
51 |
INI_CURVILINEAR_GRID |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/shelfice/shelfice_check.F |
135 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/shelfice/shelfice_check.F |
137 |
SHELFICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/shelfice/shelfice_check.F |
143 |
SHELFICE_CHECK |
WRITE(msgBuf,'(2A)') 'SHELFICE_CHECK: cannot specify both', |
./pkg/shelfice/shelfice_check.F |
145 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
151 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/shelfice/shelfice_check.F |
153 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
165 |
SHELFICE_CHECK |
WRITE(msgBuf,'(2A,I3,A)') 'Current nonHydrostatic', |
./pkg/shelfice/shelfice_check.F |
167 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
168 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') ' not compatible with SHELFICE code' |
./pkg/shelfice/shelfice_check.F |
169 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
189 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
./pkg/shelfice/shelfice_check.F |
191 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
192 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
./pkg/shelfice/shelfice_check.F |
194 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
200 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
./pkg/shelfice/shelfice_check.F |
202 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
203 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
./pkg/shelfice/shelfice_check.F |
205 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
213 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
./pkg/shelfice/shelfice_check.F |
215 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
216 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
./pkg/shelfice/shelfice_check.F |
218 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_check.F |
224 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/shelfice/shelfice_check.F |
226 |
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 |
38 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') ' ' |
./pkg/shelfice/shelfice_check.F |
39 |
SHELFICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/shelfice/shelfice_check.F |
41 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/shelfice/shelfice_check.F |
43 |
SHELFICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_depths.F |
195 |
INI_DEPTHS |
WRITE(msgBuf,'(A,A)') 'S/R INI_DEPTHS: ', |
./model/src/ini_depths.F |
197 |
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/shelfice/shelfice_read_pickup.F |
100 |
SHELFICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/shelfice/shelfice_read_pickup.F |
103 |
SHELFICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/shelfice/shelfice_read_pickup.F |
105 |
SHELFICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/shelfice/shelfice_read_pickup.F |
114 |
SHELFICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'SHELFICE_READ_PICKUP: ', |
./pkg/shelfice/shelfice_read_pickup.F |
116 |
SHELFICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_read_pickup.F |
148 |
SHELFICE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'SHELFICE_READ_PICKUP: ', |
./pkg/shelfice/shelfice_read_pickup.F |
150 |
SHELFICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_read_pickup.F |
157 |
SHELFICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'SHELFICE_READ_PICKUP: ', |
./pkg/shelfice/shelfice_read_pickup.F |
159 |
SHELFICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_read_pickup.F |
48 |
SHELFICE_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/shelfice/shelfice_read_pickup.F |
72 |
SHELFICE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'SHELFICE_READ_PICKUP: ', |
./pkg/shelfice/shelfice_read_pickup.F |
74 |
SHELFICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_read_pickup.F |
75 |
SHELFICE_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'SHELFICE_READ_PICKUP: ', |
./pkg/shelfice/shelfice_read_pickup.F |
77 |
SHELFICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_read_pickup.F |
87 |
SHELFICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'SHELFICE_READ_PICKUP: ', |
./pkg/shelfice/shelfice_read_pickup.F |
90 |
SHELFICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_read_pickup.F |
91 |
SHELFICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'SHELFICE_READ_PICKUP: ', |
./pkg/shelfice/shelfice_read_pickup.F |
94 |
SHELFICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/shelfice/shelfice_read_pickup.F |
98 |
SHELFICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> SHELFICE_READ_PICKUP: ', |
./pkg/shelfice/shelfice_readparms.F |
142 |
SHELFICE_READPARMS |
WRITE(msgBuf,'(A)') ' SHELFICE_READPARMS: opening data.shelfice' |
./pkg/shelfice/shelfice_readparms.F |
143 |
SHELFICE_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
./pkg/shelfice/shelfice_readparms.F |
150 |
SHELFICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/shelfice/shelfice_readparms.F |
152 |
SHELFICE_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
./pkg/shelfice/shelfice_readparms.F |
41 |
SHELFICE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/shelfice/shelfice_write_pickup.F |
100 |
SHELFICE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_write_pickup.F |
60 |
SHELFICE_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/shelfice/shelfice_write_pickup.F |
95 |
SHELFICE_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'SHELFICE_WRITE_PICKUP: ', |
./pkg/shelfice/shelfice_write_pickup.F |
97 |
SHELFICE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/shelfice/shelfice_write_pickup.F |
98 |
SHELFICE_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'SHELFICE_WRITE_PICKUP: ', |
./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_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/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) |
./pkg/smooth/smooth_readparms.F |
101 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(2A)') 'SMOOTH_READPARMS: ', |
./pkg/smooth/smooth_readparms.F |
103 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/smooth/smooth_readparms.F |
113 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/smooth/smooth_readparms.F |
115 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/smooth/smooth_readparms.F |
117 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(A)') '// pkg/smooth configuration' |
./pkg/smooth/smooth_readparms.F |
118 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/smooth/smooth_readparms.F |
120 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/smooth/smooth_readparms.F |
122 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/smooth/smooth_readparms.F |
127 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(A,I2,I6,2f6.0)') 'smooth 2D parameters: ', |
./pkg/smooth/smooth_readparms.F |
130 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/smooth/smooth_readparms.F |
138 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(A,I2,I6,3f6.0)') 'smooth 3D parameters: ', |
./pkg/smooth/smooth_readparms.F |
142 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/smooth/smooth_readparms.F |
147 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/smooth/smooth_readparms.F |
149 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/smooth/smooth_readparms.F |
151 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(A)') '// End of pkg/smooth config. summary' |
./pkg/smooth/smooth_readparms.F |
152 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/smooth/smooth_readparms.F |
154 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/smooth/smooth_readparms.F |
156 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/smooth/smooth_readparms.F |
158 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
./pkg/smooth/smooth_readparms.F |
159 |
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 |
90 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(A)') 'SMOOTH_READPARMS: opening data.smooth' |
./pkg/smooth/smooth_readparms.F |
91 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/adstreamice_cg_solve.F |
239 |
ADSTREAMICE_CG_SOLVE |
WRITE(msgBuf,'(A,I5,A)') 'DONE WITH MANUAL CG ADJOINT:',tmpiter, |
./pkg/streamice/adstreamice_cg_solve.F |
241 |
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_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_adv_front.F |
304 |
STREAMICE_ADV_FRONT |
WRITE(msgBuf,'(A,I5,A)') 'FRONT ADVANCE: ',iter_rpt, |
./pkg/streamice/streamice_adv_front.F |
306 |
STREAMICE_ADV_FRONT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_adv_front.F |
51 |
STREAMICE_ADV_FRONT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/streamice/streamice_advect_2dtracer.F |
227 |
STREAMICE_ADVECT_2DTRACER |
WRITE(msgBuf,'(A)') 'END STREAMICE_ADVECT_THICKNESS' |
./pkg/streamice/streamice_advect_2dtracer.F |
228 |
STREAMICE_ADVECT_2DTRACER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_advect_2dtracer.F |
61 |
STREAMICE_ADVECT_2DTRACER |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/streamice/streamice_advect_thickness.F |
380 |
STREAMICE_ADVECT_THICKNESS |
WRITE(msgBuf,'(A)') 'END STREAMICE_ADVECT_THICKNESS' |
./pkg/streamice/streamice_advect_thickness.F |
381 |
STREAMICE_ADVECT_THICKNESS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_advect_thickness.F |
56 |
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 |
./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_cg_solve.F |
220 |
STREAMICE_CG_SOLVE |
WRITE(msgBuf,'(A,I1,I1,E14.7)') 'CONJ GRAD INIT RESID LOCAL, ', |
./pkg/streamice/streamice_cg_solve.F |
222 |
STREAMICE_CG_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_cg_solve.F |
228 |
STREAMICE_CG_SOLVE |
WRITE(msgBuf,'(A,E14.7)') 'CONJ GRAD INIT RESID, ', |
./pkg/streamice/streamice_cg_solve.F |
230 |
STREAMICE_CG_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_cg_solve.F |
276 |
STREAMICE_CG_SOLVE |
WRITE(msgBuf,'(A)') 'BEGINNING MAIN CG LOOP' |
./pkg/streamice/streamice_cg_solve.F |
277 |
STREAMICE_CG_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_cg_solve.F |
72 |
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 |
77 |
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 |
86 |
STREAMICE_DIAGNOSTICS_STATE |
WRITE(msgBuf,'(A)') 'CALLING FILL DIAGNOSTICS' |
./pkg/streamice/streamice_diagnostics_state.F |
87 |
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_get_fp_err_oad.F |
37 |
STREAMICE_GET_FP_ERR_OAD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/streamice/streamice_get_vel_resid_err.F |
38 |
STREAMICE_GET_VEL_RESID_ERR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
46 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
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 |
104 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'SIG COORD INIT - NOT IMPLENTED' |
./pkg/streamice/streamice_init_fixed.F |
105 |
STREAMICE_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_init_fixed.F |
116 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'COST MASK - NOT IMPLENTED' |
./pkg/streamice/streamice_init_fixed.F |
117 |
STREAMICE_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_init_fixed.F |
141 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'U FACE MASK - NOT SET' |
./pkg/streamice/streamice_init_fixed.F |
142 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_fixed.F |
150 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'V FACE MASK - NOT SET' |
./pkg/streamice/streamice_init_fixed.F |
151 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_fixed.F |
166 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'U DIRICH VALS - NOT SET' |
./pkg/streamice/streamice_init_fixed.F |
167 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_fixed.F |
179 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'V DIRICH VALS - NOT SET' |
./pkg/streamice/streamice_init_fixed.F |
180 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_fixed.F |
188 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'THICK BC AT U FACE - NOT SET' |
./pkg/streamice/streamice_init_fixed.F |
189 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_fixed.F |
197 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'THICK BC AT V FACE - NOT SET' |
./pkg/streamice/streamice_init_fixed.F |
198 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_fixed.F |
206 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'MASS FLUX AT U FACE - NOT SET' |
./pkg/streamice/streamice_init_fixed.F |
207 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_fixed.F |
215 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'MASS FLUX AT V FACE - NOT SET' |
./pkg/streamice/streamice_init_fixed.F |
216 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_fixed.F |
226 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'TRAC BC AT U FACE - NOT SET' |
./pkg/streamice/streamice_init_fixed.F |
227 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_fixed.F |
235 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'TRAC BC AT V FACE - NOT SET' |
./pkg/streamice/streamice_init_fixed.F |
236 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_fixed.F |
251 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'H MASK FILE - NOT SET' |
./pkg/streamice/streamice_init_fixed.F |
252 |
STREAMICE_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_fixed.F |
40 |
STREAMICE_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/streamice/streamice_init_fixed.F |
76 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'INIT CALVE MASK - NOT IMPLENTED' |
./pkg/streamice/streamice_init_fixed.F |
77 |
STREAMICE_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_init_fixed.F |
95 |
STREAMICE_INIT_FIXED |
WRITE(msgBuf,'(A)') 'SIG FROM FILE - NOT IMPLENTED' |
./pkg/streamice/streamice_init_fixed.F |
96 |
STREAMICE_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_init_varia.F |
175 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'STREAMICE TOPOG - FILENAME MISSING' |
./pkg/streamice/streamice_init_varia.F |
176 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_init_varia.F |
187 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'initializing analytic thickness' |
./pkg/streamice/streamice_init_varia.F |
188 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_init_varia.F |
275 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT THICKNESS - FILENAME MISSING' |
./pkg/streamice/streamice_init_varia.F |
276 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_init_varia.F |
282 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT THICKNESS - NOT IMPLENTED' |
./pkg/streamice/streamice_init_varia.F |
283 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_init_varia.F |
296 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT THICKNESS - FILENAME MISSING' |
./pkg/streamice/streamice_init_varia.F |
297 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_varia.F |
306 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT HMASK - FILENAME MISSING' |
./pkg/streamice/streamice_init_varia.F |
307 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_varia.F |
341 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT GLEN - FILENAME MISSING' |
./pkg/streamice/streamice_init_varia.F |
342 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_init_varia.F |
366 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT GLEN CONSTANT - NOT IMPLENTED' |
./pkg/streamice/streamice_init_varia.F |
367 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_varia.F |
384 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT BDOT - FILENAME MISSING' |
./pkg/streamice/streamice_init_varia.F |
385 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_init_varia.F |
404 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT C_BASAL - FILENAME MISSING' |
./pkg/streamice/streamice_init_varia.F |
405 |
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 |
459 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'INIT TRAC - NOT IMPLENTED' |
./pkg/streamice/streamice_init_varia.F |
460 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_varia.F |
475 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'TRAC2dInit - NO FILE SPECIFIED' |
./pkg/streamice/streamice_init_varia.F |
476 |
STREAMICE_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_init_varia.F |
500 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'IMPOSED NORMAL U STRESS NOT SET' |
./pkg/streamice/streamice_init_varia.F |
501 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_varia.F |
509 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'IMPOSED NORMAL V STRESS NOT SET' |
./pkg/streamice/streamice_init_varia.F |
510 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_varia.F |
518 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'IMPOSED SHEAR U STRESS NOT SET' |
./pkg/streamice/streamice_init_varia.F |
519 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/streamice/streamice_init_varia.F |
527 |
STREAMICE_INIT_VARIA |
WRITE(msgBuf,'(A)') 'IMPOSED SHEAR V STRESS NOT SET' |
./pkg/streamice/streamice_init_varia.F |
528 |
STREAMICE_INIT_VARIA |
CALL PRINT_ERROR( msgBuf, myThid) |
./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 |
35 |
STREAMICE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/streamice/streamice_readparms.F |
368 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') 'STREAMICE_READPARMS: opening data.streamice' |
./pkg/streamice/streamice_readparms.F |
369 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_readparms.F |
378 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/streamice/streamice_readparms.F |
380 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_readparms.F |
385 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/streamice/streamice_readparms.F |
387 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_readparms.F |
393 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/streamice/streamice_readparms.F |
395 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_readparms.F |
401 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/streamice/streamice_readparms.F |
403 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_readparms.F |
409 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/streamice/streamice_readparms.F |
411 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_readparms.F |
416 |
STREAMICE_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/streamice/streamice_readparms.F |
418 |
STREAMICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_timestep.F |
169 |
STREAMICE_TIMESTEP |
WRITE(msgBuf,'(A,I3,A,1PE22.14)') 'ECSE_CRYO_SUM ', myIter, ', ', |
./pkg/streamice/streamice_timestep.F |
171 |
STREAMICE_TIMESTEP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_timestep.F |
49 |
STREAMICE_TIMESTEP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/streamice/streamice_timestep.F |
93 |
STREAMICE_TIMESTEP |
WRITE(msgBuf,'(A,I10.10,E9.2,A)') |
./pkg/streamice/streamice_timestep.F |
96 |
STREAMICE_TIMESTEP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_vel_phi.F |
55 |
STREAMICE_VEL_PHI |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/streamice/streamice_vel_phistage.F |
104 |
STREAMICE_VEL_PHISTAGE |
WRITE(msgBuf,'(A,E15.7)') 'err/err_init', err_max/err_init |
./pkg/streamice/streamice_vel_phistage.F |
105 |
STREAMICE_VEL_PHISTAGE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGH |
./pkg/streamice/streamice_vel_phistage.F |
116 |
STREAMICE_VEL_PHISTAGE |
WRITE(msgBuf,'(A,E15.7)') 'new cg tol: ', cgtol |
./pkg/streamice/streamice_vel_phistage.F |
117 |
STREAMICE_VEL_PHISTAGE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIG |
./pkg/streamice/streamice_vel_phistage.F |
127 |
STREAMICE_VEL_PHISTAGE |
WRITE(msgBuf,'(A,1PE22.14)') 'STREAMICE_FP_ERROR =', err_max_ |
./pkg/streamice/streamice_vel_phistage.F |
129 |
STREAMICE_VEL_PHISTAGE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGH |
./pkg/streamice/streamice_vel_phistage.F |
81 |
STREAMICE_VEL_PHISTAGE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/streamice/streamice_vel_solve.F |
141 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,E15.7)') 'initial nonlinear resid (error): ', |
./pkg/streamice/streamice_vel_solve.F |
143 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_vel_solve.F |
241 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,I5,A,I4,A)') 'streamice linear solve number', |
./pkg/streamice/streamice_vel_solve.F |
245 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_vel_solve.F |
275 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,E15.7)') 'err/err_init', |
./pkg/streamice/streamice_vel_solve.F |
277 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_vel_solve.F |
302 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,1PE22.14)') 'STREAMICE_FP_ERROR =', |
./pkg/streamice/streamice_vel_solve.F |
304 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_vel_solve.F |
319 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,E15.7)') 'new cg tol: ', |
./pkg/streamice/streamice_vel_solve.F |
321 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_vel_solve.F |
334 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,I5,A)') 'VELOCITY SOLVE CONVERGED, ', |
./pkg/streamice/streamice_vel_solve.F |
336 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_vel_solve.F |
339 |
STREAMICE_VEL_SOLVE |
WRITE(msgBuf,'(A,I5,A)') 'VELOCITY SOLVE NOT CONVERGED IN ', |
./pkg/streamice/streamice_vel_solve.F |
341 |
STREAMICE_VEL_SOLVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_vel_solve.F |
57 |
STREAMICE_VEL_SOLVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/streamice/streamice_vel_solve_openad.F |
114 |
STREAMICE_VEL_SOLVE_OPENAD |
WRITE(msgBuf,'(A,E15.7)') 'initial nonlinear resid (error): ', |
./pkg/streamice/streamice_vel_solve_openad.F |
116 |
STREAMICE_VEL_SOLVE_OPENAD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_vel_solve_openad.F |
228 |
STREAMICE_VEL_SOLVE_OPENAD |
WRITE(msgBuf,'(A,I5,A)') 'VELOCITY SOLVE CONVERGED, ', |
./pkg/streamice/streamice_vel_solve_openad.F |
230 |
STREAMICE_VEL_SOLVE_OPENAD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_vel_solve_openad.F |
233 |
STREAMICE_VEL_SOLVE_OPENAD |
WRITE(msgBuf,'(A,I5,A)') 'VELOCITY SOLVE NOT CONVERGED IN ', |
./pkg/streamice/streamice_vel_solve_openad.F |
235 |
STREAMICE_VEL_SOLVE_OPENAD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/streamice/streamice_vel_solve_openad.F |
45 |
STREAMICE_VEL_SOLVE_OPENAD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/streamice/streamice_velmask_upd.F |
45 |
STREAMICE_VELMASK_UPD |
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 |
./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 |
143 |
INI_MODEL_IO |
WRITE(msgBuf,'(2A,I4,A)') 'INI_MODEL_IO: ', |
./model/src/ini_model_io.F |
145 |
INI_MODEL_IO |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_model_io.F |
158 |
INI_MODEL_IO |
WRITE(msgBuf,'(3A)') '** WARNING ** INI_MODEL_IO: ', |
./model/src/ini_model_io.F |
160 |
INI_MODEL_IO |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_model_io.F |
162 |
INI_MODEL_IO |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/ini_model_io.F |
167 |
INI_MODEL_IO |
WRITE(msgBuf,'(A)') ' ' |
./model/src/ini_model_io.F |
168 |
INI_MODEL_IO |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_model_io.F |
183 |
INI_MODEL_IO |
WRITE(msgBuf,'(2A)') '** WARNING ** INI_MODEL_IO:', |
./model/src/ini_model_io.F |
185 |
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/thsice/thsice_check.F |
105 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** THSICE_CHECK: ', |
./pkg/thsice/thsice_check.F |
107 |
THSICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/thsice/thsice_check.F |
109 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** THSICE_CHECK: ', |
./pkg/thsice/thsice_check.F |
111 |
THSICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/thsice/thsice_check.F |
120 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** THSICE_CHECK: ', |
./pkg/thsice/thsice_check.F |
122 |
THSICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/thsice/thsice_check.F |
124 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** THSICE_CHECK: ', |
./pkg/thsice/thsice_check.F |
127 |
THSICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/thsice/thsice_check.F |
132 |
THSICE_CHECK |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/thsice/thsice_check.F |
134 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/thsice/thsice_check.F |
35 |
THSICE_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/thsice/thsice_check.F |
42 |
THSICE_CHECK |
WRITE(msgBuf,'(A)') 'THSICE_CHECK: #define THSICE' |
./pkg/thsice/thsice_check.F |
43 |
THSICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/thsice/thsice_check.F |
50 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/thsice/thsice_check.F |
52 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/thsice/thsice_check.F |
53 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/thsice/thsice_check.F |
55 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/thsice/thsice_check.F |
59 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/thsice/thsice_check.F |
62 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/thsice/thsice_check.F |
67 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') 'THSICE_CHECK: Need to compile ', |
./pkg/thsice/thsice_check.F |
69 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/thsice/thsice_check.F |
76 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') 'THSICE_CHECK: needs to have ', |
./pkg/thsice/thsice_check.F |
78 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/thsice/thsice_check.F |
82 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') 'THSICE_CHECK: cannot use', |
./pkg/thsice/thsice_check.F |
84 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/thsice/thsice_check.F |
91 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/thsice/thsice_check.F |
93 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/thsice/thsice_check.F |
97 |
THSICE_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/thsice/thsice_check.F |
99 |
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 |
./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/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 |
261 |
THSICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** THSICE_READPARMS:', |
./pkg/thsice/thsice_readparms.F |
263 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/thsice/thsice_readparms.F |
265 |
THSICE_READPARMS |
WRITE(msgBuf,'(2A)') 'THSICE_READPARMS: useSEAICE=T =>', |
./pkg/thsice/thsice_readparms.F |
267 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/thsice/thsice_readparms.F |
272 |
THSICE_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** THSICE_READPARMS:', |
./pkg/thsice/thsice_readparms.F |
274 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/thsice/thsice_readparms.F |
276 |
THSICE_READPARMS |
WRITE(msgBuf,'(2A)') 'THSICE_READPARMS:', |
./pkg/thsice/thsice_readparms.F |
278 |
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 ) |
./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_p_ground.F |
206 |
INI_P_GROUND |
WRITE(msgBuf,'(2A)') |
./model/src/ini_p_ground.F |
209 |
INI_P_GROUND |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_p_ground.F |
210 |
INI_P_GROUND |
WRITE(msgBuf,'(A,F7.1,2A,F6.4,A,F8.0)') |
./model/src/ini_p_ground.F |
213 |
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 ) |
./pkg/timeave/timeave_statv_write.F |
202 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A)') 'S/R WRITE_TIME_AVERAGES' |
./pkg/timeave/timeave_statv_write.F |
203 |
TIMEAVE_STATV_WRITE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/timeave/timeave_statv_write.F |
204 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A)') 'Error writing out data' |
./pkg/timeave/timeave_statv_write.F |
205 |
TIMEAVE_STATV_WRITE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/timeave/timeave_statv_write.F |
206 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
./pkg/timeave/timeave_statv_write.F |
207 |
TIMEAVE_STATV_WRITE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/timeave/timeave_statv_write.F |
211 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A,I10)') |
./pkg/timeave/timeave_statv_write.F |
213 |
TIMEAVE_STATV_WRITE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/timeave/timeave_statv_write.F |
215 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A)') ' ' |
./pkg/timeave/timeave_statv_write.F |
216 |
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_parms.F |
1002 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1004 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1005 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1007 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1011 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1013 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1014 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1016 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1021 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1023 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1024 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1026 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1070 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; starts to read PARM04' |
./model/src/ini_parms.F |
1071 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
1075 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1077 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1078 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS: Problem in namelist PARM04' |
./model/src/ini_parms.F |
1079 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1082 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; read PARM04 : OK' |
./model/src/ini_parms.F |
1083 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
1091 |
INI_PARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** INI_PARMS: ', |
./model/src/ini_parms.F |
1094 |
INI_PARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** INI_PARMS: ', |
./model/src/ini_parms.F |
1097 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/ini_parms.F |
1100 |
INI_PARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** INI_PARMS: ', |
./model/src/ini_parms.F |
1103 |
INI_PARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** INI_PARMS: ', |
./model/src/ini_parms.F |
1106 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/ini_parms.F |
1111 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
1114 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1118 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
1121 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1125 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
1128 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1132 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
1135 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1144 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'Too many specifications for delX:', |
./model/src/ini_parms.F |
1146 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1160 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'Too many specifications for delY:', |
./model/src/ini_parms.F |
1162 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1178 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1180 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1185 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1187 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/ini_parms.F |
1189 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1191 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/ini_parms.F |
1215 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: ', |
./model/src/ini_parms.F |
1217 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1221 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: ', |
./model/src/ini_parms.F |
1223 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1244 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1246 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1257 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; Cylinder OK' |
./model/src/ini_parms.F |
1258 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
1294 |
INI_PARMS |
WRITE(msgBuf,'(A,I4)') |
./model/src/ini_parms.F |
1296 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1302 |
INI_PARMS |
WRITE(msgBuf,'(A,I4)') |
./model/src/ini_parms.F |
1304 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1320 |
INI_PARMS |
WRITE(msgBuf,'(A,I4)') |
./model/src/ini_parms.F |
1322 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1328 |
INI_PARMS |
WRITE(msgBuf,'(A,I4)') |
./model/src/ini_parms.F |
1330 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1341 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1343 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1349 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1351 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1358 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1360 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1367 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; starts to read PARM05' |
./model/src/ini_parms.F |
1368 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
1372 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1374 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1375 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS: Problem in namelist PARM05' |
./model/src/ini_parms.F |
1376 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1379 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; read PARM05 : OK' |
./model/src/ini_parms.F |
1380 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
1386 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
1389 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1393 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
1395 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1399 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1401 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1402 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1404 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1411 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1413 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1414 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1416 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1421 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1423 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1424 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1426 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1432 |
INI_PARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** INI_PARMS: Ignores diffKr', |
./model/src/ini_parms.F |
1434 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/ini_parms.F |
1438 |
INI_PARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** INI_PARMS: Ignores diffKr', |
./model/src/ini_parms.F |
1440 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/ini_parms.F |
1478 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS: finished reading file "data"' |
./model/src/ini_parms.F |
1479 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
1484 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
1486 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1487 |
INI_PARMS |
WRITE(msgBuf,'(I4,A)') nRetired, |
./model/src/ini_parms.F |
1489 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
1494 |
INI_PARMS |
WRITE(msgBuf,'(A,I3,A)') |
./model/src/ini_parms.F |
1496 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
355 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
357 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
393 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; starts to read PARM01' |
./model/src/ini_parms.F |
394 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
398 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
400 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
401 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS: Problem in namelist PARM01' |
./model/src/ini_parms.F |
402 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
405 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; read PARM01 : OK' |
./model/src/ini_parms.F |
406 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
426 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS:', |
./model/src/ini_parms.F |
428 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
435 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
437 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
439 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
441 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
468 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
470 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
495 |
INI_PARMS |
WRITE(msgBuf,'(A,2(I5,A))') 'S/R INI_PARMS: Partial setting (', |
./model/src/ini_parms.F |
497 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
503 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: Cannot set both ', |
./model/src/ini_parms.F |
505 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
529 |
INI_PARMS |
WRITE(msgBuf,'(A,2(I5,A))') 'S/R INI_PARMS: Partial setting (', |
./model/src/ini_parms.F |
531 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
538 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: Cannot set both ', |
./model/src/ini_parms.F |
540 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
561 |
INI_PARMS |
WRITE(msgBuf,'(A,2(I5,A))') 'S/R INI_PARMS: Partial setting (', |
./model/src/ini_parms.F |
563 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
569 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: Cannot set both ', |
./model/src/ini_parms.F |
56 |
INI_PARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./model/src/ini_parms.F |
571 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
610 |
INI_PARMS |
WRITE(msgBuf,'(A,I5,A)') |
./model/src/ini_parms.F |
613 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
619 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
622 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
631 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
633 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
637 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
639 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
646 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
648 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
652 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
654 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
658 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
660 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
679 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "useConstantF" ', |
./model/src/ini_parms.F |
681 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
682 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: set "selectCoriMap"', |
./model/src/ini_parms.F |
684 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
688 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "useBetaPlaneF" ', |
./model/src/ini_parms.F |
690 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
691 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: set "selectCoriMap"', |
./model/src/ini_parms.F |
693 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
697 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "useSphereF" ', |
./model/src/ini_parms.F |
699 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
700 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: set "selectCoriMap"', |
./model/src/ini_parms.F |
702 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
706 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
709 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
710 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
713 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
717 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
720 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
724 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tracerAdvScheme" ', |
./model/src/ini_parms.F |
726 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
730 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "trac_EvPrRn" ', |
./model/src/ini_parms.F |
732 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
736 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tempDiffusion" ', |
./model/src/ini_parms.F |
738 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
739 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to turn off diffusion', |
./model/src/ini_parms.F |
741 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
745 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "saltDiffusion" ', |
./model/src/ini_parms.F |
747 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
748 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to turn off diffusion', |
./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 |
758 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to use Strain & Tension', |
./model/src/ini_parms.F |
760 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
764 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
767 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
768 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to use Strain & Tension', |
./model/src/ini_parms.F |
770 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
774 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
777 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
781 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
784 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
788 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
791 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
795 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
798 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
802 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "useOldFreezing" ', |
./model/src/ini_parms.F |
804 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
808 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; starts to read PARM02' |
./model/src/ini_parms.F |
809 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
813 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
815 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
816 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS: Problem in namelist PARM02' |
./model/src/ini_parms.F |
817 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
820 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; read PARM02 : OK' |
./model/src/ini_parms.F |
821 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
831 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; starts to read PARM03' |
./model/src/ini_parms.F |
832 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
836 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
838 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
839 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS: Problem in namelist PARM03' |
./model/src/ini_parms.F |
840 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
843 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' INI_PARMS ; read PARM03 : OK' |
./model/src/ini_parms.F |
844 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_parms.F |
850 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tauThetaClimRelax3Dim" ', |
./model/src/ini_parms.F |
852 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
853 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: 3-dim. relaxation code', |
./model/src/ini_parms.F |
855 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
859 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tauSaltClimRelax3Dim" ', |
./model/src/ini_parms.F |
861 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
862 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: 3-dim. relaxation code', |
./model/src/ini_parms.F |
864 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
868 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "calendarDumps" ', |
./model/src/ini_parms.F |
870 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
871 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: calendarDumps', |
./model/src/ini_parms.F |
873 |
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 |
892 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: ', |
./model/src/ini_parms.F |
894 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
895 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: ', |
./model/src/ini_parms.F |
897 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
915 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
917 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
921 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
923 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
926 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
928 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
932 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
./model/src/ini_parms.F |
934 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_parms.F |
952 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
./model/src/ini_parms.F |
955 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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 ) |
./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, |
./pkg/zonal_filt/zonal_filt_readparms.F |
102 |
ZONAL_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'ZONAL_FILT with rigidLid ', |
./pkg/zonal_filt/zonal_filt_readparms.F |
104 |
ZONAL_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/zonal_filt/zonal_filt_readparms.F |
107 |
ZONAL_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R ZONAL_FILT_READPARMS: WARNING <<< ', |
./pkg/zonal_filt/zonal_filt_readparms.F |
109 |
ZONAL_FILT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, errorMessageUnit, SQUEEZE_RIGHT,1) |
./pkg/zonal_filt/zonal_filt_readparms.F |
110 |
ZONAL_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R ZONAL_FILT_READPARMS: WARNING <<< ', |
./pkg/zonal_filt/zonal_filt_readparms.F |
112 |
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, |
./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 |
./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/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_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 |
./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) |
./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 |
185 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,I4,A,E16.8)') |
./model/src/ini_vertical_grid.F |
188 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
189 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,1PE14.6,A,2E14.6)') |
./model/src/ini_vertical_grid.F |
192 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
369 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(2A)') 'S/R INI_VERTICAL_GRID:', |
./model/src/ini_vertical_grid.F |
371 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
373 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,I4,2(A,1PE14.6),A,1P2E14.6)') |
./model/src/ini_vertical_grid.F |
376 |
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 |
385 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(2A)') 'S/R INI_VERTICAL_GRID:', |
./model/src/ini_vertical_grid.F |
387 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
389 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,I4,2(A,1PE14.6),A,1P2E14.6)') |
./model/src/ini_vertical_grid.F |
392 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/ini_vertical_grid.F |
396 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(2A,1PE14.6)') 'S/R INI_VERTICAL_GRID:', |
./model/src/ini_vertical_grid.F |
398 |
INI_VERTICAL_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_vertical_grid.F |
400 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(2A,1PE14.6)') 'S/R INI_VERTICAL_GRID:', |
./model/src/ini_vertical_grid.F |
402 |
INI_VERTICAL_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/ini_vertical_grid.F |
405 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(2A)') 'S/R INI_VERTICAL_GRID:', |
./model/src/ini_vertical_grid.F |
407 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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/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 |
./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 |
./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, |
./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, |
./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 |
./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 |
127 |
LOAD_REF_FILES |
WRITE(msgBuf,'(3A)') 'S/R LOAD_REF_FILES: ', |
./model/src/load_ref_files.F |
129 |
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 |
103 |
PACKAGES_BOOT |
WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: opening data.pkg' |
./model/src/packages_boot.F |
104 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/packages_boot.F |
179 |
PACKAGES_BOOT |
WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: finished reading data.pkg' |
./model/src/packages_boot.F |
180 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/packages_boot.F |
193 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') '** WARNING ** pkg/profiles uses NetCDF', |
./model/src/packages_boot.F |
195 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/packages_boot.F |
197 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') '** WARNING ** PACKAGES_BOOT:', |
./model/src/packages_boot.F |
199 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/packages_boot.F |
201 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') ' PACKAGES_BOOT: undef HAVE_NETCDF', |
./model/src/packages_boot.F |
203 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/packages_boot.F |
225 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') '** WARNING ** PACKAGES_BOOT: ', |
./model/src/packages_boot.F |
227 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/packages_boot.F |
229 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/packages_boot.F |
231 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') '** WARNING ** PACKAGES_BOOT: ', |
./model/src/packages_boot.F |
233 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/packages_boot.F |
235 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/packages_boot.F |
237 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') '** WARNING ** PACKAGES_BOOT: ', |
./model/src/packages_boot.F |
239 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/packages_boot.F |
241 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') '** WARNING ** PACKAGES_BOOT: ', |
./model/src/packages_boot.F |
243 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/packages_boot.F |
250 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') ' PACKAGES_BOOT: On/Off package Summary' |
./model/src/packages_boot.F |
251 |
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 |
497 |
PACKAGES_BOOT |
WRITE(msgBuf,'(2A)') ' PACKAGES_BOOT: End of package Summary' |
./model/src/packages_boot.F |
498 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/packages_boot.F |
500 |
PACKAGES_BOOT |
WRITE(msgBuf,'(A)') ' ' |
./model/src/packages_boot.F |
501 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/packages_check.F |
112 |
PACKAGES_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./model/src/packages_check.F |
116 |
PACKAGES_CHECK |
WRITE(msgBuf,'(A)') |
./model/src/packages_check.F |
118 |
PACKAGES_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/packages_check.F |
120 |
PACKAGES_CHECK |
WRITE(msgBuf,'(A)') ' ' |
./model/src/packages_check.F |
121 |
PACKAGES_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./model/src/packages_check.F |
130 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING **', |
./model/src/packages_check.F |
132 |
PACKAGES_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/packages_check.F |
134 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING **', |
./model/src/packages_check.F |
136 |
PACKAGES_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/packages_check.F |
144 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') |
./model/src/packages_check.F |
147 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
148 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
./model/src/packages_check.F |
150 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
157 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') |
./model/src/packages_check.F |
160 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
161 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
./model/src/packages_check.F |
163 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
171 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') |
./model/src/packages_check.F |
174 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
175 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
./model/src/packages_check.F |
177 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
492 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
./model/src/packages_check.F |
494 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
495 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
./model/src/packages_check.F |
497 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
504 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
./model/src/packages_check.F |
506 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/packages_check.F |
507 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
./model/src/packages_check.F |
509 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./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/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
66 |
CTRL_MAP_INI_GENARR |
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 |
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
66 |
CTRL_MAP_INI_GENARR |
character*(MAX_LEN_MBUF) msgBuf |
./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 |
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
151 |
CTRL_MAP_GENTIM2D |
WRITE(msgBuf,'(A,I6,A,I6,A,1PE21.14)') ' xx_gentim2d ', |
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
153 |
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 |
62 |
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 |
151 |
CTRL_MAP_GENTIM2D |
WRITE(msgBuf,'(A,I6,A,I6,A,1PE21.14)') ' xx_gentim2d ', |
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
153 |
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/read_pickup.F |
115 |
READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'READ_PICKUP: ', |
./model/src/read_pickup.F |
117 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/read_pickup.F |
118 |
READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'READ_PICKUP: ', |
./model/src/read_pickup.F |
120 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/read_pickup.F |
131 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'READ_PICKUP: ', |
./model/src/read_pickup.F |
135 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/read_pickup.F |
136 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'READ_PICKUP: ', |
./model/src/read_pickup.F |
139 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/read_pickup.F |
142 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> READ_PICKUP: ', |
./model/src/read_pickup.F |
144 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/read_pickup.F |
147 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./model/src/read_pickup.F |
149 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/read_pickup.F |
152 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./model/src/read_pickup.F |
154 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/read_pickup.F |
155 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./model/src/read_pickup.F |
157 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/read_pickup.F |
444 |
READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'READ_PICKUP: ', |
./model/src/read_pickup.F |
446 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/read_pickup.F |
74 |
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) |
./model/src/set_parms.F |
136 |
SET_PARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** SET_PARMS: ', |
./model/src/set_parms.F |
138 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/set_parms.F |
157 |
SET_PARMS |
WRITE(msgBuf,'(A,A)') '** WARNING ** SET_PARMS: ', |
./model/src/set_parms.F |
159 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/set_parms.F |
242 |
SET_PARMS |
WRITE(msgBuf,'(A,I9,A)') 'SET_PARAMS: selectP_inEOS_Zc=', |
./model/src/set_parms.F |
244 |
SET_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/set_parms.F |
251 |
SET_PARMS |
WRITE(msgBuf,'(A,I9,A)') 'SET_PARAMS: selectP_inEOS_Zc=', |
./model/src/set_parms.F |
253 |
SET_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/set_parms.F |
272 |
SET_PARMS |
WRITE(msgBuf,'(A,A)') '** WARNING ** SET_PARMS: ', |
./model/src/set_parms.F |
274 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/set_parms.F |
276 |
SET_PARMS |
WRITE(msgBuf,'(2A,1PE20.13)') '** WARNING ** SET_PARMS: ', |
./model/src/set_parms.F |
278 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/set_parms.F |
280 |
SET_PARMS |
WRITE(msgBuf,'(2A,1PE20.13)') '** WARNING ** SET_PARMS: ', |
./model/src/set_parms.F |
282 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/set_parms.F |
295 |
SET_PARMS |
WRITE(msgBuf,'(A,A)') 'SET_PARMS: done' |
./model/src/set_parms.F |
296 |
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 |
76 |
SET_PARMS |
WRITE(msgBuf,'(2A)') 'SET_PARAMS: ', |
./model/src/set_parms.F |
78 |
SET_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/set_parms.F |
79 |
SET_PARMS |
WRITE(msgBuf,'(2A)') 'SET_PARAMS: ', |
./model/src/set_parms.F |
81 |
SET_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/set_parms.F |
88 |
SET_PARMS |
WRITE(msgBuf,'(2A)') 'SET_PARAMS: ', |
./model/src/set_parms.F |
90 |
SET_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/set_parms.F |
91 |
SET_PARMS |
WRITE(msgBuf,'(2A)') 'SET_PARAMS: ', |
./model/src/set_parms.F |
93 |
SET_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/set_ref_state.F |
139 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
./model/src/set_ref_state.F |
141 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/set_ref_state.F |
142 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
./model/src/set_ref_state.F |
144 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/set_ref_state.F |
148 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
./model/src/set_ref_state.F |
150 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/set_ref_state.F |
151 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
./model/src/set_ref_state.F |
153 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
./model/src/set_ref_state.F |
156 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
./model/src/set_ref_state.F |
158 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/set_ref_state.F |
160 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
./model/src/set_ref_state.F |
162 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./model/src/set_ref_state.F |
378 |
SET_REF_STATE |
WRITE(msgBuf,'(A)') ' ' |
./model/src/set_ref_state.F |
379 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/set_ref_state.F |
380 |
SET_REF_STATE |
WRITE(msgBuf,'(A)') |
./model/src/set_ref_state.F |
382 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/set_ref_state.F |
383 |
SET_REF_STATE |
WRITE(msgBuf,'(A)') |
./model/src/set_ref_state.F |
385 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/set_ref_state.F |
387 |
SET_REF_STATE |
WRITE(msgBuf,'(A,F5.1,A,F15.1,A,F13.3)') |
./model/src/set_ref_state.F |
390 |
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 |
./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 |
./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 |
113 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A,2(A,L5))') 'SOLVE_FOR_PRESSURE:', |
./model/src/solve_for_pressure.F |
115 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/solve_for_pressure.F |
116 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(2A,L5)') 'SOLVE_FOR_PRESSURE:', |
./model/src/solve_for_pressure.F |
118 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./model/src/solve_for_pressure.F |
327 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A20,1PE23.14)') 'cg2d_init_res =',firstResidual |
./model/src/solve_for_pressure.F |
328 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
./model/src/solve_for_pressure.F |
329 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A27,2I8)') |
./model/src/solve_for_pressure.F |
331 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
./model/src/solve_for_pressure.F |
334 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A20,1PE23.14)') 'cg2d_min_res =',minResidualSq |
./model/src/solve_for_pressure.F |
335 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
./model/src/solve_for_pressure.F |
337 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A20,1PE23.14)') 'cg2d_last_res =',lastResidual |
./model/src/solve_for_pressure.F |
338 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
./model/src/solve_for_pressure.F |
430 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A20,1PE23.14)') 'cg3d_init_res =',firstResidual |
./model/src/solve_for_pressure.F |
431 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
./model/src/solve_for_pressure.F |
432 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A27,I16)') 'cg3d_iters (last) = ',numIters |
./model/src/solve_for_pressure.F |
433 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
./model/src/solve_for_pressure.F |
434 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A20,1PE23.14)') 'cg3d_last_res =',lastResidual |
./model/src/solve_for_pressure.F |
435 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
./model/src/solve_for_pressure.F |
66 |
SOLVE_FOR_PRESSURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
101 |
COST_WEIGHTS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
47 |
COST_WEIGHTS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
99 |
COST_WEIGHTS |
WRITE(msgBuf,'(3A)') 'S/R COST_WEIGHTS:', |
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
101 |
COST_WEIGHTS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
47 |
COST_WEIGHTS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
99 |
COST_WEIGHTS |
WRITE(msgBuf,'(3A)') 'S/R COST_WEIGHTS:', |
./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, |
./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 |
./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 |
./eesupp/src/eeboot_minimal.F |
115 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(A,I5)') |
./eesupp/src/eeboot_minimal.F |
117 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/eeboot_minimal.F |
181 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(A,I5)') |
./eesupp/src/eeboot_minimal.F |
183 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/eeboot_minimal.F |
214 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(2A)') '** WARNING ** EEBOOT_MINIMAL: ', |
./eesupp/src/eeboot_minimal.F |
216 |
EEBOOT_MINIMAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./eesupp/src/eeboot_minimal.F |
218 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(2A)') '** WARNING ** EEBOOT_MINIMAL: ', |
./eesupp/src/eeboot_minimal.F |
220 |
EEBOOT_MINIMAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./eesupp/src/eeboot_minimal.F |
237 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(A,I6)') |
./eesupp/src/eeboot_minimal.F |
239 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/eeboot_minimal.F |
247 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(A,I6)') |
./eesupp/src/eeboot_minimal.F |
249 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/eeboot_minimal.F |
262 |
EEBOOT_MINIMAL |
WRITE(msgBuf,'(2(A,I6))') |
./eesupp/src/eeboot_minimal.F |
265 |
EEBOOT_MINIMAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/eeboot_minimal.F |
56 |
EEBOOT_MINIMAL |
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 ) |
./model/src/write_pickup.F |
326 |
WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'WRITE_PICKUP: ', |
./model/src/write_pickup.F |
328 |
WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/write_pickup.F |
329 |
WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'WRITE_PICKUP: ', |
./model/src/write_pickup.F |
331 |
WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./model/src/write_pickup.F |
80 |
WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./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 |
174 |
EESET_PARMS |
WRITE(msgBuf,'(2A)') 'EESET_PARMS: ', |
./eesupp/src/eeset_parms.F |
176 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf, 1 ) |
./eesupp/src/eeset_parms.F |
201 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
./eesupp/src/eeset_parms.F |
203 |
EESET_PARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT, 1) |
./eesupp/src/eeset_parms.F |
204 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
./eesupp/src/eeset_parms.F |
206 |
EESET_PARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT, 1) |
./eesupp/src/eeset_parms.F |
207 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
./eesupp/src/eeset_parms.F |
209 |
EESET_PARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT, 1) |
./eesupp/src/eeset_parms.F |
215 |
EESET_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
./eesupp/src/eeset_parms.F |
216 |
EESET_PARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, SQUEEZE_RIGHT, 1) |
./eesupp/src/eeset_parms.F |
220 |
EESET_PARMS |
WRITE(msgBuf,'(A)') ' ' |
./eesupp/src/eeset_parms.F |
221 |
EESET_PARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, SQUEEZE_RIGHT, 1) |
./eesupp/src/eeset_parms.F |
250 |
EESET_PARMS |
WRITE(msgBuf,'(2A)') 'EESET_PARMS: ', |
./eesupp/src/eeset_parms.F |
252 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf, 1 ) |
./eesupp/src/eeset_parms.F |
269 |
EESET_PARMS |
WRITE(msgBuf,'(2A)') 'EESET_PARMS: ', |
./eesupp/src/eeset_parms.F |
271 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf, 1 ) |
./eesupp/src/eeset_parms.F |
272 |
EESET_PARMS |
WRITE(msgBuf,'(A)') 'EESET_PARMS: with #define ALWAYS_USE_MPI' |
./eesupp/src/eeset_parms.F |
273 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf, 1 ) |
./eesupp/src/eeset_parms.F |
280 |
EESET_PARMS |
WRITE(msgBuf,'(2A)') 'EESET_PARMS: ', |
./eesupp/src/eeset_parms.F |
282 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf, 1 ) |
./eesupp/src/eeset_parms.F |
283 |
EESET_PARMS |
WRITE(msgBuf,'(A)') 'EESET_PARMS: with #undef ALLOW_USE_MPI' |
./eesupp/src/eeset_parms.F |
284 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf, 1 ) |
./eesupp/src/eeset_parms.F |
55 |
EESET_PARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/aim_v23/aim_do_co2.F |
125 |
AIM_DO_CO2 |
WRITE(msgBuf,'(A)') ' ' |
./pkg/aim_v23/aim_do_co2.F |
126 |
AIM_DO_CO2 |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/aim_v23/aim_do_co2.F |
127 |
AIM_DO_CO2 |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/aim_v23/aim_do_co2.F |
128 |
AIM_DO_CO2 |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/aim_v23/aim_do_co2.F |
129 |
AIM_DO_CO2 |
WRITE(msgBuf,'(2A)') '// AIM_DO_CO2: Read pickup ',fn(iLo:iHi) |
./pkg/aim_v23/aim_do_co2.F |
130 |
AIM_DO_CO2 |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/aim_v23/aim_do_co2.F |
64 |
AIM_DO_CO2 |
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_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 |
./pkg/aim_v23/aim_readparms.F |
274 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') ' AIM_READPARMS: opening data.aimphys' |
./pkg/aim_v23/aim_readparms.F |
275 |
AIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/aim_v23/aim_readparms.F |
304 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/aim_v23/aim_readparms.F |
306 |
AIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/aim_v23/aim_readparms.F |
321 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') 'AIM_READPARMS: ', |
./pkg/aim_v23/aim_readparms.F |
323 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_v23/aim_readparms.F |
328 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') 'AIM_READPARMS: ', |
./pkg/aim_v23/aim_readparms.F |
330 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_v23/aim_readparms.F |
331 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/aim_v23/aim_readparms.F |
333 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_v23/aim_readparms.F |
342 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') 'AIM_READPARMS: ', |
./pkg/aim_v23/aim_readparms.F |
344 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_v23/aim_readparms.F |
350 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** AIM_READPARMS: ', |
./pkg/aim_v23/aim_readparms.F |
352 |
AIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/aim_v23/aim_readparms.F |
359 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') 'AIM_READPARMS: ', |
./pkg/aim_v23/aim_readparms.F |
361 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_v23/aim_readparms.F |
362 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/aim_v23/aim_readparms.F |
364 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_v23/aim_readparms.F |
372 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/aim_v23/aim_readparms.F |
374 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_v23/aim_readparms.F |
375 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/aim_v23/aim_readparms.F |
377 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/aim_v23/aim_readparms.F |
407 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
./pkg/aim_v23/aim_readparms.F |
408 |
AIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/aim_v23/aim_readparms.F |
409 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/aim_v23/aim_readparms.F |
410 |
AIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/aim_v23/aim_readparms.F |
411 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') '// AIM physics parameters :' |
./pkg/aim_v23/aim_readparms.F |
412 |
AIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/aim_v23/aim_readparms.F |
413 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/aim_v23/aim_readparms.F |
414 |
AIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/aim_v23/aim_readparms.F |
450 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') 'aim_select_pCO2=', |
./pkg/aim_v23/aim_readparms.F |
452 |
AIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/aim_v23/aim_readparms.F |
456 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/aim_v23/aim_readparms.F |
458 |
AIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/aim_v23/aim_readparms.F |
459 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/aim_v23/aim_readparms.F |
461 |
AIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/aim_v23/aim_readparms.F |
462 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/aim_v23/aim_readparms.F |
464 |
AIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/aim_v23/aim_readparms.F |
465 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/aim_v23/aim_readparms.F |
467 |
AIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/aim_v23/aim_readparms.F |
584 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/aim_v23/aim_readparms.F |
586 |
AIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/aim_v23/aim_readparms.F |
58 |
AIM_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/aim_v23/aim_readparms.F |
600 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/aim_v23/aim_readparms.F |
628 |
AIM_READPARMS |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/aim_v23/aim_readparms.F |
630 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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 |
193 |
AIM_WRITE_TAVE |
WRITE(msgBuf,'(A,I10)') |
./pkg/aim_v23/aim_write_tave.F |
195 |
AIM_WRITE_TAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/aim_v23/aim_write_tave.F |
197 |
AIM_WRITE_TAVE |
WRITE(msgBuf,'(A)') ' ' |
./pkg/aim_v23/aim_write_tave.F |
198 |
AIM_WRITE_TAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/aim_v23/aim_write_tave.F |
48 |
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_check_cplconfig.F |
49 |
ATM_CHECK_CPLCONFIG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/atm_compon_interf/atm_check_cplconfig.F |
69 |
ATM_CHECK_CPLCONFIG |
WRITE(msgBuf,'(2A,I4,A)') 'ATM_CHECK_CPLCONFIG: ', |
./pkg/atm_compon_interf/atm_check_cplconfig.F |
71 |
ATM_CHECK_CPLCONFIG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/atm_check_cplconfig.F |
90 |
ATM_CHECK_CPLCONFIG |
WRITE(msgBuf,'(2(A,I6),2(A,I4),A)') |
./pkg/atm_compon_interf/atm_check_cplconfig.F |
93 |
ATM_CHECK_CPLCONFIG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/atm_check_cplconfig.F |
94 |
ATM_CHECK_CPLCONFIG |
WRITE(msgBuf,'(A,E30.15)') |
./pkg/atm_compon_interf/atm_check_cplconfig.F |
96 |
ATM_CHECK_CPLCONFIG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/atm_check_cplconfig.F |
97 |
ATM_CHECK_CPLCONFIG |
WRITE(msgBuf,'(A,E30.15)') |
./pkg/atm_compon_interf/atm_check_cplconfig.F |
99 |
ATM_CHECK_CPLCONFIG |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
100 |
ATM_CPL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'ATM_CPL_READ_PICKUP: ', |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
103 |
ATM_CPL_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
107 |
ATM_CPL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ATM_CPL_READ_PICKUP: ', |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
109 |
ATM_CPL_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
112 |
ATM_CPL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
114 |
ATM_CPL_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
117 |
ATM_CPL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
119 |
ATM_CPL_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
120 |
ATM_CPL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
122 |
ATM_CPL_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
220 |
ATM_CPL_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'ATM_CPL_READ_PICKUP: ', |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
222 |
ATM_CPL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
229 |
ATM_CPL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'ATM_CPL_READ_PICKUP: ', |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
231 |
ATM_CPL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
56 |
ATM_CPL_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
81 |
ATM_CPL_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'ATM_CPL_READ_PICKUP: ', |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
83 |
ATM_CPL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
84 |
ATM_CPL_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'ATM_CPL_READ_PICKUP: ', |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
86 |
ATM_CPL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
96 |
ATM_CPL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'ATM_CPL_READ_PICKUP: ', |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
99 |
ATM_CPL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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_export_import_data.F |
49 |
CPL_EXPORT_IMPORT_DATA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/atm_compon_interf/cpl_export_import_data.F |
60 |
CPL_EXPORT_IMPORT_DATA |
WRITE(msgBuf,'(A,I10)') |
./pkg/atm_compon_interf/cpl_export_import_data.F |
62 |
CPL_EXPORT_IMPORT_DATA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/atm_compon_interf/cpl_export_import_data.F |
89 |
CPL_EXPORT_IMPORT_DATA |
WRITE(msgBuf,'(A,I10)') |
./pkg/atm_compon_interf/cpl_export_import_data.F |
91 |
CPL_EXPORT_IMPORT_DATA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/atm_compon_interf/cpl_import_cplparms.F |
42 |
CPL_IMPORT_CPLPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/atm_compon_interf/cpl_import_cplparms.F |
84 |
CPL_IMPORT_CPLPARMS |
WRITE(msgBuf,'(2A,I4,A)') 'CPL_IMPORT_CPLPARMS: ', |
./pkg/atm_compon_interf/cpl_import_cplparms.F |
86 |
CPL_IMPORT_CPLPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_import_cplparms.F |
87 |
CPL_IMPORT_CPLPARMS |
WRITE(msgBuf,'(2A,I4,A)') 'CPL_IMPORT_CPLPARMS: ', |
./pkg/atm_compon_interf/cpl_import_cplparms.F |
89 |
CPL_IMPORT_CPLPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
104 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/atm_compon_interf/cpl_readparms.F |
106 |
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 |
131 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs', |
./pkg/atm_compon_interf/cpl_readparms.F |
133 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
134 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/atm_compon_interf/cpl_readparms.F |
136 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
142 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs', |
./pkg/atm_compon_interf/cpl_readparms.F |
144 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
145 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/atm_compon_interf/cpl_readparms.F |
147 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
151 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs', |
./pkg/atm_compon_interf/cpl_readparms.F |
153 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
154 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/atm_compon_interf/cpl_readparms.F |
156 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
160 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs', |
./pkg/atm_compon_interf/cpl_readparms.F |
162 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
163 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/atm_compon_interf/cpl_readparms.F |
165 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
171 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs', |
./pkg/atm_compon_interf/cpl_readparms.F |
173 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
174 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/atm_compon_interf/cpl_readparms.F |
176 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
182 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImportThSIce', |
./pkg/atm_compon_interf/cpl_readparms.F |
184 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
185 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/atm_compon_interf/cpl_readparms.F |
187 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
190 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS: ', |
./pkg/atm_compon_interf/cpl_readparms.F |
192 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/atm_compon_interf/cpl_readparms.F |
194 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS: ', |
./pkg/atm_compon_interf/cpl_readparms.F |
196 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/atm_compon_interf/cpl_readparms.F |
200 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImportFlxCO2', |
./pkg/atm_compon_interf/cpl_readparms.F |
202 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
203 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ', |
./pkg/atm_compon_interf/cpl_readparms.F |
205 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
211 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: cpl_atmSendFrq', |
./pkg/atm_compon_interf/cpl_readparms.F |
213 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
225 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
./pkg/atm_compon_interf/cpl_readparms.F |
226 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
227 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/atm_compon_interf/cpl_readparms.F |
228 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
229 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// Coupling set-up summary :' |
./pkg/atm_compon_interf/cpl_readparms.F |
230 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
231 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/atm_compon_interf/cpl_readparms.F |
232 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
235 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// -------' |
./pkg/atm_compon_interf/cpl_readparms.F |
236 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
237 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/atm_compon_interf/cpl_readparms.F |
239 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
261 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// -------' |
./pkg/atm_compon_interf/cpl_readparms.F |
262 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
263 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/atm_compon_interf/cpl_readparms.F |
265 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
296 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/atm_compon_interf/cpl_readparms.F |
297 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
298 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// End of Coupling set-up summary' |
./pkg/atm_compon_interf/cpl_readparms.F |
299 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
300 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/atm_compon_interf/cpl_readparms.F |
301 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_compon_interf/cpl_readparms.F |
49 |
CPL_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/atm_compon_interf/cpl_readparms.F |
79 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') ' CPL_READPARMS: opening data.cpl' |
./pkg/atm_compon_interf/cpl_readparms.F |
80 |
CPL_READPARMS |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
150 |
CPL_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'CPL_WRITE_PICKUP: ', |
./pkg/atm_compon_interf/cpl_write_pickup.F |
152 |
CPL_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
153 |
CPL_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'CPL_WRITE_PICKUP: ', |
./pkg/atm_compon_interf/cpl_write_pickup.F |
155 |
CPL_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_compon_interf/cpl_write_pickup.F |
64 |
CPL_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/atm_phys/atm_phys_check.F |
31 |
ATM_PHYS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/atm_phys/atm_phys_check.F |
35 |
ATM_PHYS_CHECK |
WRITE(msgBuf,'(A)') 'ATM_PHYS_CHECK: #define ALLOW_ATM_PHYS' |
./pkg/atm_phys/atm_phys_check.F |
36 |
ATM_PHYS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/atm_phys/atm_phys_check.F |
76 |
ATM_PHYS_CHECK |
WRITE(msgBuf,'(A)') 'An example requirement is:' |
./pkg/atm_phys/atm_phys_check.F |
77 |
ATM_PHYS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/atm_phys/atm_phys_check.F |
78 |
ATM_PHYS_CHECK |
WRITE(msgBuf,'(A)') 'atmPhys_addTendT needs tempStepping=.true.' |
./pkg/atm_phys/atm_phys_check.F |
79 |
ATM_PHYS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
./pkg/atm_phys/atm_phys_check.F |
84 |
ATM_PHYS_CHECK |
WRITE(msgBuf,'(A)') ' ' |
./pkg/atm_phys/atm_phys_check.F |
85 |
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 |
68 |
ATM_PHYS_INIT_FIXED |
WRITE(msgBuf,'(A)') 'ATM_PHYS_INIT_FIXED: opening data.atm_gray' |
./pkg/atm_phys/atm_phys_init_fixed.F |
69 |
ATM_PHYS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/atm_phys/atm_phys_init_fixed.F |
78 |
ATM_PHYS_INIT_FIXED |
WRITE(msgBuf,'(A)') |
./pkg/atm_phys/atm_phys_init_fixed.F |
80 |
ATM_PHYS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/atm_phys/atm_phys_read_pickup.F |
101 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_phys/atm_phys_read_pickup.F |
105 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ATM_PHYS_READ_PICKUP: ', |
./pkg/atm_phys/atm_phys_read_pickup.F |
107 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_phys/atm_phys_read_pickup.F |
110 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/atm_phys/atm_phys_read_pickup.F |
112 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/atm_phys/atm_phys_read_pickup.F |
121 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'ATM_PHYS_READ_PICKUP: ', |
./pkg/atm_phys/atm_phys_read_pickup.F |
123 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_phys/atm_phys_read_pickup.F |
155 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') '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 |
164 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'ATM_PHYS_READ_PICKUP: ', |
./pkg/atm_phys/atm_phys_read_pickup.F |
166 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_phys/atm_phys_read_pickup.F |
52 |
ATM_PHYS_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/atm_phys/atm_phys_read_pickup.F |
79 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'ATM_PHYS_READ_PICKUP: ', |
./pkg/atm_phys/atm_phys_read_pickup.F |
81 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_phys/atm_phys_read_pickup.F |
82 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'ATM_PHYS_READ_PICKUP: ', |
./pkg/atm_phys/atm_phys_read_pickup.F |
84 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_phys/atm_phys_read_pickup.F |
94 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'ATM_PHYS_READ_PICKUP: ', |
./pkg/atm_phys/atm_phys_read_pickup.F |
97 |
ATM_PHYS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/atm_phys/atm_phys_read_pickup.F |
98 |
ATM_PHYS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'ATM_PHYS_READ_PICKUP: ', |
./pkg/atm_phys/atm_phys_readparms.F |
32 |
ATM_PHYS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/atm_phys/atm_phys_readparms.F |
72 |
ATM_PHYS_READPARMS |
WRITE(msgBuf,'(A)') 'ATM_PHYS_READPARMS: opening data.atm_phys' |
./pkg/atm_phys/atm_phys_readparms.F |
73 |
ATM_PHYS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/atm_phys/atm_phys_readparms.F |
82 |
ATM_PHYS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/atm_phys/atm_phys_readparms.F |
84 |
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 |
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/atm_phys/atm_phys_write_pickup.F |
94 |
ATM_PHYS_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'ATM_PHYS_WRITE_PICKUP: ', |
./pkg/atm_phys/atm_phys_write_pickup.F |
96 |
ATM_PHYS_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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/addummy_in_dynamics.F |
67 |
ADDUMMY_IN_DYNAMICS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/autodiff/addummy_in_stepping.F |
82 |
ADDUMMY_IN_STEPPING |
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 |
101 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/autodiff/autodiff_check.F |
103 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_check.F |
107 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/autodiff/autodiff_check.F |
109 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_check.F |
128 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/autodiff/autodiff_check.F |
131 |
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 |
38 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/autodiff/autodiff_check.F |
40 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_check.F |
41 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
./pkg/autodiff/autodiff_check.F |
44 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_check.F |
45 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
./pkg/autodiff/autodiff_check.F |
48 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_check.F |
53 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/autodiff/autodiff_check.F |
55 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_check.F |
56 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
./pkg/autodiff/autodiff_check.F |
59 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_check.F |
60 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
./pkg/autodiff/autodiff_check.F |
63 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_check.F |
70 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/autodiff/autodiff_check.F |
72 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_check.F |
73 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
./pkg/autodiff/autodiff_check.F |
76 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_check.F |
77 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
./pkg/autodiff/autodiff_check.F |
80 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_check.F |
86 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/autodiff/autodiff_check.F |
88 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_check.F |
89 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
./pkg/autodiff/autodiff_check.F |
91 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_check.F |
92 |
AUTODIFF_CHECK |
WRITE(msgBuf,'(A,I10)') |
./pkg/autodiff/autodiff_check.F |
94 |
AUTODIFF_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/autodiff/autodiff_findunit.F |
27 |
AUTODIFF_FINDUNIT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/autodiff/autodiff_findunit.F |
42 |
AUTODIFF_FINDUNIT |
WRITE(msgBuf,'(A,I4)') |
./pkg/autodiff/autodiff_findunit.F |
44 |
AUTODIFF_FINDUNIT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_findunit.F |
46 |
AUTODIFF_FINDUNIT |
WRITE(msgBuf,'(A)') |
./pkg/autodiff/autodiff_findunit.F |
48 |
AUTODIFF_FINDUNIT |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/autodiff/autodiff_findunit.F |
60 |
AUTODIFF_FINDUNIT |
WRITE(msgBuf,'(A)') |
./pkg/autodiff/autodiff_findunit.F |
62 |
AUTODIFF_FINDUNIT |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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_inadmode_set_ad.F |
100 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
104 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_SET: ', |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
106 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
110 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(2A,I2)') 'S/R ADAUTODIFF_INADMODE_SET: ', |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
112 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
31 |
ADAUTODIFF_INADMODE_SET |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./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 |
71 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
73 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(A,L5)') |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
76 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
79 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(A,1PE21.14)') |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
81 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
85 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(A,L5)') |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
88 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
94 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_SET: ', |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
96 |
ADAUTODIFF_INADMODE_SET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_set_ad.F |
98 |
ADAUTODIFF_INADMODE_SET |
WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_SET: ', |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
103 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_UNSET: ', |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
105 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
109 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(2A,I2)') 'S/R ADAUTODIFF_INADMODE_UNSET: ', |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
111 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
31 |
ADAUTODIFF_INADMODE_UNSET |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./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 |
70 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
72 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(A,L5)') |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
75 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
78 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(A,1PE21.14)') |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
80 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
84 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(A,L5)') |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
87 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
93 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_UNSET: ', |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
95 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
97 |
ADAUTODIFF_INADMODE_UNSET |
WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_UNSET: ', |
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
99 |
ADAUTODIFF_INADMODE_UNSET |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_ini_model_io.F |
53 |
AUTODIFF_INI_MODEL_IO |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/autodiff/autodiff_ini_model_io.F |
82 |
AUTODIFF_INI_MODEL_IO |
WRITE(msgBuf,'(2A)') '** WARNING ** AUTODIFF_INI_MODEL_IO: ', |
./pkg/autodiff/autodiff_ini_model_io.F |
84 |
AUTODIFF_INI_MODEL_IO |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/autodiff/autodiff_readparms.F |
135 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/autodiff/autodiff_readparms.F |
136 |
AUTODIFF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_readparms.F |
138 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A)') '// AUTODIFF parameters :' |
./pkg/autodiff/autodiff_readparms.F |
139 |
AUTODIFF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_readparms.F |
141 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/autodiff/autodiff_readparms.F |
142 |
AUTODIFF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_readparms.F |
174 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
./pkg/autodiff/autodiff_readparms.F |
175 |
AUTODIFF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_readparms.F |
181 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(2A)') 'AUTODIFF_READPARMS: ', |
./pkg/autodiff/autodiff_readparms.F |
183 |
AUTODIFF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/autodiff/autodiff_readparms.F |
187 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(2A)') 'AUTODIFF_READPARMS: ', |
./pkg/autodiff/autodiff_readparms.F |
189 |
AUTODIFF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/autodiff/autodiff_readparms.F |
198 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/autodiff/autodiff_readparms.F |
200 |
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 |
80 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A)') 'AUTODIFF_READPARMS: opening data.autodiff' |
./pkg/autodiff/autodiff_readparms.F |
81 |
AUTODIFF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_readparms.F |
90 |
AUTODIFF_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/autodiff/autodiff_readparms.F |
92 |
AUTODIFF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/autodiff_whtapeio_sync.F |
119 |
AUTODIFF_WHTAPEIO_SYNC |
write(msgBuf,'(a,i1,a,i3)') 'whio : create lev ', |
./pkg/autodiff/autodiff_whtapeio_sync.F |
122 |
AUTODIFF_WHTAPEIO_SYNC |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/autodiff/autodiff_whtapeio_sync.F |
148 |
AUTODIFF_WHTAPEIO_SYNC |
write(msgBuf,'(a,i1,a,i3)') 'whio : write lev ', |
./pkg/autodiff/autodiff_whtapeio_sync.F |
151 |
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 |
./eesupp/src/main.F |
117 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./eesupp/src/main.F |
215 |
NO PROCEDURE |
WRITE( msgBuf,'(A)') 'PROGRAM MAIN: ends with fatal Error' |
./eesupp/src/main.F |
216 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, 1 ) |
./pkg/autodiff/g_dummy_in_stepping.F |
134 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') 'S/R WRITE_STATE' |
./pkg/autodiff/g_dummy_in_stepping.F |
135 |
G_DUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/autodiff/g_dummy_in_stepping.F |
136 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') 'Error writing out model state' |
./pkg/autodiff/g_dummy_in_stepping.F |
137 |
G_DUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/autodiff/g_dummy_in_stepping.F |
138 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
./pkg/autodiff/g_dummy_in_stepping.F |
139 |
G_DUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/autodiff/g_dummy_in_stepping.F |
141 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') |
./pkg/autodiff/g_dummy_in_stepping.F |
143 |
G_DUMMY_IN_STEPPING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/autodiff/g_dummy_in_stepping.F |
145 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') ' ' |
./pkg/autodiff/g_dummy_in_stepping.F |
146 |
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 |
./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 |
101 |
BBL_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
104 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/bbl/bbl_read_pickup.F |
106 |
BBL_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
108 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'BBL_READ_PICKUP: ', |
./pkg/bbl/bbl_read_pickup.F |
110 |
BBL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
142 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'BBL_READ_PICKUP: ', |
./pkg/bbl/bbl_read_pickup.F |
144 |
BBL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
150 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'BBL_READ_PICKUP: ', |
./pkg/bbl/bbl_read_pickup.F |
152 |
BBL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
51 |
BBL_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/bbl/bbl_read_pickup.F |
75 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'BBL_READ_PICKUP: ', |
./pkg/bbl/bbl_read_pickup.F |
77 |
BBL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
78 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'BBL_READ_PICKUP: ', |
./pkg/bbl/bbl_read_pickup.F |
80 |
BBL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
89 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'BBL_READ_PICKUP: ', |
./pkg/bbl/bbl_read_pickup.F |
92 |
BBL_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
93 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'BBL_READ_PICKUP: ', |
./pkg/bbl/bbl_read_pickup.F |
96 |
BBL_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/bbl/bbl_read_pickup.F |
99 |
BBL_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> BBL_READ_PICKUP: ', |
./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/bling/bling_ini_forcing.F |
40 |
BLING_INI_FORCING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/bling/bling_ini_forcing.F |
66 |
BLING_INI_FORCING |
WRITE(msgBuf,'(2A)') |
./pkg/bling/bling_ini_forcing.F |
69 |
BLING_INI_FORCING |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/bling/bling_init_fixed.F |
30 |
BLING_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/bling/bling_read_pickup.F |
37 |
BLING_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/bling/bling_read_pickup.F |
90 |
BLING_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'BLING_READ_PICKUP: ', |
./pkg/bling/bling_read_pickup.F |
93 |
BLING_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/bling/bling_read_pickup.F |
96 |
BLING_READ_PICKUP |
WRITE(msgBuf,'(2A)') 'WARNING >> BLING_READ_PICKUP: ', |
./pkg/bling/bling_read_pickup.F |
98 |
BLING_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/bling/bling_readparms.F |
346 |
BLING_READPARMS |
WRITE(msgBuf,'(A)') ' BLING_READPARMS: opening data.bling' |
./pkg/bling/bling_readparms.F |
347 |
BLING_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/bling/bling_readparms.F |
364 |
BLING_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/bling/bling_readparms.F |
366 |
BLING_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/bling/bling_readparms.F |
389 |
BLING_READPARMS |
WRITE(msgBuf,'(A,I3,A)') |
./pkg/bling/bling_readparms.F |
391 |
BLING_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/bling/bling_readparms.F |
47 |
BLING_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/bling/bling_tr_register.F |
37 |
BLING_TR_REGISTER |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/bling/bling_tr_register.F |
47 |
BLING_TR_REGISTER |
WRITE(msgBuf,'(2A,2I5)') ' BLING_TR_REGISTER:', |
./pkg/bling/bling_tr_register.F |
49 |
BLING_TR_REGISTER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/bling/bling_tr_register.F |
51 |
BLING_TR_REGISTER |
WRITE(msgBuf,'(2A,2I5)') ' BLING_TR_REGISTER:', |
./pkg/bling/bling_tr_register.F |
53 |
BLING_TR_REGISTER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/bling/bling_tr_register.F |
59 |
BLING_TR_REGISTER |
WRITE(msgBuf,'(2A,2I5)') ' BLING_TR_REGISTER:', |
./pkg/bling/bling_tr_register.F |
61 |
BLING_TR_REGISTER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/bling/bling_write_pickup.F |
52 |
BLING_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/bling/bling_write_pickup.F |
93 |
BLING_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'BLING_WRITE_PICKUP: ', |
./pkg/bling/bling_write_pickup.F |
95 |
BLING_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/bling/bling_write_pickup.F |
96 |
BLING_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'BLING_WRITE_PICKUP: ', |
./pkg/bling/bling_write_pickup.F |
98 |
BLING_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 |
191 |
BULKF_READPARMS |
WRITE(msgBuf,'(2A)') ' BULKF_READPARMS: ', |
./pkg/bulk_force/bulkf_readparms.F |
193 |
BULKF_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/bulk_force/bulkf_readparms.F |
194 |
BULKF_READPARMS |
WRITE(msgBuf,'(2A)') ' BULKF_READPARMS: => recompile with', |
./pkg/bulk_force/bulkf_readparms.F |
196 |
BULKF_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/bulk_force/bulkf_readparms.F |
32 |
BULKF_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./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 ) |
./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 ) |
./eesupp/src/mdsfindunit.F |
27 |
MDSFINDUNIT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./eesupp/src/mdsfindunit.F |
46 |
MDSFINDUNIT |
WRITE(msgBuf,'(A,I4)') |
./eesupp/src/mdsfindunit.F |
48 |
MDSFINDUNIT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./eesupp/src/mdsfindunit.F |
50 |
MDSFINDUNIT |
WRITE(msgBuf,'(A)') |
./eesupp/src/mdsfindunit.F |
52 |
MDSFINDUNIT |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/mdsfindunit.F |
64 |
MDSFINDUNIT |
WRITE(msgBuf,'(A)') |
./eesupp/src/mdsfindunit.F |
66 |
MDSFINDUNIT |
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 ) |
./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/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 ) |
./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 |
./eesupp/src/open_copy_data_file.F |
110 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') |
./eesupp/src/open_copy_data_file.F |
112 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/open_copy_data_file.F |
113 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') 'S/R CALLED BY ',caller_sub |
./eesupp/src/open_copy_data_file.F |
114 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf, myThid ) |
./eesupp/src/open_copy_data_file.F |
132 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A)') |
./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,A,A)') '// Parameter file "',data_file,'"' |
./eesupp/src/open_copy_data_file.F |
137 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./eesupp/src/open_copy_data_file.F |
139 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A)') |
./eesupp/src/open_copy_data_file.F |
141 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./eesupp/src/open_copy_data_file.F |
148 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
./eesupp/src/open_copy_data_file.F |
149 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./eesupp/src/open_copy_data_file.F |
154 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A)') ' ' |
./eesupp/src/open_copy_data_file.F |
155 |
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 ) |
./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 ) |
./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/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, |
./pkg/cfc/cfc_tr_register.F |
38 |
CFC_TR_REGISTER |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/cfc/cfc_tr_register.F |
44 |
CFC_TR_REGISTER |
WRITE(msgBuf,'(2A,2I5)') ' CFC_TR_REGISTER: ', |
./pkg/cfc/cfc_tr_register.F |
46 |
CFC_TR_REGISTER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/cfc/cfc_tr_register.F |
48 |
CFC_TR_REGISTER |
WRITE(msgBuf,'(2A,2I5)') ' CFC_TR_REGISTER: ', |
./pkg/cfc/cfc_tr_register.F |
50 |
CFC_TR_REGISTER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/cfc/cfc_tr_register.F |
53 |
CFC_TR_REGISTER |
WRITE(msgBuf,'(2A,2I5)') ' CFC_TR_REGISTER: ', |
./pkg/cfc/cfc_tr_register.F |
55 |
CFC_TR_REGISTER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/cheapaml/cheapaml_init_fixed.F |
168 |
CHEAPAML_INIT_FIXED |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
./pkg/cheapaml/cheapaml_init_fixed.F |
170 |
CHEAPAML_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_init_fixed.F |
173 |
CHEAPAML_INIT_FIXED |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
./pkg/cheapaml/cheapaml_init_fixed.F |
175 |
CHEAPAML_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_init_fixed.F |
50 |
CHEAPAML_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/cheapaml/cheapaml_init_fixed.F |
81 |
CHEAPAML_INIT_FIXED |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
./pkg/cheapaml/cheapaml_init_fixed.F |
83 |
CHEAPAML_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_init_fixed.F |
86 |
CHEAPAML_INIT_FIXED |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
./pkg/cheapaml/cheapaml_init_fixed.F |
88 |
CHEAPAML_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_init_varia.F |
120 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
./pkg/cheapaml/cheapaml_init_varia.F |
122 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_init_varia.F |
126 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
./pkg/cheapaml/cheapaml_init_varia.F |
128 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_init_varia.F |
146 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
./pkg/cheapaml/cheapaml_init_varia.F |
148 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_init_varia.F |
152 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
./pkg/cheapaml/cheapaml_init_varia.F |
154 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_init_varia.F |
176 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
./pkg/cheapaml/cheapaml_init_varia.F |
178 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_init_varia.F |
47 |
CHEAPAML_INIT_VARIA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/cheapaml/cheapaml_init_varia.F |
92 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
./pkg/cheapaml/cheapaml_init_varia.F |
94 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_init_varia.F |
97 |
CHEAPAML_INIT_VARIA |
WRITE(msgBuf,'(4A)') 'CHEAPAML_INIT_VARIA: ', |
./pkg/cheapaml/cheapaml_init_varia.F |
99 |
CHEAPAML_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
102 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> CHEAPAML_READ_PICKUP: ', |
./pkg/cheapaml/cheapaml_read_pickup.F |
104 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
107 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
./pkg/cheapaml/cheapaml_read_pickup.F |
109 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
118 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
./pkg/cheapaml/cheapaml_read_pickup.F |
120 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
163 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'CHEAPAML_READ_PICKUP: ', |
./pkg/cheapaml/cheapaml_read_pickup.F |
165 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
182 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
./pkg/cheapaml/cheapaml_read_pickup.F |
184 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
190 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
./pkg/cheapaml/cheapaml_read_pickup.F |
193 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
196 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNING ** CHEAPAML_READ_PICKUP: ', |
./pkg/cheapaml/cheapaml_read_pickup.F |
198 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
52 |
CHEAPAML_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/cheapaml/cheapaml_read_pickup.F |
78 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'CHEAPAML_READ_PICKUP: ', |
./pkg/cheapaml/cheapaml_read_pickup.F |
80 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
81 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'CHEAPAML_READ_PICKUP: ', |
./pkg/cheapaml/cheapaml_read_pickup.F |
83 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
92 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
./pkg/cheapaml/cheapaml_read_pickup.F |
95 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_read_pickup.F |
96 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
./pkg/cheapaml/cheapaml_read_pickup.F |
99 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/cheapaml/cheapaml_readparms.F |
208 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(A)') ' CHEAPAML_READPARMS: read CHEAPAML_CONST' |
./pkg/cheapaml/cheapaml_readparms.F |
209 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/cheapaml/cheapaml_readparms.F |
214 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(A)') ' CHEAPAML_READPARMS: read CHEAPAML_PARM01' |
./pkg/cheapaml/cheapaml_readparms.F |
215 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/cheapaml/cheapaml_readparms.F |
220 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(A)') ' CHEAPAML_READPARMS: read CHEAPAML_PARM02' |
./pkg/cheapaml/cheapaml_readparms.F |
221 |
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 |
261 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/cheapaml/cheapaml_readparms.F |
263 |
CHEAPAML_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_readparms.F |
264 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/cheapaml/cheapaml_readparms.F |
266 |
CHEAPAML_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_readparms.F |
270 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/cheapaml/cheapaml_readparms.F |
272 |
CHEAPAML_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_readparms.F |
273 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/cheapaml/cheapaml_readparms.F |
275 |
CHEAPAML_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_readparms.F |
279 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R CHEAPAML_READPARMS: ', |
./pkg/cheapaml/cheapaml_readparms.F |
281 |
CHEAPAML_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_readparms.F |
282 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(I4,A)') nRetired, |
./pkg/cheapaml/cheapaml_readparms.F |
284 |
CHEAPAML_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/cheapaml/cheapaml_readparms.F |
90 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(A)') ' BULKF_READPARMS: opening data.cheapaml' |
./pkg/cheapaml/cheapaml_readparms.F |
91 |
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/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 ) |
./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/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: #define ALLOW_COST' |
./pkg/cost/cost_check.F |
28 |
COST_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/cost/cost_final.F |
107 |
COST_FINAL |
write(msgBuf,'(A,D22.15)') ' early fc = ', fc |
./pkg/cost/cost_final.F |
108 |
COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/cost/cost_final.F |
182 |
COST_FINAL |
write(msgBuf,'(A,D22.15)') ' local fc = ', loc_fc |
./pkg/cost/cost_final.F |
183 |
COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/cost/cost_final.F |
202 |
COST_FINAL |
write(msgBuf,'(A,D22.15)') ' global fc = ', fc |
./pkg/cost/cost_final.F |
203 |
COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/cost/cost_final.F |
54 |
COST_FINAL |
character*(MAX_LEN_MBUF) msgBuf |
./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 |
109 |
CTRL_CHECK |
WRITE(msgBuf,'(3A)') 'CTRL_CHECK : ', |
./pkg/ctrl/ctrl_check.F |
112 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
123 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/ctrl/ctrl_check.F |
125 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
131 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/ctrl/ctrl_check.F |
133 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
138 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/ctrl/ctrl_check.F |
140 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
146 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/ctrl/ctrl_check.F |
148 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
155 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/ctrl/ctrl_check.F |
157 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
166 |
CTRL_CHECK |
WRITE(msgBuf,'(3A)') 'CTRL_CHECK : ', |
./pkg/ctrl/ctrl_check.F |
169 |
CTRL_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ctrl/ctrl_check.F |
179 |
CTRL_CHECK |
WRITE(msgBuf,'(3A)') 'CTRL_CHECK : ', |
./pkg/ctrl/ctrl_check.F |
182 |
CTRL_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ctrl/ctrl_check.F |
192 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/ctrl/ctrl_check.F |
194 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
195 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') ' ALLOW_HFLUX_CONTROL' |
./pkg/ctrl/ctrl_check.F |
196 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
197 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') ' ALLOW_SFLUX_CONTROL' |
./pkg/ctrl/ctrl_check.F |
198 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
199 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'to be control variables' |
./pkg/ctrl/ctrl_check.F |
200 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
214 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/ctrl/ctrl_check.F |
216 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
217 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') ' ALLOW_USTRESS_CONTROL' |
./pkg/ctrl/ctrl_check.F |
218 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
219 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') ' ALLOW_VSTRESS_CONTROL' |
./pkg/ctrl/ctrl_check.F |
220 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
221 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'to be control variables' |
./pkg/ctrl/ctrl_check.F |
222 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
223 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'except if wspeedfile is specified' |
./pkg/ctrl/ctrl_check.F |
224 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
225 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'and ifdef ALLOW_BULK_LARGEYEAGER04' |
./pkg/ctrl/ctrl_check.F |
226 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
235 |
CTRL_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** CTRL_CHECK: ', |
./pkg/ctrl/ctrl_check.F |
238 |
CTRL_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ctrl/ctrl_check.F |
250 |
CTRL_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/ctrl/ctrl_check.F |
253 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
35 |
CTRL_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/ctrl/ctrl_check.F |
44 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'CTRL_CHECK: #define ALLOW_CTRL' |
./pkg/ctrl/ctrl_check.F |
45 |
CTRL_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ctrl/ctrl_check.F |
52 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/ctrl/ctrl_check.F |
54 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
55 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/ctrl/ctrl_check.F |
57 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
64 |
CTRL_CHECK |
WRITE(msgBuf,'(2A)') 'CTRL_CHECK : ', |
./pkg/ctrl/ctrl_check.F |
66 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
79 |
CTRL_CHECK |
WRITE(msgBuf,'(3A)') 'CTRL_CHECK : ', |
./pkg/ctrl/ctrl_check.F |
82 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_check.F |
94 |
CTRL_CHECK |
WRITE(msgBuf,'(3A)') 'CTRL_CHECK : ', |
./pkg/ctrl/ctrl_check.F |
97 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ctrl/ctrl_getrec.F |
83 |
CTRL_GETREC |
character*(max_len_mbuf) msgBuf |
./pkg/ctrl/ctrl_getrec.F |
90 |
CTRL_GETREC |
write(msgBuf,'(A)') |
./pkg/ctrl/ctrl_getrec.F |
92 |
CTRL_GETREC |
call PRINT_ERROR( msgBuf , 1) |
./pkg/ctrl/ctrl_getrec.F |
93 |
CTRL_GETREC |
write(msgBuf,'(A)') |
./pkg/ctrl/ctrl_getrec.F |
95 |
CTRL_GETREC |
call PRINT_ERROR( msgBuf , 1) |
./pkg/ctrl/ctrl_getrec.F |
96 |
CTRL_GETREC |
write(msgBuf,'(A)') |
./pkg/ctrl/ctrl_getrec.F |
98 |
CTRL_GETREC |
call PRINT_ERROR( msgBuf , 1) |
./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 |
148 |
CTRL_MAP_GENTIM2D |
WRITE(msgBuf,'(A,I6,A,1PE21.14)') |
./pkg/ctrl/ctrl_map_gentim2d.F |
150 |
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 |
498 |
CTRL_READPARMS |
WRITE(msgBuf,'(A)') 'CTRL_READPARMS: opening data.ctrl' |
./pkg/ctrl/ctrl_readparms.F |
499 |
CTRL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ctrl/ctrl_readparms.F |
513 |
CTRL_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/ctrl/ctrl_readparms.F |
515 |
CTRL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ctrl/optim_readparms.F |
101 |
OPTIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ctrl/optim_readparms.F |
88 |
OPTIM_READPARMS |
WRITE(msgBuf,'(A)') 'OPTIM_READPARMS: opening data.optim' |
./pkg/ctrl/optim_readparms.F |
89 |
OPTIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ctrl/optim_readparms.F |
99 |
OPTIM_READPARMS |
WRITE(msgBuf,'(A)') |
./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 |
214 |
DIAG_CG2D |
WRITE(msgBuf,'(2A,I6,A,1PE17.9,A,1PE14.6)')' diag_cg2d:', |
./pkg/diagnostics/diag_cg2d.F |
216 |
DIAG_CG2D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diag_cg2d.F |
313 |
DIAG_CG2D |
WRITE(msgBuf,'(A,I6,A,1PE17.9)') |
./pkg/diagnostics/diag_cg2d.F |
315 |
DIAG_CG2D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diag_cg2d.F |
89 |
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 |
298 |
DIAGNOSTICS_CALC_PHIVEL |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_CALC_PHIVEL: ', |
./pkg/diagnostics/diagnostics_calc_phivel.F |
300 |
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 |
105 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
107 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
108 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
110 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
111 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
113 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
122 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
124 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
125 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
127 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
128 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
130 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
155 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
158 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
159 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I4,3(A,F16.8))') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
162 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
168 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
170 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
171 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
173 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
191 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
193 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
195 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
197 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
199 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
202 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
205 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
207 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_check.F |
209 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
212 |
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 |
49 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R DIAGNOSTICS_CHECK: diagMdsDir ', |
./pkg/diagnostics/diagnostics_check.F |
51 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_check.F |
57 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/diagnostics/diagnostics_check.F |
59 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_check.F |
60 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(A)') |
./pkg/diagnostics/diagnostics_check.F |
62 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_check.F |
69 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') '**CAUTION** (DIAGNOSTICS_CHECK): ', |
./pkg/diagnostics/diagnostics_check.F |
71 |
DIAGNOSTICS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_check.F |
73 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') '**CAUTION** ', |
./pkg/diagnostics/diagnostics_check.F |
75 |
DIAGNOSTICS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_check.F |
77 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') '**CAUTION** ', |
./pkg/diagnostics/diagnostics_check.F |
79 |
DIAGNOSTICS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_check.F |
85 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
88 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/diagnostics/diagnostics_check.F |
91 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
./pkg/diagnostics/diagnostics_check.F |
94 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
./pkg/diagnostics/diagnostics_fill_field.F |
103 |
DIAGNOSTICS_FILL_FIELD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/diagnostics/diagnostics_fill_field.F |
207 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,I4,A)') 'DIAGNOSTICS_FILL_FIELD: ', |
./pkg/diagnostics/diagnostics_fill_field.F |
209 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_fill_field.F |
210 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_FILL_FIELD: ', |
./pkg/diagnostics/diagnostics_fill_field.F |
212 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_fill_field.F |
213 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,2I4,I3)') 'calling DIAGNOSTICS_FILL_FIELD ', |
./pkg/diagnostics/diagnostics_fill_field.F |
215 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_fill_field.F |
216 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,I6,A)') 'DIAGNOSTICS_FILL_FIELD: ', |
./pkg/diagnostics/diagnostics_fill_field.F |
218 |
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_ini_io.F |
37 |
DIAGNOSTICS_INI_IO |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/diagnostics/diagnostics_ini_io.F |
55 |
DIAGNOSTICS_INI_IO |
WRITE(msgBuf,'(A)') ' ' |
./pkg/diagnostics/diagnostics_ini_io.F |
56 |
DIAGNOSTICS_INI_IO |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diagnostics_ini_io.F |
59 |
DIAGNOSTICS_INI_IO |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_INI_IO: ', |
./pkg/diagnostics/diagnostics_ini_io.F |
61 |
DIAGNOSTICS_INI_IO |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_ini_io.F |
62 |
DIAGNOSTICS_INI_IO |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_INI_IO: ', |
./pkg/diagnostics/diagnostics_ini_io.F |
64 |
DIAGNOSTICS_INI_IO |
CALL PRINT_ERROR( msgBuf, myThid ) |
./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 |
217 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A,I10)') |
./pkg/diagnostics/diagnostics_out.F |
219 |
DIAGNOSTICS_OUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_out.F |
221 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A,I6,3A,I4,2A)') |
./pkg/diagnostics/diagnostics_out.F |
224 |
DIAGNOSTICS_OUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_out.F |
227 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A,2(I3,A))') |
./pkg/diagnostics/diagnostics_out.F |
231 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A,2(I3,A))') |
./pkg/diagnostics/diagnostics_out.F |
235 |
DIAGNOSTICS_OUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_out.F |
237 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A)') |
./pkg/diagnostics/diagnostics_out.F |
239 |
DIAGNOSTICS_OUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_out.F |
356 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_OUT: ', |
./pkg/diagnostics/diagnostics_out.F |
358 |
DIAGNOSTICS_OUT |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_out.F |
381 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_OUT: ', |
./pkg/diagnostics/diagnostics_out.F |
383 |
DIAGNOSTICS_OUT |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_out.F |
78 |
DIAGNOSTICS_OUT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/diagnostics/diagnostics_readparms.F |
193 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') |
./pkg/diagnostics/diagnostics_readparms.F |
195 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1) |
./pkg/diagnostics/diagnostics_readparms.F |
200 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_READPARMS,', |
./pkg/diagnostics/diagnostics_readparms.F |
202 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diagnostics_readparms.F |
205 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_READPARMS,', |
./pkg/diagnostics/diagnostics_readparms.F |
207 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diagnostics_readparms.F |
214 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_READPARMS,', |
./pkg/diagnostics/diagnostics_readparms.F |
216 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diagnostics_readparms.F |
219 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_READPARMS,', |
./pkg/diagnostics/diagnostics_readparms.F |
221 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diagnostics_readparms.F |
300 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,F18.6,I4)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
303 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
304 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
306 |
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,A,F8.0)') '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 |
355 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
357 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
358 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,3A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
360 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
361 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
363 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
370 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
372 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
373 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
375 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
376 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,F18.6,2A)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
378 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
427 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,A)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
429 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
430 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
432 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
456 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') |
./pkg/diagnostics/diagnostics_readparms.F |
459 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_readparms.F |
461 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,I4,A)') |
./pkg/diagnostics/diagnostics_readparms.F |
464 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_readparms.F |
468 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,I4,A,I4,2A)') |
./pkg/diagnostics/diagnostics_readparms.F |
471 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
472 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,A,I4,2A)') |
./pkg/diagnostics/diagnostics_readparms.F |
475 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
491 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
493 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
494 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,3A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
496 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
497 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
499 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
506 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
508 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
509 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
511 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
512 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,F18.6,2A)') 'DIAGNOSTICS_READPARMS: ', |
./pkg/diagnostics/diagnostics_readparms.F |
514 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_readparms.F |
522 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/diagnostics/diagnostics_readparms.F |
524 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
544 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/diagnostics/diagnostics_readparms.F |
546 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
547 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/diagnostics/diagnostics_readparms.F |
549 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
550 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/diagnostics/diagnostics_readparms.F |
552 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
554 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'Creating Output Stream: ', fnames(n) |
./pkg/diagnostics/diagnostics_readparms.F |
555 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
556 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2(A,F18.6))') 'Output Frequency:', freq(n), |
./pkg/diagnostics/diagnostics_readparms.F |
558 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
559 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2(A,F18.6),A,I4)') |
./pkg/diagnostics/diagnostics_readparms.F |
562 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
567 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,1PE20.12,3A)') |
./pkg/diagnostics/diagnostics_readparms.F |
574 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,1PE20.12,3A)') |
./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,'(A)') ' Cumulate all Levels (to be set later)' |
./pkg/diagnostics/diagnostics_readparms.F |
581 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
583 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,A)') ' Levels: ','will be set later' |
./pkg/diagnostics/diagnostics_readparms.F |
584 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
588 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,1P10E10.3)')' interp: ', (levs(k,n),k=l,m) |
./pkg/diagnostics/diagnostics_readparms.F |
589 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
596 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,n),k=l,m) |
./pkg/diagnostics/diagnostics_readparms.F |
597 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
602 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(21A)') ' Fields: ',(' ',flds(l,n),l=nf,m) |
./pkg/diagnostics/diagnostics_readparms.F |
603 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
606 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/diagnostics/diagnostics_readparms.F |
608 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
609 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/diagnostics/diagnostics_readparms.F |
611 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
613 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'Creating Stats. Output Stream: ', |
./pkg/diagnostics/diagnostics_readparms.F |
615 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
616 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2(A,F18.6))') 'Output Frequency:', |
./pkg/diagnostics/diagnostics_readparms.F |
618 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
619 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') ' Regions: ' |
./pkg/diagnostics/diagnostics_readparms.F |
624 |
DIAGNOSTICS_READPARMS |
IF (l.LE.MAX_LEN_MBUF) WRITE(msgBuf(l-2:l),'(I3)') j |
./pkg/diagnostics/diagnostics_readparms.F |
627 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
630 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(21A)') ' Fields: ', |
./pkg/diagnostics/diagnostics_readparms.F |
632 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
635 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/diagnostics/diagnostics_readparms.F |
637 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
638 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/diagnostics/diagnostics_readparms.F |
639 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_readparms.F |
81 |
DIAGNOSTICS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/diagnostics/diagnostics_set_calc.F |
143 |
DIAGNOSTICS_SET_CALC |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_SET_CALC: ', |
./pkg/diagnostics/diagnostics_set_calc.F |
145 |
DIAGNOSTICS_SET_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diagnostics_set_calc.F |
147 |
DIAGNOSTICS_SET_CALC |
WRITE(msgBuf,'(A,1P1E19.6,A,0PF16.3)') |
./pkg/diagnostics/diagnostics_set_calc.F |
149 |
DIAGNOSTICS_SET_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diagnostics_set_calc.F |
152 |
DIAGNOSTICS_SET_CALC |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_SET_CALC: ', |
./pkg/diagnostics/diagnostics_set_calc.F |
154 |
DIAGNOSTICS_SET_CALC |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_set_calc.F |
172 |
DIAGNOSTICS_SET_CALC |
WRITE(msgBuf,'(2(A,2I5),A,F16.3)') |
./pkg/diagnostics/diagnostics_set_calc.F |
175 |
DIAGNOSTICS_SET_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diagnostics_set_calc.F |
180 |
DIAGNOSTICS_SET_CALC |
WRITE(msgBuf,'(2(A,2I5),A,F16.3)') |
./pkg/diagnostics/diagnostics_set_calc.F |
183 |
DIAGNOSTICS_SET_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diagnostics_set_calc.F |
192 |
DIAGNOSTICS_SET_CALC |
WRITE(msgBuf,'(2A)') |
./pkg/diagnostics/diagnostics_set_calc.F |
194 |
DIAGNOSTICS_SET_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diagnostics_set_calc.F |
43 |
DIAGNOSTICS_SET_CALC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/diagnostics/diagnostics_set_levels.F |
106 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I4,3A)') |
./pkg/diagnostics/diagnostics_set_levels.F |
109 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_set_levels.F |
114 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,4A)') 'DIAGNOSTICS_SET_LEVELS: ', |
./pkg/diagnostics/diagnostics_set_levels.F |
117 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
122 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ', |
./pkg/diagnostics/diagnostics_set_levels.F |
124 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
134 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,4A)') 'DIAGNOSTICS_SET_LEVELS: ', |
./pkg/diagnostics/diagnostics_set_levels.F |
136 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
141 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ', |
./pkg/diagnostics/diagnostics_set_levels.F |
143 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
151 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ', |
./pkg/diagnostics/diagnostics_set_levels.F |
153 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
159 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(6A)') 'DIAGNOSTICS_SET_LEVELS: ', |
./pkg/diagnostics/diagnostics_set_levels.F |
162 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
167 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ', |
./pkg/diagnostics/diagnostics_set_levels.F |
169 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
175 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A)') |
./pkg/diagnostics/diagnostics_set_levels.F |
177 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_set_levels.F |
178 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(A)') 'DIAGNOSTICS_SET_LEVELS: done' |
./pkg/diagnostics/diagnostics_set_levels.F |
179 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_set_levels.F |
180 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(A,I6)') |
./pkg/diagnostics/diagnostics_set_levels.F |
182 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_set_levels.F |
188 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A)') |
./pkg/diagnostics/diagnostics_set_levels.F |
191 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_set_levels.F |
247 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_SET_LEVELS: ', |
./pkg/diagnostics/diagnostics_set_levels.F |
249 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
250 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_SET_LEVELS: ', |
./pkg/diagnostics/diagnostics_set_levels.F |
252 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_levels.F |
253 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_SET_LEVELS: ', |
./pkg/diagnostics/diagnostics_set_levels.F |
255 |
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 |
149 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_SET_POINTERS: ', |
./pkg/diagnostics/diagnostics_set_pointers.F |
151 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
162 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I8,A)') |
./pkg/diagnostics/diagnostics_set_pointers.F |
165 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diagnostics_set_pointers.F |
169 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
./pkg/diagnostics/diagnostics_set_pointers.F |
172 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
173 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I8,A,I8)') |
./pkg/diagnostics/diagnostics_set_pointers.F |
176 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
179 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
./pkg/diagnostics/diagnostics_set_pointers.F |
182 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_set_pointers.F |
183 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I6,A,I6)') |
./pkg/diagnostics/diagnostics_set_pointers.F |
186 |
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 |
111 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(2(A,I6,1X,A))') |
./pkg/diagnostics/diagnostics_setdiag.F |
114 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_setdiag.F |
135 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,A)') |
./pkg/diagnostics/diagnostics_setdiag.F |
137 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_setdiag.F |
139 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(A,2(I3,A),I6,1X,A)') 'SETDIAG: Allocate', |
./pkg/diagnostics/diagnostics_setdiag.F |
142 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_setdiag.F |
146 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(3A,I6,1X,2A)') '- NOTE - SETDIAG: ',tmpMsg, |
./pkg/diagnostics/diagnostics_setdiag.F |
148 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_setdiag.F |
200 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(3A,I6,1X,A)') |
./pkg/diagnostics/diagnostics_setdiag.F |
203 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_setdiag.F |
205 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(A,2(I3,A),I6,1X,A)') 'SETDIAG: Allocate', |
./pkg/diagnostics/diagnostics_setdiag.F |
208 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
./pkg/diagnostics/diagnostics_setdiag.F |
211 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(3A,I6,1X,2A)') '- NOTE - SETDIAG: ',tmpMsg, |
./pkg/diagnostics/diagnostics_setdiag.F |
213 |
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_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 |
114 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(I6,3A,2(I7,A),I4,A)') |
./pkg/diagnostics/diagnostics_summary.F |
133 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
./pkg/diagnostics/diagnostics_summary.F |
134 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
./pkg/diagnostics/diagnostics_summary.F |
136 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I7,A)') tmpBuf(1:iLen),xOld,cSep |
./pkg/diagnostics/diagnostics_summary.F |
138 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I7,A,I3,2A)') tmpBuf(1:iLen),xOld, |
./pkg/diagnostics/diagnostics_summary.F |
146 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
./pkg/diagnostics/diagnostics_summary.F |
147 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
./pkg/diagnostics/diagnostics_summary.F |
148 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(ipt,1,1),' |' |
./pkg/diagnostics/diagnostics_summary.F |
151 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
./pkg/diagnostics/diagnostics_summary.F |
152 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
./pkg/diagnostics/diagnostics_summary.F |
153 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(im,1,1),' |' |
./pkg/diagnostics/diagnostics_summary.F |
156 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
./pkg/diagnostics/diagnostics_summary.F |
157 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
./pkg/diagnostics/diagnostics_summary.F |
186 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A)') ' Regions: ' |
./pkg/diagnostics/diagnostics_summary.F |
191 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
./pkg/diagnostics/diagnostics_summary.F |
192 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j |
./pkg/diagnostics/diagnostics_summary.F |
196 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
./pkg/diagnostics/diagnostics_summary.F |
200 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(I6,3A,2(I7,A))') |
./pkg/diagnostics/diagnostics_summary.F |
205 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
./pkg/diagnostics/diagnostics_summary.F |
206 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
./pkg/diagnostics/diagnostics_summary.F |
207 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,1PE12.5,A)') tmpBuf(1:iLen), |
./pkg/diagnostics/diagnostics_summary.F |
212 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
./pkg/diagnostics/diagnostics_summary.F |
213 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
./pkg/diagnostics/diagnostics_summary.F |
214 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,1PE12.5,A)') tmpBuf(1:iLen), |
./pkg/diagnostics/diagnostics_summary.F |
217 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
./pkg/diagnostics/diagnostics_summary.F |
218 |
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 |
147 |
DIAGNOSTICS_SWITCH_ONOFF |
WRITE(msgBuf,'(2A,I3,A,I4)') 'DIAGNOSTICS_SWITCH_ONOFF:', |
./pkg/diagnostics/diagnostics_switch_onoff.F |
149 |
DIAGNOSTICS_SWITCH_ONOFF |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/diagnostics/diagnostics_switch_onoff.F |
150 |
DIAGNOSTICS_SWITCH_ONOFF |
WRITE(msgBuf,'(2A,I4,A,F17.6)') 'DIAGNOSTICS_SWITCH_ONOFF:', |
./pkg/diagnostics/diagnostics_switch_onoff.F |
152 |
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 |
339 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/diagnostics/diagnostics_utils.F |
361 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_SETKLEV: ', |
./pkg/diagnostics/diagnostics_utils.F |
363 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
374 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A,I5)') '** WARNING ** DIAGNOSTICS_SETKLEV: ', |
./pkg/diagnostics/diagnostics_utils.F |
376 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_utils.F |
378 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I5,A)')'** WARNING ** DIAGNOSTICS_SETKLEV:', |
./pkg/diagnostics/diagnostics_utils.F |
380 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_utils.F |
384 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A,I5)') 'DIAGNOSTICS_SETKLEV: ', |
./pkg/diagnostics/diagnostics_utils.F |
386 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
387 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I5,3A)') 'DIAGNOSTICS_SETKLEV: ', |
./pkg/diagnostics/diagnostics_utils.F |
389 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
392 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A,I5)') '** WARNING ** DIAGNOSTICS_SETKLEV: ', |
./pkg/diagnostics/diagnostics_utils.F |
394 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_utils.F |
396 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I5,3A)') '** WARNING ** will set level Nb', |
./pkg/diagnostics/diagnostics_utils.F |
398 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_utils.F |
400 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A)') '** WARNING ** DIAGNOSTICS_SETKLEV', |
./pkg/diagnostics/diagnostics_utils.F |
402 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_utils.F |
442 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/diagnostics/diagnostics_utils.F |
454 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A)') 'DIAGS_GET_PARMS_I: ', |
./pkg/diagnostics/diagnostics_utils.F |
456 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/diagnostics/diagnostics_utils.F |
492 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/diagnostics/diagnostics_utils.F |
530 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I4,A)') '** WARNING ** ', |
./pkg/diagnostics/diagnostics_utils.F |
532 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_utils.F |
534 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(3A)') '** WARNING ** ', |
./pkg/diagnostics/diagnostics_utils.F |
536 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_utils.F |
572 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/diagnostics/diagnostics_utils.F |
599 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I4,A)') '** WARNING ** ', |
./pkg/diagnostics/diagnostics_utils.F |
601 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_utils.F |
603 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(3A)') '** WARNING ** ', |
./pkg/diagnostics/diagnostics_utils.F |
605 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_utils.F |
645 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/diagnostics/diagnostics_utils.F |
664 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(6A)') '** WARNING ** (DIAGS_RENAMED):', |
./pkg/diagnostics/diagnostics_utils.F |
666 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagnostics_utils.F |
668 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diagstats_close_io.F |
40 |
DIAGSTATS_CLOSE_IO |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/diagnostics/diagstats_close_io.F |
63 |
DIAGSTATS_CLOSE_IO |
WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_CLOSE_IO: ', |
./pkg/diagnostics/diagstats_close_io.F |
65 |
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 |
40 |
DIAGSTATS_INI_IO |
CHARACTER*(MAX_LEN_MBUF) msgBuf, tmpBuf |
./pkg/diagnostics/diagstats_ini_io.F |
66 |
DIAGSTATS_INI_IO |
WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_INI_IO: ', |
./pkg/diagnostics/diagstats_ini_io.F |
68 |
DIAGSTATS_INI_IO |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/diagnostics/diagstats_ini_io.F |
76 |
DIAGSTATS_INI_IO |
WRITE(msgBuf,'(A)') '# Regions : ' |
./pkg/diagnostics/diagstats_ini_io.F |
80 |
DIAGSTATS_INI_IO |
tmpBuf(1:iL) = msgBuf(1:iL) |
./pkg/diagnostics/diagstats_ini_io.F |
81 |
DIAGSTATS_INI_IO |
WRITE(msgBuf,'(A,I3)') tmpBuf(1:iL),j |
./pkg/diagnostics/diagstats_ini_io.F |
85 |
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 |
103 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(2(A,I4))') '- WARNING - kdiag=', |
./pkg/diagnostics/diagstats_output.F |
106 |
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 |
56 |
DIAGSTATS_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/diagnostics/diagstats_output.F |
92 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(A,I10,A,I4)') |
./pkg/diagnostics/diagstats_output.F |
95 |
DIAGSTATS_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/diagnostics/diagstats_output.F |
97 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(A,I6,3A,I4,2A)') |
./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 |
220 |
DIC_FIELDS_LOAD |
WRITE(msgBuf,'(2A)') |
./pkg/dic/dic_fields_load.F |
223 |
DIC_FIELDS_LOAD |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/dic/dic_fields_load.F |
40 |
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 |
66 |
DIC_INI_FORCING |
WRITE(msgBuf,'(2A)') |
./pkg/dic/dic_ini_forcing.F |
69 |
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 |
90 |
DIC_INIT_FIXED |
WRITE(msgBuf,'(A)') ' ' |
./pkg/dic/dic_init_fixed.F |
91 |
DIC_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_init_fixed.F |
92 |
DIC_INIT_FIXED |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/dic/dic_init_fixed.F |
93 |
DIC_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_init_fixed.F |
94 |
DIC_INIT_FIXED |
WRITE(msgBuf,'(A)') '// DIC_INIT_FIXED parameters :' |
./pkg/dic/dic_init_fixed.F |
95 |
DIC_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_read_co2_pickup.F |
33 |
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 |
72 |
DIC_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'DIC_READ_PICKUP: ', |
./pkg/dic/dic_read_pickup.F |
75 |
DIC_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/dic/dic_read_pickup.F |
78 |
DIC_READ_PICKUP |
WRITE(msgBuf,'(2A)') 'WARNING >> DIC_READ_PICKUP: ', |
./pkg/dic/dic_read_pickup.F |
80 |
DIC_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/dic/dic_readparms.F |
152 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') ' DIC_READPARMS: opening data.dic' |
./pkg/dic/dic_readparms.F |
153 |
DIC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/dic/dic_readparms.F |
172 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/dic/dic_readparms.F |
174 |
DIC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/dic/dic_readparms.F |
203 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
./pkg/dic/dic_readparms.F |
204 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_readparms.F |
205 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/dic/dic_readparms.F |
206 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_readparms.F |
207 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') '// DIC package parameters :' |
./pkg/dic/dic_readparms.F |
208 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_readparms.F |
209 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
./pkg/dic/dic_readparms.F |
210 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
./pkg/dic/dic_readparms.F |
310 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/dic/dic_readparms.F |
312 |
DIC_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/dic/dic_readparms.F |
318 |
DIC_READPARMS |
WRITE(msgBuf,'(2A)') 'DIC_READPARMS: ', |
./pkg/dic/dic_readparms.F |
320 |
DIC_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/dic/dic_readparms.F |
322 |
DIC_READPARMS |
WRITE(msgBuf,'(2A)') 'DIC_READPARMS: ', |
./pkg/dic/dic_readparms.F |
324 |
DIC_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/dic/dic_readparms.F |
327 |
DIC_READPARMS |
WRITE(msgBuf,'(2A)') 'DIC_READPARMS: ', |
./pkg/dic/dic_readparms.F |
329 |
DIC_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/dic/dic_readparms.F |
40 |
DIC_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/dic/dic_tr_register.F |
38 |
DIC_TR_REGISTER |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/dic/dic_tr_register.F |
52 |
DIC_TR_REGISTER |
WRITE(msgBuf,'(2A,2I5)') ' DIC_TR_REGISTER: ', |
./pkg/dic/dic_tr_register.F |
54 |
DIC_TR_REGISTER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/dic/dic_tr_register.F |
56 |
DIC_TR_REGISTER |
WRITE(msgBuf,'(2A,2I5)') ' DIC_TR_REGISTER: ', |
./pkg/dic/dic_tr_register.F |
58 |
DIC_TR_REGISTER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/dic/dic_tr_register.F |
64 |
DIC_TR_REGISTER |
WRITE(msgBuf,'(2A,2I5)') ' DIC_TR_REGISTER: ', |
./pkg/dic/dic_tr_register.F |
66 |
DIC_TR_REGISTER |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/dic/dic_write_pickup.F |
101 |
DIC_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/dic/dic_write_pickup.F |
54 |
DIC_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/dic/dic_write_pickup.F |
96 |
DIC_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'DIC_WRITE_PICKUP: ', |
./pkg/dic/dic_write_pickup.F |
98 |
DIC_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/dic/dic_write_pickup.F |
99 |
DIC_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'DIC_WRITE_PICKUP: ', |
./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 |
101 |
DWNSLP_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/down_slope/dwnslp_readparms.F |
103 |
DWNSLP_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./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 |
95 |
DWNSLP_READPARMS |
WRITE(msgBuf,'(A)') |
./pkg/down_slope/dwnslp_readparms.F |
97 |
DWNSLP_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/ebm/ebm_readparms.F |
105 |
EBM_READPARMS |
WRITE(msgBuf,'(2A)') 'EBM_READPARMS: ', |
./pkg/ebm/ebm_readparms.F |
107 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ebm/ebm_readparms.F |
108 |
EBM_READPARMS |
WRITE(msgBuf,'(2A)') 'EBM_READPARMS: ', |
./pkg/ebm/ebm_readparms.F |
110 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ebm/ebm_readparms.F |
113 |
EBM_READPARMS |
WRITE(msgBuf,'(2A)') ' EBM_READPARMS: ', |
./pkg/ebm/ebm_readparms.F |
115 |
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 |
81 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') 'S/R EBM_READPARMS' |
./pkg/ebm/ebm_readparms.F |
82 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ebm/ebm_readparms.F |
83 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') 'Error reading numerical model ' |
./pkg/ebm/ebm_readparms.F |
84 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ebm/ebm_readparms.F |
85 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') 'parameter file "data.ebm"' |
./pkg/ebm/ebm_readparms.F |
86 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ebm/ebm_readparms.F |
87 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') 'Problem in namelist EBM_PARM01' |
./pkg/ebm/ebm_readparms.F |
88 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ebm/ebm_readparms.F |
98 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') ' EBM_READPARMS: finished reading data.ebm' |
./pkg/ebm/ebm_readparms.F |
99 |
EBM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/cost_averagesfields.F |
132 |
COST_AVERAGESFIELDS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/ecco/cost_averagesfields.F |
205 |
COST_AVERAGESFIELDS |
WRITE(msgBuf,'(A,I6,A,1PE21.14)') |
./pkg/ecco/cost_averagesfields.F |
207 |
COST_AVERAGESFIELDS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/cost_gencost_boxmean.F |
159 |
COST_GENCOST_BOXMEAN |
WRITE(msgBuf,'(A,I3,A,1PE21.14)') |
./pkg/ecco/cost_gencost_boxmean.F |
161 |
COST_GENCOST_BOXMEAN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/cost_gencost_boxmean.F |
172 |
COST_GENCOST_BOXMEAN |
WRITE(msgBuf,'(A,1PE21.14)') 'boxmean/horflux fc :',mySumGlo |
./pkg/ecco/cost_gencost_boxmean.F |
173 |
COST_GENCOST_BOXMEAN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/cost_gencost_glbmean.F |
270 |
COST_GENCOST_GLBMEAN |
WRITE(msgBuf,'(A,i6,2e16.5)') gencost_name(kgen)(1:10),irec, |
./pkg/ecco/cost_gencost_glbmean.F |
272 |
COST_GENCOST_GLBMEAN |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/cost_gencost_sstv4.F |
226 |
COST_GENCOST_SSTV4 |
WRITE(msgBuf,'(A,I4,A,I4,A,I10,A,1PE15.2)') 'sstv4 reading ', |
./pkg/ecco/cost_gencost_sstv4.F |
228 |
COST_GENCOST_SSTV4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ecco/cost_gencost_sstv4.F |
384 |
COST_GENCOST_SSTV4 |
WRITE(msgBuf,'(A,I4,A,I4,A,I10,A,1PE15.2)') 'sstv4 reading ', |
./pkg/ecco/cost_gencost_sstv4.F |
386 |
COST_GENCOST_SSTV4 |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
./pkg/ecco/cost_gencost_sstv4.F |
83 |
COST_GENCOST_SSTV4 |
character*(MAX_LEN_MBUF) msgBuf |
./pkg/ecco/cost_gencost_transp.F |
108 |
COST_GENCOST_TRANSP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/cost_gencost_transp.F |
120 |
COST_GENCOST_TRANSP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/cost_gencost_transp.F |
175 |
COST_GENCOST_TRANSP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/cost_gencost_transp.F |
187 |
COST_GENCOST_TRANSP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/cost_gencost_transp.F |
191 |
COST_GENCOST_TRANSP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/cost_gencost_transp.F |
276 |
COST_GENCOST_TRANSP |
WRITE(msgBuf,'(2A,I3,A,1PE21.14,1PE21.14)') |
./pkg/ecco/cost_gencost_transp.F |
279 |
COST_GENCOST_TRANSP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/ecco_check.F |
101 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
106 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
109 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
114 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
117 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
122 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
125 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
130 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
133 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
138 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
141 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
146 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
149 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
154 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
157 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
162 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
165 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
170 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
173 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
178 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
181 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
186 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
189 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
194 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
197 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
202 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
205 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
210 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
213 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
219 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') 'S/R ECCO_CHECK: ', |
./pkg/ecco/ecco_check.F |
221 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ecco/ecco_check.F |
232 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
235 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
240 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
243 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
248 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
251 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
256 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
259 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
268 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') 'S/R ECCO_CHECK: ', |
./pkg/ecco/ecco_check.F |
270 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ecco/ecco_check.F |
306 |
ECCO_CHECK |
WRITE(msgBuf,'(2A,2I10)') |
./pkg/ecco/ecco_check.F |
310 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
312 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/ecco/ecco_check.F |
324 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/ecco/ecco_check.F |
327 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
329 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/ecco/ecco_check.F |
334 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/ecco/ecco_check.F |
337 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
339 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/ecco/ecco_check.F |
359 |
ECCO_CHECK |
WRITE(msgBuf,'(4A)') |
./pkg/ecco/ecco_check.F |
362 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
383 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/ecco/ecco_check.F |
386 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
388 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/ecco/ecco_check.F |
392 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/ecco/ecco_check.F |
395 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
397 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
./pkg/ecco/ecco_check.F |
415 |
ECCO_CHECK |
WRITE(msgBuf,'(4A)') |
./pkg/ecco/ecco_check.F |
418 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
424 |
ECCO_CHECK |
WRITE(msgBuf,'(4A)') |
./pkg/ecco/ecco_check.F |
427 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
435 |
ECCO_CHECK |
WRITE(msgBuf,'(A,i3,L5)') |
./pkg/ecco/ecco_check.F |
438 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/ecco_check.F |
442 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') 'S/R ECCO_CHECK: boxmean now ', |
./pkg/ecco/ecco_check.F |
445 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
./pkg/ecco/ecco_check.F |
452 |
ECCO_CHECK |
WRITE(msgBuf,'(4A)') |
./pkg/ecco/ecco_check.F |
456 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
45 |
ECCO_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/ecco/ecco_check.F |
468 |
ECCO_CHECK |
WRITE(msgBuf,'(4A)') |
./pkg/ecco/ecco_check.F |
471 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
484 |
ECCO_CHECK |
WRITE(msgBuf,'(4A)') |
./pkg/ecco/ecco_check.F |
487 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
497 |
ECCO_CHECK |
WRITE(msgBuf,'(4A)') |
./pkg/ecco/ecco_check.F |
500 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
516 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') |
./pkg/ecco/ecco_check.F |
519 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
521 |
ECCO_CHECK |
WRITE(msgBuf,'(A)') 'Edit cost_gencost_customize to fix. ' |
./pkg/ecco/ecco_check.F |
522 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
525 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') gencost_name(k)(1:il),' is switched off' |
./pkg/ecco/ecco_check.F |
526 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
534 |
ECCO_CHECK |
WRITE(msgBuf,'(A,i3,L5)') |
./pkg/ecco/ecco_check.F |
537 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/ecco_check.F |
545 |
ECCO_CHECK |
write(msgBuf,'(2A,L5)') 'ecco_check file, exst: ', |
./pkg/ecco/ecco_check.F |
547 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/ecco_check.F |
551 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/ecco/ecco_check.F |
554 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
557 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') |
./pkg/ecco/ecco_check.F |
559 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
579 |
ECCO_CHECK |
write(msgBuf,'(2A,L5)') 'ecco_check file, exst: ', |
./pkg/ecco/ecco_check.F |
581 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/ecco_check.F |
585 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/ecco/ecco_check.F |
588 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
591 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') |
./pkg/ecco/ecco_check.F |
593 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
606 |
ECCO_CHECK |
WRITE(msgBuf,'(4A)') |
./pkg/ecco/ecco_check.F |
609 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
620 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') |
./pkg/ecco/ecco_check.F |
623 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
625 |
ECCO_CHECK |
WRITE(msgBuf,'(A)') 'Edit cost_gencost_customize to fix. ' |
./pkg/ecco/ecco_check.F |
626 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
629 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') gencost_name(k)(1:il),' is switched off' |
./pkg/ecco/ecco_check.F |
630 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
637 |
ECCO_CHECK |
WRITE(msgBuf,'(2A,i3,L5)') |
./pkg/ecco/ecco_check.F |
640 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
./pkg/ecco/ecco_check.F |
660 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') |
./pkg/ecco/ecco_check.F |
663 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
711 |
ECCO_CHECK_FILES |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
./pkg/ecco/ecco_check.F |
731 |
ECCO_CHECK_FILES |
WRITE(msgBuf,'(4A)') |
./pkg/ecco/ecco_check.F |
734 |
ECCO_CHECK_FILES |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
762 |
ECCO_CHECK_FILES |
WRITE(msgBuf,'(5A)') |
./pkg/ecco/ecco_check.F |
765 |
ECCO_CHECK_FILES |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
778 |
ECCO_CHECK_FILES |
WRITE(msgBuf,'(4A)') |
./pkg/ecco/ecco_check.F |
781 |
ECCO_CHECK_FILES |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
82 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
85 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
90 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_check.F |
93 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_check.F |
98 |
ECCO_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ECCO_CHECK:', |
./pkg/ecco/ecco_cost_final.F |
1214 |
ECCO_COST_FINAL |
write(msgBuf,'(A,D22.15,i2.0,i2.0)') |
./pkg/ecco/ecco_cost_final.F |
1217 |
ECCO_COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/ecco/ecco_cost_final.F |
1224 |
ECCO_COST_FINAL |
write(msgBuf,'(A,D22.15,i2.0,i2.0)') |
./pkg/ecco/ecco_cost_final.F |
1227 |
ECCO_COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/ecco/ecco_cost_final.F |
1236 |
ECCO_COST_FINAL |
write(msgBuf,'(A,D22.15,i2.0)') |
./pkg/ecco/ecco_cost_final.F |
1239 |
ECCO_COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/ecco/ecco_cost_final.F |
1247 |
ECCO_COST_FINAL |
write(msgBuf,'(A,D22.15,i2.0)') |
./pkg/ecco/ecco_cost_final.F |
1250 |
ECCO_COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/ecco/ecco_cost_final.F |
1258 |
ECCO_COST_FINAL |
write(msgBuf,'(A,D22.15,i2.0)') |
./pkg/ecco/ecco_cost_final.F |
1261 |
ECCO_COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/ecco/ecco_cost_final.F |
1269 |
ECCO_COST_FINAL |
write(msgBuf,'(A,D22.15,i2.0)') |
./pkg/ecco/ecco_cost_final.F |
1272 |
ECCO_COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/ecco/ecco_cost_final.F |
1325 |
ECCO_COST_FINAL |
write(msgBuf,'(A,D22.15)') |
./pkg/ecco/ecco_cost_final.F |
1327 |
ECCO_COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/ecco/ecco_cost_final.F |
1617 |
ECCO_COST_FINAL |
write(msgBuf,'(a,D22.15)') |
./pkg/ecco/ecco_cost_final.F |
1619 |
ECCO_COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/ecco/ecco_cost_final.F |
1621 |
ECCO_COST_FINAL |
write(msgBuf,'(a)') ' ' |
./pkg/ecco/ecco_cost_final.F |
1622 |
ECCO_COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/ecco/ecco_cost_final.F |
1624 |
ECCO_COST_FINAL |
write(msgBuf,'(a)') |
./pkg/ecco/ecco_cost_final.F |
1626 |
ECCO_COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/ecco/ecco_cost_final.F |
1628 |
ECCO_COST_FINAL |
write(msgBuf,'(a)') ' ' |
./pkg/ecco/ecco_cost_final.F |
1629 |
ECCO_COST_FINAL |
call PRINT_MESSAGE( msgBuf, standardmessageunit, |
./pkg/ecco/ecco_cost_final.F |
172 |
ECCO_COST_FINAL |
character*(MAX_LEN_MBUF) msgBuf |
./pkg/ecco/ecco_cost_init_fixed.F |
236 |
ECCO_COST_INIT_FIXED |
WRITE(msgBuf,'(2A,2i8)') 'ecco_cost_init_fixed: ', |
./pkg/ecco/ecco_cost_init_fixed.F |
238 |
ECCO_COST_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid) |
./pkg/ecco/ecco_cost_init_fixed.F |
395 |
ECCO_COST_INIT_FIXED |
WRITE(msgBuf,'(2A,I10)') |
./pkg/ecco/ecco_cost_init_fixed.F |
398 |
ECCO_COST_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
./pkg/ecco/ecco_cost_init_fixed.F |
400 |
ECCO_COST_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid ) |