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

Timestamp:

2017-08-08T15:58:05+02:00 (3 years ago)

Author:

clem

Message:

continue naming

File:

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

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

@@ -34 +34 @@
    USE icerhg          ! Ice rheology
    USE iceadv          ! Ice advection
-   USE limthd          ! Ice thermodynamics
+   USE icethd          ! Ice thermodynamics
    USE icerdgrft       ! Ice ridging/rafting
    USE iceupdate       ! sea surface boundary condition
@@ -48 +48 @@
    ! END MV MP 2016
    USE iceistate       ! LIM initial state
-   USE limthd_sal      ! LIM ice thermodynamics: salinity
+   USE icethd_sal      ! LIM ice thermodynamics: salinity
    !
    USE c1d             ! 1D vertical configuration
@@ -190 +190 @@
          !----------------------------!
          ! --- zap this if no ice thermo --- !
-         IF( ln_limthd )              CALL lim_thd( kt )        ! -- Ice thermodynamics      
+         IF( ln_limthd )              CALL ice_thd( kt )        ! -- Ice thermodynamics      
 
          ! MV MP 2016
@@ -271 +271 @@
       CALL ice_itd_init                ! ice thickness distribution initialization
       !
-      CALL lim_thd_init                ! set ice thermodynics parameters
-      !
-      CALL lim_thd_sal_init            ! set ice salinity parameters
+      CALL ice_thd_init                ! set ice thermodynics parameters
+      !
+      CALL ice_thd_sal_init            ! set ice salinity parameters
        
       ! MV MP 2016