Extend interior_temporal_mean to accept type_state_variable_id (#87)

* extend interior_temporal_mean to accept type_state_variable_id * github actions: correct ifort url
fabm-model · Aug 27, 2024 · ecc1de1 · ecc1de1
1 parent 856f6a2
commit ecc1de1
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/.github/workflows/fabm.yml b/.github/workflows/fabm.yml
@@ -58,9 +58,9 @@ jobs:
       matrix:
         include:
           - version: "2021.1.2.62"
-            url_dir: "https://registrationcenter-download.intel.com/akdlm/irc_nas/17508"
+            url_dir: "https://registrationcenter-download.intel.com/akdlm/IRC_NAS/17508"
           # - version: "2022.2.1.16992"
-          #   url_dir: "https://registrationcenter-download.intel.com/akdlm/irc_nas/18998"
+          #   url_dir: "https://registrationcenter-download.intel.com/akdlm/IRC_NAS/18998"
           # - version: "2023.2.0.49254"
           #   url_dir: "https://registrationcenter-download.intel.com/akdlm/IRC_NAS/237236c4-434b-4576-96ac-020ceeb22619"
           - version: "2024.2.0.426"

diff --git a/src/fabm_expressions.F90 b/src/fabm_expressions.F90
@@ -179,10 +179,10 @@ function vertical_integral_generic(input, minimum_depth, maximum_depth, average)
    end function
 
    function interior_temporal_mean(input, period, resolution, missing_value) result(expression)
-      type (type_dependency_id), intent(inout), target :: input
-      real(rk),                  intent(in)            :: period, resolution
-      real(rk), optional,        intent(in)            :: missing_value
-      type (type_interior_temporal_mean)               :: expression
+      class (type_dependency_id), intent(inout), target :: input
+      real(rk),                   intent(in)            :: period, resolution
+      real(rk), optional,         intent(in)            :: missing_value
+      type (type_interior_temporal_mean)                :: expression
 
       character(len=attribute_length) :: prefix, postfix