41 USE modi_convert_cover_frac
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
56 CHARACTER(LEN=*),
INTENT(IN) :: htype
57 INTEGER,
INTENT(OUT) :: kl
62 REAL,
DIMENSION(:),
ALLOCATABLE :: zsea
63 REAL,
DIMENSION(:),
ALLOCATABLE :: znature
64 REAL,
DIMENSION(:),
ALLOCATABLE :: ztown
65 REAL,
DIMENSION(:),
ALLOCATABLE :: zwater
68 REAL(KIND=JPRB) :: zhook_handle
74 IF (lhook) CALL dr_hook(
'GET_SURF_SIZE_N',0,zhook_handle)
75 ilu =
SIZE(u%XCOVER,1)
78 ALLOCATE(znature(ilu))
81 IF (.NOT.
ASSOCIATED(u%XSEA))
THEN
83 u%XCOVER,u%LCOVER,zsea,znature,ztown,zwater)
96 kl = count(znature(:) > 0.)
99 kl = count(zsea(:) > 0.)
102 kl = count(ztown(:) > 0.)
106 kl = count(zwater(:) > 0.)
110 kl = count(znature(:) + ztown(:) > 0.)
118 IF (lhook) CALL dr_hook(
'GET_SURF_SIZE_N',1,zhook_handle)
subroutine get_surf_size_n(DTCO, U, HTYPE, KL)
subroutine convert_cover_frac(DTCO, PCOVER, OCOVER, PSEA, PNATURE, PTOWN, PWATER)