set the static field data before sending it

uramirez8707 · Oct 30, 2024 · 7622a97 · 7622a97
1 parent e7dcb18
commit 7622a97
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/test_fms/diag_manager/test_modern_diag.F90 b/test_fms/diag_manager/test_modern_diag.F90
@@ -199,6 +199,7 @@ program test_modern_diag
 
 call allocate_dummy_data(var_data, domain, Domain_cube_sph, land_domain, nz)
 Time_step = set_time (3600,0) !< 1 hour
+call set_dummy_data(var_data, 666)
 used = send_data(id_var8, var_data%var6, Time)
 do i=1,23
   Time = Time + Time_step