Quentin 16/07/2021: station change default time step to 60s and remove TYPE...

Quentin 16/07/2021: station change default time step to 60s and remove TYPE variable of csv reading.
TODO: remove the STATION%TYPE which is not used

src/MNH/default_desfmn.f90

@@ -596,7 +596,7 @@ LTECOUTPTS        = .FALSE.
 !             ----------------------------------
 !
 NNUMB_STAT    = 0
-XSTEP_STAT    = 1.0
+XSTEP_STAT    = 60.0
 XX_STAT(:)    = XUNDEF
 XY_STAT(:)    = XUNDEF
 XZ_STAT(:)    = XUNDEF

src/MNH/station_reader.f90

@@ -88,7 +88,7 @@ END DO
   ALLOCATE(TPSTATION%K(NUMBSTAT))
   !ALLOCATE(TPSTATION%STEP(NUMBSTAT))
   ALLOCATE(TPSTATION%NAME(NUMBSTAT))
-  ALLOCATE(TPSTATION%TYPE(NUMBSTAT))
+!  ALLOCATE(TPSTATION%TYPE(NUMBSTAT))
 
   TPSTATION%LON  = XUNDEF
   TPSTATION%LAT  = XUNDEF
@@ -97,7 +97,7 @@ END DO
   TPSTATION%X    = XUNDEF
   TPSTATION%Y    = XUNDEF
   TPSTATION%NAME = "        "
-  TPSTATION%TYPE = "        "
+!  TPSTATION%TYPE = "        "
   ! Nouvelle lecture 
   REWIND(ILU)
   READ(ILU,FMT='(A400)') YSTRING ! Lecture du header
@@ -107,7 +107,7 @@ END DO
    INBLINE = 1
    DO INBLINE=1, NUMBSTAT
     READ(ILU,FMT='(A400)') YSTRING
-    READ(YSTRING,*) TPSTATION%NAME(INBLINE),TPSTATION%TYPE(INBLINE),& 
+    READ(YSTRING,*) TPSTATION%NAME(INBLINE), & !TPSTATION%TYPE(INBLINE),& 
     TPSTATION%X(INBLINE), TPSTATION%Y(INBLINE), TPSTATION%Z(INBLINE)!,&
    END DO
    REWIND(ILU)
@@ -117,7 +117,7 @@ END DO
    INBLINE = 1
    DO INBLINE=1, NUMBSTAT
     READ(ILU,FMT='(A400)') YSTRING
-    READ(YSTRING,*) TPSTATION%NAME(INBLINE), TPSTATION%TYPE(INBLINE),&
+    READ(YSTRING,*) TPSTATION%NAME(INBLINE), & !TPSTATION%TYPE(INBLINE),&
     TPSTATION%LAT(INBLINE), TPSTATION%LON(INBLINE), TPSTATION%Z(INBLINE)!,&
    END DO
    REWIND(ILU)