43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
53 REAL,
OPTIONAL,
INTENT(IN) :: pmeshlength
54 REAL,
OPTIONAL,
INTENT(IN) :: pdlat
55 REAL,
OPTIONAL,
INTENT(IN) :: pdlon
56 REAL(KIND=JPRB) :: zhook_handle
64 IF (lhook) CALL dr_hook(
'INI_SSOWORK',0,zhook_handle)
65 IF (present(pmeshlength) .AND. present(pdlat) .AND. present(pdlon))
THEN
66 IF (pdlat/= xundef .AND. pdlon /= xundef)
THEN
67 nsso = nint( 2. * pmeshlength / (pdlat + pdlon) )
82 IF (
ALLOCATED(xssqo))
DEALLOCATE(xssqo)
83 IF (
ALLOCATED(lssqo))
DEALLOCATE(lssqo)
85 ALLOCATE(xssqo(nsso,nsso,nl))
86 ALLOCATE(lssqo(nsso,nsso,nl))
87 xssqo(:,:,:) = -99999.
88 lssqo(:,:,:) = .false.
89 IF (lhook) CALL dr_hook(
'INI_SSOWORK',1,zhook_handle)
subroutine ini_ssowork(PMESHLENGTH, PDLAT, PDLON)