Changeset 9116 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

Timestamp:

2017-12-18T15:24:31+01:00 (6 years ago)

Author:

jchanut

Message:

Finalize AGRIF ghost cells implementation: ensure compatibility with bdy smoothing or extrapolation

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_user.F90 (modified) (2 diffs)

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

@@ -218 +218 @@
    Agrif_UseSpecialValue = .TRUE.
    CALL Agrif_Bc_variable(sshn_id,calledweight=1., procname=interpsshn )
-   hbdy_w(:) = 0.e0 ; hbdy_e(:) = 0.e0 ; hbdy_n(:) = 0.e0 ; hbdy_s(:) = 0.e0
+   hbdy_w(:,:) = 0.e0 ; hbdy_e(:,:) = 0.e0 ; hbdy_n(:,:) = 0.e0 ; hbdy_s(:,:) = 0.e0
    ssha(:,:) = 0.e0
 
@@ -227 +227 @@
       CALL Agrif_Bc_variable(ub2b_interp_id,calledweight=1.,procname=interpub2b)
       CALL Agrif_Bc_variable(vb2b_interp_id,calledweight=1.,procname=interpvb2b)
-      ubdy_w(:) = 0.e0 ; vbdy_w(:) = 0.e0
-      ubdy_e(:) = 0.e0 ; vbdy_e(:) = 0.e0
-      ubdy_n(:) = 0.e0 ; vbdy_n(:) = 0.e0
-      ubdy_s(:) = 0.e0 ; vbdy_s(:) = 0.e0
+      ubdy_w(:,:) = 0.e0 ; vbdy_w(:,:) = 0.e0
+      ubdy_e(:,:) = 0.e0 ; vbdy_e(:,:) = 0.e0
+      ubdy_n(:,:) = 0.e0 ; vbdy_n(:,:) = 0.e0
+      ubdy_s(:,:) = 0.e0 ; vbdy_s(:,:) = 0.e0
    ENDIF