#ifdef API
      CALL ext_mcel_inquire_opened (api_grids(0),fn,FileStatus,Status)
      IF ( Status .NE. 0 ) write(0,*)
     $     'mcel_put: ext_mcel_inquire_opened returns error: ', Status

! BEGIN OF GOTO LOOP
1000  CONTINUE
      IF (OVSVTY(IVTYPE) .lt. 3) then
         write(0,*)'mcel_grid: training ext_mcel_write_field: ',
     +             OSNAME
             CALL ext_mcel_write_field ( api_grids(0),
     &                                   '1999-11-09_12:00:00',   ! dummy date
     &                                   OSNAME,                   ! 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'//OSNAME
             CALL ext_mcel_write_field ( api_grids(0),
     &                                   '1999-11-09_12:00:00',   ! dummy date
     &                                   'U'//OSNAME,     ! 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'//OSNAME
             CALL ext_mcel_write_field ( api_grids(0),
     &                                   '1999-11-09_12:00:00',   ! dummy date
     &                                   'V'//OSNAME,     ! 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
      IF ( FileStatus .EQ. WRF_FILE_OPENED_NOT_COMMITTED ) THEN
         CALL ext_mcel_open_for_write_commit (api_grids(0),Status)
         GOTO 1000
      ENDIF
! END OF GOTO LOOP

#else
