Changeset 15073 for NEMO/trunk/src/OCE/DOM

Timestamp:

2021-07-02T16:20:14+02:00 (3 years ago)

Author:

clem

Message:

nn_hls=2 and debug mode: make agrif work and be repro

File:

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

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

@@ -125 +125 @@
       ! dom_qco_r3c defines over [nn_hls, nn_hls-1, nn_hls, nn_hls-1]
       IF( nn_hls == 2 ) CALL lbc_lnk( 'dom_qco_zgr', r3u(:,:,Kbb), 'U', 1._wp, r3v(:,:,Kbb), 'V', 1._wp, &
-         &                                           r3u(:,:,Kmm), 'U', 1._wp, r3v(:,:,Kmm), 'V', 1._wp )
-      !
+         &                                           r3u(:,:,Kmm), 'U', 1._wp, r3v(:,:,Kmm), 'V', 1._wp, r3f(:,:), 'F', 1._wp )
+      !                                                                                                ! r3f is needed for agrif
    END SUBROUTINE dom_qco_zgr