NOC-MSM / SE-NEMO

Shelf Enabled Global NEMO
GNU General Public License v3.0
2 stars 1 forks source link

SEG Fault if ln_int_wave_drag .true. and ln_tide .false. #170

Open jdha opened 4 months ago

jdha commented 4 months ago

Having not run SE-NEMO without tides for a while I spent a while chasing a SEG Fault after switching tides off. I should've switched ln_int_wave_drag to false too but it slipped my mind. I would suggest updating dynspg_ts.F90 with something like:

IF (ln_int_wave_drag) THEN

to

IF (ln_int_wave_drag .AND. ln_tide) THEN

or add into tide_init somewhere an update to ln_int_wave_drg that if ln_tide is false set ln_int_wave_drg to false