SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/OFFLIN/close_aux_io_surf

Go to the documentation of this file.

00001 subroutine close_aux_io_surf_ol
00002 !
00003 USE MODI_ABOR1_SFX
00004 !
00005 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00006 USE PARKIND1  ,ONLY : JPRB
00007 !
00008 IMPLICIT NONE
00009 !
00010 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00011 !
00012 IF (LHOOK) CALL DR_HOOK('CLOSE_AUX_IO_SURF_OL',0,ZHOOK_HANDLE)
00013  CALL ABOR1_SFX('CLOSE_AUX_IO_SURF_OL: NOT YET CODED!')
00014 IF (LHOOK) CALL DR_HOOK('CLOSE_AUX_IO_SURF_OL',1,ZHOOK_HANDLE)
00015 end subroutine close_aux_io_surf_ol