Ignore:
Timestamp:
2019-12-10T15:36:47+01:00 (7 months ago)
Author:
jchanut
Message:

#2222: fixes linear vertical interpolation of viscosities

File:
1 edited

Legend:

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

    r12119 r12152  
    12311231                    tabin(jk) = ptab(ji,jj,jk,1) 
    12321232               END DO 
    1233                N_out = 0 
    1234           z_out(1) = 0._wp  
    1235                DO jk = 2, jpk       ! Child vertical grid 
    1236                   IF (tmask(ji,jj,jk) == 0._wp) EXIT  
    1237                   N_out = N_out + 1 
    1238                   z_out(jk) = z_out(jk-1) + e3t_n(ji,jj,jk-1) 
     1233               N_out = mbkt(ji,jj)  
     1234               DO jk = 1, N_out        ! Child vertical grid 
     1235                  z_out(jk) = gdepw_n(ji,jj,jk) 
    12391236               ENDDO 
    12401237               IF (N_in*N_out > 0) THEN 
Note: See TracChangeset for help on using the changeset viewer.