Changeset 9866 for NEMO/trunk/src/ICE/icedyn_rhg_evp.F90

Timestamp:

2018-07-02T18:19:04+02:00 (6 years ago)

Author:

clem

Message:

solve problem described in ticket #2107

File:

• NEMO/trunk/src/ICE/icedyn_rhg_evp.F90 (modified) (4 diffs)

NEMO/trunk/src/ICE/icedyn_rhg_evp.F90

@@ -498 +498 @@
             CALL agrif_interp_ice( 'V' )
 #endif
-!clem: this call makes rheology numerically unstable, thus I removed it but one has to check the effect on the boundaries
-!            IF( ln_bdy ) CALL bdy_ice_dyn( 'V' )
+            IF( ln_bdy ) CALL bdy_ice_dyn( 'V' )
             !
             DO jj = 2, jpjm1
@@ -547 +546 @@
             CALL agrif_interp_ice( 'U' )
 #endif
-!clem: this call makes rheology numerically unstable, thus I removed it but one has to check the effect on the boundaries
-!            IF( ln_bdy ) CALL bdy_ice_dyn( 'U' )
+            IF( ln_bdy ) CALL bdy_ice_dyn( 'U' )
             !
          ELSE ! odd iterations
@@ -598 +596 @@
             CALL agrif_interp_ice( 'U' )
 #endif
-!clem: this call makes rheology numerically unstable, thus I removed it but one has to check the effect on the boundaries
-!            IF( ln_bdy ) CALL bdy_ice_dyn( 'U' )
+            IF( ln_bdy ) CALL bdy_ice_dyn( 'U' )
             !
             DO jj = 2, jpjm1
@@ -647 +644 @@
             CALL agrif_interp_ice( 'V' )
 #endif
-!clem: this call makes rheology numerically unstable, thus I removed it but one has to check the effect on the boundaries
-!            IF( ln_bdy ) CALL bdy_ice_dyn( 'V' )
+            IF( ln_bdy ) CALL bdy_ice_dyn( 'V' )
             !
          ENDIF