Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / DIAPRO / load_xprdat.f90
1 !     ######spl
2       SUBROUTINE LOAD_XPRDAT(KIND,KLOOPT)
3 !     ################################
4 !
5 !!****  *LOAD_FMTAXES* - 
6 !!
7 !!    PURPOSE
8 !!    -------
9 !       Charger dans XPRDAT les dates modele, exp., segment et courante
10 !       pour ecriture dans le fichier FICVAL (G.Jaubert JUIN 2001)
11 !
12 !!**  METHOD
13 !!    ------
14 !!     
15 !!     N.A.
16 !!
17 !!    EXTERNAL
18 !!    --------
19 !!      None
20 !!
21 !!    IMPLICIT ARGUMENTS
22 !!    ------------------
23 !!      Module
24 !!
25 !!      Module
26 !!
27 !!    REFERENCE
28 !!    ---------
29 !!
30 !!
31 !!    AUTHOR
32 !!    ------
33 !!      J. Duron    * Laboratoire d'Aerologie *
34 !!
35 !!
36 !!    MODIFICATIONS
37 !!    -------------
38 !!      Original       20/06/01
39 !!      Updated   PM   
40 !-------------------------------------------------------------------------------
41 !
42 !*       0.    DECLARATIONS
43 !              ------------
44 !
45 USE MODD_RESOLVCAR
46 USE MODD_ALLOC_FORDIACHRO
47
48 IMPLICIT NONE
49 !
50 !*       0.1   Dummy arguments
51
52 INTEGER          :: KIND,KLOOPT
53 !
54 !------------------------------------------------------------------------------
55 IF(.NOT.ALLOCATED(XPRDAT))THEN
56   RETURN
57 ENDIF
58 ! Chargement des dates courante , modele, experience et segment
59 XPRDAT(1:4,KIND)=XDATIME(13:16,KLOOPT)
60 XPRDAT(5:8,KIND)=XDATIME(9:12,KLOOPT)
61 XPRDAT(9:12,KIND)=XDATIME(1:4,KLOOPT)
62 XPRDAT(13:16,KIND)=XDATIME(5:8,KLOOPT)
63 RETURN
64 END SUBROUTINE LOAD_XPRDAT 
65