           if (OVSVTY(IVTYPE) .lt. 3) then
         write(0,*)'mcel_grid: training ext_mcel_write_field: ',
     +             OVSNAM(IVTYPE)
             CALL ext_mcel_write_field ( api_grids(mcelio),
     &                                   '1999-11-09_12:00:00',   ! dummy date
     &                                   OVSNAM(IVTYPE),          ! VarName
     &                                   idum,                    ! DUMMY Field
     &                                   WRF_REAL,                ! TYPE
     &                                   idum, idum, idum,        ! dummy comms and desc
     &                                   'XY',                    ! Mem order (unstructured)
     &                                   ' ',                     ! Stagger (not)
     &                                   DimNames ,
     &                                   DomainStart , DomainEnd ,
     &                                   MemoryStart , MemoryEnd ,
     &                                   PatchStart , PatchEnd ,
     &                                   ierr )
           else
         write(0,*)'mcel_grid: training ext_mcel_write_field: ',
     +             'U'//OVSNAM(IVTYPE)
             CALL ext_mcel_write_field ( api_grids(mcelio),
     &                                   '1999-11-09_12:00:00',   ! dummy date
     &                                   'U'//OVSNAM(IVTYPE),     ! VarName
     &                                   idum,                    ! Dummy Field
     &                                   WRF_REAL,                ! TYPE
     &                                   idum, idum, idum,        ! dummy comms and desc
     &                                   'XY',                    ! Mem order (unstructured)
     &                                   ' ',                     ! Stagger (not)
     &                                   DimNames ,
     &                                   DomainStart , DomainEnd ,
     &                                   MemoryStart , MemoryEnd ,
     &                                   PatchStart , PatchEnd ,
     &                                   ierr )
         write(0,*)'mcel_grid: training ext_mcel_write_field: ',
     +             'V'//OVSNAM(IVTYPE)
             CALL ext_mcel_write_field ( api_grids(mcelio),
     &                                   '1999-11-09_12:00:00',   ! dummy date
     &                                   'V'//OVSNAM(IVTYPE),     ! VarName
     &                                   idum,                    ! Dummy Field
     &                                   WRF_REAL,                ! TYPE
     &                                   idum, idum, idum,        ! dummy comms and desc
     &                                   'XY',                    ! Mem order (unstructured)
     &                                   ' ',                     ! Stagger (not)
     &                                   DimNames ,
     &                                   DomainStart , DomainEnd ,
     &                                   MemoryStart , MemoryEnd ,
     &                                   PatchStart , PatchEnd ,
     &                                   ierr )

           endif
