Fixed warning message if restart_format is incorrect

CICE-Consortium · Feb 2, 2023 · 07e32c5 · 07e32c5
1 parent 48fb918
commit 07e32c5
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 6 deletions.
diff --git a/columnphysics/icepack_intfc.F90 b/columnphysics/icepack_intfc.F90
@@ -121,8 +121,6 @@ module icepack_intfc
       use icepack_warnings, only: icepack_warnings_print
       use icepack_warnings, only: icepack_warnings_flush
       use icepack_warnings, only: icepack_warnings_aborted
-      use icepack_warnings, only: icepack_warnings_add
-      use icepack_warnings, only: warnstr
 
 !autodocument_end icepack_intfc.F90
 

diff --git a/configuration/driver/icedrv_restart.F90 b/configuration/driver/icedrv_restart.F90
@@ -15,7 +15,6 @@ module icedrv_restart
       use icepack_intfc, only: icepack_query_tracer_flags, icepack_query_tracer_indices
       use icepack_intfc, only: icepack_query_parameters
       use icedrv_system, only: icedrv_system_abort
-      use icepack_intfc, only: icepack_warnings_add, warnstr
 #ifdef USE_NETCDF
       use netcdf
 #endif
@@ -445,9 +444,7 @@ subroutine dumpfile
          call icedrv_system_abort(string=subname//' ERROR: restart_format = "nc" requires USE_NETCDF',file=__FILE__,line=__LINE__)
 #endif         
       else
-         write(warnstr,*) subname, 'Restart format must be either "bin" or "nc", no restart file written'
-         call icepack_warnings_add(warnstr)
-         call icepack_warnings_flush(nu_diag)
+         write (nu_diag,*) 'WARNING: Restart format must be either "bin" or "nc", no restart file written'
       endif
 
       end subroutine dumpfile