8 psea,pnature,ptown,pwater )
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
63 REAL,
DIMENSION(:,:),
INTENT(IN) :: pcover
64 LOGICAL,
DIMENSION(:),
INTENT(IN) :: ocover
65 REAL,
DIMENSION(:),
INTENT(OUT) :: psea
66 REAL,
DIMENSION(:),
INTENT(OUT) :: pnature
67 REAL,
DIMENSION(:),
INTENT(OUT) :: ptown
68 REAL,
DIMENSION(:),
INTENT(OUT) :: pwater
69 REAL(KIND=JPRB) :: zhook_handle
77 IF (lhook) CALL dr_hook(
'CONVERT_COVER_FRAC',0,zhook_handle)
79 psea ,pcover(:,:),dtco%XDATA_SEA (:),
'ALL',
'ARI',ocover(:))
81 ptown ,pcover(:,:),dtco%XDATA_TOWN (:),
'ALL',
'ARI',ocover(:))
83 pnature ,pcover(:,:),dtco%XDATA_NATURE (:),
'ALL',
'ARI',ocover(:))
85 pwater ,pcover(:,:),dtco%XDATA_WATER (:),
'ALL',
'ARI',ocover(:))
88 WHERE (psea(:) == xundef) psea(:) = 0.
89 WHERE (pnature(:) == xundef) pnature(:) = 0.
90 WHERE (ptown(:) == xundef) ptown(:) = 0.
91 WHERE (pwater(:) == xundef) pwater(:) = 0.
92 IF (lhook) CALL dr_hook(
'CONVERT_COVER_FRAC',1,zhook_handle)
subroutine convert_cover_frac(DTCO, PCOVER, OCOVER, PSEA, PNATURE, PTOWN, PWATER)