Changeset 10892 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

Timestamp:

2019-04-25T11:22:51+02:00 (5 years ago)

Author:

andmirek

Message:

GMED 450 reviewer comments

File:

• branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

@@ -112 +112 @@
                IF(nprint > 1) THEN
                   IF ( snc4set%luse )      WRITE(numout,*) '             opened for NetCDF4 chunking and compression'
-                  IF( kt == nitrst - 1) THEN   ;   WRITE(numout,*) '             kt = nitrst - 1 = ', kt
-                  ELSE                          ;   WRITE(numout,*) '             kt = '             , kt
+                  IF( kt == nitrst - 1) THEN
+                     WRITE(numout,*) '             kt = nitrst - 1 = ', kt
+                  ELSE                          
+                     WRITE(numout,*) '             kt = '             , kt
                   ENDIF
                ENDIF