7 pcover,ocover,psoilrc_so2,psoilrc_o3)
55 USE yomhook
,ONLY : lhook, dr_hook
56 USE parkind1
,ONLY : jprb
66 REAL,
DIMENSION(:,:),
INTENT(IN) :: pcover
67 LOGICAL,
DIMENSION(:),
INTENT(IN) :: ocover
69 REAL,
DIMENSION(:,:),
INTENT(OUT) :: psoilrc_so2
70 REAL,
DIMENSION(:,:),
INTENT(OUT) :: psoilrc_o3
71 REAL(KIND=JPRB) :: zhook_handle
79 IF (lhook) CALL dr_hook(
'CONVERT_COVER_CH_ISBA',0,zhook_handle)
81 IF (
ASSOCIATED(dtco%XDATA_WEIGHT))
DEALLOCATE(dtco%XDATA_WEIGHT)
84 psoilrc_so2 ,pcover ,xdata_soilrc_so2(:,:) ,
'NAT',
'ARI',ocover,kdecade=1)
86 psoilrc_o3 ,pcover ,xdata_soilrc_o3(:,:) ,
'NAT',
'ARI',ocover,kdecade=1)
88 IF (
ASSOCIATED(dtco%XDATA_WEIGHT))
DEALLOCATE(dtco%XDATA_WEIGHT)
90 IF (lhook) CALL dr_hook(
'CONVERT_COVER_CH_ISBA',1,zhook_handle)
subroutine convert_cover_ch_isba(DTCO, PCOVER, OCOVER, PSOILRC_SO2, PSOILRC_O3)