Skip to content

Commit

Permalink
Update the opticep unit test to be consistent with the latest changes.
Browse files Browse the repository at this point in the history
  • Loading branch information
apcraig committed Mar 14, 2024
1 parent 73e4338 commit aa18ac3
Show file tree
Hide file tree
Showing 3 changed files with 4 additions and 3 deletions.
2 changes: 1 addition & 1 deletion cicecore/cicedyn/general/ice_step_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -766,7 +766,7 @@ subroutine update_state (dt, daidt, dvidt, dvsdt, dagedt, offset)
real (kind=dbl_kind), dimension(:,:,:), intent(inout), optional :: &
daidt, & ! change in ice area per time step
dvidt, & ! change in ice volume per time step
dvsdt, & ! change in snow volume per time step
dvsdt, & ! change in snow volume per time step
dagedt ! change in ice age per time step

real (kind=dbl_kind), intent(in), optional :: &
Expand Down
3 changes: 2 additions & 1 deletion cicecore/drivers/unittest/opticep/CICE_InitMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -66,7 +66,7 @@ subroutine cice_init
floe_binwidth, c_fsd_range
use ice_state, only: alloc_state
use ice_flux_bgc, only: alloc_flux_bgc
use ice_calendar, only: dt, dt_dyn, write_ic, &
use ice_calendar, only: dt, write_ic, &
init_calendar, advance_timestep, calc_timesteps
use ice_communicate, only: init_communicate, my_task, master_task
use ice_diagnostics, only: init_diags
Expand Down Expand Up @@ -244,6 +244,7 @@ subroutine cice_init
call init_flux_ocn ! initialize ocean fluxes sent to coupler

call dealloc_grid ! deallocate temporary grid arrays

if (my_task == master_task) then
call ice_memusage_print(nu_diag,subname//':end')
endif
Expand Down
2 changes: 1 addition & 1 deletion cicecore/drivers/unittest/opticep/CICE_RunMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -307,7 +307,7 @@ subroutine ice_step

! clean up, update tendency diagnostics
offset = c0
call update_state (dt=dt_dyn, daidtd=daidtd, dvidt=dvidtd, dvsdt=dvsdtd, &
call update_state (dt=dt_dyn, daidt=daidtd, dvidt=dvidtd, dvsdt=dvsdtd, &
dagedt=dagedtd, offset=offset)

enddo
Expand Down

0 comments on commit aa18ac3

Please sign in to comment.