New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6623 – NEMO

Changeset 6623


Ignore:
Timestamp:
2016-05-25T16:40:11+02:00 (8 years ago)
Author:
davestorkey
Message:

Reversing previous unintended change to icbrst.F90.

File:
1 edited

Legend:

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

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