Changeset 10538


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

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

Location:
NEMO/trunk/src
Files:
3 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 
  • NEMO/trunk/src/ICE/icedyn.F90

    r10512 r10538  
    8181      ! 
    8282      ! controls 
    83       IF( ln_timing    )   CALL timing_start('icedyn')                                                             ! timing 
    84       IF( ln_icediachk )   CALL ice_cons_hsm(0, 'icedyn', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 
     83      IF( ln_timing )   CALL timing_start('icedyn') 
    8584      ! 
    8685      IF( kt == nit000 .AND. lwp ) THEN 
     
    182181 
    183182      END SELECT 
    184        ! 
    185       ! controls 
    186       IF( ln_icediachk )   CALL ice_cons_hsm(1, 'icedyn', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 
    187       IF( ln_timing    )   CALL timing_stop ('icedyn')                                                             ! timing 
     183      ! 
     184      ! controls 
     185      IF( ln_timing )   CALL timing_stop ('icedyn') 
    188186      ! 
    189187   END SUBROUTINE ice_dyn 
     
    212210      REAL(wp) ::   zhip, zhi, zhs, zvs_excess, zfra 
    213211      !!------------------------------------------------------------------- 
     212      ! controls 
     213      IF( ln_icediachk )   CALL ice_cons_hsm(0, 'Hbig', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 
    214214      ! 
    215215      CALL ice_var_zapsmall                       !-- zap small areas 
     
    270270      WHERE( a_ip(:,:,:) > a_i(:,:,:) )   a_ip(:,:,:) = a_i(:,:,:) 
    271271      ! 
     272      ! controls 
     273      IF( ln_icediachk )   CALL ice_cons_hsm(1, 'Hbig', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 
     274      ! 
    272275   END SUBROUTINE Hbig 
    273276 
     
    285288      INTEGER ::   jl         ! dummy loop indices 
    286289      !!------------------------------------------------------------------- 
     290      ! controls 
     291      IF( ln_icediachk )   CALL ice_cons_hsm(0, 'Hpiling', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 
    287292      ! 
    288293      CALL ice_var_zapsmall                       !-- zap small areas 
     
    294299         END WHERE 
    295300      END DO 
     301      ! controls 
     302      IF( ln_icediachk )   CALL ice_cons_hsm(1, 'Hpiling', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 
    296303      ! 
    297304   END SUBROUTINE Hpiling 
  • NEMO/trunk/src/OCE/LBC/lib_mpp.F90

    r10528 r10538  
    160160   INTEGER, PUBLIC                               ::   ncom_freq                    !: frequency of comm diagnostic 
    161161   INTEGER, PUBLIC , DIMENSION(:,:), ALLOCATABLE ::   ncomm_sequence               !: size of communicated arrays (halos) 
    162    INTEGER, PARAMETER, PUBLIC                    ::   ncom_rec_max = 2000          !: max number of communication record 
     162   INTEGER, PARAMETER, PUBLIC                    ::   ncom_rec_max = 3000          !: max number of communication record 
    163163   INTEGER, PUBLIC                               ::   n_sequence_lbc = 0           !: # of communicated arraysvia lbc 
    164164   INTEGER, PUBLIC                               ::   n_sequence_glb = 0           !: # of global communications 
Note: See TracChangeset for help on using the changeset viewer.