7 hprogram,hscheme,hsubroutine,hfilename)
49 USE modi_open_namelist
50 USE modi_close_namelist
55 USE modi_pt_by_pt_treatment
58 USE yomhook
,ONLY : lhook, dr_hook
59 USE parkind1
,ONLY : jprb
71 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
72 CHARACTER(LEN=6),
INTENT(IN) :: hscheme
73 CHARACTER(LEN=6),
INTENT(IN) :: hsubroutine
74 CHARACTER(LEN=28),
INTENT(IN) :: hfilename
95 CHARACTER(LEN=100):: ystring
102 REAL,
DIMENSION(:),
ALLOCATABLE :: zvalue
103 REAL,
DIMENSION(:),
POINTER :: zlat
104 REAL,
DIMENSION(:),
POINTER :: zlon
105 REAL(KIND=JPRB) :: zhook_handle
110 IF (lhook) CALL dr_hook(
'READ_LATLON',0,zhook_handle)
126 CALL
readhead(ifile,zglblatmin,zglblatmax,zglblonmin,zglblonmax, &
127 inbline,inbcol,znodata,zdlat,zdlon,zlat,zlon,ierr)
129 CALL
abor1_sfx(
'READ_LATLON: PROBLEM IN FILE HEADER')
142 IF (hsubroutine==
'A_OROG') CALL
ini_ssowork(xmeshlength,zdlat,zdlon)
149 CALL
open_file(hprogram,ifile,hfilename,
'FORMATTED',haction=
'READ')
151 READ(ifile,fmt=
'(A100)') ystring
159 ALLOCATE(zvalue(inbcol))
173 READ(ifile,fmt=*) zvalue(:)
188 IF (abs(zvalue(jcol)-znodata)<=1.e-10) cycle
196 iluout,zlat(jline:jline),zlon(jcol:jcol),zvalue(jcol:jcol),&
218 IF (lhook) CALL dr_hook(
'READ_LATLON',1,zhook_handle)
subroutine read_latlon(USS, HPROGRAM, HSCHEME, HSUBROUTINE, HFILENAME)
subroutine pt_by_pt_treatment(USS, KLUOUT, PLAT, PLON, PVALUE, HSUBROUTINE, KNBLINES, PNODATA)
subroutine abor1_sfx(YTEXT)
subroutine readhead(KGLB, PGLBLATMIN, PGLBLATMAX, PGLBLONMIN, PGLBLONMAX, KNBLAT, KNBLON, PCUTVAL, PDLAT, PDLON, PLAT, PLON, KERR)
subroutine ini_ssowork(PMESHLENGTH, PDLAT, PDLON)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine close_file(HPROGRAM, KUNIT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)
subroutine open_file(HPROGRAM, KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)