51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
59 INTEGER,
INTENT(IN) :: kgrid_par
60 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
61 LOGICAL,
DIMENSION(720,360),
INTENT(OUT) :: olatlonmask
75 REAL,
DIMENSION(720,360) :: zlon_mask
76 REAL,
DIMENSION(720,360) :: zlat_mask
77 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'LATLONMASK_LONLAT_REG',0,zhook_handle)
86 olatlonmask(:,:) = .false.
94 zlon_mask(:,:)= spread( (/ ( jlon /2. - 0.25 , jlon=1,720 ) /) , dim=2, ncopies=360 )
95 zlat_mask(:,:)= spread( (/ ( (jlat-180)/2. - 0.25 , jlat=1,360 ) /) , dim=1, ncopies=720 )
102 zlon0 = 0.5*(zlonmin+zlonmax)
103 zlon_mask(:,:)=zlon_mask(:,:)+nint((zlon0-zlon_mask(:,:))/360.)*360.
109 IF ( zlon_mask(jlon,jlat) + 0.25 >= zlonmin &
110 .AND. zlon_mask(jlon,jlat) - 0.25 <= zlonmax &
111 .AND. zlat_mask(jlon,jlat) + 0.25 >= zlatmin &
112 .AND. zlat_mask(jlon,jlat) - 0.25 <= zlatmax ) olatlonmask(jlon,jlat) = .true.
115 IF (lhook) CALL dr_hook(
'LATLONMASK_LONLAT_REG',1,zhook_handle)
subroutine latlonmask_lonlat_reg(KGRID_PAR, PGRID_PAR, OLATLONMASK)
subroutine get_gridtype_lonlat_reg(PGRID_PAR, PLONMIN, PLONMAX, PLATMIN, PLATMAX, KLON, KLAT, KL, PLON, PLAT)