Fix for static fields to prevent extra unlimited dimensions

uramirez8707 · Jan 28, 2025 · 229e14b · 229e14b
1 parent 15ec0c7
commit 229e14b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/diag_manager/fms_diag_object.F90 b/diag_manager/fms_diag_object.F90
@@ -872,6 +872,7 @@ subroutine fms_diag_do_io(this, end_time)
 
       ! Go away if there is no data to write
       if (.not. diag_buff%is_there_data_to_write()) cycle
+      if (diag_field%is_static() .and. diag_file%get_unlim_dimension_level() > 1) cycle
 
       if ( diag_buff%is_time_to_finish_reduction(end_time) .and. .not. do_not_write) then
         ! sets missing value