dcdeac62b695b7dc6fe91563ca4af2fbf84dd313
[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 !-------------------------------------------------------------------------------
57 !
58 !*       0.    DECLARATIONS
59 !              ------------
60 !
61 USE MODE_ll
62 USE MODE_FM
63 USE MODE_IO_ll
64
65 USE MODD_IO_SURF_MNH, ONLY : COUT, CACTION, NMASK_ALL, NMASK
66 !
67 IMPLICIT NONE
68 !
69 !*       0.1   Declarations of arguments
70 !              -------------------------
71 !
72 CHARACTER(LEN=28), INTENT(IN), OPTIONAL :: HFILE    ! file to close
73 CHARACTER(LEN=6),  INTENT(IN), OPTIONAL :: HFILETYPE! type of file to close
74
75 !
76 !*       0.2   Declarations of local variables
77 !              -------------------------------
78 !
79 INTEGER           :: IRESP          ! return-code if a problem appears
80 !
81 !-------------------------------------------------------------------------------
82 !
83 IF (CACTION=='OPEN  ') THEN
84   CALL FMCLOS_ll(HFILE,'KEEP',COUT,IRESP)
85   CACTION='      '
86 END IF
87 !
88 DEALLOCATE(NMASK_ALL)
89 DEALLOCATE(NMASK)
90 !
91 !-------------------------------------------------------------------------------
92 !
93 END SUBROUTINE MNHCLOSE_AUX_IO_SURF