SURFEX  V8_0
Surfex V8_0 release
 All Classes Files Functions Variables
end_io_surf_ncn.F90
Go to the documentation of this file.
1 !SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2 !SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3 !SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4 !SFX_LIC for details. version 1.
5 ! #######################################################
6  SUBROUTINE end_io_surf_nc_n(HPROGRAM)
7 ! #######################################################
8 !
9 !!**** *END_IO_SURF_NC_n* - routine to close IO files
10 !!
11 !! PURPOSE
12 !! -------
13 !!
14 !!** METHOD
15 !! ------
16 !!
17 !! EXTERNAL
18 !! --------
19 !!
20 !!
21 !! IMPLICIT ARGUMENTS
22 !! ------------------
23 !!
24 !! REFERENCE
25 !! ---------
26 !!
27 !!
28 !! AUTHOR
29 !! ------
30 !! S.Malardel *Meteo France*
31 !!
32 !! MODIFICATIONS
33 !! -------------
34 !! Original 09/2003
35 !-------------------------------------------------------------------------------
36 !
37 !* 0. DECLARATIONS
38 ! ------------
39 !
40 USE modd_surfex_mpi, ONLY : nrank, npio
41 !
42 USE modd_io_surf_nc, ONLY : lmask, nid_nc, ldef
43 !
44 USE yomhook ,ONLY : lhook, dr_hook
45 USE parkind1 ,ONLY : jprb
46 !
47 IMPLICIT NONE
48 !
49 include "netcdf.inc"
50 !
51 !* 0.1 Declarations of arguments
52 ! -------------------------
53 !
54  CHARACTER(LEN=6), INTENT(IN) :: hprogram ! main program
55 REAL(KIND=JPRB) :: zhook_handle
56 !
57 !* 0.2 Declarations of local variables
58 ! -------------------------------
59 !
60 INTEGER :: iret
61 !-------------------------------------------------------------------------------
62 !
63 IF (lhook) CALL dr_hook('END_IO_SURF_NC_N',0,zhook_handle)
64 !
65 !$OMP BARRIER
66 !
67 IF (nrank==npio) THEN
68 !$OMP SINGLE
69  IF (ldef) iret = nf_enddef(nid_nc)
70  iret = nf_close(nid_nc)
71 !$OMP END SINGLE
72 ENDIF
73 !
74 !$OMP BARRIER
75 !
76 lmask = .false.
77 IF (lhook) CALL dr_hook('END_IO_SURF_NC_N',1,zhook_handle)
78 !
79 !-------------------------------------------------------------------------------
80 !
81 END SUBROUTINE end_io_surf_nc_n
subroutine end_io_surf_nc_n(HPROGRAM)