Changeset 8411 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

Timestamp:

2017-08-07T18:09:12+02:00 (7 years ago)

Author:

clem

Message:

continue changing names

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90 (modified) (3 diffs)

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

@@ -8 +8 @@
    !! History :  2.0  ! 2006-12  (M. Vancoppenolle) Original code
    !!            3.0  ! 2008-02  (C. Talandier)  Surface module from icestp.F90
-   !!             -   ! 2008-04  (G. Madec)  sltyle and lim_ctl routine
+   !!             -   ! 2008-04  (G. Madec)  sltyle and ice_ctl routine
    !!            3.3  ! 2010-11  (G. Madec) ice-ocean stress always computed at each ocean time-step
    !!            3.4  ! 2011-01  (A Porter)  dynamical allocation
@@ -43 +43 @@
    USE iceerr2         ! Ice corrections after thermo
    USE limvar          ! Ice variables switch
-   USE limctl          !
+   USE icectl          !
    ! MV MP 2016
    USE limmp
@@ -222 +222 @@
          IF( lrst_ice )               CALL lim_rst_write( kt )  ! -- Ice restart file 
          !
-         IF( ln_limctl )              CALL lim_ctl( kt )        ! alerts in case of model crash
+         IF( ln_limctl )              CALL ice_ctl( kt )        ! alerts in case of model crash
          !
       ENDIF   ! End sea-ice time step only