Changeset 11226 for NEMO/branches/2019/dev_r10973_AGRIF-01_jchanut_small_jpi_jpj/src/NST/agrif_oce_interp.F90

Timestamp:

2019-07-08T14:56:55+02:00 (5 years ago)

Author:

jchanut

Message:

#2199, remove remaining use of nlcj

File:

• NEMO/branches/2019/dev_r10973_AGRIF-01_jchanut_small_jpi_jpj/src/NST/agrif_oce_interp.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r10973_AGRIF-01_jchanut_small_jpi_jpj/src/NST/agrif_oce_interp.F90

@@ -272 +272 @@
 
       ! --- North --- !
-      jbdy1 = nlcj-1-nbghostcells
-      jbdy2 = nlcj-2 
+      jbdy1 = jpjglo-1-nbghostcells
+      jbdy2 = jpjglo-2 
       !
       IF( .NOT.ln_dynspg_ts ) THEN  ! Store transport
@@ -311 +311 @@
             
       IF( ln_dynspg_ts ) THEN       ! Set tangential velocities to time splitting estimate
-         jbdy1 = jbdy1 + 1
-         jbdy2 = jbdy2 + 1 
+         jbdy1 = jpjglo-nbghostcells
+         jbdy2 = jpjglo-1
          DO jj = mj0(jbdy1), mj1(jbdy2)
             zub(:,jj) = 0._wp