psmile_print_comp_info.F90

Go to the documentation of this file.

!-----------------------------------------------------------------------
! Copyright 2006-2010, NEC Europe Ltd., London, UK.
! All rights reserved. Use is subject to OASIS4 license terms.
!-----------------------------------------------------------------------
!BOP
!
! !ROUTINE: PSMILe_Print_comp_info
!
! !INTERFACE:

      subroutine psmile_print_comp_info ( cinfos, n_comps, string )
!
! !USES:
!
      use PRISM_constants
!
      use PSMILe, dummy_interface => PSMILe_Print_comp_info
!
      implicit none
!
! !INPUT PARAMETERS:
!
      Integer,            Intent(In)  :: n_comps

!     Number of component info's

      Type (enddef_comp), Intent(In)  :: cinfos (n_comps)

!     Component info's (used by PRISM_Enddef ())

      Character(len=*),   Intent(In)  :: string

!     Additional info to be printed
!
! !LOCAL VARIABLES
!
      Integer :: i, n ! loop index
!
! !DESCRIPTION:
!
! Subroutine "PSMILe_Print_comp_info" prints the info on components
! generated by PRISM_Enddef().
!
!
! !REVISION HISTORY:
!
!   Date      Programmer    Description
! ----------  -----------   -----------
! 01.12.03    H. Ritzdorf   created
!
!EOP
!----------------------------------------------------------------------
!
! $Id: psmile_print_comp_info.F90 3248 2011-06-23 13:03:19Z coquart $
! $Author: coquart $
!
   Character(len=len_cvs_string), save :: mycvs = 
       '$Id: psmile_print_comp_info.F90 3248 2011-06-23 13:03:19Z coquart $'
#ifdef VERBOSE
      print 9990, trim(ch_id)
#endif /* VERBOSE */
!
!----------------------------------------------------------------------
!
      write (*, 9000) trim(ch_id), n_comps, string
!
      do i = 1, n_comps
         write (*, 9020) i, cinfos(i)%comp_id, cinfos(i)%size, &
                         cinfos(i)%global_comp_id
         write (*, 9030) cinfos(i)%Number_of_Grids_Vector(:)
         write (*, 9040) cinfos(i)%psmile_ranks(:)
         do n = 1, size(cinfos(i)%all_extent_infos(:))
            write (*, 9050) cinfos(i)%all_extent_infos(n)%extent
         enddo
         do n = 1, size(cinfos(i)%all_extent_infos(:))
            write (*, 9060) cinfos(i)%all_extent_infos(n)%local_grid_id, &
                            cinfos(i)%all_extent_infos(n)%grid_type,     &
                            cinfos(i)%all_extent_infos(n)%tr_code,       &
                            cinfos(i)%all_extent_infos(n)%global_grid_id
         enddo
      enddo
!
!  FLush output
!
      write (*, 9010)

#ifdef VERBOSE
      print 9980, trim(ch_id)
#endif /* VERBOSE */

      call psmile_flushstd ()
!
!-----------------------------------------------------------------------
!  Formats
!-----------------------------------------------------------------------
!
9000  format (/1x, a, ': Info on ', i4, ' comp_infos', ':', &
              /1x, 33('-'), /1x, a)
9010  format (1x, a)

9020  format (/1x, i3, '. info: local comp_id =', i4, '; comm size', i4, &
                   '; global comp id =', i4)
9030  format (1x, 'Number of grids per process in comp comm:', &
             /(1x, 16i5))
9040  format (1x, 'Ranks in psmile communicator', &
             /(1x, 16i5))
9050  format (1x, 'Grid extents:', 1p, &
             /(1x, '(', 2(e11.4, ':', e11.4, ', '), e11.4, ':', e11.4, ')'))
9060  format (1x, 'Extent infos:', &
             /(1x, 'local grid id', i5, ', grid type', i5, ', tr_code', i5, &
                 ', global grid id', i5))
#ifdef VERBOSE
9990 format (1x, a, ': psmile_print_comp_info: begin')
9980 format (1x, a, ': psmile_print_comp_info: eof')
#endif /* VERBOSE */ 
!
      end subroutine PSMILe_Print_comp_info