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

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

@@ -35 +35 @@
    USE traqsr         ! add penetration of solar flux in the calculation of heat budget
    USE domvvl         ! Variable volume
-   USE limctl         !
-   USE limcons        !
+   USE icectl         !
+   USE icecons        !
    USE bdy_oce  , ONLY: ln_bdy
    !
@@ -206 +206 @@
 
       ! conservation test
-      IF( ln_limdiachk .AND. .NOT. ln_bdy)  CALL lim_cons_final( 'limsbc' )
+      IF( ln_limdiachk .AND. .NOT. ln_bdy)  CALL ice_cons_final( 'limsbc' )
 
       ! control prints
-      IF( ln_limctl )   CALL lim_prt( kt, iiceprt, jiceprt, 3, ' - Final state lim_sbc - ' )
-      IF( ln_ctl )      CALL lim_prt3D( 'limsbc' )
+      IF( ln_limctl )   CALL ice_prt( kt, iiceprt, jiceprt, 3, ' - Final state lim_sbc - ' )
+      IF( ln_ctl )      CALL ice_prt3D( 'limsbc' )
 
    END SUBROUTINE lim_sbc_flx