Changeset 7806 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/NST_SRC/agrif_lim2_interp.F90

Timestamp:

2017-03-17T08:46:30+01:00 (7 years ago)

Author:

cbricaud

Message:

phaze dev_r5003_MERCATOR6_CRS branch with rev7805 of 3.6_stable branch

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/NST_SRC/agrif_lim2_interp.F90 (modified) (2 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/NST_SRC/agrif_lim2_interp.F90

@@ -531 +531 @@
          DO jj=MAX(j1,2),j2
             DO ji=MAX(i1,2),i2
-               uice_agr(ji,jj) = tabres(ji,jj)
+               u_ice_nst(ji,jj) = tabres(ji,jj)
             END DO
          END DO
@@ -582 +582 @@
          DO jj=MAX(j1,2),j2
             DO ji=MAX(i1,2),i2
-               vice_agr(ji,jj) = tabres(ji,jj)
+               v_ice_nst(ji,jj) = tabres(ji,jj)
             END DO
          END DO