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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_GRID(HPROGRAM,HGRID)
00003 !     ######################################
00004 !!
00005 !!    PURPOSE
00006 !!    -------
00007 !!   set default for the surface GRID.
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_DEFAULT_GRID_MNH
00043 #endif
00044 !
00045 IMPLICIT NONE
00046 !
00047 !*    0.1    Declaration of dummy arguments
00048 !            ------------------------------
00049 !
00050  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM ! program calling READ_PGD
00051  CHARACTER(LEN=10), INTENT(OUT) :: HGRID    ! type of grid
00052 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00053 !
00054 !
00055 !*    0.2    Declaration of local variables
00056 !            ------------------------------
00057 !
00058 !------------------------------------------------------------------------------
00059 !
00060 IF (LHOOK) CALL DR_HOOK('DEFAULT_GRID',0,ZHOOK_HANDLE)
00061 IF (HPROGRAM=='MESONH') THEN
00062 #ifdef MNH
00063   CALL DEFAULT_GRID_MNH(HGRID)
00064 #endif
00065 ELSE
00066   HGRID = 'NONE      '
00067 END IF
00068 IF (LHOOK) CALL DR_HOOK('DEFAULT_GRID',1,ZHOOK_HANDLE)
00069 !
00070 !-------------------------------------------------------------------------------
00071 !
00072 END SUBROUTINE DEFAULT_GRID