Ignore:
Timestamp:
2018-10-08T17:06:04+02:00 (2 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 4b: reduce communications in si3, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icethd.F90

    r10170 r10180  
    212212         END DO 
    213213 
    214          IF( lk_mpp )         CALL mpp_ini_ice( npti , numout ) 
    215  
    216214         IF( npti > 0 ) THEN  ! If there is no ice, do nothing. 
    217215            !                                                                 
     
    250248            !                                                       ! --- & Move to 2D arrays --- ! 
    251249            ! 
    252             IF( lk_mpp )      CALL mpp_comm_free( ncomm_ice ) !RB necessary ?? 
    253250         ENDIF 
    254251         ! 
Note: See TracChangeset for help on using the changeset viewer.