Skip to content

Commit 6a0425c

Browse files
committed
Using pointer's contiguous attribute to try to get around gfortran issue
1 parent d14b271 commit 6a0425c

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

DynCore_GridCompMod.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3543,7 +3543,7 @@ subroutine PULL_Q(self, import, QQQ, iNXQ, InFieldName, rc)
35433543
type(ESMF_Field) :: field
35443544
type(ESMF_Array) :: array
35453545
type(ESMF_TypeKind_Flag) :: kind
3546-
real(r4), pointer :: ptr_r4(:,:,:)
3546+
real(r4), pointer, contiguous :: ptr_r4(:,:,:)
35473547
real(r8), pointer :: ptr_r8(:,:,:)
35483548
integer :: N,NQ
35493549
integer :: i1, in, j1, jn, im, jm, km

0 commit comments

Comments
 (0)