diff --git a/src/MNH/mode_mnh_zwork.f90 b/src/MNH/mode_mnh_zwork.f90 index 42e04e0d85d8fbf947a279ee0c1056e437d928b6..d2d7f15ae2622664454c658b8cebb2e7ddf86ace 100644 --- a/src/MNH/mode_mnh_zwork.f90 +++ b/src/MNH/mode_mnh_zwork.f90 @@ -354,20 +354,21 @@ CONTAINS !------ Default values - !$acc kernels + !$acc kernels present(ZPSRC_HALO2_WEST,ZPSRC_HALO2_SOUTH,ZUNIT3D,ZT3D, & + !$acc & ZT1D,ZT1DFLAT,IT3D,IT1D,GT3D,GT1DFLAT) - ZPSRC_HALO2_WEST = XUNDEF - ZPSRC_HALO2_SOUTH = XUNDEF - - ZUNIT3D = 1.0 + ZPSRC_HALO2_WEST(:,:) = XUNDEF + ZPSRC_HALO2_SOUTH(:,:) = XUNDEF + + ZUNIT3D(:,:,:) = 1.0 ZT3D(:,:,:,:) = XUNDEF ZT1D(:,:) = XUNDEF ZT1DFLAT(:) = XUNDEF - IT3D = 0.0 - IT1D = 0.0 - + IT3D(:,:,:) = 0.0 + IT1D(:) = 0.0 + GT3D(:,:,:,:) = .FALSE. GT1DFLAT(:) = .FALSE.