Skip to content

Commit

Permalink
Not sure why the format got changed. Reverted
Browse files Browse the repository at this point in the history
  • Loading branch information
dabail10 committed Jun 22, 2022
1 parent 8712198 commit 2136b4d
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions columnphysics/icepack_itd.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1970,8 +1970,8 @@ subroutine icepack_init_itd_hist (ncat, hin_max, c_hi_range)
write (c_nc, '(i2)') n

! Write hin_max to character string
write (c_hinmax1, '(f6.3)') hin_max(n-1)
write (c_hinmax2, '(f6.3)') hin_max(n)
write (c_hinmax1, '(f7.3)') hin_max(n-1)
write (c_hinmax2, '(f7.3)') hin_max(n)

! Save character string to write to history file
c_hi_range(n)=c_hinmax1//'m < hi Cat '//c_nc//' < '//c_hinmax2//'m'
Expand Down

0 comments on commit 2136b4d

Please sign in to comment.