Ignore:
Timestamp:
2018-01-18T14:59:11+01:00 (3 years ago)
Author:
andmirek
Message:

#1978 only 1 and 2 for nn_timing

File:
1 edited

Legend:

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

    r9253 r9261  
    2929   USE icb_oce        ! define iceberg arrays 
    3030   USE icbutl         ! iceberg utility routines 
     31   USE timing 
    3132 
    3233   IMPLICIT NONE 
     
    7172      TYPE(point)                  ::   localpt   ! NOT a pointer but an actual local variable 
    7273      !!---------------------------------------------------------------------- 
    73  
     74      IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    7475      ! Find a restart file. Assume iceberg restarts in same directory as ocean restarts 
    7576      ! and are called TRIM(cn_ocerst)//'_icebergs' 
     
    146147      CALL iom_close( ncid ) 
    147148      ! 
     149      IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    148150      IF( lwp .and. nn_verbose_level >= 0)  WRITE(numout,'(a)') 'icebergs, read_restart_bergs: completed' 
    149151      ! 
     
    169171      TYPE(point)  , POINTER :: pt 
    170172      !!---------------------------------------------------------------------- 
    171       IF(nn_timing == 3)  CALL timing_start('rst_put') 
     173      IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    172174      ! Assume we write iceberg restarts to same directory as ocean restarts. 
    173175      cl_path = TRIM(cn_ocerst_outdir) 
     
    374376      nret = NF90_CLOSE(ncid) 
    375377      IF (nret /= NF90_NOERR) CALL ctl_stop('icebergs, write_restart: nf_close failed') 
    376       IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     378      IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    377379      ! 
    378380   END SUBROUTINE icb_rst_write 
Note: See TracChangeset for help on using the changeset viewer.