diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90 index af75646a81e79b512143ac72ebb3a7bb5661fe35..fce209f97191faa0825e1b6ade159cc274f17468 100644 --- a/src/MNH/turb.f90 +++ b/src/MNH/turb.f90 @@ -2334,6 +2334,7 @@ IF (.NOT. ORMC01) THEN ZD=ZALPHA*(PZZ(JI,JJ,KKTE+1)-PZZ(JI,JJ,JK)) IF ( (PLM(JI,JJ,JK)>ZD) .AND. GZD ) THEN PLM(JI,JJ,JK)=ZD + ELSE GZD = .FALSE. ENDIF END DO @@ -2343,6 +2344,7 @@ IF (.NOT. ORMC01) THEN ZD = ZALPHA * ( 0.5 * ( PZZ(JI, JJ, JK) + PZZ(JI, JJ, JK+KKL) ) - PZZ(JI, JJ, KKB) ) * PDIRCOSZW(JI, JJ) IF ( ( PLM(JI,JJ,JK) > ZD ) .AND. GZD ) THEN PLM(JI,JJ,JK) = ZD + ELSE GZD = .FALSE. ENDIF END DO @@ -2685,6 +2687,7 @@ IF (.NOT. ORMC01) THEN ZD=ZALPHA*(PZZ(JI,JJ,KKTE+1)-PZZ(JI,JJ,JK)) IF ( (PLM(JI,JJ,JK)>ZD) .AND. GZD ) THEN PLM(JI,JJ,JK)=ZD + ELSE GZD = .FALSE. ENDIF END DO @@ -2695,6 +2698,7 @@ IF (.NOT. ORMC01) THEN *PDIRCOSZW(JI,JJ) IF ( (PLM(JI,JJ,JK)>ZD) .AND. GZD ) THEN PLM(JI,JJ,JK)=ZD + ELSE GZD = .FALSE. ENDIF END DO