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 5882 for branches – NEMO

Changeset 5882 for branches


Ignore:
Timestamp:
2015-11-12T17:16:56+01:00 (8 years ago)
Author:
davestorkey
Message:

UKMO/icebergs_restart_single_file : move iom_close statement.

File:
1 edited

Legend:

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

    r5879 r5882  
    133133      num_bergs(:) = INT(zdata_in(1,:)) 
    134134 
    135       ! Finish up 
    136       CALL iom_close( ncid ) 
    137  
    138135      ! Sanity check 
    139136      jn = icb_utl_count() 
     
    142139      IF( lk_mpp ) THEN 
    143140         ! Only mpp_sum ibergs_in_file if we are reading from multiple restart files.  
    144          WRITE(numout,*) 'iom_file(ncid)%name : ',iom_file(ncid)%name 
    145          WRITE(numout,*) "INDEX(iom_file(ncid)%name,'icebergs.nc' ) : ",INDEX(iom_file(ncid)%name,'icebergs.nc' ) 
    146141         IF( INDEX(iom_file(ncid)%name,'icebergs.nc' ) .EQ. 0 ) CALL mpp_sum(ibergs_in_file) 
    147142         CALL mpp_sum(jn) 
     
    149144      IF(lwp)   WRITE(numout,'(a,i5,a,i5,a)') 'icebergs, read_restart_bergs: there were',ibergs_in_file,   & 
    150145         &                                    ' bergs in the restart file and', jn,' bergs have been read' 
     146      ! 
     147      ! Finish up 
     148      CALL iom_close( ncid ) 
    151149      ! 
    152150      IF( lwp .and. nn_verbose_level >= 0)  WRITE(numout,'(a)') 'icebergs, read_restart_bergs: completed' 
Note: See TracChangeset for help on using the changeset viewer.