Revert "Quentin 11/12/2020: temporary force the possible uncorrected negative...

Revert "Quentin 11/12/2020: temporary force the possible uncorrected negative values to be > 0. This commit should be reverted soon and the missing right correction of negative values of rv must be found"

This reverts commit 582bf442.

src/MNH/sources_neg_correct.f90

@@ -90,7 +90,6 @@ CLOUD: select case ( hcloud )
            ( zcph(:, :, :) * zexn(:, :, :) )
       prrs(:, :, :, 2) = 0.
     end where
-    prrs(:,:,:,1) = max(0.0,prrs(:,:,:,1))
 
 
   case( 'ICE3', 'ICE4' )
@@ -142,8 +141,6 @@ CLOUD: select case ( hcloud )
         prrs(:, :, :, 4) = prrs(:, :, :, 4) - zcor(:, :, :)
       end where
     end if
-   prrs(:,:,:,1) = max(0.0,prrs(:,:,:,1))
-
 !
 !
   case( 'C2R2', 'KHKO' )
@@ -166,8 +163,6 @@ CLOUD: select case ( hcloud )
       prrs(:, :, :, 2) = 0.
       prsvs(:, :, :, nsv_c2r2beg + 1) = 0.
     end where
-    prrs(:,:,:,1) = max(0.0,prrs(:,:,:,1))
-
 !
 !
   case( 'LIMA' )
@@ -229,7 +224,7 @@ CLOUD: select case ( hcloud )
         deallocate( zcor )
       end if
     end if
-    prrs(:,:,:,1) = max(0.0,prrs(:,:,:,1))
+
     prsvs(:, :, :, nsv_lima_beg : nsv_lima_end) = Max( 0.0, prsvs(:, :, :, nsv_lima_beg : nsv_lima_end) )
 
 end select CLOUD