Changeset 12152 for NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_oce_interp.F90
- Timestamp:
- 2019-12-10T15:36:47+01:00 (4 years ago)
- 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 1231 1231 tabin(jk) = ptab(ji,jj,jk,1) 1232 1232 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) 1239 1236 ENDDO 1240 1237 IF (N_in*N_out > 0) THEN
Note: See TracChangeset
for help on using the changeset viewer.