Changeset 8426 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerhg.F90

Timestamp:

2017-08-08T17:53:09+02:00 (7 years ago)

Author:

clem

Message:

last routine names to be changed

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerhg.F90 (modified) (2 diffs)

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

@@ -19 +19 @@
    USE ice              ! LIM-3 variables
    USE icerhg_evp       ! EVP rheology
-   USE icecons          ! conservation tests
    USE icectl           ! control prints
    USE icevar
@@ -61 +60 @@
 
       IF( nn_timing == 1 )  CALL timing_start('icerhg')
+
+      IF( kt == nit000 .AND. lwp ) THEN
+         WRITE(numout,*)
+         WRITE(numout,*)'icerhg'
+         WRITE(numout,*)'~~~~~~'
+      ENDIF
 
       CALL ice_var_agg(1)   ! aggregate ice categories