fix scm_state%area

NCAR · Nov 14, 2024 · 3babd21 · 3babd21
1 parent 0cfa7f0
commit 3babd21
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/scm/src/scm_setup.F90 b/scm/src/scm_setup.F90
@@ -44,7 +44,9 @@ subroutine set_state(scm_input, scm_reference, scm_state)
   end do
 
   do i=1, scm_state%n_cols
-    scm_state%area(i) = scm_input%input_area
+    if (scm_state%area(i) == 0) then
+      scm_state%area(i) = scm_input%input_area
+    end if
   end do
 
   !> - \todo When patching in a reference sounding, need to handle the case when the reference sounding is too short; patch_in_ref