Changeset 9425


Ignore:
Timestamp:
2018-03-23T23:39:01+01:00 (2 years ago)
Author:
acc
Message:

Branch dev_merge_2017. Small bugfix to mpp_nfd_generic.h90 to get the ln_nnogather option working again. Tested with SETTE reproducibility tests and 4x8 and 8x4 decompositions give identical results to at least 1000 timesteps with and without ln_nnogather active.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mpp_nfd_generic.h90

    r9019 r9425  
    9292      ! 
    9393      IF( l_north_nogather ) THEN      !==  ????  ==! 
    94          ALLOCATE( zfoldwk(jpi,4,ipk,ipl,ipf) ) 
    95          ALLOCATE( ztabl(jpi   ,4,ipk,ipl,ipf) , ztabr(jpi*jpmaxngh,4,ipk,ipl,ipf) )  
     94         ALLOCATE( zfoldwk(jpimax,4,ipk,ipl,ipf) ) 
     95         ALLOCATE( ztabl(jpimax   ,4,ipk,ipl,ipf) , ztabr(jpimax*jpmaxngh,4,ipk,ipl,ipf) )  
    9696         ! 
    9797         ztabr(:,:,:,:,:) = 0._wp 
Note: See TracChangeset for help on using the changeset viewer.