8 paosip, paosim, paosjp, paosjm, &
9 pho2ip, pho2im, pho2jp, pho2jm, &
57 USE yomhook
,ONLY : lhook, dr_hook
58 USE parkind1
,ONLY : jprb
60 USE modi_get_surf_mask_n
62 USE modi_get_type_dim_n
72 TYPE(isba_grid_t
),
INTENT(INOUT) :: ig
73 TYPE(isba_t
),
INTENT(INOUT) :: i
76 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
77 REAL,
DIMENSION(:),
INTENT(IN) :: paosip
78 REAL,
DIMENSION(:),
INTENT(IN) :: paosim
79 REAL,
DIMENSION(:),
INTENT(IN) :: paosjp
80 REAL,
DIMENSION(:),
INTENT(IN) :: paosjm
81 REAL,
DIMENSION(:),
INTENT(IN) :: pho2ip
82 REAL,
DIMENSION(:),
INTENT(IN) :: pho2im
83 REAL,
DIMENSION(:),
INTENT(IN) :: pho2jp
84 REAL,
DIMENSION(:),
INTENT(IN) :: pho2jm
85 REAL,
DIMENSION(:),
INTENT(IN) :: psso_slope
93 INTEGER,
DIMENSION(:),
POINTER :: imask
94 REAL(KIND=JPRB) :: zhook_handle
98 IF (lhook) CALL dr_hook(
'PACK_PGD_ISBA',0,zhook_handle)
106 ALLOCATE(imask(ig%NDIM))
109 'NATURE',ig%NDIM,imask,ilu,iluout)
117 ALLOCATE(i%XAOSIP(ig%NDIM))
118 ALLOCATE(i%XAOSIM(ig%NDIM))
119 ALLOCATE(i%XAOSJP(ig%NDIM))
120 ALLOCATE(i%XAOSJM(ig%NDIM))
121 ALLOCATE(i%XHO2IP(ig%NDIM))
122 ALLOCATE(i%XHO2IM(ig%NDIM))
123 ALLOCATE(i%XHO2JP(ig%NDIM))
124 ALLOCATE(i%XHO2JM(ig%NDIM))
125 ALLOCATE(i%XSSO_SLOPE(ig%NDIM))
135 IF (lhook) CALL dr_hook(
'PACK_PGD_ISBA',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine get_surf_mask_n(DTCO, U, HTYPE, KDIM, KMASK, KLU, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine pack_pgd_isba(DTCO, IG, I, U, HPROGRAM, PAOSIP, PAOSIM, PAOSJP, PAOSJM, PHO2IP, PHO2IM, PHO2JP, PHO2JM, PSSO_SLOPE)