Ticket #1870: agrif_extrapolation_allocfix.patch
File agrif_extrapolation_allocfix.patch, 842 bytes (added by mdunphy, 7 years ago) |
---|
-
agrif_extrapolation.f90
old new 434 434 IF ( MAXVAL(tabin(:,:,1,1))/=0 ) THEN 435 435 WRITE(*,*) 'check' 436 436 ! select appropriate mask 437 437 SELECT CASE(posvar) 438 438 CASE('T') 439 ALLOCATE(mask(SIZE(tabin,1),SIZE(tabin, 1)))439 ALLOCATE(mask(SIZE(tabin,1),SIZE(tabin,2))) 440 440 mask(:,:) = Grid%tmask(:,:,n) 441 441 CASE('U') 442 ALLOCATE(mask(SIZE(tabin,1),SIZE(tabin, 1)))442 ALLOCATE(mask(SIZE(tabin,1),SIZE(tabin,2))) 443 443 mask(:,:) = Grid%umask(:,:,n) 444 444 CASE('V') 445 ALLOCATE(mask(SIZE(tabin,1),SIZE(tabin, 1)))445 ALLOCATE(mask(SIZE(tabin,1),SIZE(tabin,2))) 446 446 mask(:,:) = Grid%vmask(:,:,n) 447 447 END SELECT 448 448 449 449 lcnt=0 450 450 DO i = 2,SIZE(tabin,1)-1