introduce public module ints stdout and stderr for standard output

NOAA-GFDL · Oct 27, 2020 · 30fac75 · 30fac75
1 parent 165b1b2
commit 30fac75
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/framework/MOM_io.F90 b/src/framework/MOM_io.F90
@@ -33,6 +33,7 @@ module MOM_io
 use mpp_io_mod,           only : get_file_fields=>mpp_get_fields, get_file_times=>mpp_get_times
 use mpp_io_mod,           only : io_infra_init=>mpp_io_init
 
+use iso_fortran_env,      only : stdout_iso=>output_unit, stderr_iso=>error_unit
 use netcdf
 
 implicit none ; private
@@ -84,6 +85,9 @@ module MOM_io
   module procedure MOM_read_vector_2d
 end interface
 
+integer, public :: stdout = stdout_iso  !< standard output unit
+integer, public :: stderr = stderr_iso  !< standard output unit
+
 contains
 
 !> Routine creates a new NetCDF file.  It also sets up