SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/put_pgd

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE PUT_PGD_GRID(HGRID,KSIZE_FULL,KGRID_PAR,PGRID_PAR)
00003 !     ##########################################################
00004 !!
00005 !!    PURPOSE
00006 !!    -------
00007 !!   Stores a grid in module MODD_SURF_ATM_GRID_n
00008 !!
00009 !!    METHOD
00010 !!    ------
00011 !!   
00012 !!    EXTERNAL
00013 !!    --------
00014 !!
00015 !!
00016 !!    IMPLICIT ARGUMENTS
00017 !!    ------------------
00018 !!
00019 !!
00020 !!    REFERENCE
00021 !!    ---------
00022 !!
00023 !!    AUTHOR
00024 !!    ------
00025 !!
00026 !!    V. Masson                   Meteo-France
00027 !!
00028 !!    MODIFICATION
00029 !!    ------------
00030 !!
00031 !!    Original     07/2011
00032 !----------------------------------------------------------------------------
00033 !
00034 !*    0.     DECLARATION
00035 !            -----------
00036 !
00037 USE MODD_PGD_GRID, ONLY : CGRID, NGRID_PAR, XGRID_PAR, NL
00038 !
00039 !
00040 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00041 USE PARKIND1  ,ONLY : JPRB
00042 !
00043 IMPLICIT NONE
00044 !
00045 !*    0.1    Declaration of dummy arguments
00046 !            ------------------------------
00047 !
00048  CHARACTER(LEN=10), INTENT(IN)   :: HGRID      ! type of horizontal grid
00049 INTEGER,           INTENT(IN)   :: KSIZE_FULL ! number of points
00050 INTEGER,           INTENT(IN)   :: KGRID_PAR  ! size of PGRID_PAR
00051 REAL, DIMENSION(:), POINTER     :: PGRID_PAR  ! parameters defining this grid
00052 !
00053 !
00054 !*    0.2    Declaration of local variables
00055 !            ------------------------------
00056 !
00057 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00058 !
00059 !
00060 !------------------------------------------------------------------------------
00061 !
00062 !*       1.    Defaults
00063 !              --------
00064 !
00065 IF (LHOOK) CALL DR_HOOK('PUT_PGD_GRID',0,ZHOOK_HANDLE)
00066 !
00067 CGRID = HGRID
00068 NL=KSIZE_FULL
00069 NGRID_PAR=KGRID_PAR
00070 ALLOCATE(XGRID_PAR(NGRID_PAR))
00071 XGRID_PAR = PGRID_PAR
00072 !
00073 IF (LHOOK) CALL DR_HOOK('GRID_FROM_FILE',1,ZHOOK_HANDLE)
00074 !
00075 !-------------------------------------------------------------------------------
00076 !
00077 END SUBROUTINE PUT_PGD_GRID