Changeset 8722 for branches/2017/dev_rev8689_LIM3_RST/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90

Timestamp:

2017-11-16T10:50:38+01:00 (6 years ago)

Author:

andmirek

Message:

#1976 changes in variable name and indentation

File:

• branches/2017/dev_rev8689_LIM3_RST/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90 (modified) (2 diffs)

branches/2017/dev_rev8689_LIM3_RST/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90

@@ -700 +700 @@
       LOGICAL               :: lchunk               ! logical switch to activate chunking and compression
                                                     ! when appropriate (currently chunking is applied to 4d fields only)
-      INTEGER               :: i                    ! local variable
+      INTEGER               :: idlv                 ! local variable
       !---------------------------------------------------------------------
       !
@@ -837 +837 @@
                ELSE
                   CALL iom_nf90_check(NF90_INQ_VARID( if90id, 'numcat'     , idmy ), clinfo)
-                  CALL iom_nf90_check(NF90_PUT_VAR( if90id, idmy, (/ (i, i = 1,iom_file(kiomid)%nlev) /)), clinfo)
+                  CALL iom_nf90_check(NF90_PUT_VAR( if90id, idmy, (/ (idlv, idlv = 1,iom_file(kiomid)%nlev) /)), clinfo)
                ENDIF
                ! +++ WRONG VALUE: to be improved but not really useful...