Skip to content

Commit

Permalink
corrected style errors in MOM_ice_shelf.F90; MOM_ice_shelf_dynamics.F…
Browse files Browse the repository at this point in the history
…90; MOM_ice_shelf_initialize.F90
  • Loading branch information
OlgaSergienko committed Mar 3, 2021
1 parent 9aa75c8 commit 2232fa2
Show file tree
Hide file tree
Showing 3 changed files with 63 additions and 275 deletions.
2 changes: 1 addition & 1 deletion src/ice_shelf/MOM_ice_shelf.F90
Original file line number Diff line number Diff line change
Expand Up @@ -719,7 +719,7 @@ subroutine shelf_calc_flux(sfc_state_in, fluxes_in, Time, time_step, CS)
call hchksum(ISS%mass_shelf, "mass_shelf after change thickness using melt", G%HI, haloshift=0, &
scale=US%RZ_to_kg_m2)
endif
endif !OVS 12/10/20
endif !OVS 12/10/20

if (CS%debug) call MOM_forcing_chksum("Before add shelf flux", fluxes, G, CS%US, haloshift=0)

Expand Down
Loading

0 comments on commit 2232fa2

Please sign in to comment.