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

Go to the documentation of this file.

00001 !     #########
00002 SUBROUTINE READ_NAMELISTS_SLT(HPROGRAM)
00003 !     #######################################################
00004 !
00005 USE MODI_DEFAULT_SLT
00006 !
00007 USE MODI_READ_DEFAULT_SLT
00008 !
00009 USE MODI_READ_SLT_CONF
00010 !
00011 !
00012 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00013 USE PARKIND1  ,ONLY : JPRB
00014 !
00015 IMPLICIT NONE
00016 !
00017  CHARACTER(LEN=6), INTENT(IN)  :: HPROGRAM ! program calling SLT
00018 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00019 !
00020 !-----------------------------------------------------
00021 !
00022 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_SLT',0,ZHOOK_HANDLE)
00023  CALL DEFAULT_SLT
00024 !
00025  CALL READ_DEFAULT_SLT(HPROGRAM)
00026 !
00027  CALL READ_SLT_CONF(HPROGRAM)
00028 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_SLT',1,ZHOOK_HANDLE)
00029 !
00030 !
00031 END SUBROUTINE READ_NAMELISTS_SLT