7 hfiletype,hinterp_type,kni)
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
59 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
60 CHARACTER(LEN=6),
INTENT(OUT) :: hinterp_type
61 INTEGER,
INTENT(OUT) :: kni
66 CHARACTER(LEN=12) :: yrecfm
72 REAL(KIND=JPRB) :: zhook_handle
78 IF (lhook) CALL dr_hook(
'PREP_GRID_LONLAT_REG',0,zhook_handle)
81 hfiletype,yrecfm,xilon1,iresp)
84 hfiletype,yrecfm,xilon2,iresp)
87 hfiletype,yrecfm,xilat1,iresp)
90 hfiletype,yrecfm,xilat2,iresp)
93 hfiletype,yrecfm,ninlat,iresp)
95 IF (
ALLOCATED(ninlon))
DEALLOCATE(ninlon)
96 ALLOCATE(ninlon(ninlat))
99 hfiletype,yrecfm,ninlon(1),iresp)
100 IF (ninlat.GT.1) ninlon(2:ninlat) = ninlon(1)
107 nilength = ninlat*ninlon(1)
110 zdlat = (xilat2-xilat1)/ninlat
111 zdlon = (xilon2-xilon1)/ninlon(1)
113 xilon1 = xilon1 + zdlon/2.
114 xilon2 = xilon2 - zdlon/2.
115 xilat1 = xilat1 + zdlat/2.
116 xilat2 = xilat2 - zdlat/2.
118 IF (
ALLOCATED(xilatarray))
DEALLOCATE(xilatarray)
119 ALLOCATE(xilatarray(ninlat))
123 xilatarray(jl) = xilatarray(jl-1) + zdlat
128 hinterp_type =
'UNIF'
130 hinterp_type =
'HORIBL'
133 IF (lhook) CALL dr_hook(
'PREP_GRID_LONLAT_REG',1,zhook_handle)
subroutine prep_grid_lonlat_reg(HFILETYPE, HINTERP_TYPE, KNI)