Add kind transform to transform test

NCAR · Oct 25, 2023 · aae4b43 · aae4b43
1 parent 19f6a30
commit aae4b43
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/scripts/framework_env.py b/scripts/framework_env.py
@@ -165,6 +165,10 @@ def __init__(self, logger, ndict=None, verbose=0, clean=False,
         # We always need a kind_phys so add a default if necessary
         if "kind_phys" not in self.__kind_dict:
             self.__kind_dict["kind_phys"] = "REAL64"
+        if "kind_dbl_prec" not in self.__kind_dict:
+            self.__kind_dict["kind_dbl_prec"] = "REAL64"
+        if "kind_sngl_prec" not in self.__kind_dict:
+            self.__kind_dict["kind_sngl_prec"] = "REAL32"
         # end if
         if ndict and ('use_error_obj' in ndict):
             self.__use_error_obj = ndict['use_error_obj']

diff --git a/test/var_action_test/effr_calc.F90 b/test/var_action_test/effr_calc.F90
@@ -3,7 +3,7 @@
 
 module effr_calc
 
-   use ccpp_kinds, only: kind_phys
+   use ccpp_kinds, only: kind_phys, kind_dbl_prec
 
    implicit none
    private
@@ -23,7 +23,7 @@ subroutine effr_calc_run(ncol, nlev, effrr_in, effrl_inout, &
       real(kind_phys),    intent(in)    :: effrr_in(:,:)
       real(kind_phys),    intent(inout) :: effrl_inout(:,:)
       real(kind_phys),    intent(out)   :: effri_out(:,:)
-      real(kind_phys),    intent(inout) :: effrs_inout(:,:)
+      real(kind_dbl_prec),intent(inout) :: effrs_inout(:,:)
       character(len=512), intent(out)   :: errmsg
       integer,            intent(out)   :: errflg
       !----------------------------------------------------------------

diff --git a/test/var_action_test/effr_calc.meta b/test/var_action_test/effr_calc.meta
@@ -48,7 +48,7 @@
   units = um
   dimensions = (horizontal_loop_extent,vertical_layer_dimension)
   type = real
-  kind = kind_phys
+  kind = kind_dbl_prec
   intent = inout
   top_at_one = .true.
 [ errmsg ]