Changeset 8722


Ignore:
Timestamp:
2017-11-16T10:50:38+01:00 (3 years ago)
Author:
andmirek
Message:

#1976 changes in variable name and indentation

Location:
branches/2017/dev_rev8689_LIM3_RST/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_rev8689_LIM3_RST/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90

    r8708 r8722  
    700700      LOGICAL               :: lchunk               ! logical switch to activate chunking and compression 
    701701                                                    ! when appropriate (currently chunking is applied to 4d fields only) 
    702       INTEGER               :: i                    ! local variable 
     702      INTEGER               :: idlv                 ! local variable 
    703703      !--------------------------------------------------------------------- 
    704704      ! 
     
    837837               ELSE 
    838838                  CALL iom_nf90_check(NF90_INQ_VARID( if90id, 'numcat'     , idmy ), clinfo) 
    839                   CALL iom_nf90_check(NF90_PUT_VAR( if90id, idmy, (/ (i, i = 1,iom_file(kiomid)%nlev) /)), clinfo) 
     839                  CALL iom_nf90_check(NF90_PUT_VAR( if90id, idmy, (/ (idlv, idlv = 1,iom_file(kiomid)%nlev) /)), clinfo) 
    840840               ENDIF 
    841841               ! +++ WRONG VALUE: to be improved but not really useful... 
  • branches/2017/dev_rev8689_LIM3_RST/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r8708 r8722  
    14521452      !! 
    14531453      !!---------------------------------------------------------------------- 
    1454       REAL(wp), DIMENSION(:,:,:), INTENT(inout) ::   ptab     ! 3D array on which the boundary condition is applied 
     1454      REAL(wp), DIMENSION(:,:,:)      , INTENT(inout) ::   ptab     ! 3D array on which the boundary condition is applied 
    14551455      CHARACTER(len=1)                , INTENT(in   ) ::   cd_type  ! define the nature of ptab array grid-points 
    14561456      !                                                             ! = T , U , V , F , W points 
Note: See TracChangeset for help on using the changeset viewer.