Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / DIAPRO / latlongrid.f90
1 !     ######spl
2       SUBROUTINE LATLONGRID
3 !     ################################
4 !
5 !!****  *LATLONGRID* - 
6 !!
7 !!    PURPOSE
8 !!    -------
9 !      
10 !
11 !!**  METHOD
12 !!    ------
13 !!     
14 !!     N.A.
15 !!
16 !!    EXTERNAL
17 !!    --------
18 !!      None
19 !!
20 !!    IMPLICIT ARGUMENTS
21 !!    ------------------
22 !!      Module
23 !!
24 !!      Module
25 !!
26 !!    REFERENCE
27 !!    ---------
28 !!
29 !!
30 !!    AUTHOR
31 !!    ------
32 !!      J. Duron    * Laboratoire d'Aerologie *
33 !!
34 !!
35 !!    MODIFICATIONS
36 !!    -------------
37 !!      Original       16/06/98
38 !!      Updated   PM   
39 !-------------------------------------------------------------------------------
40 !
41 !*       0.    DECLARATIONS
42 !              ------------
43 !
44 USE MODD_NMGRID
45 USE MODD_RESOLVCAR
46 USE MODD_ALLOC_FORDIACHRO
47
48 IMPLICIT NONE
49 !
50 !*       0.1   Dummy arguments
51 !              ---------------
52
53 !
54 !*       0.1   Local variables
55 !              ---------------
56 ! !------------------------------------------------------------------------------
57 NLATLON=0
58 NLATLON=INDEX(CCOMMENT(NLOOPP),'LATLON')
59 IF(NLATLON == 0)THEN
60   NLATLON=INDEX(CCOMMENT(NLOOPP),'Latlon')
61 ENDIF
62 IF(NLATLON == 0)THEN
63   NLATLON=INDEX(CCOMMENT(NLOOPP),'latlon')
64 ENDIF
65 IF(NLATLON == 0)THEN
66   NLATLON=INDEX(CCOMMENT(NLOOPP),'LatLon')
67 ENDIF
68 IF(NVERBIA > 5)THEN
69   print *,' NLATLON,CCOMMENT(NLOOPP) ',NLATLON,CCOMMENT(NLOOPP)
70 ENDIF
71 NMGRID=NGRIDIA(NLOOPP)
72 IF(NMGRID <1 .OR. NMGRID >7)THEN
73   PRINT *,' VALEUR NMGRID ABERRANTE: ',NMGRID, &
74         '        FORCEE A        :  1'
75   NMGRID=1
76 ENDIF
77 RETURN
78 END SUBROUTINE LATLONGRID