Changeset 626 for trunk/NEMO/TOP_SRC

Timestamp:

2007-02-27T17:03:09+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_update_006:RB: first integration of AGRIF for passive tracers

Location:

trunk/NEMO/TOP_SRC

Files:

• TRP/trcnxt.F90 (modified) (3 diffs)
• agrif_top_interp.F90 (added)
• agrif_top_update.F90 (added)

trunk/NEMO/TOP_SRC/TRP/trcnxt.F90

@@ -14 +14 @@
    USE trctrp_lec      ! pasive tracers transport
    USE prtctl_trc      ! Print control for debbuging
+   USE agrif_top_update
+   USE agrif_top_interp
 
    IMPLICIT NONE
@@ -101 +103 @@
 #endif
 
+#if defined key_agrif
+         !                                             ! ===============
+      END DO                                           !   End of slab
+      !                                                ! ===============
+      ! Update tracers 
+      CALL Agrif_trc( kt )
+      !                                                ! ===============
+      DO jn = 1, jptra                                 ! Horizontal slab
+         !                                             ! ===============
+#endif
+
          DO jk = 1, jpk  
 
@@ -147 +160 @@
       ENDIF
 
+#if defined key_agrif
+      IF (.NOT.Agrif_Root())    CALL Agrif_Update_Trc( kt )
+#endif      
+
 
    END SUBROUTINE trc_nxt