Changeset 13802 for NEMO/trunk/src/OCE

Timestamp:

2020-11-17T10:21:55+01:00 (3 years ago)

Author:

gsamson

Message:

add ssh(:,:,Naa) init when ln_linssh=true in C1D config to avoid NaN crash in stpctl

File:

• NEMO/trunk/src/OCE/C1D/step_c1d.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/C1D/step_c1d.F90

@@ -122 +122 @@
                         CALL dyn_atf    ( kstp, Nbb, Nnn, Naa , uu, vv, e3t, e3u, e3v )  ! time filtering of "now" fields
       IF(.NOT.ln_linssh)CALL ssh_atf    ( kstp, Nbb, Nnn, Naa , ssh )                    ! time filtering of "now" sea surface height
+      IF( kstp == nit000 .AND. ln_linssh) THEN
+         ssh(:,:,Naa) = ssh(:,:,Nnn)  ! init ssh after in ln_linssh case
+      ENDIF
       !
       ! Swap time levels