7 SUBROUTINE read_slope_file(HPROGRAM,HFILE,HFORM,KNMC,PTANB,PSLOP,PDAREA,PLAMBDA)
59 USE yomhook
,ONLY : lhook, dr_hook
60 USE parkind1
,ONLY : jprb
66 CHARACTER(LEN=*),
INTENT(IN) :: hprogram
67 CHARACTER(LEN=*),
INTENT(IN) :: hfile
68 CHARACTER(LEN=*),
INTENT(IN) :: hform
69 INTEGER,
INTENT(IN) :: knmc
70 REAL,
DIMENSION(:),
INTENT(OUT) :: ptanb
71 REAL,
DIMENSION(:),
INTENT(OUT) :: pslop
72 REAL,
DIMENSION(:),
INTENT(OUT) :: pdarea
73 REAL,
DIMENSION(:),
INTENT(OUT) :: plambda
83 REAL,
DIMENSION(KNMC) :: zdarea
84 REAL(KIND=JPRB) :: zhook_handle
86 CHARACTER(LEN=100) :: yheader
88 IF (lhook) CALL dr_hook(
'READ_SLOPE_FILE',0,zhook_handle)
94 CALL
open_file(hprogram,nunit,hfile,hform,haction=
'READ')
98 IF (index(yheader,
'pixel_REF')/=0)
THEN
99 write(iluout,*)
'Slope file from new java + GRASS chain'
101 READ(nunit,*,end=110) iwrk, ptanb(jj),plambda(jj)
105 ELSE !slope file from old f77 chain
106 write(*,*)
'Slope file from old f77 chain'
108 READ(nunit,*,end=110) iwrk, ptanb(jj), pslop(jj), zwrk, pdarea(jj)
109 plambda(jj) = log(pdarea(jj)/pslop(jj))
114 IF (lhook) CALL dr_hook(
'READ_SLOPE_FILE',1,zhook_handle)
subroutine read_slope_file(HPROGRAM, HFILE, HFORM, KNMC, PTANB, PSLOP, PDAREA, PLAMBDA)
subroutine close_file(HPROGRAM, KUNIT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_file(HPROGRAM, KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)