Changeset 5986 for branches/UKMO/icebergs_restart_single_file/NEMOGCM/NEMO
- Timestamp:
- 2015-12-02T17:50:16+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/icebergs_restart_single_file/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90
r5911 r5986 60 60 INTEGER :: idim, ivar, iatt 61 61 INTEGER :: jn, iunlim_dim, ibergs_in_file 62 INTEGER :: iclass 63 INTEGER, DIMENSION(1) :: istrt, ilngth, idata 64 INTEGER, DIMENSION(2) :: istrt2, ilngth2 65 INTEGER, DIMENSION(nkounts) :: idata2 66 REAL(wp), DIMENSION(1) :: zdata ! need 1d array to read in with 67 ! start and count arrays 62 INTEGER :: ii,ij,iclass 63 REAL(wp), DIMENSION(nkounts) :: zdata 68 64 LOGICAL :: ll_found_restart 69 65 CHARACTER(len=256) :: cl_path … … 72 68 TYPE(iceberg) :: localberg ! NOT a pointer but an actual local variable 73 69 TYPE(point) :: localpt ! NOT a pointer but an actual local variable 74 REAL(wp), DIMENSION(1,nkounts) :: zdata_in75 INTEGER :: ii,ij76 70 !!---------------------------------------------------------------------- 77 71 … … 100 94 & ij .GE. nldj+njmpp-1 .AND. ij .LE. nlej+njmpp-1 ) THEN 101 95 102 CALL iom_get( ncid, jpdom_unknown, 'number' , (/zdata _in(1,:)/) , ktime=jn, kstart=(/1/), kcount=(/nkounts/) )103 localberg%number(:) = INT(zdata _in(1,:))96 CALL iom_get( ncid, jpdom_unknown, 'number' , (/zdata(:)/) , ktime=jn, kstart=(/1/), kcount=(/nkounts/) ) 97 localberg%number(:) = INT(zdata(:)) 104 98 CALL iom_get( ncid, 'mass_scaling' , localberg%mass_scaling, ktime=jn ) 105 99 CALL iom_get( ncid, 'lon' , localpt%lon , ktime=jn ) … … 111 105 CALL iom_get( ncid, 'width' , localpt%width , ktime=jn ) 112 106 CALL iom_get( ncid, 'length' , localpt%length , ktime=jn ) 113 CALL iom_get( ncid, 'year' , zdata _in(1,1), ktime=jn )114 localpt%year = INT(zdata _in(1,1))107 CALL iom_get( ncid, 'year' , zdata(1) , ktime=jn ) 108 localpt%year = INT(zdata(1)) 115 109 CALL iom_get( ncid, 'day' , localpt%day , ktime=jn ) 116 110 CALL iom_get( ncid, 'mass_of_bits' , localpt%mass_of_bits , ktime=jn ) … … 132 126 CALL iom_get( ncid, jpdom_autoglo_xy, 'stored_ice' , berg_grid%stored_ice, kstart=(/1,1,1/), kcount=(/1,1,nclasses/) ) 133 127 134 CALL iom_get( ncid, jpdom_unknown, 'kount' , (/zdata _in(1,:)/) )135 num_bergs(:) = INT(zdata _in(1,:))128 CALL iom_get( ncid, jpdom_unknown, 'kount' , (/zdata(:)/) ) 129 num_bergs(:) = INT(zdata(:)) 136 130 137 131 ! Sanity check
Note: See TracChangeset
for help on using the changeset viewer.