diff --git a/cime_config/namelist_definition_drv.xml b/cime_config/namelist_definition_drv.xml
index f6e1d4442..bfe991383 100644
--- a/cime_config/namelist_definition_drv.xml
+++ b/cime_config/namelist_definition_drv.xml
@@ -1235,7 +1235,7 @@
-
+
logical
aux_hist
@@ -1267,7 +1267,7 @@
integer
aux_hist
MED_attributes
- history option type
+ history option span
1
@@ -1300,7 +1300,7 @@
-
+
logical
aux_hist
@@ -1332,7 +1332,7 @@
integer
aux_hist
MED_attributes
- history option type
+ history option span
1
@@ -1365,7 +1365,7 @@
-
+
logical
aux_hist
@@ -1381,7 +1381,7 @@
char
aux_hist
MED_attributes
- Auxiliary mediator atm2med precipitation history output every 3 hours
+ Auxiliary mediator atm2med precipitation fields history output every 3 hours
Faxa_rainc:Faxa_rainl:Faxa_snowc:Faxa_snowl
@@ -1399,7 +1399,7 @@
integer
aux_hist
MED_attributes
- history option type
+ history option span
3
@@ -1432,13 +1432,13 @@
-
+
logical
aux_hist
MED_attributes
- Auxiliary mediator a2x precipitation history output every 3 hours
+ Auxiliary mediator a2x dynamic, radiation, and precipitation history output every 3 hours
.false.
@@ -1449,7 +1449,7 @@
aux_hist
MED_attributes
- Auxiliary mediator a2x precipitation history output every 3 hours
+ Auxiliary mediator a2x dynamic, radiation, and precipitation fields history output every 3 hours
Sa_z:Sa_topo:Sa_u:Sa_v:Sa_tbot:Sa_ptem:Sa_shum:Sa_dens:Sa_pbot:Sa_pslv:Faxa_lwdn:Faxa_rainc:Faxa_rainl:Faxa_snowc:Faxa_snowl:Faxa_swndr:Faxa_swvdr:Faxa_swndf:Faxa_swvdf:Sa_co2diag:Sa_co2prog
@@ -1468,7 +1468,7 @@
integer
aux_hist
MED_attributes
- history option type
+ history option span
3
@@ -1501,12 +1501,12 @@
-
+
logical
aux_hist
MED_attributes
- Auxiliary mediator a2x precipitation history output every 3 hours
+ Auxiliary mediator a2x aerosol and ghg history output daily or endofrun
.false.
@@ -1515,7 +1515,7 @@
char
aux_hist
MED_attributes
- Auxiliary mediator a2x precipitation history output every 3 hours
+ Auxiliary mediator a2x aerosol and ghg history output daily or endofrun
Faxa_bcph:Faxa_ocph:Faxa_dstwet:Faxa_dstdry:Sa_co2prog:Sa_co2diag
@@ -1533,9 +1533,9 @@
integer
aux_hist
MED_attributes
- history option type
+ history option span
- 1
+ 3
@@ -1553,7 +1553,7 @@
MED_attributes
Number of time samples per file.
- 1
+ 2
@@ -1801,7 +1801,7 @@
-
+
logical
aux_hist
@@ -1978,7 +1978,7 @@
char
aux_hist
MED_attributes
- Auxiliary mediator rof2med precipitation history output.
+ Auxiliary mediator rof2med precipitation fields history output.
all
@@ -1996,9 +1996,9 @@
integer
aux_hist
MED_attributes
- history option type
+ history option span
- 6
+ 3
@@ -2016,7 +2016,7 @@
MED_attributes
Number of time samples per file.
- 1
+ 2
diff --git a/mediator/med_io_mod.F90 b/mediator/med_io_mod.F90
index 3a8fb2d6f..d55ebc724 100644
--- a/mediator/med_io_mod.F90
+++ b/mediator/med_io_mod.F90
@@ -75,10 +75,6 @@ module med_io_mod
character(*),parameter :: prefix = "med_io_"
character(*),parameter :: modName = "(med_io_mod) "
character(*),parameter :: version = "cmeps0"
- integer , parameter :: number_strlen = 8
- integer , parameter :: file_desc_t_cnt = 20 ! Note - this is hard-wired for now
-
-! character(CL) :: wfilename(0:file_desc_t_cnt) = ''
integer :: pio_iotype
integer :: pio_ioformat
@@ -546,9 +542,6 @@ subroutine med_io_wopen(filename, io_file, vm, rc, clobber, file_ind, model_doi_
if (.not. pio_file_is_open(io_file)) then
- ! filename not open
-! wfilename(lfile_ind) = trim(filename)
-
if (med_io_file_exists(vm, filename)) then
if (lclobber) then
nmode = pio_clobber
@@ -585,16 +578,6 @@ subroutine med_io_wopen(filename, io_file, vm, rc, clobber, file_ind, model_doi_
rcode = pio_put_att(io_file,pio_global,"model_doi_url",lmodel_doi_url)
endif
-! elseif (trim(wfilename(lfile_ind)) /= trim(filename)) then
- ! filename is open, better match open filename
-! if (iam==0) then
-! write(logunit,'(a)') trim(subname)//' different filename currently open '//trim(filename)
-! write(logunit,'(a)') trim(subname)//' different wfilename currently open '//trim(wfilename(lfile_ind))
-! end if
-! call ESMF_LogWrite(trim(subname)//'different file currently open '//trim(filename), ESMF_LOGMSG_ERROR)
-! rc = ESMF_FAILURE
-! return
-
else
! filename is already open, just return
endif
diff --git a/mediator/med_phases_history_mod.F90 b/mediator/med_phases_history_mod.F90
index e647dc647..5f150a4b7 100644
--- a/mediator/med_phases_history_mod.F90
+++ b/mediator/med_phases_history_mod.F90
@@ -60,7 +60,7 @@ module med_phases_history_mod
! Instantaneous history files datatypes/variables per component
! ----------------------------
type, public :: instfile_type
- type(file_desc_t) :: io_file
+ type(file_desc_t):: io_file
logical :: write_inst
character(CS) :: hist_option
integer :: hist_n
@@ -76,7 +76,7 @@ module med_phases_history_mod
! Time averaging history files
! ----------------------------
type, public :: avgfile_type
- type(file_desc_t) :: io_file
+ type(file_desc_t) :: io_file
logical :: write_avg
type(ESMF_FieldBundle) :: FBaccum_import ! field bundle for time averaging
integer :: accumcnt_import ! field bundle accumulation counter
@@ -96,7 +96,7 @@ module med_phases_history_mod
! Auxiliary history files
! ----------------------------
type, public :: auxfile_type
- type(file_desc_t) :: io_file
+ type(file_desc_t) :: io_file
character(CS), allocatable :: flds(:) ! array of aux field names
character(CS) :: auxname ! name for history file creation
character(CL) :: histfile = '' ! current history file name