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

Timestamp:

2018-01-18T14:59:11+01:00 (6 years ago)

Author:

andmirek

Message:

#1978 only 1 and 2 for nn_timing

File:

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

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

@@ -697 +697 @@
          ! Get stochastic parameters from restart file:
          ! 2D stochastic parameters
+         IF(nn_timing == 2)  CALL timing_start('iom_rstget')
          DO jsto = 1 , jpsto2d
             WRITE(clsto2d(7:9),'(i3.3)') jsto
@@ -717 +718 @@
             CALL kiss_seed( ziseed(1) , ziseed(2) , ziseed(3) , ziseed(4) )
          ENDIF
+         IF(nn_timing == 2)  CALL timing_stop('iom_rstget')
 
          ! Close the restart file
@@ -760 +762 @@
             CALL kiss_state( ziseed(1) , ziseed(2) , ziseed(3) , ziseed(4) )
             zrseed = TRANSFER( ziseed , zrseed)
-            IF(nn_timing == 3)  CALL timing_start('rst_put')
+            IF(nn_timing == 2)  CALL timing_start('iom_rstput')
             DO jseed = 1 , 4
                WRITE(clseed(5:5) ,'(i1.1)') jseed
@@ -776 +778 @@
                CALL iom_rstput( kt, nitrst, numstow, clsto3d , sto3d(:,:,:,jsto) )
             END DO
-            IF(nn_timing == 3)  CALL timing_stop('rst_put') 
+            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
             ! close the restart file
             CALL iom_close( numstow )