6 hftyp,hfnam,hmask,hscheme,pfield,hnam)
15 USE modi_init_io_surf_n
16 USE modi_end_io_surf_n
20 USE modi_set_surfex_file_name_asc
23 USE modi_set_surfex_file_name_fa
26 USE modi_set_surfex_file_name_lfi
29 USE modi_set_surfex_file_name_nc
32 USE yomhook
,ONLY : lhook, dr_hook
33 USE parkind1
,ONLY : jprb
44 CHARACTER(LEN=6),
INTENT(IN) :: hftyp
45 CHARACTER(LEN=28),
INTENT(IN) :: hfnam
46 CHARACTER(LEN=6),
INTENT(IN) :: hmask
47 CHARACTER(LEN=6),
INTENT(IN) :: hscheme
48 REAL,
DIMENSION(:),
INTENT(OUT) :: pfield
49 CHARACTER(LEN=*),
OPTIONAL,
INTENT(IN) :: hnam
51 CHARACTER(LEN=28) :: hname
52 CHARACTER(LEN=12) :: yrecfm
55 REAL(KIND=JPRB) :: zhook_handle
57 IF (lhook) CALL dr_hook(
'READ_FROM_SURFEX_FILE',0,zhook_handle)
59 hname=adjustl(adjustr(hfnam))
61 IF (present(hnam))
THEN
64 i0=index(hname,
'.',back=.true.)
68 IF (hftyp==
'ASCII ')
THEN
72 ELSEIF (hftyp==
'FA ')
THEN
76 ELSEIF (hftyp==
'LFI ')
THEN
80 ELSEIF (hftyp==
'NC ')
THEN
86 hftyp,hmask,hscheme,
'READ ')
88 hftyp,yrecfm,pfield,iresp)
91 IF (lhook) CALL dr_hook(
'READ_FROM_SURFEX_FILE',1,zhook_handle)
subroutine set_surfex_file_name_asc(HNAME_IN, HNAME_OUT)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine set_surfex_file_name_lfi(HNAME_IN, HNAME_OUT)
subroutine set_surfex_file_name_fa(HNAME_IN, HNAME_OUT)
subroutine set_surfex_file_name_nc(HNAME_IN, HNAME_OUT)
subroutine end_io_surf_n(HPROGRAM)
subroutine read_from_surfex_file(DTCO, DGU, U, HFTYP, HFNAM, HMASK, HSCHEME, PFIELD, HNAM)