diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index 381d44d0e5bf7f3578fd8de249d3f4d966d9dbd5..7c28895684b7e9c55fe0bcd2b4aaf519be077c8a 100644
--- a/src/MNH/write_diachro.f90
+++ b/src/MNH/write_diachro.f90
@@ -1055,7 +1055,7 @@ select case ( idims )
       end do
     else
       call Print_msg( NVERB_FATAL, 'IO', 'Write_diachro_nc4', &
-                      'case not yet implemented (variable '//trim(tpfields(1)%cmnhname)//')' )
+                      'case not yet implemented (1D variable '//trim(tpfields(1)%cmnhname)//')' )
     end if
 
 
@@ -1138,9 +1138,16 @@ select case ( idims )
       do ji = 1, Size( pvar, 6 )
         call Diachro_one_field_write_nc4( tzfile, tpbudiachro, tpfields(ji), pvar(:,:,:,:,:,ji:ji), [ 4 ], gsplit, gdistributed )
       end do
+    else if (  tpfields(1)%ndimlist(4) == NMNHDIM_STATION_TIME &
+         .and. tpfields(1)%ndimlist(6) == NMNHDIM_STATION_PROC ) then
+      !Correspond to WRITE_STATION_n
+      ! Loop on the processes
+      do ji = 1, Size( pvar, 6 )
+        call Diachro_one_field_write_nc4( tzfile, tpbudiachro, tpfields(ji), pvar(:,:,:,:,:,ji:ji), [ 4 ], gsplit, gdistributed )
+      end do
     else
       call Print_msg( NVERB_FATAL, 'IO', 'Write_diachro_nc4', &
-                      'case not yet implemented (variable '//trim(tpfields(1)%cmnhname)//')' )
+                      'case not yet implemented (2D variable '//trim(tpfields(1)%cmnhname)//')' )
     end if
 
 
@@ -1289,7 +1296,7 @@ select case ( idims )
       end do
     else
       call Print_msg( NVERB_FATAL, 'IO', 'Write_diachro_nc4', &
-                      'case not yet implemented (variable '//trim(tpfields(1)%cmnhname)//')' )
+                      'case not yet implemented (3D variable '//trim(tpfields(1)%cmnhname)//')' )
     end if
 
   case (4)
@@ -1360,7 +1367,7 @@ select case ( idims )
       call Diachro_one_field_write_nc4( tzfile, tpbudiachro, tpfields(1), pvar, [ 2, 3, 4, 5 ], gsplit, gdistributed )
     else
       call Print_msg( NVERB_FATAL, 'IO', 'Write_diachro_nc4', &
-                      'case not yet implemented (variable '//trim(tpfields(1)%cmnhname)//')' )
+                      'case not yet implemented (4D variable '//trim(tpfields(1)%cmnhname)//')' )
     end if
 
 !   case (5)