Changeset 1876 for trunk/NEMO/NST_SRC/agrif_user.F90

Timestamp:

2010-05-18T17:35:35+02:00 (14 years ago)

Author:

rblod

Message:

Corrections for AGRIF inside OBC see ticket #673

File:

• trunk/NEMO/NST_SRC/agrif_user.F90 (modified) (2 diffs)

trunk/NEMO/NST_SRC/agrif_user.F90

@@ -73 +73 @@
       USE tradmp
 #endif
+#if defined key_obc   ||   defined key_esopa
+      USE obc_par
+#endif
       USE sol_oce
       USE in_out_manager
@@ -105 +108 @@
       ! no tracer damping on fine grids
       lk_tradmp = .FALSE.
+#endif
+#if defined key_obc || defined key_esopa
+      ! no open boundary on fine grids
+      lk_obc = .FALSE.
 #endif
       ! 1. Declaration of the type of variable which have to be interpolated