Set NLEVS before using

ufs-community · Feb 7, 2025 · be3aedc · be3aedc
1 parent e758e0d
commit be3aedc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/test_suvolcanic.F90 b/tests/test_suvolcanic.F90
@@ -64,9 +64,9 @@ program test_suvolcanic
    SUVolcanicEmissionsState%Activate = .true.
 
    ! Meteorological State
+   MetState%NLEVS = 2
    allocate(MetState%BXHEIGHT(MetState%NLEVS))
    allocate(MetState%DELP(MetState%NLEVS))
-   MetState%NLEVS = 2
 
    MetState%DELP(1:MetState%NLEVS)= 10000      ! Need to change to something more reasonable and check units.
    MetState%BXHEIGHT(1:MetState%NLEVS) = 100  ! temporary, change to something more reasonable and check units