Changeset 7357

Timestamp:

2016-11-28T18:31:05+01:00 (7 years ago)

Author:

flavoni

Message:

fix lim_run_init name

File:

• branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90 (modified) (2 diffs)

branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -394 +394 @@
       IF(lwp) THEN                        ! control print
          WRITE(numout,*)
-         WRITE(numout,*) 'ice_run : ice share parameters for dynamics/advection/thermo of sea-ice'
+         WRITE(numout,*) 'lim_run_init : ice share parameters for dynamics/advection/thermo of sea-ice'
          WRITE(numout,*) ' ~~~~~~'
          WRITE(numout,*) '   number of ice  categories                               = ', jpl
@@ -433 +433 @@
       IF( lwp ) WRITE(numout,*) '   ice timestep rdt_ice  = ', rdt_ice
       !
-   END SUBROUTINE ice_run
+   END SUBROUTINE lim_run_init