7 hfiletype,hinterp_type,kni)
51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
62 CHARACTER(LEN=6),
INTENT(OUT) :: hinterp_type
63 INTEGER,
INTENT(OUT) :: kni
68 CHARACTER(LEN=12) :: yrecfm
73 REAL,
DIMENSION(:),
ALLOCATABLE :: zw
74 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'PREP_GRID_CONF_PROJ',0,zhook_handle)
84 hfiletype,yrecfm,xlat0,iresp)
87 hfiletype,yrecfm,xlon0,iresp)
90 hfiletype,yrecfm,xrpk,iresp)
93 hfiletype,yrecfm,xbeta,iresp)
102 hfiletype,yrecfm,xlatori,iresp)
105 hfiletype,yrecfm,xlonori,iresp)
109 hfiletype,yrecfm,nx,iresp)
112 hfiletype,yrecfm,ny,iresp)
118 IF (
ALLOCATED(xx))
DEALLOCATE(xx)
122 hfiletype,yrecfm,zw,iresp,hdir=
'A')
126 IF (
ALLOCATED(xy))
DEALLOCATE(xy)
130 hfiletype,yrecfm,zw,iresp,hdir=
'A')
132 IF (mod(jl,nx)==0) xy(jl/nx) = zw(jl)
138 hinterp_type =
'UNIF '
140 hinterp_type =
'BILIN '
142 IF (lhook) CALL dr_hook(
'PREP_GRID_CONF_PROJ',1,zhook_handle)
subroutine prep_grid_conf_proj(HFILETYPE, HINTERP_TYPE, KNI)