Changeset 782 for trunk/NEMO/OPA_SRC/step.F90

Timestamp:

2008-01-07T10:07:26+01:00 (16 years ago)

Author:

rblod

Message:

Improvment of AGRIF-NEMO routines, see ticket #42

File:

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

trunk/NEMO/OPA_SRC/step.F90

@@ -134 +134 @@
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/step.F90,v 1.35 2007/06/01 16:55:39 opalod Exp $ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    !!----------------------------------------------------------------------
@@ -333 +333 @@
                              CALL tra_ldf    ( kstp )       ! lateral mixing
 #if defined key_agrif
-      IF(.NOT. Agrif_Root()) CALL Agrif_Sponge_tra( kstp )  ! tracers sponge
+      IF(.NOT. Agrif_Root()) CALL Agrif_Sponge_tra          ! tracers sponge
 #endif
                              CALL tra_zdf    ( kstp )       ! vertical mixing
@@ -370 +370 @@
                                CALL dyn_ldf( kstp )           ! lateral mixing
 #if defined key_agrif
-      IF(.NOT. Agrif_Root())   CALL Agrif_Sponge_dyn( kstp )  ! momemtum sponge
+      IF(.NOT. Agrif_Root())   CALL Agrif_Sponge_dyn          ! momemtum sponge
 #endif
                                CALL dyn_hpg( kstp )           ! horizontal gradient of Hydrostatic pressure