Changeset 11243


Ignore:
Timestamp:
2019-07-10T14:19:49+02:00 (13 months ago)
Author:
jchanut
Message:

#2222, correct bug in update with key_vertical

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_oce_update.F90

    r10068 r11243  
    336336               N_in = 0 
    337337               DO jk=k1,k2 !k2 = jpk of child grid 
    338                   IF (tabres(ji,jj,jk,n2) == 0  ) EXIT 
     338                  IF (tabres(ji,jj,jk,n2) < 900  ) EXIT 
    339339                  N_in = N_in + 1 
    340340                  tabin(jk,:) = tabres(ji,jj,jk,n1:n2-1)/tabres(ji,jj,jk,n2) 
     
    343343               N_out = 0 
    344344               DO jk=1,jpk ! jpk of parent grid 
    345                   IF (tmask(ji,jj,jk) < -900) EXIT ! TODO: Will not work with ISF 
     345                  IF (tmask(ji,jj,jk) == 0 ) EXIT ! TODO: Will not work with ISF 
    346346                  N_out = N_out + 1 
    347347                  h_out(N_out) = e3t_n(ji,jj,jk)  
Note: See TracChangeset for help on using the changeset viewer.