- Timestamp:
- Jun 30, 2020, 3:08:23 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cv3a_compress.f90
r3707 r3738 56 56 subroutine add_array_r1(arrays, array_in, array_out, init) 57 57 type(array_list) :: arrays 58 real, target :: array_in(:), array_out(:)58 real, target, contiguous :: array_in(:), array_out(:) 59 59 logical, optional, intent(in) :: init 60 60 integer :: c … … 84 84 subroutine add_array_r3(arrays, array_in, array_out, init) 85 85 type(array_list) :: arrays 86 real, target :: array_in(:,:,:), array_out(:,:,:)86 real, target, contiguous :: array_in(:,:,:), array_out(:,:,:) 87 87 logical, optional, intent(in) :: init 88 88 integer :: c
Note: See TracChangeset
for help on using the changeset viewer.