61 USE yomhook
,ONLY : lhook, dr_hook
62 USE parkind1
,ONLY : jprb
75 TYPE(flake_t),
INTENT(INOUT) :: f
77 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
84 CHARACTER(LEN=12) :: yrecfm
85 CHARACTER(LEN=100):: ycomment
86 REAL(KIND=JPRB) :: zhook_handle
96 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_FLAKE_N',0,zhook_handle)
98 ycomment=
'(LOGICAL LIST)'
100 hprogram,yrecfm,f%LCOVER(:),iresp,hcomment=ycomment,hdir=
'-')
102 ycomment=
'COVER FIELDS'
104 hprogram,
'COVER',f%XCOVER(:,:),f%LCOVER,iresp,hcomment=ycomment)
111 hprogram,yrecfm,f%XZS(:),iresp,hcomment=ycomment)
116 hprogram,fg%CGRID,fg%XGRID_PAR,fg%XLAT,fg%XLON,fg%XMESH_SIZE,iresp)
121 ycomment=
'X_Y_'//yrecfm//
' (m)'
123 hprogram,yrecfm,f%XWATER_DEPTH(:),iresp,hcomment=ycomment)
126 ycomment=
'X_Y_'//yrecfm//
' (m)'
128 hprogram,yrecfm,f%XWATER_FETCH(:),iresp,hcomment=ycomment)
131 ycomment=
'X_Y_'//yrecfm//
' (K)'
133 hprogram,yrecfm,f%XT_BS(:),iresp,hcomment=ycomment)
136 ycomment=
'X_Y_'//yrecfm//
' (m)'
138 hprogram,yrecfm,f%XDEPTH_BS(:),iresp,hcomment=ycomment)
141 ycomment=
'X_Y_'//yrecfm//
' '
143 hprogram,yrecfm,f%XEXTCOEF_WATER(:),iresp,hcomment=ycomment)
144 IF (lhook) CALL dr_hook(
'WRITESURF_PGD_FLAKE_N',1,zhook_handle)
subroutine write_grid(DGU, U, HPROGRAM, HGRID, PGRID_PAR, PLAT, PLON, PMESH_SIZE, KRESP, PDIR, HDIR)
subroutine writesurf_pgd_flake_n(DGU, U, FG, F, HPROGRAM)
subroutine, public write_surf_cov(DGU, U, HPROGRAM, HREC, PFIELD, OFLAG, KRESP, HCOMMENT, HDIR)