Fix for static files (for real this time)

diag_manager/fms_diag_file_object.F90

@@ -256,9 +256,7 @@ logical function fms_diag_files_object_init (files_array)
        obj%next_close = diag_time_inc(obj%start_time, obj%get_file_new_file_freq(), &
                                         obj%get_file_new_file_freq_units())
      else
-       ! The file is static, so set the close time to be equal to the start time so that
-       ! the file can be closed at the first diag send complete call
-       obj%next_close = obj%start_time
+       obj%next_close = diag_time_inc(obj%start_time, VERY_LARGE_FILE_FREQ, DIAG_DAYS)
      endif
      obj%is_file_open = .false.
 
@@ -990,7 +988,13 @@ subroutine add_start_time(this, start_time, model_time)
        this%next_close = diag_time_inc(this%start_time, this%get_file_new_file_freq(), &
                                         this%get_file_new_file_freq_units())
      else
-       this%next_close = diag_time_inc(this%start_time, VERY_LARGE_FILE_FREQ, DIAG_DAYS)
+      if (this%is_static) then
+        ! If the file is static, set the close time to be equal to the start_time, so that it can be closed
+        ! after the first write!
+        this%next_close = this%start_time
+      else
+        this%next_close = diag_time_inc(this%start_time, VERY_LARGE_FILE_FREQ, DIAG_DAYS)
+      endif
      endif
 
     if(this%has_file_duration()) then