diff --git a/src/diagnose.F90 b/src/diagnose.F90
index 0d5aba46f3c6599f554b30de7e57affcb2c0231c..86c2d45aac12d832995399e663e59583ec7b0ab7 100644
--- a/src/diagnose.F90
+++ b/src/diagnose.F90
@@ -145,7 +145,9 @@ SUBROUTINE diagnose(kstep)
      CALL attach(fidres, TRIM(str),        "tmax",     tmax)
      CALL attach(fidres, TRIM(str),        "nrun",     nrun)
      CALL attach(fidres, TRIM(str),    "cpu_time",       -1)
-     CALL attach(fidres, TRIM(str),       "Nproc",num_procs)
+     CALL attach(fidres, TRIM(str),       "Nproc",   num_procs)
+     CALL attach(fidres, TRIM(str),       "Np_p" , num_procs_p)
+     CALL attach(fidres, TRIM(str),       "Np_kr",num_procs_kr)
 
      CALL grid_outputinputs(fidres, str)