From a525ebd63ab2c704a66a55ca930d6df8eb432822 Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Mon, 9 Dec 2024 16:07:28 -0700 Subject: [PATCH 1/5] remove unused variable isPresent --- mediator/med_phases_restart_mod.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/mediator/med_phases_restart_mod.F90 b/mediator/med_phases_restart_mod.F90 index d21a3ada..601ee742 100644 --- a/mediator/med_phases_restart_mod.F90 +++ b/mediator/med_phases_restart_mod.F90 @@ -506,7 +506,6 @@ subroutine med_phases_restart_read(gcomp, rc) character(ESMF_MAXSTR) :: case_name ! case name character(ESMF_MAXSTR) :: restart_file ! Local path to restart filename character(ESMF_MAXSTR) :: restart_pfile ! Local path to restart pointer filename - logical :: isPresent character(len=*), parameter :: subname='(med_phases_restart_read)' !--------------------------------------- call t_startf('MED:'//subname) From 1903016e682ca34c542b4a1c084ae2ea0a33c5c6 Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Tue, 10 Dec 2024 09:33:35 -0700 Subject: [PATCH 2/5] replace tabs with spaces --- mediator/med.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mediator/med.F90 b/mediator/med.F90 index 89cc2f91..aa4438f9 100644 --- a/mediator/med.F90 +++ b/mediator/med.F90 @@ -2641,9 +2641,9 @@ subroutine med_dststatus_write (gcomp, rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return ! get mask Array call ESMF_FieldGet(maskfield, array=maskarray, rc=rc) - if (ChkErr(rc,__LINE__,u_FILE_u)) return + if (ChkErr(rc,__LINE__,u_FILE_u)) return call ESMF_MeshGet(mesh_dst, elemMaskArray=maskarray, rc=rc) - if (ChkErr(rc,__LINE__,u_FILE_u)) return + if (ChkErr(rc,__LINE__,u_FILE_u)) return call ESMF_FieldGet(maskfield, localDe=0, farrayPtr=meshmask, rc=rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return ! now create an R8 mask for writing From 7ced1d3b0ed8abcd864cb4d9c04d9cb5764c3a55 Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Tue, 10 Dec 2024 09:57:23 -0700 Subject: [PATCH 3/5] another unused variable --- mediator/med.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mediator/med.F90 b/mediator/med.F90 index aa4438f9..2632c502 100644 --- a/mediator/med.F90 +++ b/mediator/med.F90 @@ -2603,7 +2603,7 @@ subroutine med_dststatus_write (gcomp, rc) type(ESMF_Array) :: maskarray integer(I4), pointer :: meshmask(:) real(R8), pointer :: r8ptr(:) - integer :: m,n1,n2 + integer :: m,n2 character(CL) :: case_name, dststatusfile logical :: elementMaskIsPresent logical :: whead(2) = (/.true. , .false./) From d1b7b71e6d4f19efd36ee733cc555b4536035133 Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Thu, 12 Dec 2024 16:44:50 -0700 Subject: [PATCH 4/5] replace testcase None in config with unset --- cime_config/buildnml | 2 ++ 1 file changed, 2 insertions(+) diff --git a/cime_config/buildnml b/cime_config/buildnml index 40b726e0..7ffc28f8 100755 --- a/cime_config/buildnml +++ b/cime_config/buildnml @@ -44,6 +44,8 @@ def _create_drv_namelists(case, infile, confdir, nmlgen, files): config["MPILIB"] = case.get_value("MPILIB") config["OS"] = case.get_value("OS") config["TESTCASE"] = case.get_value("TESTCASE") + if not config["TESTCASE"]: + config["TESTCASE"] = "UNSET" config["glc_nec"] = ( 0 if case.get_value("GLC_NEC") == 0 else case.get_value("GLC_NEC") ) From 51db2685eaa26275c1d352aee7011f08ea14d72e Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Fri, 13 Dec 2024 10:09:31 -0700 Subject: [PATCH 5/5] remove unused variable isPresent --- mediator/med_phases_restart_mod.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/mediator/med_phases_restart_mod.F90 b/mediator/med_phases_restart_mod.F90 index d21a3ada..601ee742 100644 --- a/mediator/med_phases_restart_mod.F90 +++ b/mediator/med_phases_restart_mod.F90 @@ -506,7 +506,6 @@ subroutine med_phases_restart_read(gcomp, rc) character(ESMF_MAXSTR) :: case_name ! case name character(ESMF_MAXSTR) :: restart_file ! Local path to restart filename character(ESMF_MAXSTR) :: restart_pfile ! Local path to restart pointer filename - logical :: isPresent character(len=*), parameter :: subname='(med_phases_restart_read)' !--------------------------------------- call t_startf('MED:'//subname)