Ticket #1833: zdfbfr.patch
File zdfbfr.patch, 398 bytes (added by mdunphy, 7 years ago) |
---|
-
zdfbfr.
old new 391 391 END IF 392 392 ENDIF 393 393 ! 394 bfrua(:,:) = bfrcoef2d(:,:) 395 bfrva(:,:) = bfrcoef2d(:,:) 396 ! 394 397 CASE DEFAULT 395 398 IF(lwp) WRITE(ctmp1,*) ' bad flag value for nn_bfr = ', nn_bfr 396 399 CALL ctl_stop( ctmp1 )