subroutine ADSTORE(chardum,int1,idow,int2,int3,icount)

      integer int1, int2, int3, idow, icount

      print *, 'adstore: ', chardum, int1, idow, int2, int3, icount

      if ( icount .gt. nidow ) then

      istoreidow(icount) = idow

      subroutine ADRESTO(chardum,int1,idow,int2,int3,icount)

      integer int1, int2, int3, idow, icount

      print *, 'adresto: ', chardum, int1, idow, int2, int3, icount

      if ( icount .gt. nidow ) then

      idow = istoreidow(icount)

      icount = 0

          icount=icount+1

      IF (icount .gt. 0) THEN

      INTEGER ii,jj,icount

      INTEGER ii, jj, icount, stdUnit

      icount = 0

           icount = icount + 1

      IF ( icount .gt. 0 ) THEN

     &      'THSICE_SOLVE4TEMP: there are ',icount,

       icount      = INT(tmp(5))

      print*, 'timesteps= ',icount

      allocate (time(icount))

      allocate (xpart(npart,icount))

      allocate (ypart(npart,icount))

      allocate (kpart(npart,icount))

      allocate (temp(npart,Nr,icount))

         allocate (uvel(npart,Nr,icount))

         allocate (vvel(npart,Nr,icount))

         allocate (salt(npart,Nr,icount))

      allocate (zeta(npart,icount))

         do n=1,icount

      do m=2,icount

      print*,icount,' x ',npart,' = ',icount*npart,' records expected,',

      print*,'==> ',icount*npart-itotalrecord,' float records missing'

      edges(1) = icount

      edges(2) = icount

      edges(3) = icount