Changeset 11791
- Timestamp:
- 2019-10-25T10:35:15+02: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_update.F90
r11760 r11791 512 512 IF (N_in * N_out > 0) THEN 513 513 h_diff = sum(h_out(1:N_out))-sum(h_in(1:N_in)) 514 excess = 0._wp 514 515 IF (h_diff < -1.e-4) THEN 515 516 !Even if bathy at T points match it's possible for the U points to be deeper in the child grid. 516 517 !In this case we need to move transport from the child grid cells below bed of parent grid into the bottom cell. 517 excess = 0._wp518 518 DO jk=N_in,1,-1 519 519 thick = MIN(-1*h_diff, h_in(jk)) … … 708 708 IF (N_in * N_out > 0) THEN 709 709 h_diff = sum(h_out(1:N_out))-sum(h_in(1:N_in)) 710 excess = 0._wp 710 711 IF (h_diff < -1.e-4) then 711 712 !Even if bathy at T points match it's possible for the V points to be deeper in the child grid. 712 713 !In this case we need to move transport from the child grid cells below bed of parent grid into the bottom cell. 713 excess = 0._wp714 714 DO jk=N_in,1,-1 715 715 thick = MIN(-1*h_diff, h_in(jk))
Note: See TracChangeset
for help on using the changeset viewer.