New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9945 for NEMO/trunk/src/OCE/LBC/mpp_nfd_generic.h90 – NEMO

Ignore:
Timestamp:
2018-07-13T19:11:39+02:00 (6 years ago)
Author:
mathiot
Message:

initialisation of ztabl,ztabr and ztab to 0. ; fix #2118

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/LBC/mpp_nfd_generic.h90

    r9908 r9945  
    9494         ALLOCATE( zfoldwk(jpimax,4,ipk,ipl,ipf) ) 
    9595         ALLOCATE( ztabl(jpimax   ,4,ipk,ipl,ipf) , ztabr(jpimax*jpmaxngh,4,ipk,ipl,ipf) )  
     96         ! 
     97         ztabr(:,:,:,:,:) = 0._wp 
     98         ztabl(:,:,:,:,:) = 0._wp 
    9699         ! 
    97100         DO jf = 1, ipf 
     
    180183         ALLOCATE( znorthgloio(jpimax,4,ipk,ipl,ipf,jpni) ) 
    181184         ! 
     185         ztab(:,:,:,:,:)=0._wp 
     186         ! 
    182187         CALL MPI_ALLGATHER( znorthloc  , itaille, MPI_DOUBLE_PRECISION,                & 
    183188            &                znorthgloio, itaille, MPI_DOUBLE_PRECISION, ncomm_north, ierr ) 
Note: See TracChangeset for help on using the changeset viewer.