Ignore:
Timestamp:
2019-01-17T11:41:10+01:00 (21 months ago)
Author:
clem
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/icectl.F90

    r10425 r10538  
    156156            IF ( ABS( zt   ) > zt_sill )   WRITE(numout,*) 'violation enthalpy [GW]       (',cd_routine,') = ',zt 
    157157            IF ( zvmin < -epsi10 )         WRITE(numout,*) 'violation v_i<0  [m]          (',cd_routine,') = ',zvmin 
    158             IF ( zamax > MAX(rn_amax_n,rn_amax_s)+epsi10 .AND. cd_routine /= 'icedyn_adv' .AND. cd_routine /= 'icedyn_rdgrft' )  & 
     158            IF ( zamax > MAX( rn_amax_n, rn_amax_s ) + epsi10   & 
     159               & .AND. cd_routine /= 'icedyn_adv' .AND. cd_routine /= 'icedyn_rdgrft' .AND. cd_routine /= 'Hbig' ) & 
    159160               &                           WRITE(numout,*) 'violation a_i>amax            (',cd_routine,') = ',zamax 
    160161            IF ( zamin < -epsi10 )         WRITE(numout,*) 'violation a_i<0               (',cd_routine,') = ',zamin 
    161 !clem: the following check fails when using UM3-5 advection scheme (see comments in icedyn_adv.F90) 
     162!clem: the following check fails when using UMx advection scheme (see comments in icedyn_adv.F90) 
    162163!            IF ( ABS(zvtrp ) > zv_sill .AND. cd_routine == 'icedyn_adv' ) THEN 
    163164!                                           WRITE(numout,*) 'violation vtrp [Mt/day]       (',cd_routine,') = ',zvtrp 
Note: See TracChangeset for help on using the changeset viewer.