Changeset 8324 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90

Timestamp:

2017-07-12T15:36:28+02:00 (7 years ago)

Author:

clem

Message:

STEP3 (2): clean separation between sea-ice and ocean

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90 (modified) (1 diff)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90

@@ -19 +19 @@
    !!----------------------------------------------------------------------
    USE phycst         ! Physical constant
-   USE oce     , ONLY :  snwice_mass, snwice_mass_b
    USE par_oce        ! Ocean parameters
    USE dom_oce        ! Ocean domain
    USE sbc_oce , ONLY : ln_ice_embd, nn_fsbc, ssh_m
-   USE sbc_ice , ONLY : utau_ice, vtau_ice
+   USE sbc_ice , ONLY : utau_ice, vtau_ice, snwice_mass, snwice_mass_b
    USE ice            ! ice variables
    USE limitd_me      ! ice strength