DO 2000 ITER = 1, ITRTRB
IF ( ITER .GE. ITRTRB ) LAST = .TRUE.
IF(ITER.EQ.1) THEN
IF(ITER.EQ.ITRTRB)THEN
DO 200 ITER = 1,N
IF(ITER.EQ.N) ITYPE = 4
IF ( ITER .EQ. N ) THEN
DO ITER=1,IMAX_TICE
INTEGER ITER
print *,'ice-iter tsurfLc,|dif|', I,J, ITER,tsurfLoc(I,J),