61 USE yomhook
,ONLY : lhook, dr_hook
62 USE parkind1
,ONLY : jprb
77 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
83 CHARACTER(LEN=12) :: yrecfm
84 CHARACTER(LEN=100):: ycomment
86 REAL(KIND=JPRB) :: zhook_handle
96 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_WATFLUX_N',0,zhook_handle)
98 ycomment=
'(LOGICAL LIST)'
100 hprogram,yrecfm,w%LCOVER(:),iresp,hcomment=ycomment,hdir=
'-')
102 ycomment=
'COVER FIELDS'
104 hprogram,
'COVER',w%XCOVER(:,:),w%LCOVER,iresp,hcomment=ycomment)
111 hprogram,yrecfm,w%XZS(:),iresp,hcomment=ycomment)
116 hprogram,wg%CGRID,wg%XGRID_PAR,wg%XLAT,wg%XLON,wg%XMESH_SIZE,iresp)
117 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_WATFLUX_N',1,zhook_handle)
subroutine write_grid(DGU, U, HPROGRAM, HGRID, PGRID_PAR, PLAT, PLON, PMESH_SIZE, KRESP, PDIR, HDIR)
subroutine, public write_surf_cov(DGU, U, HPROGRAM, HREC, PFIELD, OFLAG, KRESP, HCOMMENT, HDIR)
subroutine writesurf_pgd_watflux_n(DGU, U, WG, W, HPROGRAM)