name((ntot+6):(n)) = vert_dat(ivert)(1:nvch)

                write(name((n+1):(n+3)), '(a2,a1)') 

                  CALL MNC_CW_ADD_GNAME(name, ndim, 

      character*(MNC_MAX_CHAR) name

                name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)

                name(1:n) = horz_dat(ihorz)(1:n)

                name(ntot:ntot) = '_'

                name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n)

                write(name((ntot+1):(ntot+5)), '(a1,2a2)')

                name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)

                name(1:n) = horz_dat(ihorz)(1:n)

                name(ntot:ntot) = '_'

                name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n)

                write(name((ntot+1):(ntot+5)), '(a1,2a2)')

                name((ntot+6):(n)) = vert_dat(ivert)(1:nvch)

                write(name((n+1):(n+3)), '(a2,a1)') 

                  CALL MNC_CW_ADD_GNAME(name, ndim, 

      character*(MNC_MAX_CHAR) name

                name(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)

                name(1:n) = horz_dat(ihorz)(1:n)

                name(ntot:ntot) = '_'

                name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n)

                write(name((ntot+1):(ntot+5)), '(a1,2a2)')

                name((ntot+6):(n)) = vert_dat(ivert)(1:nvch)

                write(name((n+1):(n+3)), '(a2,a1)') 

     &                 ncomb, ' : ', name(1:15), ndim, 

                  CALL MNC_CW_ADD_GNAME(name, ndim, 

      character*(MNC_MAX_CHAR) name

      character*(*) name

      nnf = IFNBLNK(name)

      nnl = ILNBLNK(name)

      CALL MNC_GET_IND(MNC_MAX_ID, name, mnc_cw_gname, indg, myThid)

     I     name,

      character*(*) name

      nnf = IFNBLNK(name)

      nnl = ILNBLNK(name)

      CALL MNC_GET_IND(MNC_MAX_ID, name, mnc_cw_gname, indg, myThid)

        write(msgbuf,'(3a)') 'MNC_CW_ADD_GNAME ERROR: ''', name,

      mnc_cw_gname(indg)(1:(nnl-nnf+1)) = name(nnf:nnl)

     I     name,

      character*(NF_MAX_NAME) name

        err = NF_INQ_DIM(fid, id, name, dlen)

        ns = IFNBLNK(name)

        ne = ILNBLNK(name)

        CALL MNC_DIM_INIT_ALL(fname,name(ns:ne),dlen,'N', myThid)

     &         .AND. (mnc_d_names(j)(ns:ne) .EQ. name(ns:ne))) THEN

        err = NF_INQ_VAR(fid, id, name, xtype, ndv, idlist, nat)

        n1 = IFNBLNK(name)

        n2 = ILNBLNK(name)

        CALL MNC_GRID_INIT_ALL(fname, name, ndv, dnames, indg, myThid)

        mnc_v_names(indv)(1:(n2-n1+1)) = name(n1:n2)

      character*(80) name

            name(jj:jj) = ' '

          WRITE(name,'(a,a)') 'surf_',PTRACERS_names(ii)(1:ilnb)

          CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__-__t',3,4,myThid)

      CHARACTER*(MNC_MAX_CHAR) name

      name = 'Particles Number    '

      call NCAPTC(ncid, partid, 'long_name', NCCHAR, 24, name, iret) 

      name = 'Time'

      call NCAPTC(ncid, Timeid, 'long_name', NCCHAR, 24, name, iret) 

      name = 'Depth of T grid points  '

      call NCAPTC(ncid, Dep_tid, 'long_name', NCCHAR, 24, name, iret) 

      name = 'Depth at top of T box'

      call NCAPTC(ncid, Dep_wm1id, 'long_name', NCCHAR, 24, name, iret) 

      name = 'Depth at bottom of T box'

      call NCAPTC(ncid, Dep_wid, 'long_name', NCCHAR, 24, name, iret) 

         name = 'LONGITUDE '

         name = 'X_t '

      call NCAPTC(ncid, xpartid, 'long_name', NCCHAR, 24, name, iret) 

         name = 'LATITUDE '

         name = 'Y_t '

      call NCAPTC(ncid, ypartid, 'long_name', NCCHAR, 24, name, iret) 

      name = 'LEVEL '

      call NCAPTC(ncid, kpartid, 'long_name', NCCHAR, 24, name, iret) 

      name = 'POTENTIAL TEMPERATURE '

      call NCAPTC(ncid, tempid, 'long_name', NCCHAR, 24, name, iret) 

      name = 'SALINITY '

      call NCAPTC(ncid, saltid, 'long_name', NCCHAR, 24, name, iret) 

      name = 'U VELOCITY '

      call NCAPTC(ncid, uvelid, 'long_name', NCCHAR, 24, name, iret) 

      name = 'V VELOCITY '

      call NCAPTC(ncid, vvelid, 'long_name', NCCHAR, 24, name, iret) 

      name = 'SEA SURFACE HEIGHT '

      call NCAPTC(ncid, zetaid, 'long_name', NCCHAR, 24, name, iret) 

      character name*24, unit*16, grid*2

      character*(*) name

     I                    name,

      character*(*) name

     I                   name,

      CHARACTER*(*) name

      il = ILNBLNK( name )

        WRITE(fname,'(2A)') adTapeDir(1:jl),name(1:il)

     &     adTapeDir(1:jl),name(1:il),'.it',optimcycle

     I                    name,

      CHARACTER*(*) name

      il = ILNBLNK( name )

        WRITE(fname,'(2A)') adTapeDir(1:jl),name(1:il)

     &     adTapeDir(1:jl),name(1:il),'.it',optimcycle

     I                   name,

      CHARACTER*(*) name

      ISTART = IFNBLNK(name)

      IEND   = ILNBLNK(name)

        tmpName = name(ISTART:IEND)

     I        name,timerNames,maxTimers,nTimers )

      CHARACTER*(*) name

      IF ( name .EQ. ' ' ) THEN

     &'Timer name "',name(ISTART:IEND),'" is invalid.'

          IF ( name .NE. timerNames(I) ) GOTO 10

     &'Timer action"',name(ISTART:IEND),'" is invalid.'

     &'Timer "',name(ISTART:IEND),'" cannot be created.'

      SUBROUTINE TIMER_CONTROL ( name , action , callProc , myThreadId )