split_grid_cartesian.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     ###########################################################
      SUBROUTINE split_grid_cartesian(HPROGRAM,KDIM_FULL,KSIZE_FULL,KGRID_PAR,PGRID_PAR)
!     ###########################################################
!!
!!    PURPOSE
!!    -------
!!   This program splits a PGD grid on several processors (according to host program)
!!
!!    METHOD
!!    ------
!!   
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!
!!    V. Masson                   Meteo-France
!!
!!    MODIFICATION
!!    ------------
!!
!!    Original     08/11
!----------------------------------------------------------------------------
!
!*    0.     DECLARATION
!            -----------
!
USE mode_gridtype_cartesian
USE mode_split_grid_parameter
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
!
IMPLICIT NONE
!
!*    0.1    Declaration of dummy arguments
!            ------------------------------
!
 CHARACTER(LEN=6),   INTENT(IN)    :: hprogram  ! host program 
INTEGER,            INTENT(IN)    :: kdim_full ! total number of points
INTEGER,            INTENT(OUT)   :: ksize_full! number of points on this processor
INTEGER,            INTENT(INOUT) :: kgrid_par ! size of PGRID_PAR pointer
REAL, DIMENSION(:), POINTER       :: pgrid_par ! parameters defining this grid
!
!
!*    0.2    Declaration of local variables
!            ------------------------------
!
REAL(KIND=JPRB) :: zhook_handle
!
!* original grid
REAL                            :: zlat0, zlon0
INTEGER                         :: iimax, ijmax
REAL, DIMENSION(KDIM_FULL)      :: zx, zy, zdx, zdy
!
!* splitted grid on processor
INTEGER                         :: iimax_split, ijmax_split
REAL, DIMENSION(:), ALLOCATABLE :: zx_split, zy_split, zdx_split, zdy_split
!
!------------------------------------------------------------------------------
IF (lhook) CALL dr_hook('SPLIT_GRID_CARTESIAN',0,zhook_handle)
!
!*    1.      Gets Parameters of the Grid
!
 CALL get_gridtype_cartesian(pgrid_par,zlat0,zlon0,           &
                            iimax,ijmax,                     &
                            zx,zy,zdx,zdy                    )
!
!
!*    2.      Splits the (pertinent) parameters of the grid
!
 CALL split_grid_parametern0(hprogram,'CARTESIAN ','IMAX  ',iimax,iimax_split)
 CALL split_grid_parametern0(hprogram,'CARTESIAN ','JMAX  ',ijmax,ijmax_split)
!
ksize_full = iimax_split * ijmax_split
!
ALLOCATE(zx_split(ksize_full))
ALLOCATE(zy_split(ksize_full))
ALLOCATE(zdx_split(ksize_full))
ALLOCATE(zdy_split(ksize_full))
 CALL split_grid_parameterx1(hprogram,'CARTESIAN ','XX    ',kdim_full,ksize_full,zx,zx_split)
 CALL split_grid_parameterx1(hprogram,'CARTESIAN ','YY    ',kdim_full,ksize_full,zy,zy_split)
 CALL split_grid_parameterx1(hprogram,'CARTESIAN ','DX    ',kdim_full,ksize_full,zdx,zdx_split)
 CALL split_grid_parameterx1(hprogram,'CARTESIAN ','DY    ',kdim_full,ksize_full,zdy,zdy_split)
!
!
!*    3.      Stores Parameters of the Grid in grid pointer
!
nullify(pgrid_par)
 CALL put_gridtype_cartesian(pgrid_par,zlat0,zlon0,                  &
                            iimax_split,ijmax_split,                &
                            zx_split,zy_split,zdx_split,zdy_split   )
                            !
!
kgrid_par = SIZE(pgrid_par)
!
DEALLOCATE(zx_split )
DEALLOCATE(zy_split )
DEALLOCATE(zdx_split)
DEALLOCATE(zdy_split)
!
IF (lhook) CALL dr_hook('SPLIT_GRID_CARTESIAN',1,zhook_handle)
!_______________________________________________________________________________
!
END SUBROUTINE split_grid_cartesian