Juan 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files
[MNH-git_open_source-lfs.git] / src / MNH / mnhclose_aux_io_surf.f90
1 !MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2 !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
3 !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
4 !MNH_LIC for details. version 1.
5 !-----------------------------------------------------------------
6 !--------------- special set of characters for RCS information
7 !-----------------------------------------------------------------
8 ! $Source$ $Revision$
9 ! MASDEV4_7 surfex 2006/05/23 15:47:28
10 !-----------------------------------------------------------------
11 !     #########################
12       MODULE MODI_MNHCLOSE_AUX_IO_SURF
13 !     #########################
14 INTERFACE
15       SUBROUTINE MNHCLOSE_AUX_IO_SURF(HFILE,HFILETYPE)
16 !
17 CHARACTER(LEN=28), INTENT(IN), OPTIONAL :: HFILE    ! file to close
18 CHARACTER(LEN=6),  INTENT(IN), OPTIONAL :: HFILETYPE! type of file to close
19
20 !
21 END SUBROUTINE MNHCLOSE_AUX_IO_SURF
22 !
23 END INTERFACE
24 END MODULE MODI_MNHCLOSE_AUX_IO_SURF
25 !
26 !     #######################################################
27       SUBROUTINE MNHCLOSE_AUX_IO_SURF(HFILE,HFILETYPE)
28 !     #######################################################
29 !
30 !!****  *MNHCLOSE_AUX_IO_SURF* - routine to close IO files in MESONH universe 
31 !!
32 !!    PURPOSE
33 !!    -------
34 !!
35 !!**  METHOD
36 !!    ------
37 !!
38 !!    EXTERNAL
39 !!    --------
40 !!
41 !!
42 !!    IMPLICIT ARGUMENTS
43 !!    ------------------
44 !!
45 !!    REFERENCE
46 !!    ---------
47 !!
48 !!
49 !!    AUTHOR
50 !!    ------
51 !!      S.Malardel   *Meteo France*     
52 !!
53 !!    MODIFICATIONS
54 !!    -------------
55 !!      Original    09/2003 
56 !!      J.Escobar : 19/04/2016 : Pb IOZ/NETCDF , missing OPARALLELIO=.FALSE. for PGD files
57 !-------------------------------------------------------------------------------
58 !
59 !*       0.    DECLARATIONS
60 !              ------------
61 !
62 USE MODE_ll
63 USE MODE_FM
64 USE MODE_IO_ll
65
66 USE MODD_IO_SURF_MNH, ONLY : COUT, CACTION, NMASK_ALL, NMASK
67 !
68 IMPLICIT NONE
69 !
70 !*       0.1   Declarations of arguments
71 !              -------------------------
72 !
73 CHARACTER(LEN=28), INTENT(IN), OPTIONAL :: HFILE    ! file to close
74 CHARACTER(LEN=6),  INTENT(IN), OPTIONAL :: HFILETYPE! type of file to close
75
76 !
77 !*       0.2   Declarations of local variables
78 !              -------------------------------
79 !
80 INTEGER           :: IRESP          ! return-code if a problem appears
81 !
82 !-------------------------------------------------------------------------------
83 !
84 IF (CACTION=='OPEN  ') THEN
85   CALL FMCLOS_ll(HFILE,'KEEP',COUT,IRESP,OPARALLELIO=.FALSE.)
86   CACTION='      '
87 END IF
88 !
89 DEALLOCATE(NMASK_ALL)
90 DEALLOCATE(NMASK)
91 !
92 !-------------------------------------------------------------------------------
93 !
94 END SUBROUTINE MNHCLOSE_AUX_IO_SURF