52 CHARACTER(LEN=6),
INTENT(IN) :: HSUBROUTINE
54 REAL(KIND=JPRB) :: ZHOOK_HANDLE
56 IF (
lhook)
CALL dr_hook(
'REFRESH_PGDWORK',0,zhook_handle)
62 IF (
ALLOCATED(
xall))
THEN 81 IF (hsubroutine==
'A_OROG')
THEN 88 IF (
lhook)
CALL dr_hook(
'REFRESH_PGDWORK',1,zhook_handle)
integer, dimension(:,:), allocatable nsize_all
real, dimension(:,:,:), allocatable xall
subroutine refresh_pgdwork(HSUBROUTINE)
integer, dimension(:,:,:), allocatable nsso_all
real, dimension(:,:), allocatable xsumval
real, dimension(:,:,:), allocatable xsso_all
real, dimension(:,:), allocatable xext_all