I atype,
integer atype
IF (atype .EQ. 1) THEN
IF (atype .EQ. 2) THEN
IF (atype .EQ. 3) THEN
I atype, sv, len,dv,rv,iv,
integer myThid, atype, len, iv
ELSEIF (atype .EQ. 2) THEN
ELSEIF (atype .EQ. 3) THEN
ELSEIF (atype .EQ. 4) THEN
write(msgbuf,'(a,i10,a)') 'MNC ERROR: atype = ''', atype,
I atype, cs,len,dv,rv,iv,
INTEGER atype
WRITE(msgBuf,'(A,I10,A)') 'MNC ERROR: atype = ''', atype,