44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
52 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
59 REAL(KIND=JPRB) :: zhook_handle
62 IF (lhook) CALL dr_hook(
'END_IO_SURF_FA_N',0,zhook_handle)
70 IF (nrank==npio .AND. lopen)
THEN
72 CALL fairme(iret,nunit_fa,
'UNKNOWN')
76 IF (lhook) CALL dr_hook(
'END_IO_SURF_FA_N',1,zhook_handle)
subroutine wlog_mpi(HLOG, PLOG, KLOG, KLOG2, OLOG)
subroutine end_io_surf_fa_n(HPROGRAM)