Changeset 14027
- Timestamp:
- 2020-12-03T10:12:29+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/NST/agrif_oce_interp.F90
r13678 r14027 28 28 USE agrif_oce 29 29 USE phycst 30 USE dynspg_ts, ONLY: un_adv, vn_adv30 !!! USE dynspg_ts, ONLY: un_adv, vn_adv 31 31 ! 32 32 USE in_out_manager … … 1193 1193 !!---------------------------------------------------------------------- 1194 1194 IF( before ) THEN 1195 IF ( ln_bt_fw ) THEN1195 ! IF ( ln_bt_fw ) THEN 1196 1196 ptab(i1:i2,j1:j2) = e2u(i1:i2,j1:j2) * ub2_b(i1:i2,j1:j2) 1197 ELSE1198 ptab(i1:i2,j1:j2) = e2u(i1:i2,j1:j2) * un_adv(i1:i2,j1:j2)1199 ENDIF1197 ! ELSE 1198 ! ptab(i1:i2,j1:j2) = e2u(i1:i2,j1:j2) * un_adv(i1:i2,j1:j2) 1199 ! ENDIF 1200 1200 ELSE 1201 1201 zrhot = Agrif_rhot() … … 1229 1229 ! 1230 1230 IF( before ) THEN 1231 IF ( ln_bt_fw ) THEN1231 ! IF ( ln_bt_fw ) THEN 1232 1232 ptab(i1:i2,j1:j2) = e1v(i1:i2,j1:j2) * vb2_b(i1:i2,j1:j2) 1233 ELSE1234 ptab(i1:i2,j1:j2) = e1v(i1:i2,j1:j2) * vn_adv(i1:i2,j1:j2)1235 ENDIF1233 ! ELSE 1234 ! ptab(i1:i2,j1:j2) = e1v(i1:i2,j1:j2) * vn_adv(i1:i2,j1:j2) 1235 ! ENDIF 1236 1236 ELSE 1237 1237 zrhot = Agrif_rhot()
Note: See TracChangeset
for help on using the changeset viewer.