Changeset 8512 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icecor.F90

Timestamp:

2017-09-07T20:08:11+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part5 - reaching the end

File:

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

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

@@ -60 +60 @@
       IF( kt == nit000 .AND. lwp .AND. kn == 2 ) THEN
          WRITE(numout,*)
-         WRITE(numout,*)' icecor :  correct sea ice variables if out of bounds ' 
-         WRITE(numout,*)' ~~~~~~~'
+         WRITE(numout,*) 'ice_cor:  correct sea ice variables if out of bounds ' 
+         WRITE(numout,*) '~~~~~~~'
       ENDIF
       !                             !--- conservation test
@@ -103 +103 @@
       !                             !  Rebin categories with thickness out of bounds     !
       !                             !-----------------------------------------------------
-      IF ( jpl > 1 )   CALL ice_itd_reb
+      IF ( jpl > 1 )   CALL ice_itd_reb( kt )
 
       !                             !-----------------------------------------------------