154 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
155 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |
156 |
|
|
157 |
WRITE(msgBuf,'(A,L4,A)') 'useCoupler=', useCoupler, |
WRITE(msgBuf,'(A,L5,A)') 'useCoupler=', useCoupler, |
158 |
& ' ; /* Flag used to control communications with */' |
& ' ;/* Flag used to control communications with */' |
159 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
160 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |
161 |
WRITE(msgBuf,'(A,A,A)') ' ', ' ' , |
WRITE(msgBuf,'(A,A,A)') ' ', ' ', |
162 |
& ' /* other model components, through a coupler */' |
& ' /* other model components, through a coupler */' |
163 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
164 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |
165 |
|
|
166 |
CALL WRITE_0D_L( printMapIncludesZeros, INDEX_NONE, |
WRITE(msgBuf,'(A,L5,A)') |
167 |
& 'printMapIncludesZeros=', |
& 'printMapIncludesZeros=', printMapIncludesZeros, |
168 |
& ' /* print zeros in Std.Output maps */' ) |
& ' ; /* print zeros in Std.Output maps */' |
169 |
CALL WRITE_0D_I( maxLengthPrt1D, INDEX_NONE, 'maxLengthPrt1D=', |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
170 |
& ' /* max length of 1.D array printed to Std.Out */' ) |
& SQUEEZE_RIGHT , 1) |
171 |
|
WRITE(msgBuf,'(A,I5,A)') 'maxLengthPrt1D=', maxLengthPrt1D, |
172 |
|
& ' /* maxLength of 1D array printed to StdOut */' |
173 |
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
174 |
|
& SQUEEZE_RIGHT , 1) |
175 |
|
|
176 |
WRITE(msgBuf,'(A)') ' ' |
WRITE(msgBuf,'(A)') ' ' |
177 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
178 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |
179 |
|
|
|
C |
|
180 |
RETURN |
RETURN |
181 |
END |
END |