From ff26c6516f4a5d7c69097c29d0b5e96b293ddcca Mon Sep 17 00:00:00 2001
From: bderembl <bruno.deremble@cnrs.fr>
Date: Mon, 15 Jun 2026 13:21:04 +0200
Subject: [PATCH] init diagnostics before first save

---
 src/gotm/gotm.F90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/gotm/gotm.F90 b/src/gotm/gotm.F90
index 2e0ee875..161ecee0 100644
--- a/src/gotm/gotm.F90
+++ b/src/gotm/gotm.F90
@@ -731,6 +731,7 @@ subroutine integrate_gotm()
 !BOC
    if (i == 0 .and. .not. restart) then
       LEVEL1 'saving initial conditions'
+      call do_diagnostics(nlev)
       call output_manager_save(julianday,int(fsecondsofday),int(mod(fsecondsofday,_ONE_)*1000000),0)
       STDERR LINE
       LEVEL1 'integrate_gotm'