psmile_trans_loc2glob_gauss2.F90

Go to the documentation of this file.

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

      subroutine psmile_trans_loc2glob_gauss2 (grid_id, &
                      ibuf, len_item, nloc, ierror)
!
! !USES:
!
      use PRISM_constants
      use PSMILe, dummy_interface => PSMILe_trans_loc2glob_gauss2
      use psmile_grid_reduced_gauss, only : psmile_gauss_local_1d_to_3d

      Implicit none
!
! !INPUT PARAMETERS:
!
      Integer,         Intent (In)    :: grid_id

!     Grid Id of the source grid (grid on which the points are searched)
!
      Integer, Intent (In)            :: nloc
!
!     Number of locations to be transferred
!
      Integer, Intent (In)            :: len_item
!
!     First dimension of array "ibuf"
!
! !INPUT/OUTPUT PARAMETERS:
!
      Integer, Intent (InOut)         :: ibuf (len_item, nloc)
!
!     Indices of locations to be transformed with
!     Input:  Indices as local  indices in Gaus Reduced Grid
!     Output: Indices as global indices in (virtual) 3d Grid
!
! !OUTPUT PARAMETERS:
!
      Integer, Intent (Out)           :: ierror

!     Returns the error code of PSMILe_trans_loc2glob_gauss2;
!             ierror = 0 : No error
!             ierror > 0 : Severe error
!
!
! !DESCRIPTION:
!
! Subroutine "PSMILe_trans_global_gauss2" transforms
! the local indices in the GaussReduced Grid into global
! (virtual) 3d-indices for a grid of type
! "PRISM_Gaussreduced_regvrt".
!
!
! !REVISION HISTORY:
!
!   Date      Programmer   Description
! ----------  ----------   -----------
! 13.02.07    H. Ritzdorf  created
! 14.03.2011  M. Hanke     replaced everything with a call to
!                          psmile_gauss_local_1d_to_3d
!
!EOP
!----------------------------------------------------------------------
!
!  $Id: psmile_trans_loc2glob_gauss2.F90,v 1.1.2.6 2009/02/11 10:43:43 redler Exp $
!  $Author: redler $
!
   Character(len=len_cvs_string), save :: mycvs = 
       '$Id: psmile_trans_loc2glob_gauss2.F90,v 1.1.2.6 2009/02/11 10:43:43 redler Exp $'
!
!----------------------------------------------------------------------
!
!  Initialization
!
#ifdef VERBOSE
      print 9990, trim(ch_id)

      call psmile_flushstd
#endif /* VERBOSE */
!
      ierror = 0
      
      ibuf(1:3,:) = psmile_gauss_local_1d_to_3d (grid_id, ibuf(1,:), nloc)
!
!===> All done
!
#ifdef VERBOSE
      print 9980, trim(ch_id)

      call psmile_flushstd
#endif /* VERBOSE */
!
!  Formats:
!
9990 format (1x, a, ': psmile_trans_loc2glob_gauss2')
9980 format (1x, a, ': psmile_trans_loc2glob_gauss2: eof')

      end subroutine psmile_trans_loc2glob_gauss2