diff --git a/src/MNH/condensation.f90 b/src/MNH/condensation.f90 index dfd3f5a5d947b575e7f2818cd005b199a81ad174..f2cbf2a62b308ed89567939a2e1b44230a86a5b7 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 ) )