Changeset 8426 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerdgrft.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/icerdgrft.F90 (modified) (4 diffs)

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

@@ -19 +19 @@
    USE ice              ! LIM variables
    USE icevar           ! LIM
-   USE icecons          ! conservation tests
    USE icectl           ! control prints
    !
@@ -78 +77 @@
 
 
-   SUBROUTINE ice_rdgrft
+   SUBROUTINE ice_rdgrft( kt )
       !!---------------------------------------------------------------------!
       !!                ***  ROUTINE ice_rdgrft ***
@@ -104 +103 @@
       !!  and Elizabeth C. Hunke, LANL are gratefully acknowledged
       !!--------------------------------------------------------------------!
+      INTEGER, INTENT(in) ::   kt     ! number of iteration
+      !!
       INTEGER  ::   ji, jj, jk, jl        ! dummy loop index
       INTEGER  ::   niter                 ! local integer 
@@ -120 +121 @@
       !!-----------------------------------------------------------------------------
       IF( nn_timing == 1 )  CALL timing_start('icerdgrft')
+
+      IF( kt == nit000 .AND. lwp ) THEN
+         WRITE(numout,*)
+         WRITE(numout,*)'icerdgrft'
+         WRITE(numout,*)'~~~~~~~~~'
+      ENDIF
 
       ! conservation test