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

Timestamp:

2010-07-29T14:31:53+02:00 (14 years ago)

Author:

rblod

Message:

Fix issues with OBC and AGRIF, see ticket #688 and #692

File:

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

trunk/NEMO/NST_SRC/agrif_user.F90

@@ -101 +101 @@
 #endif
 
-      Call opa_init  ! Initializations of each fine grid
-      Call agrif_opa_init
-
       ! Specific fine grid Initializations
 #if defined key_tradmp || defined key_esopa
@@ -113 +110 @@
       lk_obc = .FALSE.
 #endif
+
+      Call opa_init  ! Initializations of each fine grid
+      Call agrif_opa_init
+
       ! 1. Declaration of the type of variable which have to be interpolated
       !---------------------------------------------------------------------