Update src/common/snap.F90

Co-authored-by: Magnus Ulimoen <magnusu@met.no>
metno · Jan 22, 2025 · c08814a · c08814a
1 parent 448794f
commit c08814a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/common/snap.F90 b/src/common/snap.F90
@@ -1333,6 +1333,7 @@ subroutine read_inputfile(snapinput_unit)
       case ('merge.name')
         !..output component name if merged
         ! reuse compnamemc variable
+        if (.not. associated(d_comp)) goto 12
         d_comp%compnamemc = cinput(pname_start:pname_end)
       case ('dry.dep.on')
         !..dry.dep.on