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

Go to the documentation of this file.
00001 !     #########
00002       SUBROUTINE DEFAULT_SCHEMES(HPROGRAM,HNATURE,HSEA,HTOWN,HWATER)
00003 !     ######################################
00004 !!
00005 !!    PURPOSE
00006 !!    -------
00007 !!   initializes the surface SCHEMES.
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 !
00039 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00040 USE PARKIND1  ,ONLY : JPRB
00041 !
00042 #ifdef MNH
00043 USE MODI_DEFAULT_SCHEMES_MNH
00044 #endif
00045 !
00046 IMPLICIT NONE
00047 !
00048 !*    0.1    Declaration of dummy arguments
00049 !            ------------------------------
00050 !
00051  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM ! program calling READ_PGD
00052  CHARACTER(LEN=6),  INTENT(OUT) :: HNATURE  ! scheme for natural surfaces
00053  CHARACTER(LEN=6),  INTENT(OUT) :: HSEA     ! scheme for sea
00054  CHARACTER(LEN=6),  INTENT(OUT) :: HTOWN    ! scheme for towns
00055  CHARACTER(LEN=6),  INTENT(OUT) :: HWATER   ! scheme for inland water
00056 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00057 !
00058 !
00059 !*    0.2    Declaration of local variables
00060 !            ------------------------------
00061 !
00062 !------------------------------------------------------------------------------
00063 !
00064 IF (LHOOK) CALL DR_HOOK('DEFAULT_SCHEMES',0,ZHOOK_HANDLE)
00065 IF (HPROGRAM=='MESONH') THEN
00066 #ifdef MNH
00067   CALL DEFAULT_SCHEMES_MNH(HNATURE,HSEA,HTOWN,HWATER)
00068 #endif
00069 ELSE
00070   HNATURE = 'ISBA  '
00071   HSEA    = 'SEAFLX'
00072   HTOWN   = 'TEB   '
00073   HWATER  = 'WATFLX'
00074 END IF
00075 IF (LHOOK) CALL DR_HOOK('DEFAULT_SCHEMES',1,ZHOOK_HANDLE)
00076 !
00077 !-------------------------------------------------------------------------------
00078 !
00079 END SUBROUTINE DEFAULT_SCHEMES