Changeset 13373 for NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/NST/agrif_user.F90

Timestamp:

2020-08-03T11:46:38+02:00 (4 years ago)

Author:

cetlod

Message:

TOP-05_Ethe_Agrif : 1st step of changes to successfully compile, see ticket #2508

File:

• NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/NST/agrif_user.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/NST/agrif_user.F90

@@ -749 +749 @@
       CALL Agrif_Bc_variable(trn_sponge_id,calledweight=1.,procname=interptrn_sponge)
       ! reset tsa to zero
-      tra(:,:,:,:) = 0._wp
+      tr(:,:,:,:,Krhs_a) = 0._wp
 
       ! 3. Some controls
@@ -808 +808 @@
 # else
 ! LAURENT: STRANGE why (3,3) here ?
-      CALL agrif_declare_variable((/2,2,0,0/),(/3,3,0,0/),(/'x','y','N','N'/),(/1,1,1,1/),(/jpi,jpj,jpk,jptra/),trn_id)
-      CALL agrif_declare_variable((/2,2,0,0/),(/3,3,0,0/),(/'x','y','N','N'/),(/1,1,1,1/),(/jpi,jpj,jpk,jptra/),trn_sponge_id)
+      CALL agrif_declare_variable((/2,2,0,0/),(/ind2,ind3,0,0/),(/'x','y','N','N'/),(/1,1,1,1/),(/jpi,jpj,jpk,jptra/),trn_id)
+      CALL agrif_declare_variable((/2,2,0,0/),(/ind2,ind3,0,0/),(/'x','y','N','N'/),(/1,1,1,1/),(/jpi,jpj,jpk,jptra/),trn_sponge_id)
 # endif