Changeset 5986


Ignore:
Timestamp:
2015-12-02T17:50:16+01:00 (5 years ago)
Author:
davestorkey
Message:

UKMO/icebergs_restart_single_file branch: tidy up.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/icebergs_restart_single_file/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

    r5911 r5986  
    6060      INTEGER                      ::   idim, ivar, iatt 
    6161      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       
    6864      LOGICAL                      ::   ll_found_restart 
    6965      CHARACTER(len=256)           ::   cl_path 
     
    7268      TYPE(iceberg)                ::   localberg ! NOT a pointer but an actual local variable 
    7369      TYPE(point)                  ::   localpt   ! NOT a pointer but an actual local variable 
    74       REAL(wp), DIMENSION(1,nkounts) :: zdata_in 
    75       INTEGER                      ::   ii,ij 
    7670      !!---------------------------------------------------------------------- 
    7771 
     
    10094           &     ij .GE. nldj+njmpp-1 .AND. ij .LE. nlej+njmpp-1 ) THEN            
    10195 
    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(:)) 
    10498               CALL iom_get( ncid, 'mass_scaling' , localberg%mass_scaling, ktime=jn ) 
    10599               CALL iom_get( ncid, 'lon'          , localpt%lon           , ktime=jn ) 
     
    111105               CALL iom_get( ncid, 'width'        , localpt%width         , ktime=jn ) 
    112106               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)) 
    115109               CALL iom_get( ncid, 'day'          , localpt%day           , ktime=jn ) 
    116110               CALL iom_get( ncid, 'mass_of_bits' , localpt%mass_of_bits  , ktime=jn ) 
     
    132126      CALL iom_get( ncid, jpdom_autoglo_xy, 'stored_ice'  , berg_grid%stored_ice, kstart=(/1,1,1/), kcount=(/1,1,nclasses/) ) 
    133127       
    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(:)) 
    136130 
    137131      ! Sanity check 
Note: See TracChangeset for help on using the changeset viewer.