integer ny,nm,nd,ny00,modymd

      integer   nm,nt,na

      parameter (nm=11,nt=9,na=11)

      _RL   dm,dt,da,t1,caib(nm,nt,na),caif(nt,na)

           im=min(im,nm-1)

        nm = 0

     &                         nm, fp, Nr, myIter, myThid )

     &        nm, fp, Nr, myIter, myThid )

     &        nm, fp, Nr, myIter, myThid )

        nm = nm*Nr

     &       nm, fp, 1, myIter, myThid )

     &        'cannot restart without field "',missFldList(nm),'"'

      INTEGER i,j,k,n,nm,ioUnit,bi,bj

        nm = -m*Nr

      nm = nm-1

     &     Rdef, nm, myIter, myThid )

      nm = ABS(nm)

      IF ( nWrFlds*Nr .EQ. nm ) THEN

        nm = nWrFlds

     &     nm, myIter, myThid )

      INTEGER i,j,k,bi,bj,m,n, nm, fp, lChar

      integer ny,nm,nd,ny00,modymd