Changeset 8189 for branches/2017/dev_r8127_AGRIF_LIM3_GHOST/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

Timestamp:

2017-06-19T17:16:00+02:00 (7 years ago)

Author:

clem

Message:

bug fixes for ghostcells>1

File:

• branches/2017/dev_r8127_AGRIF_LIM3_GHOST/NEMOGCM/NEMO/NST_SRC/agrif_user.F90 (modified) (3 diffs)

branches/2017/dev_r8127_AGRIF_LIM3_GHOST/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

@@ -149 +149 @@
    !-----------------------------
    !!clem ghost (previously set to /0,0/)
-   CALL Agrif_Set_bc(e1u_id,(/0,ind1/))
-   CALL Agrif_Set_bc(e2v_id,(/0,ind1/))
+   CALL Agrif_Set_bc(e1u_id,(/0,ind1-1/))
+   CALL Agrif_Set_bc(e2v_id,(/0,ind1-1/))
    !!clem ghost
 
@@ -433 +433 @@
    CALL Agrif_Set_bc(vn_sponge_id ,(/-nn_sponge_len*Agrif_irhox()-1,0/))
 
-   CALL Agrif_Set_bc(sshn_id,(/0,ind1/))
-   CALL Agrif_Set_bc(unb_id ,(/0,ind1/))
-   CALL Agrif_Set_bc(vnb_id ,(/0,ind1/))
-   CALL Agrif_Set_bc(ub2b_interp_id,(/0,ind1/))
-   CALL Agrif_Set_bc(vb2b_interp_id,(/0,ind1/))
-
-   CALL Agrif_Set_bc(e3t_id,(/-2*Agrif_irhox()-1,ind1/))   ! if west and rhox=3 and ghost=1: column 1 to 9
-   CALL Agrif_Set_bc(umsk_id,(/0,ind1/))
-   CALL Agrif_Set_bc(vmsk_id,(/0,ind1/))
+   CALL Agrif_Set_bc(sshn_id,(/0,ind1-1/))
+   CALL Agrif_Set_bc(unb_id ,(/0,ind1-1/))
+   CALL Agrif_Set_bc(vnb_id ,(/0,ind1-1/))
+   CALL Agrif_Set_bc(ub2b_interp_id,(/0,ind1-1/))
+   CALL Agrif_Set_bc(vb2b_interp_id,(/0,ind1-1/))
+
+   CALL Agrif_Set_bc(e3t_id,(/-2*Agrif_irhox()-1,ind1-1/))   ! if west and rhox=3 and ghost=1: column 2 to 9
+   CALL Agrif_Set_bc(umsk_id,(/0,ind1-1/))
+   CALL Agrif_Set_bc(vmsk_id,(/0,ind1-1/))
 
    ! clem: previously set to /0,1/
@@ -827 +827 @@
    CALL Agrif_Set_bc(trn_id,(/0,ind1/))
    !clem: previously set to /-,0/
-   CALL Agrif_Set_bc(trn_sponge_id,(/-nn_sponge_len*Agrif_irhox()-1,ind1/))
+   CALL Agrif_Set_bc(trn_sponge_id,(/-nn_sponge_len*Agrif_irhox()-1,0/))
 
    ! 5. Update type