169 |
IF (needed .GE. MNC_MAX_INFO) THEN |
IF (needed .GE. MNC_MAX_INFO) THEN |
170 |
WRITE(msgBuf,'(2A,I7,A)') 'MNC ERROR: MNC_MAX_INFO exceeded', |
WRITE(msgBuf,'(2A,I7,A)') 'MNC ERROR: MNC_MAX_INFO exceeded', |
171 |
& ': please increase it to ', 2*MNC_MAX_INFO, |
& ': please increase it to ', 2*MNC_MAX_INFO, |
172 |
& ' in the file ''pkg/mnc/MNC_COMMON.h''' |
& ' in the file ''pkg/mnc/MNC_SIZE.h''' |
173 |
CALL print_error(msgBuf, myThid) |
CALL print_error(msgBuf, myThid) |
174 |
STOP 'ABNORMAL END: S/R MNC_VAR_INIT_ANY' |
STOP 'ABNORMAL END: S/R MNC_VAR_INIT_ANY' |
175 |
ENDIF |
ENDIF |