Changeset 15130
- Timestamp:
- 2021-07-19T16:54:25+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_user.F90
r15119 r15130 434 434 ! 1. Declaration of the type of variable which have to be interpolated 435 435 !--------------------------------------------------------------------- 436 ind1 = nbghostcells 436 ind1 = nbghostcells - 1 ! Remove one land cell in ghosts 437 437 ind2 = nn_hls + 1 + nbghostcells_x_w 438 438 ind3 = nn_hls + 1 + nbghostcells_y_s … … 634 634 ! 2,2 = two ghost lines 635 635 !------------------------------------------------------------------------------------- 636 ind1 = nbghostcells 636 ind1 = nbghostcells - 1 ! Remove one land cell in ghosts 637 637 ind2 = nn_hls + 1 + nbghostcells_x_w 638 638 ind3 = nn_hls + 1 + nbghostcells_y_s … … 661 661 ! 3. Set location of interpolations 662 662 !---------------------------------- 663 CALL Agrif_Set_bc(tra_ice_id,(/0,ind1 /))664 CALL Agrif_Set_bc(u_ice_id ,(/0,ind1 /))665 CALL Agrif_Set_bc(v_ice_id ,(/0,ind1 /))666 667 CALL Agrif_Set_bc(tra_iceini_id,(/0,ind1 /))668 CALL Agrif_Set_bc(u_iceini_id ,(/0,ind1 /))669 CALL Agrif_Set_bc(v_iceini_id ,(/0,ind1 /))663 CALL Agrif_Set_bc(tra_ice_id,(/0,ind1-1/)) 664 CALL Agrif_Set_bc(u_ice_id ,(/0,ind1-1/)) 665 CALL Agrif_Set_bc(v_ice_id ,(/0,ind1-1/)) 666 667 CALL Agrif_Set_bc(tra_iceini_id,(/0,ind1-1/)) 668 CALL Agrif_Set_bc(u_iceini_id ,(/0,ind1-1/)) 669 CALL Agrif_Set_bc(v_iceini_id ,(/0,ind1-1/)) 670 670 671 671 ! 4. Set update type in case 2 ways (child=>parent) (normal & tangent to the grid cell for velocities) … … 782 782 ! 1. Declaration of the type of variable which have to be interpolated 783 783 !--------------------------------------------------------------------- 784 ind1 = nbghostcells 784 ind1 = nbghostcells - 1 ! Remove one land cell in ghosts 785 785 ind2 = nn_hls + 1 + nbghostcells_x_w 786 786 ind3 = nn_hls + 1 + nbghostcells_y_s … … 1106 1106 1107 1107 bounds_chunks(1,1,1,1) = bounds(1,1,2) 1108 bounds_chunks(1,1,2,1) = nn_hls+1 1108 bounds_chunks(1,1,2,1) = nn_hls+1 1109 1109 1110 1110 bounds_chunks(2,1,1,2) = nn_hls+1 … … 1161 1161 IF( isens == 1 ) THEN 1162 1162 IF( ptx == 2 ) THEN ! T, V points 1163 agrif_external_switch_index = jpiglo-i1+2 *nn_hls1163 agrif_external_switch_index = jpiglo-i1+2 1164 1164 ELSE ! U, F points 1165 agrif_external_switch_index = jpiglo-i1+ 2*nn_hls-11165 agrif_external_switch_index = jpiglo-i1+1 1166 1166 ENDIF 1167 1167 ELSE IF( isens ==2 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.