read_nam_prep_tebn.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #########
SUBROUTINE read_nam_prep_teb_n(HPROGRAM)
!     #######################################################
!
!---------------------------------------
!
USE modn_prep_teb_snow
USE modn_prep_teb
!
USE modd_surf_par, ONLY : xundef, nundef
!
USE modi_default_prep_teb
USE modi_read_prep_teb_snow
!
USE modi_test_nam_var_surf
USE modi_get_luout
USE modi_open_namelist
USE modi_close_namelist
USE mode_pos_surf
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
 CHARACTER(LEN=6),   INTENT(IN)  :: hprogram  ! program calling surf. schemes
!
INTEGER :: ilunam         ! logical unit of namelist file
INTEGER :: iluout
LOGICAL :: gfound         ! Return code when searching namelist
REAL(KIND=JPRB) :: zhook_handle
!
!---------------------------------------
!
IF (lhook) CALL dr_hook('READ_NAM_PREP_TEB_N',0,zhook_handle)
nyear=nundef
nmonth=nundef
nday=nundef
xtime=xundef
!
 CALL get_luout(hprogram,iluout)
!
!
 CALL default_prep_teb
!
 CALL open_namelist(hprogram,ilunam)
 CALL posnam(ilunam,'NAM_PREP_TEB',gfound,iluout)
IF (gfound) READ(unit=ilunam,nml=nam_prep_teb)
 CALL close_namelist(hprogram,ilunam)
!
 CALL test_nam_var_surf(iluout,'CROAD_DIR',croad_dir,'UNIF','ORIE')
 CALL test_nam_var_surf(iluout,'CWALL_OPT',cwall_opt,'UNIF','TWO ')
 CALL test_nam_var_surf(iluout,'CTYPE',   ctype,   '      ','GRIB  ','MESONH','ASCII ','LFI   ','FA    ')
 CALL test_nam_var_surf(iluout,'CTYPEPGD',ctypepgd,'      ','GRIB  ','MESONH','ASCII ','LFI   ','FA    ')
 CALL test_nam_var_surf(iluout,'CTYPE_WS',ctype_ws,'      ','GRIB  ','MESONH','ASCII ','LFI   ')
 CALL test_nam_var_surf(iluout,'CTYPE_TS',ctype_ts,'      ','GRIB  ','MESONH','ASCII ','LFI   ')
!
 CALL read_prep_teb_snow(hprogram,csnow_roof,nsnow_roof,csnow_road,nsnow_road)
IF (lhook) CALL dr_hook('READ_NAM_PREP_TEB_N',1,zhook_handle)
!
!------------------------------------
!
END SUBROUTINE read_nam_prep_teb_n