7 hatmfile,hatmfiletype,hpgdfile,hpgdfiletype,kluout)
47 USE yomhook
,ONLY : lhook, dr_hook
48 USE parkind1
,ONLY : jprb
55 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
56 CHARACTER(LEN=28),
INTENT(OUT) :: hfile
57 CHARACTER(LEN=6),
INTENT(OUT) :: hfiletype
58 CHARACTER(LEN=28),
INTENT(OUT) :: hfilepgd
59 CHARACTER(LEN=6),
INTENT(OUT) :: hfilepgdtype
60 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
61 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
62 CHARACTER(LEN=28),
INTENT(IN) :: hpgdfile
63 CHARACTER(LEN=6),
INTENT(IN) :: hpgdfiletype
64 INTEGER,
INTENT(IN) :: kluout
77 CHARACTER(LEN=28) :: ynamelist
80 REAL(KIND=JPRB) :: zhook_handle
85 IF (lhook) CALL dr_hook(
'READ_PREP_SURF_ATM_CONF',0,zhook_handle)
89 hfilepgdtype = cfilepgdtype
91 IF (len_trim(hfile)==0 .AND. len_trim(hatmfile)>0 )
THEN
95 IF (len_trim(hfilepgd)==0 .AND. len_trim(hpgdfile)>0 )
THEN
99 IF (len_trim(hfiletype)==0 .AND. len_trim(hatmfiletype)>0 )
THEN
100 hfiletype = hatmfiletype
103 IF (len_trim(hfilepgdtype)==0 .AND. len_trim(hpgdfiletype)>0 )
THEN
104 hfilepgdtype = hpgdfiletype
107 IF (lhook) CALL dr_hook(
'READ_PREP_SURF_ATM_CONF',1,zhook_handle)
subroutine read_prep_surf_atm_conf(HPROGRAM, HFILE, HFILETYPE, HFILEPGD, HFILEPGDTYPE, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE, KLUOUT)