Changeset 11590 for NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_user.F90

Timestamp:

2019-09-23T18:25:29+02:00 (5 years ago)

Author:

jchanut

Message:

#2222: 1) create remapping module (vremap) and integration of D. Engwirda piecewise polynomial recontruction package (PPR_LIB cpp key). 2) Various bug corrections with key_vertical activated.

File:

• NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_user.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_user.F90

@@ -324 +324 @@
       ! 3. Location of interpolation
       !-----------------------------
-      CALL Agrif_Set_bc(       tsn_id, (/0,ind1/) )
-      CALL Agrif_Set_bc( un_interp_id, (/0,ind1/) )
-      CALL Agrif_Set_bc( vn_interp_id, (/0,ind1/) )
+      CALL Agrif_Set_bc(       tsn_id, (/0,ind1-1/) )
+      CALL Agrif_Set_bc( un_interp_id, (/0,ind1-1/) )
+      CALL Agrif_Set_bc( vn_interp_id, (/0,ind1-1/) )
 
       CALL Agrif_Set_bc( tsn_sponge_id, (/-nn_sponge_len*Agrif_irhox()-1,0/) )  ! if west and rhox=3 and sponge=2 and ghost=1: columns 2 to 9 
@@ -594 +594 @@
       ! 3. Location of interpolation
       !-----------------------------
-      CALL Agrif_Set_bc(trn_id,(/0,ind1/))
+      CALL Agrif_Set_bc(trn_id,(/0,ind1-1/))
       CALL Agrif_Set_bc(trn_sponge_id,(/-nn_sponge_len*Agrif_irhox()-1,0/))