diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90 index af3f0f657..325a438bd 100644 --- a/columnphysics/icepack_shortwave.F90 +++ b/columnphysics/icepack_shortwave.F90 @@ -3343,7 +3343,7 @@ subroutine solution_dEdd ( & ! --------------------- k-1 ! k-1 ! --------------------- k - ! \\\\\\\ ocean \\\\\\\ + ! /////// ocean /////// trndir(k+1) = trndir(k)*trnlay(k) refkm1 = c1/(c1 - rdndif(k)*rdif_a(k))