Changeset 10538 for NEMO/trunk/src/ICE/icectl.F90

Timestamp:

2019-01-17T11:41:10+01:00 (5 years ago)

Author:

clem

Message:

increase the max number of communications (needed when using bdy which produces a lot of comm.)

File:

• NEMO/trunk/src/ICE/icectl.F90 (modified) (1 diff)

NEMO/trunk/src/ICE/icectl.F90

@@ -156 +156 @@
             IF ( ABS( zt   ) > zt_sill )   WRITE(numout,*) 'violation enthalpy [GW]       (',cd_routine,') = ',zt
             IF ( zvmin < -epsi10 )         WRITE(numout,*) 'violation v_i<0  [m]          (',cd_routine,') = ',zvmin
-            IF ( zamax > MAX(rn_amax_n,rn_amax_s)+epsi10 .AND. cd_routine /= 'icedyn_adv' .AND. cd_routine /= 'icedyn_rdgrft' )  &
+            IF ( zamax > MAX( rn_amax_n, rn_amax_s ) + epsi10   &
+               & .AND. cd_routine /= 'icedyn_adv' .AND. cd_routine /= 'icedyn_rdgrft' .AND. cd_routine /= 'Hbig' ) &
                &                           WRITE(numout,*) 'violation a_i>amax            (',cd_routine,') = ',zamax
             IF ( zamin < -epsi10 )         WRITE(numout,*) 'violation a_i<0               (',cd_routine,') = ',zamin
-!clem: the following check fails when using UM3-5 advection scheme (see comments in icedyn_adv.F90)
+!clem: the following check fails when using UMx advection scheme (see comments in icedyn_adv.F90)
 !            IF ( ABS(zvtrp ) > zv_sill .AND. cd_routine == 'icedyn_adv' ) THEN
 !                                           WRITE(numout,*) 'violation vtrp [Mt/day]       (',cd_routine,') = ',zvtrp