Changeset 9321 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90

Timestamp:

2018-02-12T14:29:34+01:00 (6 years ago)

Author:

davestorkey

Message:

UKMO/dev_r5518_GO6_package branch: allow timing of I/O and coupling only.
See GMED ticket 374.

File:

• branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90 (modified) (5 diffs)

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

@@ -22 +22 @@
    USE iom             ! I/O module
    USE lib_mpp
-
+   USE timing
 
    IMPLICIT NONE
@@ -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 == 2)  CALL timing_start('iom_rstput')
             DO jseed = 1 , 4
                WRITE(clseed(5:5) ,'(i1.1)') jseed
@@ -775 +778 @@
                CALL iom_rstput( kt, nitrst, numstow, clsto3d , sto3d(:,:,:,jsto) )
             END DO
+            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
             ! close the restart file
             CALL iom_close( numstow )