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, |
158 |
|
& ' ; /* Flag used to control communications with */' |
159 |
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
160 |
|
& SQUEEZE_RIGHT , 1) |
161 |
|
WRITE(msgBuf,'(A,A,A)') ' ', ' ' , |
162 |
|
& ' /* other model components, through a coupler */' |
163 |
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
164 |
|
& SQUEEZE_RIGHT , 1) |
165 |
|
|
166 |
|
|
167 |
WRITE(msgBuf,'(A)') ' ' |
WRITE(msgBuf,'(A)') ' ' |
168 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
169 |
& SQUEEZE_RIGHT , 1) |
& SQUEEZE_RIGHT , 1) |