SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/TRIP/read_namelists

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE READ_NAMELISTS_TRIP_n(HPROGRAM)
00003 !     #######################################################
00004 !
00005 !----------------------------------------------
00006 !
00007 USE MODN_TRIP_n
00008 !
00009 USE MODI_DEFAULT_TRIP
00010 !
00011 USE MODI_READ_TRIP_CONF_n
00012 !
00013 !
00014 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00015 USE PARKIND1  ,ONLY : JPRB
00016 !
00017 IMPLICIT NONE
00018 !
00019  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00020 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00021 !
00022 !--------------------------------------------------------
00023 !
00024 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_TRIP_N',0,ZHOOK_HANDLE)
00025  CALL DEFAULT_TRIP(CGROUNDW,CVIT,LFLOODT,LDIAG_CPL,LTRIP_DIAG_MISC,   &
00026                     LNCPRINT,LPRINT_TRIP,XTSTEP_COUPLING,XTRIP_TSTEP,&
00027                     XDATA_TAUG,XCVEL,XRATMED                         )  
00028 !
00029  CALL READ_TRIP_CONF_n(HPROGRAM)
00030 !
00031 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_TRIP_N',1,ZHOOK_HANDLE)
00032 !
00033 !-------------------------------------------
00034 !
00035 END SUBROUTINE READ_NAMELISTS_TRIP_n