psmile_write_meta.F90

Go to the documentation of this file.

!-----------------------------------------------------------------------
! Copyright 2006-2010, SGI Germany, Munich, Germany.
! All rights reserved. Use is subject to OASIS4 license terms.
!-----------------------------------------------------------------------
!BOP
!
! !ROUTINE:  psmile_write_meta
!
! !INTERFACE:
      subroutine psmile_write_meta(ierror)
!
! !USES:
!
      use psmile,dummy_interface=> psmile_write_meta
      implicit none
!
! !OUTPUT PARAMETERS:
!
      integer,intent(out) :: ierror
!
! !LOCAL VARIABLES
      integer :: il_i,il_taskid
!
! !DESCRIPTION:
!
! Driver routine of psmile_write_meta_byid. Loops over fields and calls
! psmile_write_meta_byid if the field is subject to file I/O.
! Called by psmile_open_file_byid and psmile_enddef_meta.
!
! !REVISION HISTORY:
!
!   Date      Programmer   Description
! ----------  ----------   -----------
!  09.12.03   R. Vogelsang created
!  23.3.04    R. Vogelsang Added the code to handle  multiple I/O tasks
!
!EOP
!----------------------------------------------------------------------
!
   Character(len=len_cvs_string), save :: mycvs = 
       '$Id'

      ierror=0

#ifdef __PSMILE_WITH_IO
#ifdef VERBOSE
      print*,trim(ch_id),' : psmile_write_meta: start'
      call psmile_flushstd

#endif

      do il_i=1,Number_of_Fields_allocated

        if(Fields(il_i)%status .eq. PSMILe_status_defined .and. &
         associated( Fields(il_i)%io_chan_infos)) then

            do il_taskid=1,size(Fields(il_i)%io_task_lookup)

              if(Fields(il_i)%io_task_lookup(il_taskid) .gt. 0 ) then
                call psmile_write_meta_byid(il_i,il_taskid,ierror )
              endif

            enddo

        endif

      enddo
#ifdef VERBOSE
      print*,trim(ch_id),' : psmile_write_meta: end'
      call psmile_flushstd

#endif
#endif

      end subroutine psmile_write_meta