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.
zdfbfr.patch on Ticket #1833 – Attachment – NEMO

Ticket #1833: zdfbfr.patch

File zdfbfr.patch, 398 bytes (added by mdunphy, 7 years ago)

Patch to initialize arrays bfrua/bfrva in zdf_bfr_init when nn_bfr=2

  • zdfbfr.

    old new  
    391391            END IF 
    392392         ENDIF 
    393393         ! 
     394         bfrua(:,:) = bfrcoef2d(:,:) 
     395         bfrva(:,:) = bfrcoef2d(:,:) 
     396         ! 
    394397      CASE DEFAULT 
    395398         IF(lwp) WRITE(ctmp1,*) '         bad flag value for nn_bfr = ', nn_bfr 
    396399         CALL ctl_stop( ctmp1 )