Changeset 8722

Timestamp:

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

Author:

andmirek

Message:

#1976 changes in variable name and indentation

Location:

branches/2017/dev_rev8689_LIM3_RST/NEMOGCM/NEMO/OPA_SRC

Files:

• IOM/iom_nf90.F90 (modified) (2 diffs)
• LBC/lib_mpp.F90 (modified) (1 diff)

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...

branches/2017/dev_rev8689_LIM3_RST/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

@@ -1452 +1452 @@
       !!
       !!----------------------------------------------------------------------
-      REAL(wp), DIMENSION(:,:,:), INTENT(inout) ::   ptab     ! 3D array on which the boundary condition is applied
+      REAL(wp), DIMENSION(:,:,:)      , INTENT(inout) ::   ptab     ! 3D array on which the boundary condition is applied
       CHARACTER(len=1)                , INTENT(in   ) ::   cd_type  ! define the nature of ptab array grid-points
       !                                                             ! = T , U , V , F , W points