Changeset 8411 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.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/limthd_lac.F90 (modified) (3 diffs)

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

@@ -23 +23 @@
    USE ice            ! LIM variables
    USE limtab         ! LIM 2D <==> 1D
-   USE limcons        ! LIM conservation
+   USE icecons        ! LIM conservation
    USE limthd_ent
    USE limvar
@@ -112 +112 @@
       !!-----------------------------------------------------------------------!
 
-      IF( ln_limdiachk ) CALL lim_cons_hsm(0, 'limthd_lac', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)
+      IF( ln_limdiachk ) CALL ice_cons_hsm(0, 'limthd_lac', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)
 
       CALL lim_var_agg(1)
@@ -478 +478 @@
       ENDIF ! nidx > 0
       !
-      IF( ln_limdiachk ) CALL lim_cons_hsm(1, 'limthd_lac', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)
+      IF( ln_limdiachk ) CALL ice_cons_hsm(1, 'limthd_lac', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)
       !
    END SUBROUTINE lim_thd_lac