7 hfiletype,hinterp_type,kni)
50 USE yomhook
,ONLY : lhook, dr_hook
51 USE parkind1
,ONLY : jprb
60 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
61 CHARACTER(LEN=6),
INTENT(OUT) :: hinterp_type
62 INTEGER,
INTENT(OUT) :: kni
67 CHARACTER(LEN=12) :: yrecfm
71 REAL,
DIMENSION(:),
ALLOCATABLE :: zw
72 REAL(KIND=JPRB) :: zhook_handle
79 IF (lhook) CALL dr_hook(
'PREP_GRID_CARTESIAN',0,zhook_handle)
82 hfiletype,yrecfm,nx,iresp)
85 hfiletype,yrecfm,ny,iresp)
91 IF (
ALLOCATED(xx))
DEALLOCATE(xx)
95 hfiletype,yrecfm,zw,iresp,hdir=
'A')
99 IF (
ALLOCATED(xy))
DEALLOCATE(xy)
103 hfiletype,yrecfm,zw,iresp,hdir=
'A')
105 IF (mod(jl,nx)==0) xy(jl/nx) = zw(jl)
111 hinterp_type =
'UNIF '
113 hinterp_type =
'BILIN '
115 IF (lhook) CALL dr_hook(
'PREP_GRID_CARTESIAN',1,zhook_handle)
subroutine prep_grid_cartesian(HFILETYPE, HINTERP_TYPE, KNI)