diff --git a/src/MNH/write_stationn.f90 b/src/MNH/write_stationn.f90 index 7934d9f400638166ba241ad91dd3e099d1378f54..cbe5bec7fa0ea18447bbe583d6d43cead26e837f 100644 --- a/src/MNH/write_stationn.f90 +++ b/src/MNH/write_stationn.f90 @@ -157,7 +157,7 @@ type(tfield_metadata_base), dimension(:), allocatable :: tzfields IF (TSTATION%X(II)==XUNDEF) RETURN IF (TSTATION%Y(II)==XUNDEF) RETURN ! -IPROC = 6 + SIZE(TSTATION%R,3) + SIZE(TSTATION%SV,3) +IPROC = 8 + SIZE(TSTATION%R,3) + SIZE(TSTATION%SV,3) IF (TSTATION%X(II)==XUNDEF) IPROC = IPROC + 2 IF (SIZE(TSTATION%TKE )>0) IPROC = IPROC + 1