Skip to content

Commit

Permalink
feat: Allow maximum number of restart variables to be set at build ti…
Browse files Browse the repository at this point in the history
…me (#909)
  • Loading branch information
rmontuoro authored Mar 3, 2022
1 parent 449e33c commit f19c926
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion fms2_io/netcdf_io.F90
Original file line number Diff line number Diff line change
Expand Up @@ -28,6 +28,9 @@
!> @addtogroup netcdf_io_mod
!> @{
module netcdf_io_mod
#ifndef MAX_NUM_RESTART_VARS_
#define MAX_NUM_RESTART_VARS_ 250
#endif
use netcdf
use mpp_mod
use fms_io_utils_mod
Expand All @@ -45,7 +48,7 @@ module netcdf_io_mod
integer, parameter :: missing_rank = -1
integer, parameter, public :: define_mode = 0
integer, parameter, public :: data_mode = 1
integer, parameter, public :: max_num_restart_vars = 200
integer, parameter, public :: max_num_restart_vars = MAX_NUM_RESTART_VARS_
integer, parameter, public :: unlimited = nf90_unlimited !> Wrapper to specify unlimited dimension.
integer, parameter :: dimension_not_found = 0
integer, parameter, public :: max_num_compressed_dims = 10 !> Maximum number of compressed
Expand Down

0 comments on commit f19c926

Please sign in to comment.