40 USE modd_ol_fileid, ONLY : xvar_surf, xvar_nature, xvar_sea, xvar_water, xvar_town, &
41 xid_surf, xid_nature, xid_sea, xid_water, xid_town
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
52 CHARACTER(LEN=*),
INTENT(IN) :: hname
53 INTEGER,
INTENT(OUT):: ifile_id
54 CHARACTER(LEN=100) :: hname_pas
55 REAL(KIND=JPRB) :: zhook_handle
58 IF (lhook) CALL dr_hook(
'OL_FIND_FILE_WRITE',0,zhook_handle)
59 hname_pas=hname(:len_trim(hname))
63 IF (
ASSOCIATED(xvar_surf)) CALL
search_var(xvar_surf,xid_surf,hname_pas,ifile_id)
64 IF (ifile_id==0 .AND.
ASSOCIATED(xvar_nature)) CALL
search_var(xvar_nature,xid_nature,hname_pas,ifile_id)
65 IF (ifile_id==0 .AND.
ASSOCIATED(xvar_sea)) CALL
search_var(xvar_sea,xid_sea,hname_pas,ifile_id)
66 IF (ifile_id==0 .AND.
ASSOCIATED(xvar_water)) CALL
search_var(xvar_water,xid_water,hname_pas,ifile_id)
67 IF (ifile_id==0 .AND.
ASSOCIATED(xvar_town)) CALL
search_var(xvar_town,xid_town,hname_pas,ifile_id)
71 IF (lhook) CALL dr_hook(
'OL_FIND_FILE_WRITE',1,zhook_handle)
80 CHARACTER(LEN=20),
DIMENSION(:),
INTENT(IN):: hvar
81 INTEGER,
DIMENSION(:),
INTENT(IN):: nvar
82 CHARACTER(LEN=*),
INTENT(IN) :: hnam
83 INTEGER,
INTENT(OUT) :: ifileid
85 REAL(KIND=JPRB) :: zhook_handle
87 IF (lhook) CALL dr_hook(
'SEARCH_VAR',0,zhook_handle)
91 IF (hnam==trim(hvar(jvar)))
THEN
96 IF (lhook) CALL dr_hook(
'SEARCH_VAR',1,zhook_handle)
subroutine ol_find_file_write(HNAME, IFILE_ID)
subroutine search_var(HVAR, NVAR, HNAM, IFILEID)