Changeset 782 for trunk/NEMO/NST_SRC/agrif_opa_interp.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/NST_SRC/agrif_opa_interp.F90 (modified) (5 diffs)

trunk/NEMO/NST_SRC/agrif_opa_interp.F90

@@ -5 +5 @@
    USE dom_oce      
    USE sol_oce
+   USE agrif_oce
 
    IMPLICIT NONE
@@ -13 +14 @@
    CONTAINS
    
-   SUBROUTINE Agrif_tra( kt )
+   SUBROUTINE Agrif_tra
       !!---------------------------------------------
       !!   *** ROUTINE Agrif_Tra ***
@@ -20 +21 @@
 #  include "vectopt_loop_substitute.h90"
       
-      INTEGER, INTENT(in) :: kt
-
       INTEGER :: ji,jj,jk
       REAL(wp) :: zrhox
@@ -175 +174 @@
 
       Agrif_SpecialValue=0.
-      Agrif_UseSpecialValue = .TRUE.
+      Agrif_UseSpecialValue = ln_spc_dyn
+
       zua = 0.
       zva = 0.
@@ -184 +184 @@
 
       Agrif_SpecialValue=0.
-      Agrif_UseSpecialValue = .TRUE.
+      Agrif_UseSpecialValue = ln_spc_dyn
       CALL Agrif_Bc_variable(zua2d,e1u,calledweight=1.,procname=interpu2d)
       CALL Agrif_Bc_variable(zva2d,e2v,calledweight=1.,procname=interpv2d)