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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE PGD_GRID_IO_INIT(HPROGRAM)
00003 !     ######################################
00004 !!
00005 !!    PURPOSE
00006 !!    -------
00007 !!
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     13/10/03
00032 !----------------------------------------------------------------------------
00033 !
00034 !*    0.     DECLARATION
00035 !            -----------
00036 !
00037 !
00038 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00039 USE PARKIND1  ,ONLY : JPRB
00040 !
00041 #ifdef MNH
00042 USE MODI_PGD_GRID_IO_INIT_MNH
00043 #endif
00044 IMPLICIT NONE
00045 !
00046 !*    0.1    Declaration of dummy arguments
00047 !            ------------------------------
00048 !
00049  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM ! program calling READ_PGD
00050 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00051 !
00052 !
00053 !*    0.2    Declaration of local variables
00054 !            ------------------------------
00055 !
00056 !------------------------------------------------------------------------------
00057 !
00058 IF (LHOOK) CALL DR_HOOK('PGD_GRID_IO_INIT',0,ZHOOK_HANDLE)
00059 IF (HPROGRAM=='MESONH') THEN
00060 #ifdef MNH
00061   CALL PGD_GRID_IO_INIT_MNH
00062 #endif
00063 END IF
00064 IF (LHOOK) CALL DR_HOOK('PGD_GRID_IO_INIT',1,ZHOOK_HANDLE)
00065 !
00066 !-------------------------------------------------------------------------------
00067 !
00068 END SUBROUTINE PGD_GRID_IO_INIT