16 USE modi_default_prep_teb_greenroof
17 USE modi_read_prep_greenroof_snow
20 USE modi_open_namelist
21 USE modi_close_namelist
25 USE yomhook
,ONLY : lhook, dr_hook
26 USE parkind1
,ONLY : jprb
30 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
35 REAL(KIND=JPRB) :: zhook_handle
39 IF (lhook) CALL dr_hook(
'READ_NAM_PREP_GREENROOF_N',0,zhook_handle)
45 CALL
posnam(ilunam,
'NAM_PREP_TEB_GREENROOF',gfound,iluout)
46 IF (gfound)
READ(unit=ilunam,nml=nam_prep_teb_greenroof)
49 CALL
test_nam_var_surf(iluout,
'CTYPE', ctype,
' ',
'GRIB ',
'MESONH',
'ASCII ',
'LFI ',
'FA ')
50 CALL
test_nam_var_surf(iluout,
'CTYPEPGD',ctypepgd,
' ',
'GRIB ',
'MESONH',
'ASCII ',
'LFI ',
'FA ')
51 CALL
test_nam_var_surf(iluout,
'CTYPE_HUG',ctype_hug,
' ',
'GRIB ',
'MESONH',
'ASCII ',
'ASCLLV')
52 CALL
test_nam_var_surf(iluout,
'CTYPE_TG', ctype_tg,
' ',
'GRIB ',
'MESONH',
'ASCII ',
'ASCLLV',
'NETCDF')
55 IF (lhook) CALL dr_hook(
'READ_NAM_PREP_GREENROOF_N',1,zhook_handle)
subroutine read_prep_greenroof_snow(HPROGRAM, HSNOW, KSNOW_LAYER, HFILE, HFILETYPE, HFILEPGD, HFILEPGDTYPE, OUNIF)
subroutine read_nam_prep_greenroof_n(HPROGRAM)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)
subroutine default_prep_teb_greenroof