Changeset 389 for trunk/NEMO/OPA_SRC/TRA/tranxt.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/TRA/tranxt.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -16 +16 @@
    USE obctra          ! open boundary condition (obc_tra routine)
    USE prtctl          ! Print control
+   USE agrif_opa_update
+   USE agrif_opa_interp
 
    IMPLICIT NONE
@@ -108 +110 @@
          !                                             ! ===============
 #endif
+#if defined key_AGRIF
+         !                                             ! ===============
+      END DO                                           !   End of slab
+      !                                                ! ===============
+
+      ! Update tracers on open boundaries.
+      CALL Agrif_tra( kt )
+
+      !                                                ! ===============
+      DO jk = 1, jpkm1                                 ! Horizontal slab
+         !                                             ! ===============
+#endif
 
 
@@ -170 +184 @@
             &         tab3d_2=sn, clinfo2=' Sn: ', mask2=tmask)
       ENDIF
+      
+#if defined key_AGRIF
+      IF (.NOT.Agrif_Root())    CALL Agrif_Update_Tra( kt )
+#endif      
 
    END SUBROUTINE tra_nxt