pgd_grid_io_init.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 pgd_grid_io_init(HPROGRAM,UG,KGRID_PAR,PGRID_PAR,HGRID,ORECT,KIMAX,KJMAX,KDXRATIO,KDYRATIO)
!     ######################################
!!
!!    PURPOSE
!!    -------
!!
!!
!!    METHOD
!!    ------
!!   
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!
!!    V. Masson                   Meteo-France
!!
!!    MODIFICATION
!!    ------------
!!
!!    Original     13/10/03
!!        M.Moge   11/02/15 adding MODULE MODI_PGD_GRID_IO_INIT and INTERFACE + modif of the input args
!!        M.Moge   11/02/15 change in the input arguments : passing KDXRATIO,KDYRATIO
!----------------------------------------------------------------------------
!
!*    0.     DECLARATION
!            -----------
!
USE modd_surf_atm_grid_n, ONLY : surf_atm_grid_t
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
#ifdef SFX_MNH
USE modi_pgd_grid_io_init_mnh
#endif
IMPLICIT NONE
!
!*    0.1    Declaration of dummy arguments
!            ------------------------------
!
 CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM ! program calling READ_PGD
!
TYPE(surf_atm_grid_t), INTENT(INOUT) :: UG
!
 INTEGER, OPTIONAL,               INTENT(IN)    :: KGRID_PAR ! size of PGRID_PAR
 REAL, DIMENSION(:), OPTIONAL, INTENT(IN)       :: PGRID_PAR ! grid parameters
 CHARACTER(LEN=10),     INTENT(IN), OPTIONAL    :: HGRID
 LOGICAL,               INTENT(IN), OPTIONAL    :: ORECT
! if KIMAX,KJMAX,KDXRATIO,KDYRATIO present, this means we are in PREP_PGD, and we only initialise the child model, 
! using a father model read from a file and previously initialized with INI_PARAZ_ll
 INTEGER,               INTENT(IN), OPTIONAL    :: KIMAX
 INTEGER,               INTENT(IN), OPTIONAL    :: KJMAX
 INTEGER,               INTENT(IN), OPTIONAL    :: KDXRATIO
 INTEGER,               INTENT(IN), OPTIONAL    :: KDYRATIO
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!
!*    0.2    Declaration of local variables
!            ------------------------------
!
!------------------------------------------------------------------------------
!
IF (lhook) CALL dr_hook('PGD_GRID_IO_INIT',0,zhook_handle)
IF (hprogram=='MESONH') THEN
  IF (PRESENT(kgrid_par).AND.PRESENT(pgrid_par)) THEN
#ifdef MNH_PARALLEL          
    IF ( PRESENT(kimax) .AND. PRESENT(kjmax) .AND. PRESENT(hgrid) .AND. PRESENT(orect) &
      .AND. PRESENT(kdxratio) .AND. PRESENT(kdyratio) ) THEN
      CALL pgd_grid_io_init_mnh(ug,kgrid_par,pgrid_par,hgrid,orect,kimax,kjmax,kdxratio,kdyratio)
    ELSE
      CALL pgd_grid_io_init_mnh(ug,kgrid_par,pgrid_par)
    ENDIF
#endif    
  ELSE
#ifndef MNH_PARALLEL
#ifdef SFX_MNH
    CALL pgd_grid_io_init_mnh(ug)
#endif
#endif
  ENDIF
END IF
IF (lhook) CALL dr_hook('PGD_GRID_IO_INIT',1,zhook_handle)
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE pgd_grid_io_init