63 USE modi_convert_cover_frac
65 USE yomhook
,ONLY : lhook, dr_hook
66 USE parkind1
,ONLY : jprb
77 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
89 CHARACTER(LEN=12) :: yrecfm
90 REAL(KIND=JPRB) :: zhook_handle
101 IF (lhook) CALL dr_hook(
'READ_COVER_N',0,zhook_handle)
104 gread_all = lread_all
110 hprogram,yrecfm,iversion,iresp)
112 ALLOCATE(u%LCOVER(jpcover))
117 ALLOCATE(u%XCOVER(u%NSIZE_FULL,count(u%LCOVER)))
119 hprogram,
'COVER',u%XCOVER(:,:),u%LCOVER,iresp)
124 ALLOCATE(u%XSEA (u%NSIZE_FULL))
125 ALLOCATE(u%XNATURE(u%NSIZE_FULL))
126 ALLOCATE(u%XWATER (u%NSIZE_FULL))
127 ALLOCATE(u%XTOWN (u%NSIZE_FULL))
129 IF (iversion>=7)
THEN
132 hprogram,
'FRAC_SEA ',u%XSEA, iresp)
134 hprogram,
'FRAC_NATURE',u%XNATURE,iresp)
136 hprogram,
'FRAC_WATER ',u%XWATER, iresp)
138 hprogram,
'FRAC_TOWN ',u%XTOWN, iresp)
142 u%XCOVER,u%LCOVER,u%XSEA,u%XNATURE,u%XTOWN,u%XWATER)
149 ALLOCATE(u%XZS(u%NSIZE_FULL))
152 hprogram,yrecfm,u%XZS(:),iresp)
154 IF (lassim) lread_all = gread_all
156 IF (lhook) CALL dr_hook(
'READ_COVER_N',1,zhook_handle)
subroutine, public read_surf_cov(HPROGRAM, HREC, PFIELD, OFLAG, KRESP, HCOMMENT, HDIR)
subroutine read_cover_n(DTCO, U, HPROGRAM)
subroutine read_lcover(HPROGRAM, OCOVER)
subroutine convert_cover_frac(DTCO, PCOVER, OCOVER, PSEA, PNATURE, PTOWN, PWATER)