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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE READ_NAMELISTS_IDEAL_n(HPROGRAM)
00003 !     #######################################################
00004 !
00005 !--------------------------------------------------------------------------
00006 !
00007 USE MODN_IDEAL_n
00008 !
00009 USE MODI_DEFAULT_DIAG_IDEAL
00010 USE MODI_READ_DEFAULT_IDEAL_n
00011 USE MODI_READ_IDEAL_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 !ideal: reprend essentiellement la namelist NAM_DIAG_SURF
00024 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_IDEAL_N',0,ZHOOK_HANDLE)
00025  CALL DEFAULT_DIAG_IDEAL(N2M,LSURF_BUDGET,L2M_MIN_ZS,LRAD_BUDGET,LCOEF,LSURF_VARS,&
00026                          LSURF_BUDGETC,LRESET_BUDGETC,XDIAG_TSTEP           )
00027 !                        
00028  CALL READ_DEFAULT_IDEAL_n(HPROGRAM)
00029 !
00030  CALL READ_IDEAL_CONF_n(HPROGRAM)   
00031 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_IDEAL_N',1,ZHOOK_HANDLE)
00032 !
00033 END SUBROUTINE READ_NAMELISTS_IDEAL_n