Changeset 389 for trunk/NEMO/OPA_SRC/DYN/dynnxt.F90

Timestamp:

2006-03-09T18:22:04+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

• configuration parameters are just integer when agrif is used
• add call to agrif routines with key_agrif

File:

• trunk/NEMO/OPA_SRC/DYN/dynnxt.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/DYN/dynnxt.F90

@@ -19 +19 @@
    USE lbclnk          ! lateral boundary condition (or mpp link)
    USE prtctl          ! Print control
+   USE agrif_opa_update
+   USE agrif_opa_interp
 
    IMPLICIT NONE
@@ -133 +135 @@
          !                                             ! ===============
 # endif
+# if defined key_AGRIF
+         !                                             ! ===============
+      END DO                                           !   End of slab
+      !                                                ! ===============
+      ! Update (ua,va) along open boundaries (only in the rigid-lid case)
+      CALL Agrif_dyn( kt )
+      !                                                ! ===============
+      DO jk = 1, jpkm1                                 ! Horizontal slab
+         !                                             ! ===============
+# endif
 #endif
          ! Time filter and swap of dynamics arrays
@@ -166 +178 @@
       ENDIF
 
+#if defined key_AGRIF
+      IF (.NOT.Agrif_Root())    CALL Agrif_Update_Dyn( kt )
+#endif      
+
    END SUBROUTINE dyn_nxt