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 9425 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mpp_nfd_generic.h90 – NEMO

Ignore:
Timestamp:
2018-03-23T23:39:01+01:00 (6 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.