Changeset 1271 for trunk/NEMO/TOP_SRC/TRP/trctrp.F90

Timestamp:

2009-01-15T09:12:00+01:00 (15 years ago)

Author:

rblod

Message:

Addapt AGRIF routines to the new TOP organization, clean some routines and add a sponge layer for passive tracers, see ticket #293

File:

• trunk/NEMO/TOP_SRC/TRP/trctrp.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/TRP/trctrp.F90

@@ -42 +42 @@
 
    USE zpshde_trc      ! partial step: hor. derivative   (zps_hde_trc routine)
+
+#if defined key_agrif
+   USE agrif_top_sponge ! Momemtum and tracers sponges
+#endif
 
    IMPLICIT NONE
@@ -104 +108 @@
       IF( l_trcldf_iso_zps )   CALL trc_ldf_iso_zps( kt )        ! partial step iso-neutral laplacian
       IF( l_trcldf_lap     )   CALL trc_ldf_lap    ( kt )        ! iso-level laplacian
+
+#if defined key_agrif
+      IF(.NOT. Agrif_Root()) CALL Agrif_Sponge_trc               ! tracers sponge
+#endif
  
       !                                                      ! vertical diffusion