Changeset 9321 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.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/TRA/traqsr.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

@@ -368 +368 @@
             &                    'at it= ', kt,' date= ', ndastp
          IF(lwp) WRITE(numout,*) '~~~~'
+         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
          CALL iom_rstput( kt, nitrst, numrow, 'qsr_hc_b'   , qsr_hc      )
          CALL iom_rstput( kt, nitrst, numrow, 'fraqsr_1lev', fraqsr_1lev )   ! default definition in sbcssm 
+         IF(nn_timing == 2)  CALL timing_stop('iom_rstput')
          !
       ENDIF
@@ -607 +609 @@
       ! initialisation of fraqsr_1lev used in sbcssm
       IF( iom_varid( numror, 'fraqsr_1lev', ldstop = .FALSE. ) > 0 ) THEN
+         IF(nn_timing == 2)  CALL timing_start('iom_rstget')
          CALL iom_get( numror, jpdom_autoglo, 'fraqsr_1lev'  , fraqsr_1lev  )
+         IF(nn_timing == 2)  CALL timing_stop('iom_rstget')
       ELSE
          fraqsr_1lev(:,:) = 1._wp   ! default definition