7 hprogram, hatype, hname, htype, hfnam, &
8 hftyp, punif, pfield, opresent)
56 USE modi_read_from_surfex_file
58 USE yomhook
,ONLY : lhook, dr_hook
59 USE parkind1
,ONLY : jprb
74 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
75 CHARACTER(LEN=3),
INTENT(IN) :: hatype
76 CHARACTER(LEN=*),
INTENT(IN) :: hname
77 CHARACTER(LEN=3),
INTENT(IN) :: htype
78 CHARACTER(LEN=28),
INTENT(IN) :: hfnam
79 CHARACTER(LEN=6),
INTENT(IN) :: hftyp
80 REAL,
INTENT(IN) :: punif
81 REAL,
DIMENSION(:),
INTENT(OUT) :: pfield
82 LOGICAL,
INTENT(OUT) :: opresent
88 REAL(KIND=JPRB) :: zhook_handle
96 IF (lhook) CALL dr_hook(
'INI_VAR_FROM_DATA_0D',0,zhook_handle)
101 IF (hftyp.EQ.
'FA ' .OR. hftyp.EQ.
'ASCII ' .OR. hftyp.EQ.
'LFI ')
THEN
107 hftyp,hfnam,
'SURF ',
' ',pfield)
110 hftyp,hfnam,
'TOWN ',
' ',pfield)
113 hftyp,hfnam,
'NATURE',
' ',pfield)
116 hftyp,hfnam,
'SEA ',
' ',pfield)
119 hftyp,hfnam,
'WATER ',
' ',pfield)
126 hprogram,hname,htype,hfnam,hftyp,punif,pfield(:),opresent=opresent)
130 IF (lhook) CALL dr_hook(
'INI_VAR_FROM_DATA_0D',1,zhook_handle)
subroutine pgd_field(DTCO, UG, U, USS, HPROGRAM, HFIELD, HAREA, HFILE, HFILETYPE, PUNIF, PFIELD, OPRESENT)
subroutine ini_var_from_data_0d(DTCO, DGU, UG, U, USS, HPROGRAM, HATYPE, HNAME, HTYPE, HFNAM, HFTYP, PUNIF, PFIELD, OPRESENT)
subroutine read_from_surfex_file(DTCO, DGU, U, HFTYP, HFNAM, HMASK, HSCHEME, PFIELD, HNAM)