add CVt2 to init_kpp API

CVMix · Oct 30, 2024 · 8c8a00e · 8c8a00e
1 parent a8d8125
commit 8c8a00e
Showing 1 changed file with 13 additions and 7 deletions.
diff --git a/src/shared/cvmix_kpp.F90 b/src/shared/cvmix_kpp.F90
@@ -223,12 +223,12 @@ module cvmix_kpp
 
 ! !IROUTINE: cvmix_init_kpp
 ! !INTERFACE:
-  subroutine cvmix_init_kpp(ri_crit, minOBLdepth, maxOBLdepth, minVtsqr,      &
-                            vonkarman, Cstar, zeta_m, zeta_s, surf_layer_ext, &
-                            Cv, interp_type, interp_type2, MatchTechnique,    &
-                            old_vals, lEkman, lStokesMOST, lMonOb, lnoDGat1,  &
-                            lenhanced_diff, lnonzero_surf_nonlocal,           &
-                            Langmuir_mixing_str, Langmuir_entrainment_str,    &
+  subroutine cvmix_init_kpp(ri_crit, minOBLdepth, maxOBLdepth, minVtsqr,         &
+                            vonkarman, Cstar, zeta_m, zeta_s, surf_layer_ext,    &
+                            CVt2, Cv, interp_type, interp_type2, MatchTechnique, &
+                            old_vals, lEkman, lStokesMOST, lMonOb, lnoDGat1,     &
+                            lenhanced_diff, lnonzero_surf_nonlocal,              &
+                            Langmuir_mixing_str, Langmuir_entrainment_str,       &
                             l_LMD_ws, CVmix_kpp_params_user)
 
 ! !DESCRIPTION:
@@ -246,6 +246,7 @@ subroutine cvmix_init_kpp(ri_crit, minOBLdepth, maxOBLdepth, minVtsqr,      &
                                               zeta_m,                         &
                                               zeta_s,                         &
                                               surf_layer_ext,                 &
+                                              CVt2,                           &
                                               Cv
     character(len=*), optional, intent(in) :: interp_type,                    &
                                               interp_type2,                   &
@@ -487,7 +488,12 @@ subroutine cvmix_init_kpp(ri_crit, minOBLdepth, maxOBLdepth, minVtsqr,      &
     else
       call cvmix_put_kpp('lStokesMOST', .false., CVmix_kpp_params_user)
     end if
-    call cvmix_put_kpp('CVt2', 2.6_cvmix_r8, CVmix_kpp_params_user)
+
+    if (present(CVt2)) then
+      call cvmix_put_kpp('CVt2', CVt2, CVmix_kpp_params_user)
+    else
+      call cvmix_put_kpp('CVt2', 1.6_cvmix_r8, CVmix_kpp_params_user)
+    end if
 
     if (present(lEkman)) then
       call cvmix_put_kpp('lEkman', lEkman, CVmix_kpp_params_user)