Changeset 9253


Ignore:
Timestamp:
2018-01-17T12:55:03+01:00 (3 years ago)
Author:
andmirek
Message:

#1978 nn_timing 3 in iceberg code

File:
1 edited

Legend:

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

    r6755 r9253  
    169169      TYPE(point)  , POINTER :: pt 
    170170      !!---------------------------------------------------------------------- 
    171  
     171      IF(nn_timing == 3)  CALL timing_start('rst_put') 
    172172      ! Assume we write iceberg restarts to same directory as ocean restarts. 
    173173      cl_path = TRIM(cn_ocerst_outdir) 
     
    374374      nret = NF90_CLOSE(ncid) 
    375375      IF (nret /= NF90_NOERR) CALL ctl_stop('icebergs, write_restart: nf_close failed') 
     376      IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    376377      ! 
    377378   END SUBROUTINE icb_rst_write 
Note: See TracChangeset for help on using the changeset viewer.