6 SUBROUTINE latlonmask(HGRID,KGRID_PAR,PGRID_PAR,OLATLONMASK)
31 USE yomhook
,ONLY : lhook, dr_hook
32 USE parkind1
,ONLY : jprb
34 USE modi_latlonmask_conf_proj
36 USE modi_latlonmask_ign
38 USE modi_latlonmask_lonlat_reg
40 USE modi_latlonmask_lonlatval
42 USE modi_latlonmask_lonlat_rot
48 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
50 REAL,
DIMENSION(:),
POINTER :: pgrid_par
51 LOGICAL,
DIMENSION(720,360),
INTENT(OUT) :: olatlonmask
52 REAL(KIND=JPRB) :: zhook_handle
55 IF (lhook) CALL dr_hook(
'LATLONMASK',0,zhook_handle)
73 olatlonmask(:,:) = .true.
75 IF (lhook) CALL dr_hook(
'LATLONMASK',1,zhook_handle)
subroutine latlonmask_lonlat_reg(KGRID_PAR, PGRID_PAR, OLATLONMASK)
subroutine latlonmask_conf_proj(KGRID_PAR, PGRID_PAR, OLATLONMASK)
subroutine latlonmask(HGRID, KGRID_PAR, PGRID_PAR, OLATLONMASK)
subroutine latlonmask_ign(KGRID_PAR, PGRID_PAR, OLATLONMASK)
subroutine latlonmask_lonlatval(KGRID_PAR, PGRID_PAR, OLATLONMASK)
subroutine latlonmask_lonlat_rot(KGRID_PAR, PGRID_PAR, OLATLONMASK)