diff --git a/src/MNH/default_desfmn.f90 b/src/MNH/default_desfmn.f90 index cba4613595bd3934761d3e9d015871396668fdf3..27b2ba813832ee02ad12e05c4cefcd46eccf39e4 100644 --- a/src/MNH/default_desfmn.f90 +++ b/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 diff --git a/src/MNH/station_reader.f90 b/src/MNH/station_reader.f90 index e6f9647bc1e99616f331f2e44fd454470fe174da..0f6b74663480f8dc78a48531f285837929fdfad6 100644 --- a/src/MNH/station_reader.f90 +++ b/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)