Ignore:
Timestamp:
2016-05-25T16:24:04+02:00 (5 years ago)
Author:
davestorkey
Message:

Bug fix for icb_combrest.py. See ticket #1708.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

    r6140 r6622  
    9494           &     ij .GE. nldj+njmpp-1 .AND. ij .LE. nlej+njmpp-1 ) THEN            
    9595 
    96                CALL iom_get( ncid, jpdom_unknown, 'number'       , zdata(:) , ktime=jn, kstart=(/1/), kcount=(/nkounts/) ) 
     96               CALL iom_get( ncid, jpdom_unknown, 'number'       , zdata , ktime=jn, kstart=(/1/), kcount=(/nkounts/) ) 
    9797               localberg%number(:) = INT(zdata(:)) 
    9898               CALL iom_get( ncid, 'mass_scaling' , localberg%mass_scaling, ktime=jn ) 
     
    126126      CALL iom_get( ncid, jpdom_autoglo_xy, 'stored_ice'  , berg_grid%stored_ice, kstart=(/1,1,1/), kcount=(/1,1,nclasses/) ) 
    127127       
    128       CALL iom_get( ncid, jpdom_unknown, 'kount' , zdata(:) ) 
     128      CALL iom_get( ncid, jpdom_unknown, 'kount' , zdata ) 
    129129      num_bergs(:) = INT(zdata(:)) 
    130130 
Note: See TracChangeset for help on using the changeset viewer.