Changeset 14122
- Timestamp:
- 2020-12-07T18:37:04+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_oce_interp.F90
r14086 r14122 651 651 IF( ll_int_cons ) THEN ! Conservative interpolation 652 652 IF ( lk_tint2d_notinterp ) THEN 653 Agrif_UseSpecialValue = .FALSE. 653 654 CALL Agrif_Bc_variable( ub2b_interp_id, calledweight=1._wp, procname=interpub2b_const ) 654 655 CALL Agrif_Bc_variable( vb2b_interp_id, calledweight=1._wp, procname=interpvb2b_const ) 655 656 ! Divergence conserving correction terms: 656 CALL Agrif_Bc_variable( ub2b_cor_id, calledweight=1._wp, procname=ub2b_cor )657 CALL Agrif_Bc_variable( vb2b_cor_id, calledweight=1._wp, procname=vb2b_cor )657 IF ( Agrif_Rhox()>1 ) CALL Agrif_Bc_variable( ub2b_cor_id, calledweight=1._wp, procname=ub2b_cor ) 658 IF ( Agrif_Rhoy()>1 ) CALL Agrif_Bc_variable( vb2b_cor_id, calledweight=1._wp, procname=vb2b_cor ) 658 659 ELSE 659 660 ! order matters here !!!!!! … … 1438 1439 ptab(:,:) = 0._wp 1439 1440 DO ji=i1+1,i2-1 1440 DO jj=j1+1,j2 1441 DO jj=j1+1,j2-1 1441 1442 ptab(ji,jj) = 0.25_wp*( ( vb2_b(ji+1,jj )*e1v(ji+1,jj ) & 1442 1443 & -vb2_b(ji-1,jj )*e1v(ji-1,jj ) ) & … … 1542 1543 ptab(:,:) = 0._wp 1543 1544 DO ji=i1+1,i2-1 1544 DO jj=j1+1,j2 1545 DO jj=j1+1,j2-1 1545 1546 ptab(ji,jj) = 0.25_wp*( ( ub2_b(ji ,jj+1)*e2u(ji ,jj+1) & 1546 1547 & -ub2_b(ji ,jj-1)*e2u(ji ,jj-1) ) &
Note: See TracChangeset
for help on using the changeset viewer.