diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90 index 60240e9caf00f71d49bb49ef35d0410ceb14dfa1..0a16f3078ac75dfbe27e09ebcd0088176eb15fbe 100644 --- a/src/MNH/write_lfifm1_for_diag.f90 +++ b/src/MNH/write_lfifm1_for_diag.f90 @@ -2689,9 +2689,10 @@ IF ( LMEAN_POVO ) THEN IWORK1(:,:)=0 ZWORK21(:,:)=0. IF (XMEAN_POVO(1)>XMEAN_POVO(2)) THEN - XMEAN_POVO(1) = ZX0D - XMEAN_POVO(2) = XMEAN_POVO(1) - ZX0D = XMEAN_POVO(2) + !Invert values (smallest must be first) + ZX0D = XMEAN_POVO(1) + XMEAN_POVO(1) = XMEAN_POVO(2) + XMEAN_POVO(2) = ZX0D END IF DO JK=IKB,IKE WHERE((XPABST(:,:,JK)>XMEAN_POVO(1)).AND.(XPABST(:,:,JK)<XMEAN_POVO(2)))