38 USE yomhook
,ONLY : lhook, dr_hook
39 USE parkind1
,ONLY : jprb
46 INTEGER,
INTENT(IN) :: kgrid_par
47 INTEGER,
INTENT(IN) :: kl
48 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
49 INTEGER,
DIMENSION(KL),
INTENT(OUT) :: kleft
50 INTEGER,
DIMENSION(KL),
INTENT(OUT) :: kright
51 INTEGER,
DIMENSION(KL),
INTENT(OUT) :: ktop
52 INTEGER,
DIMENSION(KL),
INTENT(OUT) :: kbottom
57 REAL,
DIMENSION(KL) :: zx, zy
58 INTEGER :: iimax, ijmax
61 REAL(KIND=JPRB) :: zhook_handle
64 IF (lhook) CALL dr_hook(
'GET_ADJ_MES_CONF_PROJ',0,zhook_handle)
72 IF (iimax*ijmax==kl)
THEN
75 jl = ji + iimax * (jj-1)
76 IF (ji>1 ) kleft(jl) = jl-1
77 IF (ji<iimax) kright(jl) = jl+1
78 IF (jj>1 ) kbottom(jl) = jl-iimax
79 IF (jj<ijmax) ktop(jl) = jl+iimax
83 IF (lhook) CALL dr_hook(
'GET_ADJ_MES_CONF_PROJ',1,zhook_handle)
subroutine get_adj_mes_conf_proj(KGRID_PAR, KL, PGRID_PAR, KLEFT, KRIGHT, KTOP, KBOTTOM)
subroutine get_gridtype_conf_proj(PGRID_PAR, PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, KIMAX, KJMAX, PX, PY, PDX, PDY, KL)