Philippe 01/09/2023: bugfix: YLAMBDA3 used before its initialisation

src/MNH/condensation.f90

@@ -260,6 +260,11 @@ REAL, DIMENSION(-22:11),PARAMETER :: ZSRC_1D =(/                         &
 !
 !-------------------------------------------------------------------------------
 !
+YLAMBDA3 = HLAMBDA3
+
+IF( YLAMBDA3 /='CB' .AND. YLAMBDA3 /='NONE' ) &
+  call Print_msg( NVERB_FATAL, 'GEN', 'CONDENSATION', 'invalid value for YLAMBDA3: ' // TRIM( YLAMBDA3 ) )
+
 GPRESENT_PLV  = PRESENT(PLV)
 GPRESENT_PLS  = PRESENT(PLS)
 GPRESENT_PCPH = PRESENT(PCPH)
@@ -287,11 +292,6 @@ IF (MPPDB_INITIALIZED) THEN
   CALL MPPDB_CHECK3D(PRI,"CONDENSATION beg:PRI",PRECISION)
 END IF
 
-YLAMBDA3 = HLAMBDA3
-
-IF( YLAMBDA3 /='CB' .AND. YLAMBDA3 /='NONE' ) &
-  call Print_msg( NVERB_FATAL, 'GEN', 'CONDENSATION', 'invalid value for YLAMBDA3: ' // TRIM( YLAMBDA3 ) )
-
 #ifndef MNH_OPENACC
 allocate( ztlk (kiu, kju, kku ) )
 allocate( zrt  (kiu, kju, kku ) )