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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE READ_NAMELISTS_TEB_n(HPROGRAM, HINIT)
00003 !     #######################################################
00004 !
00005 !---------------------------------------------------------------------------
00006 !
00007 USE MODN_TEB_n                          
00008 USE MODN_TEB_VEG_n,            ONLY: CROUGH,CRUNOFF,CALBEDO,CSCOND,                &
00009                                      CC1DRY, CSOILFRZ, CDIFSFCOND, CSNOWRES,       &
00010                                      CCPSURF, XCGMAX, CKSAT, CTOPREG,              &
00011                                      CRAIN, CHORT, LFLOOD, LTRIP , LGLACIER,       &
00012                                      LCANOPY_DRAG, LVEGUPD
00013 USE MODN_TEB_GREENROOF_n,      ONLY: CRUNOFF_GR,CSCOND_GR,CKSAT_GR,CHORT_GR
00014 !
00015 USE MODI_DEFAULT_TEB
00016 USE MODI_DEFAULT_TEB_VEG
00017 USE MODI_DEFAULT_GREENROOF
00018 USE MODI_DEFAULT_CH_DEP
00019 USE MODI_DEFAULT_DIAG_TEB
00020 USE MODI_READ_DEFAULT_TEB_n
00021 USE MODI_READ_TEB_CONF_n
00022 !
00023 USE MODI_READ_NAM_PREP_TEB_n
00024 USE MODI_READ_NAM_PREP_GARDEN_n
00025 USE MODI_READ_NAM_PREP_GREENROOF_n
00026 !
00027 !
00028 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00029 USE PARKIND1  ,ONLY : JPRB
00030 !
00031 USE MODI_READ_TEB_CONF_n
00032 IMPLICIT NONE
00033 !
00034  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00035  CHARACTER(LEN=3),   INTENT(IN)  :: HINIT     ! choice of fields to initialize
00036 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00037 !
00038 !------------------------------------------------------------------------------------
00039 !
00040 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_TEB_N',0,ZHOOK_HANDLE)
00041  CALL DEFAULT_TEB(CZ0H,XTSTEP,XOUT_TSTEP, CCH_BEM)
00042 !
00043  CALL DEFAULT_TEB_VEG(CROUGH,CRUNOFF,CALBEDO,CSCOND,            &
00044                      CC1DRY, CSOILFRZ, CDIFSFCOND, CSNOWRES,   &
00045                      CCPSURF, XCGMAX, CKSAT, CTOPREG,          &
00046                      CRAIN, CHORT, LFLOOD, LTRIP , LGLACIER,   &
00047                      LCANOPY_DRAG, LVEGUPD                     )
00048 !
00049  CALL DEFAULT_GREENROOF(CRUNOFF_GR,CSCOND_GR,                   &
00050                        CKSAT_GR,CHORT_GR)
00051 !
00052  CALL DEFAULT_CH_DEP(CCH_DRY_DEP)
00053 !
00054  CALL DEFAULT_DIAG_TEB(N2M,LSURF_BUDGET,L2M_MIN_ZS,LRAD_BUDGET, &
00055                       LCOEF,LSURF_VARS,LSURF_MISC_BUDGET,LUTCI,&
00056                       LPGD,LPGD_FIX,XDIAG_TSTEP)   
00057 !               
00058  CALL READ_DEFAULT_TEB_n(HPROGRAM)
00059 !
00060  CALL READ_TEB_CONF_n(HPROGRAM) 
00061 !      
00062 !
00063 IF (HINIT=='PRE') THEN
00064         CALL READ_NAM_PREP_TEB_n(HPROGRAM)
00065         CALL READ_NAM_PREP_GARDEN_n(HPROGRAM)
00066         CALL READ_NAM_PREP_GREENROOF_n(HPROGRAM)
00067 ENDIF
00068 !
00069 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_TEB_N',1,ZHOOK_HANDLE)
00070 !
00071 !------------------------------------
00072 !
00073 END SUBROUTINE READ_NAMELISTS_TEB_n