Changeset 8399 for trunk/NEMOGCM

Timestamp:

2017-08-01T15:15:09+02:00 (7 years ago)

Author:

lovato

Message:

trunk: Add ln_top_euler control in trcnxt (#1930)

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

@@ -106 +106 @@
       ENDIF
       !                                ! Leap-Frog + Asselin filter time stepping
-      IF( neuler == 0 .AND. kt == nittrc000 ) THEN    ! Euler time-stepping at first time-step (only swap)
+      IF( (neuler == 0 .AND. kt == nittrc000) .OR. ln_top_euler ) THEN    ! Euler time-stepping (only swap)
          DO jn = 1, jptra
             DO jk = 1, jpkm1
                trn(:,:,jk,jn) = tra(:,:,jk,jn)
+               trb(:,:,jk,jn) = trn(:,:,jk,jn)  
             END DO
          END DO