Don't pass Schmittner when using Simmons

cvmix_coeffs_tidal_wrap() was passing cvmix_vars%SchmittnerSouthernOcean to cvmix_coeffs_tidal_low() even when user specified Simmons scheme, and this was causing memory issues (I don't think the driver ever allocated that memory)
mnlevy1981 · Aug 15, 2024 · 71d339b · 71d339b
1 parent 6e51516
commit 71d339b
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/shared/cvmix_tidal.F90 b/src/shared/cvmix_tidal.F90
@@ -349,8 +349,7 @@ subroutine cvmix_coeffs_tidal_wrap(CVmix_vars, &
                                 CVmix_vars%SimmonsCoeff,                    &
                                 CVmix_vars%VertDep_iface, nlev, max_nlev,   &
                                 CVMix_params,                               &
-                                CVmix_vars%SchmittnerSouthernOcean,         &
-                                CVmix_tidal_params_user)
+                                CVMix_tidal_params_user=CVmix_tidal_params_user)
       case ('schmittner','Schmittner')
         call cvmix_coeffs_tidal_schmittner                                  &
                                 (new_Mdiff, new_Tdiff,                      &