|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE GET_CONF_ISBA_n(OTRIP,OFLOOD,HGRID,KDIMTAB) 00003 !############################################### 00004 ! 00005 !!**** *GET_CONF_ISBA_n* get the ISBA options configuration 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 !! 00010 !! METHOD 00011 !! ------ 00012 !! 00013 !! REFERENCE 00014 !! --------- 00015 !! 00016 !! AUTHOR 00017 !! ------ 00018 !! 00019 !! B. Decharme Meteo-France 00020 !! 00021 !! MODIFICATION 00022 !! ------------ 00023 !! 00024 !! Original 05/2008 00025 !! 00026 !---------------------------------------------------------------------------- 00027 ! 00028 !* 0. DECLARATION 00029 ! ----------- 00030 ! 00031 USE MODD_DIAG_EVAP_ISBA_n, ONLY : LSURF_BUDGETC 00032 USE MODD_ISBA_n, ONLY : LTRIP, LFLOOD 00033 USE MODD_ISBA_GRID_n, ONLY : CGRID 00034 USE MODD_SGH_PAR, ONLY : NDIMTAB 00035 ! 00036 ! 00037 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00038 USE PARKIND1 ,ONLY : JPRB 00039 ! 00040 IMPLICIT NONE 00041 ! 00042 !* 0.1 Declaration of arguments 00043 ! ------------------------ 00044 ! 00045 LOGICAL, INTENT(OUT) :: OTRIP 00046 LOGICAL, INTENT(OUT) :: OFLOOD 00047 CHARACTER(LEN=10), INTENT(OUT), OPTIONAL :: HGRID 00048 INTEGER, INTENT(OUT), OPTIONAL :: KDIMTAB 00049 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00050 ! 00051 !* 0.2 Declaration of other local variables 00052 ! ------------------------------------ 00053 ! 00054 !---------------------------------------------------------------------------- 00055 ! 00056 IF (LHOOK) CALL DR_HOOK('GET_CONF_ISBA_N',0,ZHOOK_HANDLE) 00057 OTRIP = LTRIP 00058 ! 00059 OFLOOD = LFLOOD 00060 ! 00061 IF(PRESENT(HGRID)) HGRID = CGRID 00062 ! 00063 IF(PRESENT(KDIMTAB)) KDIMTAB = NDIMTAB 00064 IF (LHOOK) CALL DR_HOOK('GET_CONF_ISBA_N',1,ZHOOK_HANDLE) 00065 ! 00066 !------------------------------------------------------------------------------- 00067 ! 00068 END SUBROUTINE GET_CONF_ISBA_n
1.8.0
