52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
66 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
72 CHARACTER(LEN=12) :: yrecfm
73 CHARACTER(LEN=100):: ycomment
74 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'WRITESURF_COVER_N',0,zhook_handle)
85 hprogram,
'FRAC_SEA ',u%XSEA, iresp,hcomment=ycomment)
87 hprogram,
'FRAC_NATURE',u%XNATURE,iresp,hcomment=ycomment)
89 hprogram,
'FRAC_WATER ',u%XWATER, iresp,hcomment=ycomment)
91 hprogram,
'FRAC_TOWN ',u%XTOWN, iresp,hcomment=ycomment)
94 ycomment=
'(LOGICAL LIST)'
96 hprogram,yrecfm,u%LCOVER(:),iresp,hcomment=ycomment,hdir=
'-')
98 ycomment=
'COVER FIELDS'
100 hprogram,
'COVER',u%XCOVER(:,:),u%LCOVER,iresp,hcomment=ycomment)
108 ycomment=
'X_Y_ZS (M)'
110 hprogram,yrecfm,u%XZS(:),iresp,hcomment=ycomment)
112 IF (lhook) CALL dr_hook(
'WRITESURF_COVER_N',1,zhook_handle)
subroutine writesurf_cover_n(DGU, U, HPROGRAM)
subroutine, public write_surf_cov(DGU, U, HPROGRAM, HREC, PFIELD, OFLAG, KRESP, HCOMMENT, HDIR)