Ticket #1833: zdfbfr.patch

File zdfbfr.patch, 398 bytes (added by mdunphy, 4 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 )