Merge pull request #3141 from GEOS-ESM/hotfix/pchakrab/nag-unlimited-…

…format Fixed for NAG build issue -
GEOS-ESM · Oct 31, 2024 · 2994063 · 2994063
2 parents 6f7fa28 + 2d8889d
commit 2994063
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/generic3g/vertical/FixedLevelsVerticalGrid.F90 b/generic3g/vertical/FixedLevelsVerticalGrid.F90
@@ -110,12 +110,12 @@ subroutine write_formatted(this, unit, iotype, v_list, iostat, iomsg)
       integer, intent(out) :: iostat
       character(*), intent(inout) :: iomsg
 
-      write(unit, "(1x, a, a, 4x, a, a, a, 4x, a, a, a, 4x, a, *(g0, 1x), a, 1x, a)", iostat=iostat, iomsg=iomsg) &
+      write(unit, "(1x, a, a, 4x, a, a, a, 4x, a, a, a, 4x, a, *(g0, 1x))", iostat=iostat, iomsg=iomsg) &
            "FixedLevelsVerticalGrid(", new_line("a"), &
            "standard name: ", this%standard_name, new_line("a"), &
            "units: ", this%units, new_line("a"), &
-           "levels: ", this %levels, new_line("a"), &
-           ")"
+           "levels: ", this %levels
+      write(unit, "(a, 1x, a)", iostat=iostat, iomsg=iomsg) new_line("a"), ")"
 
       _UNUSED_DUMMY(iotype)
       _UNUSED_DUMMY(v_list)