Skip to content

Commit 7dde24d

Browse files
committed
clean up driver code
1 parent 4c8e4e5 commit 7dde24d

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

configuration/driver/icedrv_init.F90

+1-1
Original file line numberDiff line numberDiff line change
@@ -1511,7 +1511,7 @@ subroutine set_state_var (nx, &
15111511
nilyr=nilyr, nslyr=nslyr, &
15121512
qin=qin(:), qsn=qsn(:))
15131513
! floe size distribution
1514-
if (tr_fsd) call icepack_init_fsd(nfsd=fsd, ice_ic=ice_ic, &
1514+
if (tr_fsd) call icepack_init_fsd(nfsd=nfsd, ice_ic=ice_ic, &
15151515
floe_rad_c=floe_rad_c, &
15161516
floe_binwidth=floe_binwidth, &
15171517
afsd=trcrn(i,nt_fsd:nt_fsd+nfsd-1,n))

0 commit comments

Comments
 (0)