Changeset 15769

Timestamp:

2022-03-30T09:22:02+02:00 (2 years ago)

Author:

smasson

Message:

very minor fix in sbcssm.F90

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcssm.F90 (modified) (1 diff)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcssm.F90

@@ -225 +225 @@
             IF( zf_sbc /= REAL( nn_fsbc, wp ) ) THEN      ! nn_fsbc has changed between 2 runs
                IF(lwp) WRITE(numout,*) '   restart with a change in the frequency of mean from ', zf_sbc, ' to ', nn_fsbc 
-               zcoef = REAL( nn_fsbc - 1, wp ) / zf_sbc 
+               zcoef = REAL( nn_fsbc - 1, wp ) / ( zf_sbc - 1._wp )   ! zf_sbc /= 1 as it was written in the restart 
                ssu_m(:,:) = zcoef * ssu_m(:,:) 
                ssv_m(:,:) = zcoef * ssv_m(:,:)