38 USE yomhook
,ONLY : lhook, dr_hook
39 USE parkind1
,ONLY : jprb
46 INTEGER,
INTENT(IN) :: kgrid_par
47 INTEGER,
INTENT(IN) :: kl
48 INTEGER,
INTENT(IN) :: knear_nbr
49 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
50 INTEGER,
DIMENSION(:,:),
POINTER :: knear
55 INTEGER :: iimax, ijmax
61 REAL(KIND=JPRB) :: zhook_handle
64 IF (lhook) CALL dr_hook(
'GET_NEAR_MESHES_CONF_PROJ',0,zhook_handle)
69 idist = int(sqrt(float(knear_nbr)))
71 IF (iimax*ijmax==kl)
THEN
75 jl = ji + iimax * (jj-1)
77 DO jx=-(idist-1)/2,idist/2
78 DO jy=-(idist-1)/2,idist/2
79 IF (ji+jx>0 .AND. ji+jx<iimax+1 .AND. jj+jy>0 .AND. jj+jy<ijmax+1)
THEN
81 knear(jl,icount) = (ji+jx) + iimax * (jj+jy-1)
88 IF (lhook) CALL dr_hook(
'GET_NEAR_MESHES_CONF_PROJ',1,zhook_handle)
subroutine get_near_meshes_conf_proj(KGRID_PAR, KL, PGRID_PAR, KNEAR_NBR, KNEAR)
subroutine get_gridtype_conf_proj(PGRID_PAR, PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, KIMAX, KJMAX, PX, PY, PDX, PDY, KL)