From 0dad8b8cd6af8c94ccc02682f9f96c06adda8469 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Fri, 1 Sep 2023 13:45:40 +0200 Subject: [PATCH] Philippe 01/09/2023: bugfix: YLAMBDA3 used before its initialisation --- src/MNH/condensation.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/MNH/condensation.f90 b/src/MNH/condensation.f90 index dfd3f5a5d..f2cbf2a62 100644 --- a/src/MNH/condensation.f90 +++ b/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 ) ) -- GitLab