352 |
nvf = IFNBLNK(vtype) |
nvf = IFNBLNK(vtype) |
353 |
nvl = ILNBLNK(vtype) |
nvl = ILNBLNK(vtype) |
354 |
CALL MNC_GET_IND(myThid, MNC_MAX_ID, vtype, mnc_cw_vname, ind_vt) |
CALL MNC_GET_IND(myThid, MNC_MAX_ID, vtype, mnc_cw_vname, ind_vt) |
355 |
IF (indv .LT. 1) THEN |
IF (ind_vt .LT. 1) THEN |
356 |
write(msgbuf,'(3a)') 'MNC_CW_RX_R_YY ERROR: vtype ''', |
write(msgbuf,'(3a)') 'MNC_CW_RX_R_YY ERROR: vtype ''', |
357 |
& vtype(nvf:nvl), ''' is not defined' |
& vtype(nvf:nvl), ''' is not defined' |
358 |
CALL print_error(msgbuf, mythid) |
CALL print_error(msgbuf, mythid) |