Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Remove CONTIGUOUS from dist_spec_control_argument #98

Merged
merged 12 commits into from
Jul 19, 2024
Next Next commit
Remove CONTIGUOUS.
  • Loading branch information
DJDavies2 committed May 10, 2024
commit 9f38ce109c7698a9af76e3f76909738d4ebbba27
2 changes: 1 addition & 1 deletion src/trans/internal/dist_spec_control_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -67,7 +67,7 @@ SUBROUTINE DIST_SPEC_CONTROL(PSPECG,KFDISTG,KFROM,KVSET,PSPEC,LDIM1_IS_FLD,&

IMPLICIT NONE

REAL(KIND=JPRB) ,OPTIONAL, INTENT(IN), CONTIGUOUS :: PSPECG(:,:)
REAL(KIND=JPRB) ,OPTIONAL, INTENT(IN) :: PSPECG(:,:)
INTEGER(KIND=JPIM) , INTENT(IN) :: KFDISTG
INTEGER(KIND=JPIM) , INTENT(IN) :: KFROM(:)
INTEGER(KIND=JPIM) , INTENT(IN) :: KVSET(:)
Expand Down