SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/OFFLIN/prep_surf

Go to the documentation of this file.
00001 !     #################################################################################
00002 SUBROUTINE PREP_SURF_TRIP(HPROGRAM)
00003 !     #################################################################################
00004 !
00005 !!****  *PREP_SURF_TRIP* - driver for TRIP fields preparation
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!**  METHOD
00011 !!    ------
00012 !!
00013 !!    REFERENCE
00014 !!    ---------
00015 !!      
00016 !!
00017 !!    AUTHOR
00018 !!    ------
00019 !!     B. Decharme 
00020 !!
00021 !!    MODIFICATIONS
00022 !!    -------------
00023 !!      Original    26/2008
00024 !!------------------------------------------------------------------
00025 !
00026 !
00027 USE MODI_GET_CONF_ISBA_n
00028 USE MODI_PREP_TRIP
00029 USE MODI_PREP_COUPLING_SURF_TRIP
00030 !
00031 !
00032 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00033 USE PARKIND1  ,ONLY : JPRB
00034 !
00035 USE MODI_ABOR1_SFX
00036 !
00037 USE MODI_GET_CONF_ISBA_n
00038 !
00039 USE MODI_GET_TYPE_DIM_n
00040 !
00041 USE MODI_SURF_VERSION
00042 !
00043 USE MODI_GET_LUOUT
00044 IMPLICIT NONE
00045 !
00046 !*      0.1    declarations of arguments
00047 !
00048  CHARACTER(LEN=6),  INTENT(IN) :: HPROGRAM    ! program calling surf. schemes
00049 !
00050 !
00051 !*      0.2    declarations of local variables
00052 !
00053  CHARACTER(LEN=10) :: YGRID
00054 !
00055 LOGICAL :: LTRIP,LFLOOD
00056 !
00057 INTEGER :: ILU, ILUOUT
00058 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00059 !
00060 !-------------------------------------------------------------------------------------
00061 IF (LHOOK) CALL DR_HOOK('PREP_SURF_TRIP',0,ZHOOK_HANDLE)
00062  CALL SURF_VERSION
00063 !-------------------------------------------------------------------------------------
00064 !
00065 !
00066  CALL GET_LUOUT(HPROGRAM,ILUOUT)
00067 !
00068 ! * 1. Get ISBA configuration
00069 !      
00070  CALL GET_CONF_ISBA_n(LTRIP,LFLOOD,YGRID)
00071 !
00072 ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
00073 ! TRIP parameters configuration:
00074 ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
00075 !
00076 IF(.NOT.LTRIP)THEN
00077 !        
00078   IF(LFLOOD)THEN
00079     WRITE(ILUOUT,*)'Error : In NAM_SGH_ISBAn, LFLOOD = True but LTRIP = False'
00080     CALL ABOR1_SFX('PREP_SURF_TRIP: LFLOOD=T BUT LTRIP=F')
00081   ENDIF
00082 !
00083 ELSE
00084 !
00085   CALL GET_TYPE_DIM_n('FULL  ',ILU) 
00086 !
00087   CALL PREP_COUPLING_SURF_TRIP(HPROGRAM,ILU,LFLOOD,YGRID)
00088 !
00089   CALL PREP_TRIP(HPROGRAM)
00090 !
00091 ENDIF
00092 IF (LHOOK) CALL DR_HOOK('PREP_SURF_TRIP',1,ZHOOK_HANDLE)
00093 !
00094 !-------------------------------------------------------------------------------------
00095 !
00096 END SUBROUTINE PREP_SURF_TRIP