From 0ce1a0ab2144a95a2dae854b595fe508f66275dc Mon Sep 17 00:00:00 2001
From: jchanut <jerome.chanut@mercator-ocean.fr>
Date: Wed, 30 Mar 2022 14:57:59 +0200
Subject: [PATCH] Remove useless ts init with AGRIF and RK3
This causes seg. fault with RK3, these arrays being undefined
---
src/OCE/DYN/dynspg_ts.F90 | 12 +-----------
1 file changed, 1 insertion(+), 11 deletions(-)
diff --git a/src/OCE/DYN/dynspg_ts.F90 b/src/OCE/DYN/dynspg_ts.F90
index efef39e9..670277d5 100644
--- a/src/OCE/DYN/dynspg_ts.F90
+++ b/src/OCE/DYN/dynspg_ts.F90
@@ -241,7 +241,6 @@ CONTAINS
!
! ! set values computed in RK3_ssh
ssh_frc(:,:) = sshe_rhs(:,:)
-!!st zssh_frc(:,:) = sshe_rhs(:,:)
zu_frc(:,:) = Ue_rhs(:,:)
zv_frc(:,:) = Ve_rhs(:,:)
zCdU_u (:,:) = CdU_u (:,:)
@@ -1200,16 +1199,7 @@ CONTAINS
! ! Allocate time-splitting arrays
IF( dyn_spg_ts_alloc() /= 0 ) CALL ctl_stop('STOP', 'dyn_spg_init: failed to allocate dynspg_ts arrays' )
!
-#if defined key_RK3
- ! !* RK3: no restart
-# if defined key_agrif
- IF(lwp) WRITE(numout,*)
- IF(lwp) WRITE(numout,*) ' ==>>> RK3: set barotropic values to 0'
- ub2_b (:,:) = 0._wp ; vb2_b (:,:) = 0._wp ! used in the 1st interpol of agrif
- un_adv (:,:) = 0._wp ; vn_adv (:,:) = 0._wp ! used in the 1st interpol of agrif
- un_bf (:,:) = 0._wp ; vn_bf (:,:) = 0._wp ! used in the 1st update of agrif
-# endif
-#else
+#if ! defined key_RK3
! !* MLF: restart/initialise
!
CALL ts_rst_MLF( nit000, 'READ' )
--
GitLab