Ignore:
Timestamp:
2020-04-14T08:14:07+02:00 (8 months ago)
Author:
smasson
Message:

Extra_Halo: iom cleaning and fix ICB restartability, see #2366

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ICB/icb_oce.F90

    r12472 r12745  
    147147   INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::   nicbfldexpect                    !: nfold expected number of bergs 
    148148   INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:)       ::   nicbfldreq                       !: nfold message handle (immediate send) 
    149  
    150    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:)   :: griddata                           !: work array for icbrst 
    151  
    152149   !!---------------------------------------------------------------------- 
    153150   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
     
    196193      icb_alloc = icb_alloc + ill 
    197194 
    198       ALLOCATE( griddata(jpi,jpj,1), STAT=ill ) 
    199       icb_alloc = icb_alloc + ill 
    200  
    201195      CALL mpp_sum ( 'icb_oce', icb_alloc ) 
    202196      IF( icb_alloc > 0 )   CALL ctl_warn('icb_alloc: allocation of arrays failed') 
Note: See TracChangeset for help on using the changeset viewer.