Changeset 11119 for branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis3/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

Timestamp:

2019-06-17T11:03:34+02:00 (5 years ago)

Author:

rrenshaw

Message:

minor code fix

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis3/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90 (modified) (1 diff)

branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis3/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

@@ -616 +616 @@
         READ(numdct_in,iostat=iost) isec
         IF (iost .NE. 0 ) then
-          write(numout,*) 'unable to read section_ijglobal.diadct. iost = ',iost
+          write(numout,*) 'reached end of section_ijglobal.diadct. iost = ',iost, &
+                          ', number of sections read = ', jsec-1
           EXIT !end of file 
         ENDIF