Changeset 8424 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd.F90

Timestamp:

2017-08-08T16:18:04+02:00 (7 years ago)

Author:

clem

Message:

continue naming

File:

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

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

@@ -35 +35 @@
    USE iceitd         ! remapping thickness distribution
    USE icetab         ! 1D <==> 2D transformation
-   USE limvar         !
+   USE icevar         !
    USE icecons        ! conservation tests
    USE icectl         ! control print
@@ -101 +101 @@
       IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'icethd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)
 
-      CALL lim_var_glo2eqv
+      CALL ice_var_glo2eqv
 
       !---------------------------------------------!
@@ -259 +259 @@
       IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'icethd', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)
       !
-                         CALL lim_var_zapsmall           ! --- remove very small ice concentration (<1e-10) --- !
+                         CALL ice_var_zapsmall           ! --- remove very small ice concentration (<1e-10) --- !
       !                                                  !     & make sure at_i=SUM(a_i) & ato_i=1 where at_i=0
       !