Changeset 13312 for NEMO/trunk

Timestamp:

2020-07-16T16:15:59+02:00 (4 years ago)

Author:

jchanut

Message:

fixes small compilation issue with key_AGRIF and key_vertical, #2129

File:

• NEMO/trunk/src/NST/agrif_oce_sponge.F90 (modified) (1 diff)

NEMO/trunk/src/NST/agrif_oce_sponge.F90

@@ -320 +320 @@
       END_2D
       !
-      ztabramp (:,:) = REAL( mbkt_parent (:,:), wp )
-      ztabrampu(:,:) = REAL( mbku_parentu(:,:), wp )
-      ztabrampv(:,:) = REAL( mbkv_parentv(:,:), wp )
+      ztabramp (:,:) = REAL( mbkt_parent(:,:), wp )
+      ztabrampu(:,:) = REAL( mbku_parent(:,:), wp )
+      ztabrampv(:,:) = REAL( mbkv_parent(:,:), wp )
       CALL lbc_lnk_multi( 'Agrif_Sponge', ztabramp, 'T', 1._wp, ztabrampu, 'U', 1._wp, ztabrampv, 'V', 1._wp )
       mbkt_parent(:,:) = NINT( ztabramp (:,:) )