Changeset 8904 for branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90

Timestamp:

2017-12-05T17:01:17+01:00 (6 years ago)

Author:

andmirek

Message:

#1978 new timers

File:

• branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90 (modified) (2 diffs)

branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90

@@ -22 +22 @@
    USE iom             ! I/O module
    USE lib_mpp
-   USE timing
 
 
@@ -764 +763 @@
                WRITE(clseed(5:5) ,'(i1.1)') jseed
                WRITE(clseed(7:10),'(i4.4)') narea
-               IF(nn_timing == 2)  CALL timing_start('rst_put')
                CALL iom_rstput( kt, nitrst, numstow, clseed , zrseed(jseed) )
-               IF(nn_timing == 2)  CALL timing_stop('rst_put')
             END DO
             ! 2D stochastic parameters
             DO jsto = 1 , jpsto2d
                WRITE(clsto2d(7:9),'(i3.3)') jsto
-               IF(nn_timing == 2)  CALL timing_start('rst_put')
                CALL iom_rstput( kt, nitrst, numstow, clsto2d , sto2d(:,:,jsto) )
-               IF(nn_timing == 2)  CALL timing_stop('rst_put')
             END DO
             ! 3D stochastic parameters
             DO jsto = 1 , jpsto3d
                WRITE(clsto3d(7:9),'(i3.3)') jsto
-               IF(nn_timing == 2)  CALL timing_start('rst_put')
                CALL iom_rstput( kt, nitrst, numstow, clsto3d , sto3d(:,:,:,jsto) )
-               IF(nn_timing == 2)  CALL timing_stop('rst_put')
             END DO
             ! close the restart file