Changeset 14179 for NEMO/trunk/src/OCE/DOM/domqco.F90

Timestamp:

2020-12-15T23:17:09+01:00 (3 years ago)

Author:

techene

Message:

#2385 restart with qco bug fix for euler 1st and RK3

File:

• NEMO/trunk/src/OCE/DOM/domqco.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/DOM/domqco.F90

@@ -116 +116 @@
       !                    !== Set of all other vertical scale factors  ==!  (now and before)
       !                                ! Horizontal interpolation of e3t
+#if defined key_RK3
+      CALL dom_qco_r3c( ssh(:,:,Kbb), r3t(:,:,Kbb), r3u(:,:,Kbb), r3v(:,:,Kbb), r3f(:,:) )
+      CALL dom_qco_r3c( ssh(:,:,Kmm), r3t(:,:,Kmm), r3u(:,:,Kmm), r3v(:,:,Kmm)           )
+#else
       CALL dom_qco_r3c( ssh(:,:,Kbb), r3t(:,:,Kbb), r3u(:,:,Kbb), r3v(:,:,Kbb)           )
       CALL dom_qco_r3c( ssh(:,:,Kmm), r3t(:,:,Kmm), r3u(:,:,Kmm), r3v(:,:,Kmm), r3f(:,:) )
+#endif
       !
    END SUBROUTINE dom_qco_zgr