54 USE yomhook
,ONLY : lhook, dr_hook
55 USE parkind1
,ONLY : jprb
61 INTEGER,
INTENT(IN) :: ki
64 INTEGER :: jcat,jmesh,jpix
65 CHARACTER(LEN=50) :: yname
66 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'WRITE_FILE_MASKTOPD',0,zhook_handle)
75 yname = trim(ccat(jcat))//trim(
'.mask_surf')
77 CALL
open_file(
'ASCII ',nunit,yname,
'FORMATTED',haction=
'WRITE')
80 DO jpix=1,nnpix(jmesh)
81 IF (nmaski(jmesh,jcat,jpix)/=nundef)&
82 WRITE(nunit,*) jmesh,nmaski(jmesh,jcat,jpix)
90 IF (lhook) CALL dr_hook(
'WRITE_FILE_MASKTOPD',1,zhook_handle)
subroutine close_file(HPROGRAM, KUNIT)
subroutine write_file_masktopd(KI)
subroutine open_file(HPROGRAM, KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)