Changeset 11226


Ignore:
Timestamp:
2019-07-08T14:56:55+02:00 (13 months ago)
Author:
jchanut
Message:

#2199, remove remaining use of nlcj

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10973_AGRIF-01_jchanut_small_jpi_jpj/src/NST/agrif_oce_interp.F90

    r11219 r11226  
    272272 
    273273      ! --- North --- ! 
    274       jbdy1 = nlcj-1-nbghostcells 
    275       jbdy2 = nlcj-2  
     274      jbdy1 = jpjglo-1-nbghostcells 
     275      jbdy2 = jpjglo-2  
    276276      ! 
    277277      IF( .NOT.ln_dynspg_ts ) THEN  ! Store transport 
     
    311311             
    312312      IF( ln_dynspg_ts ) THEN       ! Set tangential velocities to time splitting estimate 
    313          jbdy1 = jbdy1 + 1 
    314          jbdy2 = jbdy2 + 1  
     313         jbdy1 = jpjglo-nbghostcells 
     314         jbdy2 = jpjglo-1 
    315315         DO jj = mj0(jbdy1), mj1(jbdy2) 
    316316            zub(:,jj) = 0._wp 
Note: See TracChangeset for help on using the changeset viewer.