7 hatmfile,hatmfiletype,hpgdfile,hpgdfiletype,kluout,ounif)
43 USE modi_read_prep_surf_atm_conf
46 USE modd_prep_watflux, ONLY : cfile_watflx, ctype, cfilepgd_watflx, ctypepgd, xts_water_unif
51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
62 CHARACTER(LEN=7),
INTENT(IN) :: hvar
63 CHARACTER(LEN=28),
INTENT(OUT) :: hfile
64 CHARACTER(LEN=6),
INTENT(OUT) :: hfiletype
65 CHARACTER(LEN=28),
INTENT(OUT) :: hfilepgd
66 CHARACTER(LEN=6),
INTENT(OUT) :: hfilepgdtype
67 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
68 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
69 CHARACTER(LEN=28),
INTENT(IN) :: hpgdfile
70 CHARACTER(LEN=6),
INTENT(IN) :: hpgdfiletype
71 INTEGER,
INTENT(IN) :: kluout
72 LOGICAL,
INTENT(OUT) :: ounif
82 CHARACTER(LEN=28) :: ynamelist
85 REAL(KIND=JPRB) :: zhook_handle
89 IF (lhook) CALL dr_hook(
'READ_PREP_WATFLUX_CONF',0,zhook_handle)
103 IF (len_trim(hfile)==0 .AND. len_trim(cfile_watflx)>0 .AND. len_trim(ctype)>0)
THEN
108 IF (len_trim(hfilepgd)==0 .AND. len_trim(cfilepgd_watflx)>0 .AND. len_trim(ctypepgd)>0)
THEN
109 hfilepgd = cfilepgd_watflx
110 hfilepgdtype = ctypepgd
116 IF (len_trim(hfile)==0)
THEN
119 hatmfile,hatmfiletype,hpgdfile,hpgdfiletype,kluout)
127 ounif = (xts_water_unif/=xundef)
134 IF (hvar==
'DATE ' .OR. hvar==
'ZS ' .AND. lhook) CALL dr_hook(
'READ_PREP_WATFLUX_CONF',1,zhook_handle)
135 IF (hvar==
'DATE ' .OR. hvar==
'ZS ')
RETURN
137 IF (len_trim(hfiletype)==0 .AND. .NOT. ounif)
THEN
138 CALL
abor1_sfx(
'READ_PREP_WATFLUX_CONF: AN INPUT VALUE IS REQUIRED FOR '//hvar)
140 IF (lhook) CALL dr_hook(
'READ_PREP_WATFLUX_CONF',1,zhook_handle)
subroutine read_prep_watflux_conf(HPROGRAM, HVAR, HFILE, HFILETYPE, HFILEPGD, HFILEPGDTYPE, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE, KLUOUT, OUNIF)
subroutine abor1_sfx(YTEXT)
subroutine read_prep_surf_atm_conf(HPROGRAM, HFILE, HFILETYPE, HFILEPGD, HFILEPGDTYPE, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE, KLUOUT)