diff --git a/src/PHYEX/turb/turb.f90 b/src/PHYEX/turb/turb.f90 index e3f3026393d2c58a3b52afb19fa7fa46cea28db2..6da9720217d0eb18e185c7ad7dcfc35ec207a771 100644 --- a/src/PHYEX/turb/turb.f90 +++ b/src/PHYEX/turb/turb.f90 @@ -1731,7 +1731,7 @@ IF ( TURBN%CTURBDIM /= '1DIM' ) THEN END IF ! 1D turbulence scheme !$mnh_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE) -PLM(:,:) = PZZ(:,IKTB+IKL:IKTE+IKL) - PZZ(:,:) +PLM(:,IKTB:IKTE) = PZZ(:,IKTB+IKL:IKTE+IKL) - PZZ(:,IKTB:IKTE) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE) !$mnh_expand_array(JIJ=IIJB:IIJE) PLM(:,IKU) = PLM(:,IKE)