Changeset 782 for trunk/NEMO/OPA_SRC

Timestamp:

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

Author:

rblod

Message:

Improvment of AGRIF-NEMO routines, see ticket #42

Location:

trunk/NEMO/OPA_SRC

Files:

• DOM/dom_oce.F90 (modified) (1 diff)
• DYN/dynnxt.F90 (modified) (1 diff)
• TRA/tranxt.F90 (modified) (2 diffs)
• step.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/DOM/dom_oce.F90

@@ -216 +216 @@
       !                        ! parameterize exchanges through straits
 
-#if defined key_agrif
-   !!----------------------------------------------------------------------
-   !! agrif sponge layer
-   !!----------------------------------------------------------------------
-   LOGICAL, PUBLIC :: spongedoneT = .FALSE.  !: ???
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &
-      zspe1ur, zspe2vr ,zspbtr2    !: ???
-   !!----------------------------------------------------------------------
-#endif
-
 END MODULE dom_oce

trunk/NEMO/OPA_SRC/DYN/dynnxt.F90

@@ -83 +83 @@
       !!----------------------------------------------------------------------
       !!  OPA 9.0 , LOCEAN-IPSL (2005) 
-      !! $Header$ 
+      !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynnxt.F90,v 1.13 2007/05/25 15:51:50 opalod Exp $ 
       !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
       !!----------------------------------------------------------------------

trunk/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -47 +47 @@
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LOCEAN-IPSL (2006) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/TRA/tranxt.F90,v 1.12 2007/05/25 15:51:50 opalod Exp $ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -169 +169 @@
       !                                                ! ===============
       ! Update tracers on open boundaries.
-      CALL Agrif_tra( kt )
+      CALL Agrif_tra
       !                                                ! ===============
       DO jk = 1, jpkm1                                 ! Horizontal slab

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