714 |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
715 |
& SQUEEZE_RIGHT, 1) |
& SQUEEZE_RIGHT, 1) |
716 |
|
|
717 |
|
if (Nx.gt.MAX_LEN_PLOTBUF-20) THEN |
718 |
|
msgBuf = |
719 |
|
& 'Model domain too big to print to terminal - skipping I/O' |
720 |
|
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
721 |
|
& SQUEEZE_RIGHT, 1) |
722 |
|
RETURN |
723 |
|
endif |
724 |
|
|
725 |
C-- Write field |
C-- Write field |
726 |
C Figure out slice type and set plotting parameters appropriately |
C Figure out slice type and set plotting parameters appropriately |
727 |
C acc = accross the page |
C acc = accross the page |
1139 |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
1140 |
& SQUEEZE_RIGHT, 1) |
& SQUEEZE_RIGHT, 1) |
1141 |
|
|
1142 |
|
if (Nx.gt.MAX_LEN_PLOTBUF-20) THEN |
1143 |
|
msgBuf = |
1144 |
|
& 'Model domain too big to print to terminal - skipping I/O' |
1145 |
|
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
1146 |
|
& SQUEEZE_RIGHT, 1) |
1147 |
|
RETURN |
1148 |
|
endif |
1149 |
|
|
1150 |
C-- Write field |
C-- Write field |
1151 |
C Figure out slice type and set plotting parameters appropriately |
C Figure out slice type and set plotting parameters appropriately |
1152 |
C acc = accross the page |
C acc = accross the page |