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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE READ_NAMELISTS_ISBA(HPROGRAM)
00003 !     #######################################################
00004 !
00005 !---------------------------    
00006 !
00007 USE MODD_AGRI,           ONLY : LAGRIP
00008 USE MODD_DEEPSOIL,       ONLY : LPHYSDOMC, LDEEPSOIL
00009 !
00010 USE MODI_DEFAULT_AGRI
00011 USE MODI_DEFAULT_DEEPSOIL
00012 USE MODI_READ_ISBA_CONF
00013 !
00014 !--------------------------------------------
00015 !
00016 !
00017 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00018 USE PARKIND1  ,ONLY : JPRB
00019 !
00020 IMPLICIT NONE
00021 !
00022  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00023 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00024 !
00025 !---------------------------------------------------
00026 !                  
00027 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_ISBA',0,ZHOOK_HANDLE)
00028 !                   
00029  CALL DEFAULT_AGRI(LAGRIP)
00030 !
00031  CALL DEFAULT_DEEPSOIL(LDEEPSOIL,LPHYSDOMC)
00032 !
00033  CALL READ_ISBA_CONF(HPROGRAM)
00034 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_ISBA',1,ZHOOK_HANDLE)
00035 !
00036 !---------------------------------------------------------
00037 !
00038 END SUBROUTINE READ_NAMELISTS_ISBA