37 USE modi_prep_buffer_grid
47 USE yomhook
,ONLY : lhook, dr_hook
48 USE parkind1
,ONLY : jprb
54 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
55 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
56 INTEGER,
INTENT(IN) :: kluout
57 REAL,
DIMENSION(:,:,:),
POINTER :: pfield
62 CHARACTER(LEN=6) :: yinmodel
63 REAL,
DIMENSION(:,:),
POINTER :: zfield
64 REAL,
DIMENSION(:),
POINTER :: zfield1d
65 REAL,
DIMENSION(:,:),
POINTER :: zd
67 REAL(KIND=JPRB) :: zhook_handle
74 IF (lhook) CALL dr_hook(
'PREP_TEB_GREENROOF_BUFFER',0,zhook_handle)
99 CASE(
'ARPEGE',
'ALADIN',
'MOCAGE')
109 SELECT CASE(yinmodel)
118 ALLOCATE(pfield(nni,1,nvegtype))
119 pfield(:,:,:) = xwr_def
122 ALLOCATE(pfield(nni,1,nvegtype))
123 pfield(:,:,:) = xundef
130 ALLOCATE(pfield(
SIZE(zfield1d,1),1,1))
131 pfield(:,1,1)=zfield1d(:)
138 cinterp_type=
'BUFFER'
144 IF (lhook) CALL dr_hook(
'PREP_TEB_GREENROOF_BUFFER',1,zhook_handle)
152 REAL,
DIMENSION(:,:),
ALLOCATABLE :: zout
153 REAL(KIND=JPRB) :: zhook_handle
159 IF (lhook) CALL dr_hook(
'SOIL_PROFILE_BUFFER',0,zhook_handle)
160 ALLOCATE(zout(
SIZE(zfield,1),
SIZE(xgrid_soil)))
164 ALLOCATE(pfield(
SIZE(zfield,1),
SIZE(xgrid_soil),nvegtype))
165 DO jvegtype=1,nvegtype
166 pfield(:,:,jvegtype)=zout(:,:)
172 IF (lhook) CALL dr_hook(
'SOIL_PROFILE_BUFFER',1,zhook_handle)
subroutine read_buffer_wgi(KLUOUT, HINMODEL, PFIELD, PD)
subroutine read_buffer_tg(KLUOUT, HINMODEL, PFIELD, PD)
subroutine prep_teb_greenroof_buffer(HPROGRAM, HSURF, KLUOUT, PFIELD)
subroutine read_buffer_wg(KLUOUT, HINMODEL, PFIELD, PD)
subroutine prep_buffer_grid(KLUOUT, HINMODEL, TPTIME_BUF)
subroutine read_buffer_zs(KLUOUT, HINMODEL, PFIELD)
subroutine soil_profile_buffer