Changeset 3738


Ignore:
Timestamp:
Jun 30, 2020, 3:08:23 PM (4 years ago)
Author:
adurocher
Message:

Fixed missing contiguous in cv3a_compress.f90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cv3a_compress.f90

    r3707 r3738  
    5656  subroutine add_array_r1(arrays, array_in, array_out, init)
    5757    type(array_list) :: arrays
    58     real, target :: array_in(:), array_out(:)
     58    real, target, contiguous :: array_in(:), array_out(:)
    5959    logical, optional, intent(in) :: init
    6060    integer :: c
    … …  
    8484  subroutine add_array_r3(arrays, array_in, array_out, init)
    8585    type(array_list) :: arrays
    86     real, target :: array_in(:,:,:), array_out(:,:,:)
     86    real, target, contiguous :: array_in(:,:,:), array_out(:,:,:)
    8787    logical, optional, intent(in) :: init
    8888    integer :: c
Note: See TracChangeset for help on using the changeset viewer.