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

Go to the documentation of this file.
00001 !     #########
00002 SUBROUTINE READ_NAMELISTS_WATFLUX_n(HPROGRAM,HINIT)
00003 !     #######################################################
00004 !
00005 ! --------------------------------------------------------------------------
00006 !
00007 USE MODN_WATFLUX_n
00008 !
00009 USE MODI_DEFAULT_WATFLUX
00010 USE MODI_DEFAULT_CH_DEP
00011 USE MODI_DEFAULT_DIAG_WATFLUX
00012 USE MODI_READ_DEFAULT_WATFLUX_n
00013 USE MODi_READ_WATFLUX_CONF_n
00014 !
00015 USE MODI_READ_NAM_PREP_WATFLUX_n
00016 !
00017 !
00018 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00019 USE PARKIND1  ,ONLY : JPRB
00020 !
00021 USE MODI_READ_WATFLUX_CONF_n
00022 IMPLICIT NONE
00023 !
00024  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM  ! program calling surf. schemes
00025  CHARACTER(LEN=3),   INTENT(IN)  :: HINIT     ! choice of fields to initialize
00026 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00027 !
00028 !-----------------------------------------------
00029 !
00030 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_WATFLUX_N',0,ZHOOK_HANDLE)
00031  CALL DEFAULT_WATFLUX(XTSTEP,XOUT_TSTEP,CWAT_ALB,CINTERPOL_TS)
00032 !
00033  CALL DEFAULT_CH_DEP(CCH_DRY_DEP)
00034 !
00035  CALL DEFAULT_DIAG_WATFLUX(N2M,LSURF_BUDGET,L2M_MIN_ZS,LRAD_BUDGET,LCOEF,LSURF_VARS, &
00036                            LSURF_BUDGETC,LRESET_BUDGETC,XDIAG_TSTEP        )
00037 !
00038  CALL READ_DEFAULT_WATFLUX_n(HPROGRAM)
00039 !
00040  CALL READ_WATFLUX_CONF_n(HPROGRAM)
00041 !
00042 !----------------------------------------------------------------------------
00043 !
00044 IF (HINIT=='PRE') CALL READ_NAM_PREP_WATFLUX_n(HPROGRAM)
00045 IF (LHOOK) CALL DR_HOOK('READ_NAMELISTS_WATFLUX_N',1,ZHOOK_HANDLE)
00046 !
00047 END SUBROUTINE READ_NAMELISTS_WATFLUX_n