clean up driver code

CICE-Consortium · Aug 21, 2024 · 7dde24d · 7dde24d
1 parent 4c8e4e5
commit 7dde24d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/configuration/driver/icedrv_init.F90 b/configuration/driver/icedrv_init.F90
@@ -1511,7 +1511,7 @@ subroutine set_state_var (nx, &
                                 nilyr=nilyr, nslyr=nslyr, &
                                 qin=qin(:), qsn=qsn(:))
          ! floe size distribution
-         if (tr_fsd) call icepack_init_fsd(nfsd=fsd, ice_ic=ice_ic, &
+         if (tr_fsd) call icepack_init_fsd(nfsd=nfsd, ice_ic=ice_ic, &
                                   floe_rad_c=floe_rad_c,             &
                                   floe_binwidth=floe_binwidth,       &
                                   afsd=trcrn(i,nt_fsd:nt_fsd+nfsd-1,n))