40 USE modi_convert_cover_frac
43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
55 CHARACTER(LEN=6),
INTENT(IN) :: htype
56 INTEGER,
INTENT(INOUT) :: kdim
61 REAL,
DIMENSION(:),
ALLOCATABLE :: zsea
62 REAL,
DIMENSION(:),
ALLOCATABLE :: znature
63 REAL,
DIMENSION(:),
ALLOCATABLE :: ztown
64 REAL,
DIMENSION(:),
ALLOCATABLE :: zwater
65 REAL,
DIMENSION(:),
ALLOCATABLE :: zland
66 REAL,
DIMENSION(:),
ALLOCATABLE :: zfull
69 REAL(KIND=JPRB) :: zhook_handle
72 IF (lhook) CALL dr_hook(
'GET_TYPE_DIM_N',0,zhook_handle)
73 IF (.NOT.
ASSOCIATED(u%XCOVER) .AND. lhook) CALL dr_hook(
'GET_TYPE_DIM_N',1,zhook_handle)
74 IF (.NOT.
ASSOCIATED(u%XCOVER))
RETURN
79 ilu =
SIZE(u%XCOVER,1)
82 ALLOCATE(znature(ilu))
86 IF (.NOT.
ASSOCIATED(u%XSEA))
THEN
88 u%XCOVER,u%LCOVER,zsea,znature,ztown,zwater)
95 zland = ztown + znature
108 kdim = count(znature(:) > 0.)
111 kdim = count(zsea(:) > 0.)
114 kdim = count(ztown(:) > 0.)
117 kdim = count(zwater(:) > 0.)
120 kdim = count(zland(:) > 0.)
130 IF (lhook) CALL dr_hook(
'GET_TYPE_DIM_N',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine convert_cover_frac(DTCO, PCOVER, OCOVER, PSEA, PNATURE, PTOWN, PWATER)