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

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice.F90

@@ -21 +21 @@
    USE ice             ! LIM_3 ice variables
    USE limvar
-   USE limctl
+   USE icectl
    USE par_oce         ! ocean parameters
    USE dom_oce         ! ocean space and time domain variables 
@@ -73 +73 @@
                         CALL lim_var_zapsmall
                         CALL lim_var_agg(1)
-      IF( ln_limctl )   CALL lim_prt( kt, iiceprt, jiceprt, 1, ' - ice thermo bdy - ' )
+      IF( ln_limctl )   CALL ice_prt( kt, iiceprt, jiceprt, 1, ' - ice thermo bdy - ' )
       !
    END SUBROUTINE bdy_ice