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

Go to the documentation of this file.
00001 !     ######
00002       SUBROUTINE CLOSE_FILEIN_OL
00003 !     #######################################################
00004 !!****  *CLOSE_FILEIN_OL* - 
00005 !
00006 USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO
00007 !
00008 USE MODD_OL_FILEID, ONLY : XID_IN, XVAR_TO_FILEIN, XID_VARIN
00009 
00010 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00011 USE PARKIND1  ,ONLY : JPRB
00012 !
00013 IMPLICIT NONE
00014 INCLUDE "netcdf.inc"
00015 
00016 INTEGER :: JFILE, JRET
00017 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00018 
00019 !**************************************************
00020 
00021 IF (LHOOK) CALL DR_HOOK('CLOSE_FILEIN_OL',0,ZHOOK_HANDLE)
00022 IF (NRANK==NPIO) THEN
00023   !
00024 !$OMP SINGLE
00025   !
00026   DO JFILE=1,SIZE(XID_IN)
00027     JRET=NF_CLOSE(XID_IN(JFILE))
00028   ENDDO
00029   !
00030   DEALLOCATE(XID_IN)
00031   DEALLOCATE(XVAR_TO_FILEIN)
00032   DEALLOCATE(XID_VARIN)
00033   !
00034 !$OMP END SINGLE
00035   !
00036 ENDIF
00037 IF (LHOOK) CALL DR_HOOK('CLOSE_FILEIN_OL',1,ZHOOK_HANDLE)
00038 
00039 !******************************************
00040 
00041 END SUBROUTINE CLOSE_FILEIN_OL