35 xtg_surf, xtg_root, xtg_deep, &
36 xwr_def, xwrv_def, xwrvn_def, &
38 xhugi_surf, xhugi_root, xhugi_deep
42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
49 INTEGER,
INTENT(IN) :: kluout
50 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
51 REAL,
POINTER,
DIMENSION(:,:,:) :: pfield
55 REAL(KIND=JPRB) :: zhook_handle
59 IF (lhook) CALL dr_hook(
'PREP_ISBA_UNIF',0,zhook_handle)
66 ALLOCATE(pfield(1,1,1))
73 ALLOCATE(pfield(1,3,1))
74 pfield(:,1,1) = xhug_surf
75 pfield(:,2,1) = xhug_root
76 pfield(:,3,1) = xhug_deep
81 ALLOCATE(pfield(1,3,1))
82 pfield(:,1,1) = xhugi_surf
83 pfield(:,2,1) = xhugi_root
84 pfield(:,3,1) = xhugi_deep
89 ALLOCATE(pfield(1,3,1))
90 pfield(:,1,1) = xtg_surf
91 pfield(:,2,1) = xtg_root
92 pfield(:,3,1) = xtg_deep
97 ALLOCATE(pfield(1,1,1))
101 ALLOCATE(pfield(1,1,1))
105 ALLOCATE(pfield(1,1,1))
109 ALLOCATE(pfield(1,1,1))
113 ALLOCATE(pfield(1,1,1))
117 ALLOCATE(pfield(1,1,1))
121 ALLOCATE(pfield(1,1,1))
125 ALLOCATE(pfield(1,1,1))
129 ALLOCATE(pfield(1,1,1))
133 ALLOCATE(pfield(1,1,1))
137 CALL
abor1_sfx(
'PREP_ISBA_UNIF: '//trim(hsurf)//
" initialization not implemented !")
146 IF (lhook) CALL dr_hook(
'PREP_ISBA_UNIF',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine prep_isba_unif(KLUOUT, HSURF, PFIELD)