Changeset 4785 for branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_lim2_interp.F90

Timestamp:

2014-09-24T14:03:02+02:00 (10 years ago)

Author:

rblod

Message:

dev_r4765_CNRS_agrif: First update of AGRIF for dynamic only (_flt and _ts), see ticket #1380 and associated wiki page

File:

• branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_lim2_interp.F90 (modified) (4 diffs)

branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_lim2_interp.F90

@@ -9 +9 @@
    !!            3.4   !  09-2012  (R. Benshila, C. Herbaut) update and EVP
    !!----------------------------------------------------------------------
-#if defined key_agrif && defined key_lim2
+#undef toto
+#if defined key_agrif && defined key_lim2 
    !!----------------------------------------------------------------------
    !!   'key_lim2'  :                                 LIM 2.0 sea-ice model
@@ -65 +66 @@
       u_ice_nst(:,:) = 0.
       v_ice_nst(:,:) = 0.
+#undef toto
+#ifdef toto
       CALL Agrif_Bc_variable( u_ice_nst, u_ice_id ,procname=interp_u_ice, calledweight=1. )
       CALL Agrif_Bc_variable( v_ice_nst, v_ice_id ,procname=interp_v_ice, calledweight=1. )
+#endif
       Agrif_SpecialValue=0.
       Agrif_UseSpecialValue = .FALSE.
@@ -157 +161 @@
          zuice = 0.
          zvice = 0.
+#undef toto
+#ifdef toto
          CALL Agrif_Bc_variable(zuice,u_ice_id,procname=interp_u_ice, calledweight=1.)
          CALL Agrif_Bc_variable(zvice,v_ice_id,procname=interp_v_ice, calledweight=1.)
+#endif
          Agrif_SpecialValue=0.
          Agrif_UseSpecialValue = .FALSE.
@@ -348 +355 @@
          Agrif_SpecialValue=-9999.
          Agrif_UseSpecialValue = .TRUE.
+#undef toto
+#ifdef toto
          CALL Agrif_Bc_variable( ztab, adv_ice_id ,procname=interp_adv_ice,calledweight=1. )
+#endif
          Agrif_SpecialValue=0.
          Agrif_UseSpecialValue = .FALSE.