update heating rate code; roll back fedora image update

NCAR · Apr 5, 2024 · 7b01b79 · 7b01b79
1 parent 0902dc6
commit 7b01b79
Show file tree

Hide file tree

Showing 7 changed files with 6 additions and 8 deletions.
diff --git a/docker/Dockerfile b/docker/Dockerfile
@@ -1,4 +1,4 @@
-FROM fedora:39
+FROM fedora:37
 
 RUN dnf -y update \
     && dnf -y install \

diff --git a/docker/Dockerfile.coverage b/docker/Dockerfile.coverage
@@ -1,4 +1,4 @@
-FROM fedora:39
+FROM fedora:37
 
 RUN dnf -y update \
     && dnf -y install \

diff --git a/docker/Dockerfile.docs b/docker/Dockerfile.docs
@@ -1,4 +1,4 @@
-FROM fedora:39
+FROM fedora:37
 
 RUN dnf -y update \
     && dnf -y install \

diff --git a/docker/Dockerfile.memcheck b/docker/Dockerfile.memcheck
@@ -1,4 +1,4 @@
-FROM fedora:39
+FROM fedora:37
 
 RUN dnf -y update \
     && dnf -y install \

diff --git a/docker/Dockerfile.mpi b/docker/Dockerfile.mpi
@@ -1,4 +1,4 @@
-FROM fedora:39
+FROM fedora:37
 
 RUN dnf -y update \
     && dnf install -y sudo \

diff --git a/docker/Dockerfile.mpi.memcheck b/docker/Dockerfile.mpi.memcheck
@@ -1,4 +1,4 @@
-FROM fedora:39
+FROM fedora:37
 
 RUN dnf -y update \
     && dnf install -y sudo \

diff --git a/src/heating_rates.F90 b/src/heating_rates.F90
@@ -101,7 +101,6 @@ function constructor( config, grids, profiles ) result( this )
     type(config_t) :: reaction_set, reaction_config, heating_config
     type(config_t) :: cross_section_config
     class(iterator_t), pointer :: iter
-    type(string_t) :: label
     type(string_t) :: required_keys(1), optional_keys(1)
     logical :: found, do_apply_bands
     integer :: n_hr, i_hr, n_O2, i_O2
@@ -147,7 +146,6 @@ function constructor( config, grids, profiles ) result( this )
       call reaction_config%get( "heating", heating_config, Iam, found = found )
       if( found ) then
         i_hr = i_hr + 1
-        call reaction_config%get( "name", label, Iam )
         this%heating_parameters_( i_hr ) =                                    &
           heating_parameters_constructor( reaction_config, grids, profiles )
         call reaction_config%get( "cross section", cross_section_config, Iam )