Changeset 8722
- Timestamp:
- 2017-11-16T10:50:38+01:00 (7 years ago)
- 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 700 700 LOGICAL :: lchunk ! logical switch to activate chunking and compression 701 701 ! when appropriate (currently chunking is applied to 4d fields only) 702 INTEGER :: i 702 INTEGER :: idlv ! local variable 703 703 !--------------------------------------------------------------------- 704 704 ! … … 837 837 ELSE 838 838 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) 840 840 ENDIF 841 841 ! +++ 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 1452 1452 !! 1453 1453 !!---------------------------------------------------------------------- 1454 REAL(wp), DIMENSION(:,:,:) , INTENT(inout) :: ptab ! 3D array on which the boundary condition is applied1454 REAL(wp), DIMENSION(:,:,:) , INTENT(inout) :: ptab ! 3D array on which the boundary condition is applied 1455 1455 CHARACTER(len=1) , INTENT(in ) :: cd_type ! define the nature of ptab array grid-points 1456 1456 ! ! = T , U , V , F , W points
Note: See TracChangeset
for help on using the changeset viewer.