Add scream system workaround

E3SM-Project · Jul 27, 2024 · ccf8f1e · ccf8f1e
1 parent 19a53ec
commit ccf8f1e
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 6 deletions.
diff --git a/cime_config/machines/cmake_macros/crayclang-scream_frontier-scream-gpu.cmake b/cime_config/machines/cmake_macros/crayclang-scream_frontier-scream-gpu.cmake
@@ -5,7 +5,7 @@ set(SCC "cc")
 set(SCXX "hipcc")
 set(SFC "ftn")
 
-string(APPEND CPPDEFS " -DLINUX")
+string(APPEND CPPDEFS " -DLINUX -DSCREAM_SYSTEM_WORKAROUND=1")
 if (COMP_NAME STREQUAL gptl)
     string(APPEND CPPDEFS " -DHAVE_NANOTIME -DBIT64 -DHAVE_SLASHPROC -DHAVE_COMM_F2C -DHAVE_TIMES -DHAVE_GETTIMEOFDAY")
 endif()

diff --git a/components/elm/src/biogeochem/FireDataBaseType.F90 b/components/elm/src/biogeochem/FireDataBaseType.F90
@@ -8,7 +8,12 @@ module FireDataBaseType
      !
      ! !USES:
      use shr_kind_mod    , only : r8 => shr_kind_r8, CL => shr_kind_CL
+#if !defined SCREAM_SYSTEM_WORKAROUND || SCREAM_SYSTEM_WORKAROUND != 1
+     use shr_strdata_mod , only : shr_strdata_type, shr_strdata_create, shr_strdata_print
+     use shr_strdata_mod , only : shr_strdata_advance
+#else
      use shr_strdata_mod , only : shr_strdata_type
+#endif
      use shr_log_mod     , only : errMsg => shr_log_errMsg
      use elm_varctl      , only : iulog, inst_name
      use spmdMod         , only : masterproc, mpicom, comp_id
@@ -35,7 +40,7 @@ module FireDataBaseType
          real(r8), public, pointer :: forc_hdm(:)     ! Human population density
 
          real(r8), public, pointer :: gdp_lf_col(:)   ! col global real gdp data (k US$/capita)
-#ifdef CCE_17_COMPILER_BUG_FIXED
+#if !defined SCREAM_SYSTEM_WORKAROUND || SCREAM_SYSTEM_WORKAROUND != 1
          type(shr_strdata_type), private :: sdat_hdm           ! Human population density input data stream
          type(shr_strdata_type), private :: sdat_lnfm          ! Lightning input data stream
 #endif
@@ -218,7 +223,7 @@ subroutine hdm_init( this, bounds, NLFilename )
       endif
 
       call elm_domain_mct (bounds, dom_elm)
-#ifdef CCE_17_COMPILER_BUG_FIXED
+#if !defined SCREAM_SYSTEM_WORKAROUND || SCREAM_SYSTEM_WORKAROUND != 1
       call shr_strdata_create(this%sdat_hdm,name="clmhdm", &
            pio_subsystem=pio_subsystem,                    &
            pio_iotype=shr_pio_getiotype(inst_name),        &
@@ -281,7 +286,7 @@ subroutine hdm_interp( this, bounds )
 
       call get_curr_date(year, mon, day, sec)
       mcdate = year*10000 + mon*100 + day
-#ifdef CCE_17_COMPILER_BUG_FIXED
+#if !defined SCREAM_SYSTEM_WORKAROUND || SCREAM_SYSTEM_WORKAROUND != 1
       call shr_strdata_advance(this%sdat_hdm, mcdate, sec, mpicom, 'hdmdyn')
 
       ig = 0
@@ -374,7 +379,7 @@ subroutine lnfm_init( this, bounds, NLFilename )
       endif
 
       call elm_domain_mct (bounds, dom_elm)
-#ifdef CCE_17_COMPILER_BUG_FIXED
+#if !defined SCREAM_SYSTEM_WORKAROUND || SCREAM_SYSTEM_WORKAROUND != 1
       call shr_strdata_create(this%sdat_lnfm,name="clmlnfm", &
            pio_subsystem=pio_subsystem,                      &
            pio_iotype=shr_pio_getiotype(inst_name),          &
@@ -437,7 +442,7 @@ subroutine lnfm_interp(this, bounds )
 
       call get_curr_date(year, mon, day, sec)
       mcdate = year*10000 + mon*100 + day
-#ifdef CCE_17_COMPILER_BUG_FIXED
+#if !defined SCREAM_SYSTEM_WORKAROUND || SCREAM_SYSTEM_WORKAROUND != 1
       call shr_strdata_advance(this%sdat_lnfm, mcdate, sec, mpicom, 'lnfmdyn')
 
       ig = 0