Changeset 8409 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerhg_evp.F90

Timestamp:

2017-08-07T17:29:21+02:00 (7 years ago)

Author:

clem

Message:

change calls in icestp.F90 for advection

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerhg_evp.F90 (modified) (2 diffs)

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

@@ -24 +24 @@
    USE sbc_ice , ONLY : utau_ice, vtau_ice, snwice_mass, snwice_mass_b
    USE ice            ! ice variables
-   USE limitd_me      ! ice strength
+   USE icerdgrft      ! ice strength
    !
    USE lbclnk         ! Lateral Boundary Condition / MPP link
@@ -229 +229 @@
 
       ! Ice strength
-      CALL lim_itd_me_icestrength( nn_icestr )
+      CALL ice_rdgrft_icestrength( nn_icestr )
 
       ! scale factors