7 hprogram,owater_to_nature,otown_to_rock,hdir)
16 USE yomhook
,ONLY : lhook, dr_hook
17 USE parkind1
,ONLY : jprb
26 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
27 LOGICAL,
INTENT(OUT) :: owater_to_nature
28 LOGICAL,
INTENT(OUT) :: otown_to_rock
29 CHARACTER(LEN=1),
INTENT(IN),
OPTIONAL :: hdir
34 CHARACTER(LEN=1) :: ydir
35 CHARACTER(LEN=12) :: yrecfm
40 REAL(KIND=JPRB) :: zhook_handle
45 IF (lhook) CALL dr_hook(
'READ_ARRANGE_COVER',0,zhook_handle)
48 IF (present(hdir)) ydir = hdir
52 hprogram,yrecfm,iversion,iresp,hdir=ydir)
55 owater_to_nature = .false.
56 otown_to_rock = .false.
60 hprogram,yrecfm,owater_to_nature,iresp,hdir=ydir)
63 hprogram,yrecfm,otown_to_rock,iresp,hdir=ydir)
65 IF (lhook) CALL dr_hook(
'READ_ARRANGE_COVER',1,zhook_handle)
subroutine read_arrange_cover(HPROGRAM, OWATER_TO_NATURE, OTOWN_TO_ROCK, HDIR)