| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_readparms.F |
32 |
EBM_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ebm/ebm_readparms.F |
43 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') ' ebm_readparms: opening data.ebm' |
|
./pkg/ebm/ebm_readparms.F |
44 |
EBM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ebm/ebm_readparms.F |
62 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ebm/ebm_readparms.F |
64 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ebm/ebm_readparms.F |
65 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ebm/ebm_readparms.F |
67 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ebm/ebm_readparms.F |
68 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ebm/ebm_readparms.F |
70 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ebm/ebm_readparms.F |
71 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ebm/ebm_readparms.F |
73 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ebm/ebm_readparms.F |
80 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') ' ebm_readparms: finished reading data.ebm' |
|
./pkg/ebm/ebm_readparms.F |
81 |
EBM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_monitor.F |
171 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor.F |
173 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
174 |
EXF_MONITOR |
WRITE(msgBuf,'(A)') '// End MONITOR EXF statistics' |
|
./pkg/exf/exf_monitor.F |
175 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
176 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor.F |
178 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
46 |
EXF_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_monitor.F |
84 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor.F |
86 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
87 |
EXF_MONITOR |
WRITE(msgBuf,'(A)') '// Begin MONITOR EXF statistics' |
|
./pkg/exf/exf_monitor.F |
88 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
89 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor.F |
91 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_clim_readparms.F |
144 |
EXF_CLIM_READPARMS |
WRITE(msgBuf,'(A)') 'EXF_CLIM_READPARMS: opening data.exf_clim' |
|
./pkg/exf/exf_clim_readparms.F |
145 |
EXF_CLIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_clim_readparms.F |
155 |
EXF_CLIM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_clim_readparms.F |
157 |
EXF_CLIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
563 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') 'EXF_READPARMS: opening data.exf' |
|
./pkg/exf/exf_readparms.F |
564 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
574 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
576 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_init_fixed.F |
36 |
PTRACERS_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_init_fixed.F |
63 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_init_fixed.F |
65 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/ptracers/ptracers_init_fixed.F |
66 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A,I2)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_init_fixed.F |
68 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
116 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor.F |
118 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor.F |
119 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_monitor.F |
121 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, |
|
./pkg/ptracers/ptracers_monitor.F |
123 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor.F |
125 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor.F |
47 |
PTRACERS_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_monitor.F |
68 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor.F |
70 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor.F |
71 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_monitor.F |
73 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, |
|
./pkg/ptracers/ptracers_monitor.F |
75 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor.F |
77 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_write_timeave.F |
146 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A)') 'S/R PTRACERS_WRITE_TIMEAVE' |
|
./pkg/ptracers/ptracers_write_timeave.F |
147 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
148 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A)') 'Error writing out data' |
|
./pkg/ptracers/ptracers_write_timeave.F |
149 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
150 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./pkg/ptracers/ptracers_write_timeave.F |
151 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
153 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/ptracers/ptracers_write_timeave.F |
155 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_write_timeave.F |
157 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/ptracers/ptracers_write_timeave.F |
158 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_write_timeave.F |
51 |
PTRACERS_WRITE_TIMEAVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_readparms.F |
119 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') ' PTRACERS_READPARMS: opening data.ptracers' |
|
./pkg/ptracers/ptracers_readparms.F |
120 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_readparms.F |
127 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_readparms.F |
129 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_readparms.F |
149 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A,I2,A,I2,A)') |
|
./pkg/ptracers/ptracers_readparms.F |
153 |
PTRACERS_READPARMS |
CALL PRINT_ERROR(msgBuf, 1) |
|
./pkg/ptracers/ptracers_readparms.F |
159 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A,A,I2)') |
|
./pkg/ptracers/ptracers_readparms.F |
163 |
PTRACERS_READPARMS |
CALL PRINT_ERROR(msgBuf, 1) |
|
./pkg/ptracers/ptracers_readparms.F |
170 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_readparms.F |
172 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/ptracers/ptracers_readparms.F |
173 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(2A,I2,A)') 'PTRACERS_READPARMS:', |
|
./pkg/ptracers/ptracers_readparms.F |
175 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/ptracers/ptracers_readparms.F |
230 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/ptracers/ptracers_readparms.F |
231 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_readparms.F |
232 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') '// PTRACERS parameters ' |
|
./pkg/ptracers/ptracers_readparms.F |
233 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_readparms.F |
234 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/ptracers/ptracers_readparms.F |
235 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_readparms.F |
265 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') ' -----------------------------------' |
|
./pkg/ptracers/ptracers_readparms.F |
266 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_readparms.F |
267 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A,I4)') ' tracer number : ',iTracer |
|
./pkg/ptracers/ptracers_readparms.F |
268 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_readparms.F |
290 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') ' -----------------------------------' |
|
./pkg/ptracers/ptracers_readparms.F |
291 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_readparms.F |
40 |
PTRACERS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/shelfice/shelfice_check.F |
26 |
SHELFICE_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/shelfice/shelfice_check.F |
28 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') 'SHELFICE_CHECK: #define ALLOW_SHELFICE' |
|
./pkg/shelfice/shelfice_check.F |
29 |
SHELFICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/shelfice/shelfice_check.F |
34 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/shelfice/shelfice_check.F |
36 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shelfice/shelfice_check.F |
43 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/shelfice/shelfice_check.F |
45 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shelfice/shelfice_check.F |
46 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') 'on at the same time' |
|
./pkg/shelfice/shelfice_check.F |
47 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shelfice/shelfice_check.F |
64 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/shelfice/shelfice_check.F |
66 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shelfice/shelfice_check.F |
67 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/shelfice/shelfice_check.F |
69 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shelfice/shelfice_readparms.F |
38 |
SHELFICE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/shelfice/shelfice_readparms.F |
87 |
SHELFICE_READPARMS |
WRITE(msgBuf,'(A)') ' SHELFICE_READPARMS: opening data.shelfice' |
|
./pkg/shelfice/shelfice_readparms.F |
88 |
SHELFICE_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/shelfice/shelfice_readparms.F |
95 |
SHELFICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/shelfice/shelfice_readparms.F |
97 |
SHELFICE_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/pp81/pp81_readparms.F |
101 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') 'PPnRi must not be zero' |
|
./pkg/pp81/pp81_readparms.F |
102 |
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 |
69 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') ' PP81_READPARMS: opening data.pp81' |
|
./pkg/pp81/pp81_readparms.F |
70 |
PP81_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/pp81/pp81_readparms.F |
77 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_readparms.F |
79 |
PP81_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/pp81/pp81_readparms.F |
91 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') 'PPviscMax must be greater than zero' |
|
./pkg/pp81/pp81_readparms.F |
92 |
PP81_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_readparms.F |
96 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') 'PPalpha must not be zero' |
|
./pkg/pp81/pp81_readparms.F |
97 |
PP81_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_check.F |
26 |
PP81_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/pp81/pp81_check.F |
28 |
PP81_CHECK |
WRITE(msgBuf,'(A)') 'PP81_CHECK: #define ALLOW_PP81' |
|
./pkg/pp81/pp81_check.F |
29 |
PP81_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/pp81/pp81_check.F |
34 |
PP81_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_check.F |
36 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_check.F |
43 |
PP81_CHECK |
WRITE(msgBuf,'(A)') 'Some form of convection has been enabled' |
|
./pkg/pp81/pp81_check.F |
44 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_check.F |
49 |
PP81_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_check.F |
51 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_check.F |
57 |
PP81_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_check.F |
59 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_check.F |
63 |
PP81_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_check.F |
65 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/gmredi/gmredi_readparms.F |
51 |
GMREDI_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/gmredi/gmredi_readparms.F |
84 |
GMREDI_READPARMS |
WRITE(msgBuf,'(A)') ' GM_READPARMS: opening data.gmredi' |
|
./pkg/gmredi/gmredi_readparms.F |
85 |
GMREDI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/gmredi/gmredi_readparms.F |
94 |
GMREDI_READPARMS |
WRITE(msgBuf,'(A)') ' GM_READPARMS: finished reading data.gmredi' |
|
./pkg/gmredi/gmredi_readparms.F |
95 |
GMREDI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/gmredi/gmredi_check.F |
103 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
105 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./pkg/gmredi/gmredi_check.F |
106 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
108 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./pkg/gmredi/gmredi_check.F |
139 |
GMREDI_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./pkg/gmredi/gmredi_check.F |
141 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/gmredi/gmredi_check.F |
142 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') 'GMREDI_CHECK: need at least Olx,Oly = 3' |
|
./pkg/gmredi/gmredi_check.F |
143 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/gmredi/gmredi_check.F |
29 |
GMREDI_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/gmredi/gmredi_check.F |
34 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') 'GMREDI_CHECK: #define GMREDI' |
|
./pkg/gmredi/gmredi_check.F |
35 |
GMREDI_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/gmredi/gmredi_check.F |
55 |
GMREDI_CHECK |
WRITE(msgBuf,'(A,A40)')' Tapering/Cliping : ',GM_taper_scheme |
|
./pkg/gmredi/gmredi_check.F |
56 |
GMREDI_CHECK |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/gmredi/gmredi_check.F |
69 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') 'GM/Redi needs implicitDiffusion=.true.' |
|
./pkg/gmredi/gmredi_check.F |
70 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/gmredi/gmredi_check.F |
77 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
79 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./pkg/gmredi/gmredi_check.F |
80 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
82 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./pkg/gmredi/gmredi_check.F |
90 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
92 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./pkg/gmredi/gmredi_check.F |
93 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
95 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
185 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,I3,A)') 'DIAGNOSTICS_FILL_FIELD: ', |
|
./pkg/diagnostics/diagnostics_fill_field.F |
187 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
188 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_FILL_FIELD: ', |
|
./pkg/diagnostics/diagnostics_fill_field.F |
190 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
191 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,2I4,I3)') 'calling DIAGNOSTICS_FILL_FIELD ', |
|
./pkg/diagnostics/diagnostics_fill_field.F |
193 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
194 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,I6,A)') 'DIAGNOSTICS_FILL_FIELD: ', |
|
./pkg/diagnostics/diagnostics_fill_field.F |
196 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
86 |
DIAGNOSTICS_FILL_FIELD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_close_io.F |
39 |
DIAGSTATS_CLOSE_IO |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_close_io.F |
62 |
DIAGSTATS_CLOSE_IO |
WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_CLOSE_IO: ', |
|
./pkg/diagnostics/diagstats_close_io.F |
64 |
DIAGSTATS_CLOSE_IO |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_setdiag.F |
101 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
132 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I4,1X,A)') |
|
./pkg/diagnostics/diagstats_setdiag.F |
135 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
137 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I3,A,I4,1X,A)') 'SETDIAG: Allocate', |
|
./pkg/diagnostics/diagstats_setdiag.F |
139 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
144 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I4,1X,2A)') |
|
./pkg/diagnostics/diagstats_setdiag.F |
147 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
54 |
DIAGSTATS_SETDIAG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_setdiag.F |
87 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I4,1X,A)') |
|
./pkg/diagnostics/diagstats_setdiag.F |
89 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
91 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I3,A,I4,1X,A)') 'SETDIAG: Allocate', |
|
./pkg/diagnostics/diagstats_setdiag.F |
93 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
98 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I4,1X,2A)') |
|
./pkg/diagnostics/diagnostics_check.F |
100 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
29 |
DIAGNOSTICS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_check.F |
39 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') '**CAUTION** (DIAGNOSTICS_CHECK): ', |
|
./pkg/diagnostics/diagnostics_check.F |
41 |
DIAGNOSTICS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_check.F |
43 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') '**CAUTION** ', |
|
./pkg/diagnostics/diagnostics_check.F |
45 |
DIAGNOSTICS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_check.F |
47 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') '**CAUTION** ', |
|
./pkg/diagnostics/diagnostics_check.F |
49 |
DIAGNOSTICS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_check.F |
55 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
58 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_check.F |
61 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
64 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_check.F |
75 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
77 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
78 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
80 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
81 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
83 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
92 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
94 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
95 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
97 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
98 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagstats_output.F |
101 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(2A)') '- WARNING - has not been filled,', |
|
./pkg/diagnostics/diagstats_output.F |
103 |
DIAGSTATS_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagstats_output.F |
105 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagstats_output.F |
107 |
DIAGSTATS_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagstats_output.F |
57 |
DIAGSTATS_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_output.F |
91 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(A,I10,A,I3)') |
|
./pkg/diagnostics/diagstats_output.F |
94 |
DIAGSTATS_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagstats_output.F |
96 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(A,I4,3A,I3,2A)') |
|
./pkg/diagnostics/diagstats_output.F |
99 |
DIAGSTATS_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_levels.F |
100 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
101 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(A)') 'DIAGNOSTICS_SET_LEVELS: done' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
102 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
103 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(A,I4)') |
|
./pkg/diagnostics/diagnostics_set_levels.F |
105 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
111 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_levels.F |
114 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
160 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
162 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
163 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
165 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
166 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
168 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
181 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(3A,I3,2A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
184 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
185 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I4,A,I4)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
187 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
64 |
DIAGNOSTICS_SET_LEVELS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_set_levels.F |
98 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagstats_fill.F |
176 |
DIAGSTATS_FILL |
WRITE(msgBuf,'(2A,I3,A)') 'DIAGSTATS_FILL: ', |
|
./pkg/diagnostics/diagstats_fill.F |
178 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
179 |
DIAGSTATS_FILL |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGSTATS_FILL: ', |
|
./pkg/diagnostics/diagstats_fill.F |
181 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
182 |
DIAGSTATS_FILL |
WRITE(msgBuf,'(2A,2I4,I3)') 'calling DIAGSTATS_FILL ', |
|
./pkg/diagnostics/diagstats_fill.F |
184 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
185 |
DIAGSTATS_FILL |
WRITE(msgBuf,'(2A,I6,A)') 'DIAGSTATS_FILL: ', |
|
./pkg/diagnostics/diagstats_fill.F |
187 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
90 |
DIAGSTATS_FILL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
109 |
DIAGNOSTICS_FRACT_FILL |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_FRACT_FILL: ', |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
111 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
112 |
DIAGNOSTICS_FRACT_FILL |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_FRACT_FILL: ', |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
114 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
147 |
DIAGNOSTICS_FRACT_FILL |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_FRACT_FILL: ', |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
149 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
150 |
DIAGNOSTICS_FRACT_FILL |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_FRACT_FILL: ', |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
152 |
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_utils.F |
196 |
DIAGNOSTICS_COUNT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_utils.F |
211 |
DIAGNOSTICS_COUNT |
WRITE(msgBuf,'(2A,I4,A)') '**WARNING** ', |
|
./pkg/diagnostics/diagnostics_utils.F |
213 |
DIAGNOSTICS_COUNT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
215 |
DIAGNOSTICS_COUNT |
WRITE(msgBuf,'(3A)') '**WARNING** ', |
|
./pkg/diagnostics/diagnostics_utils.F |
217 |
DIAGNOSTICS_COUNT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
253 |
DIAGNOSTICS_COUNT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_utils.F |
280 |
DIAGNOSTICS_COUNT |
WRITE(msgBuf,'(2A,I4,A)') '**WARNING** ', |
|
./pkg/diagnostics/diagnostics_utils.F |
282 |
DIAGNOSTICS_COUNT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
284 |
DIAGNOSTICS_COUNT |
WRITE(msgBuf,'(3A)') '**WARNING** ', |
|
./pkg/diagnostics/diagnostics_utils.F |
286 |
DIAGNOSTICS_COUNT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
102 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
105 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
106 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I6,A,I6)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
109 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
112 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
115 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
116 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I6,A,I6)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
119 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
144 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I4,4A)') ' set mate pointer for diag #', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
146 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
166 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A,I4,2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
169 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
176 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_SET_POINTERS: ', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
178 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
182 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,20F5.0)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
184 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
200 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I3,A,I3,2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
203 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
204 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A,I3,A,I3,2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
207 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
208 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_SET_POINTERS: ', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
210 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
217 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A)') 'DIAGNOSTICS_SET_POINTERS: done' |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
218 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
220 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
222 |
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 |
74 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_SET_POINTERS: ', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
76 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
95 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I6,A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
98 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_regions.F |
130 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A,I3,A,I4)') 'DIAGSTATS_SET_REGIONS: ', |
|
./pkg/diagnostics/diagstats_set_regions.F |
132 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
136 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A,I3,A,I3,A)') 'DIAGSTATS_SET_REGIONS: ', |
|
./pkg/diagnostics/diagstats_set_regions.F |
139 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
164 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(A,I4,A)') 'DIAGSTATS_SET_REGIONS: define', |
|
./pkg/diagnostics/diagstats_set_regions.F |
166 |
DIAGSTATS_SET_REGIONS |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagstats_set_regions.F |
170 |
DIAGSTATS_SET_REGIONS |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagstats_set_regions.F |
171 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j |
|
./pkg/diagnostics/diagstats_set_regions.F |
175 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_regions.F |
177 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagstats_set_regions.F |
179 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_regions.F |
208 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A)') 'DIAGSTATS_SET_REGIONS:', |
|
./pkg/diagnostics/diagstats_set_regions.F |
210 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
214 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(A)') 'DIAGSTATS_SET_REGIONS: define no region' |
|
./pkg/diagnostics/diagstats_set_regions.F |
215 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_regions.F |
217 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagstats_set_regions.F |
219 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_MESSAGE( msgBuf |