diff --git a/src/common/turb/turb.F90 b/src/common/turb/turb.F90 index 3cf7afa999a48d7087cbd67d7c483183f9ed3804..e45f635130a33613f526d90e483544c03ed52d48 100644 --- a/src/common/turb/turb.F90 +++ b/src/common/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(IIJB:IIJE,IKTB:IKTE) = PZZ(IIJB:IIJE,IKL+IKTB:IKTE+IKL) - PZZ(IIJB:IIJE,IKTB:IKTE) +PLM(IIJB:IIJE,IKTB:IKTE) = PZZ(IIJB:IIJE,IKTB+IKL:IKTE+IKL) - PZZ(IIJB:IIJE,IKTB:IKTE) !$mnh_end_expand_array(JIJ=IIJB:IIJE,JK=IKTB:IKTE) !$mnh_expand_array(JIJ=IIJB:IIJE) PLM(IIJB:IIJE,IKU) = PLM(IIJB:IIJE,IKE)