Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / FM2DIA / write_dimgridref.f90
1 !     ######spl
2       MODULE MODI_WRITE_DIMGRIDREF
3 !     ############################
4 !
5 INTERFACE
6 !
7 SUBROUTINE WRITE_DIMGRIDREF
8 END SUBROUTINE WRITE_DIMGRIDREF
9 !
10 END INTERFACE
11 !
12 END MODULE MODI_WRITE_DIMGRIDREF
13 !     ###########################
14       SUBROUTINE WRITE_DIMGRIDREF
15 !     ###########################
16 !
17 !!****  *WRITE_DIMGRIDREF* - Ouverture du fichier diachronique et ecriture
18 !!          de l'entete
19 !! 
20 !!
21 !!    PURPOSE
22 !!    -------
23
24 !
25 !!**  METHOD
26 !!    ------
27 !!      
28 !!
29 !!    REFERENCE
30 !!    ---------
31 !!     
32 !!
33 !!    AUTHORS
34 !!    -------
35 !!    J. Duron      *Lab. Aerologie* 
36 !!
37 !!    Copyright 1994,  Meteo-France and Laboratoire d'Aerologie
38 !!    All Rights Reserved
39 !!
40 !!    MODIFICATIONS
41 !!    -------------
42 !!      Original    30/01/96 
43 !-------------------------------------------------------------------------------
44 !
45 !*       0.    DECLARATIONS
46 !              ------------
47 !
48 USE MODD_DIACHRO 
49 USE MODI_WRITE_LFIFM1_FORDIACHRO_CV
50
51 !
52 !*       0.1   Local variables
53 !
54 INTEGER           :: IRESP
55 !
56 !*       1.    Ouverture du fichier diachronique
57 !              ---------------------------------
58 !
59 CALL FMLOOK(CLUOUTDIA,CLUOUTDIA,NLUOUTDIA,IRESP)
60 IF (IRESP/=0) THEN
61   ! ouverture du listing
62   CALL FMATTR(CLUOUTDIA,CLUOUTDIA,NLUOUTDIA,NRESPDIA)
63   OPEN(UNIT=NLUOUTDIA,FILE=CLUOUTDIA,FORM='FORMATTED')
64 END IF
65 !
66 WRITE(UNIT=NLUOUTDIA,FMT=1)CFILEDIA
67 1 FORMAT(' OPEN NEW DIACHRONIC FILE ',A28)
68
69 ! Modif demandee par Nicole Asencio. 28/9/98
70 NFTYPEDIA=2
71 !NFTYPEDIA=0
72 NVERBDIA=5
73 CALL FMOPEN(CFILEDIA,'NEW',CLUOUTDIA,NNPRARDIA,NFTYPEDIA,NVERBDIA,NNINARDIA, &
74             NRESPDIA)
75
76 !
77 !*       2.    Fermeture du fichier descriptif correspondant
78 ! et unite logique correspondante liberee
79 !              ----------------------------------------------
80 !
81 !  non, on ferme DES et LFI par FMCLOS a la fin du programme
82 !(On peut envisager d'y ecrire le DESFM des fichiers d'entree)
83 !
84 !*       3.    Ecriture des dimensions, parametres de grille, etat de ref...
85 !              ----------------------------------------------------------
86 !
87 CALL WRITE_LFIFM1_FORDIACHRO_CV(CFILEDIA)
88
89 !
90 !------------------------------------------------------------------------------
91 !
92 !*      4.    EPILOGUE
93 !             --------
94
95 RETURN
96
97 END SUBROUTINE WRITE_DIMGRIDREF