Changeset 585

Timestamp:

2006-11-15T11:45:39+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_082 : CT : No ice damping when using AGRIF

File:

• trunk/NEMO/LIM_SRC/icestp.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC/icestp.F90

@@ -217 +217 @@
 
          !                                                           !-------------!
-         IF( ln_limdmp ) CALL lim_dmp( kt )                          ! Ice damping !
-         !                                                           !-------------!
-
+         IF( ln_limdmp ) THEN                                        ! Ice damping !
+         !                                                           !-------------!
+#if defined key_agrif
+            IF( Agrif_Root() )   CALL lim_dmp(kt)
+#else
+            CALL lim_dmp(kt)                                         
+#endif
+         ENDIF
          !                                                           !--------------------!
          CALL lim_thd( kt )                                          ! Ice thermodynamics !