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
65 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'GET_ADJ_MES_LONLAT_REG',0,zhook_handle)
70 zlatmin,zlatmax,ilon,ilat )
77 IF (ilon*ilat==kl)
THEN
80 jl = jlon + ilon * (jlat-1)
81 IF (jlon>1 ) kleft(jl) = jl-1
82 IF (jlon<ilon) kright(jl) = jl+1
83 IF (jlat>1 ) kbottom(jl) = jl-ilon
84 IF (jlat<ilat) ktop(jl) = jl+ilon
85 IF (jlon==1 .AND. zlonmin + 360. == zlonmax) kleft(jl) = jl+ilon-1
86 IF (jlon==ilon .AND. zlonmin + 360. == zlonmax) kright(jl) = jl-ilon+1
90 IF (lhook) CALL dr_hook(
'GET_ADJ_MES_LONLAT_REG',1,zhook_handle)
subroutine get_adj_mes_lonlat_reg(KGRID_PAR, KL, PGRID_PAR, KLEFT, KRIGHT, KTOP, KBOTTOM)
subroutine get_gridtype_lonlat_reg(PGRID_PAR, PLONMIN, PLONMAX, PLATMIN, PLATMAX, KLON, KLAT, KL, PLON, PLAT)