7 hprogram,hsubroutine,hfilename)
45 USE modi_pt_by_pt_treatment
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
60 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
61 CHARACTER(LEN=6),
INTENT(IN) :: hsubroutine
62 CHARACTER(LEN=28),
INTENT(IN) :: hfilename
72 REAL,
DIMENSION(:,:),
ALLOCATABLE,
TARGET :: zllv
75 REAL,
DIMENSION(:,:),
POINTER :: zllvwork
79 REAL(KIND=JPRB) :: zhook_handle
86 IF (lhook) CALL dr_hook(
'READ_BINLLVFAST',0,zhook_handle)
87 CALL
open_file(hprogram,iglb,hfilename,
'UNFORMATTED',haction=
'READ')
97 ALLOCATE(zllv(3,inelt))
105 zllv(2,:) = zllv(2,:)+nint((180.-zllv(2,:))/360.)*360.
109 jlat = 1 + int( ( zllv(1,ji)+ 90. ) * 2. )
111 jlon = 1 + int( ( zllv(2,ji) ) * 2. )
113 IF (llatlonmask(jlon,jlat))
THEN
115 zllv(:,icpt) = zllv(:,ji)
125 zllvwork=>zllv(:,1:icpt)
127 iluout,zllvwork(1,:),zllvwork(2,:),zllvwork(3,:),hsubroutine)
140 IF (lhook) CALL dr_hook(
'READ_BINLLVFAST',1,zhook_handle)
subroutine pt_by_pt_treatment(USS, KLUOUT, PLAT, PLON, PVALUE, HSUBROUTINE, KNBLINES, PNODATA)
subroutine read_binllvfast(USS, HPROGRAM, HSUBROUTINE, HFILENAME)
subroutine close_file(HPROGRAM, KUNIT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_file(HPROGRAM, KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)