Changeset 9190 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

Timestamp:

2018-01-06T15:18:23+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: OPA_SRC: style only, results unchanged

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90 (modified) (5 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

@@ -1 +1 @@
 MODULE icbrst
-
    !!======================================================================
    !!                       ***  MODULE  icbrst  ***
@@ -15 +14 @@
    !!                                              read single restart files
    !!----------------------------------------------------------------------
+
    !!----------------------------------------------------------------------
    !!   icb_rst_read    : read restart file
@@ -110 +110 @@
                CALL iom_get( ncid, 'mass_of_bits' , localpt%mass_of_bits  , ktime=jn )
                CALL iom_get( ncid, 'heat_density' , localpt%heat_density  , ktime=jn )
-
                !
                CALL icb_utl_add( localberg, localpt )
-
+               !
             ENDIF
-
+            !
          END DO
-
+         !
       ENDIF 
 
@@ -144 +143 @@
       CALL iom_close( ncid )
       !
-      IF( lwp .and. nn_verbose_level >= 0)  WRITE(numout,'(a)') 'icebergs, read_restart_bergs: completed'
+      IF( lwp .AND. nn_verbose_level >= 0)  WRITE(numout,'(a)') 'icebergs, read_restart_bergs: completed'
       !
    END SUBROUTINE icb_rst_read
@@ -361 +360 @@
    END SUBROUTINE icb_rst_write
    !
+   !!======================================================================
 END MODULE icbrst