Changeset 8904 for branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/IOM/iom.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/IOM/iom.F90 (modified) (13 diffs)

branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -44 +44 @@
    USE ioipsl, ONLY :  ju2ymds    ! for calendar
    USE crs             ! Grid coarsening
+   USE timing
 
    IMPLICIT NONE
@@ -595 +596 @@
                                  &                         'with 1 or more spatial dimensions: '//cldmspc//' were found.' , &
                                  &                         'Use ncwa -a to suppress the unnecessary dimensions' )
+            IF(nn_timing == 2)  CALL timing_start('rst_get')
             SELECT CASE (iom_file(kiomid)%iolib)
             CASE (jpioipsl )   ;   CALL iom_ioipsl_get(  kiomid, idvar, pvar, itime )
@@ -602 +604 @@
                CALL ctl_stop( 'iom_g0d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' )
             END SELECT
+            IF(nn_timing == 2)  CALL timing_stop('rst_get')
          ENDIF
       ENDIF
@@ -911 +914 @@
          ENDIF
       
+         IF(nn_timing == 2)  CALL timing_start('iom_get') 
          SELECT CASE (iom_file(kiomid)%iolib)
          CASE (jpioipsl )   ;   CALL iom_ioipsl_get(  kiomid, idvar, inbdim, istart, icnt, ix1, ix2, iy1, iy2,   &
@@ -921 +925 @@
             CALL ctl_stop( TRIM(clinfo)//' accepted IO library are only jpioipsl, jpnf90 and jprstdimg' )
          END SELECT
+         IF(nn_timing == 2)  CALL timing_stop('iom_get')
 
          IF( istop == nstop ) THEN   ! no additional errors until this point...
@@ -1066 +1071 @@
          IF( iom_file(kiomid)%nfid > 0 ) THEN
             ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. )
+            IF(nn_timing == 2)  CALL timing_start('iom_rstput')
             SELECT CASE (iom_file(kiomid)%iolib)
             CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r0d = pvar )
@@ -1073 +1079 @@
                CALL ctl_stop( 'iom_rp0d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' )
             END SELECT
+            IF(nn_timing == 2)  CALL timing_stop('iom_rstput')
          ENDIF
       ENDIF
@@ -1088 +1095 @@
          IF( iom_file(kiomid)%nfid > 0 ) THEN
             ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. )
+            IF(nn_timing == 2)  CALL timing_start('iom_rstput')
             SELECT CASE (iom_file(kiomid)%iolib)
             CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r1d = pvar )
@@ -1095 +1103 @@
                CALL ctl_stop( 'iom_rp1d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' )
             END SELECT
+            IF(nn_timing == 2)  CALL timing_stop('iom_rstput')
          ENDIF
       ENDIF
@@ -1110 +1119 @@
          IF( iom_file(kiomid)%nfid > 0 ) THEN
             ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. )
+            IF(nn_timing == 2)  CALL timing_start('iom_rstput')
             SELECT CASE (iom_file(kiomid)%iolib)
             CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r2d = pvar )
@@ -1117 +1127 @@
                CALL ctl_stop( 'iom_rp2d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' )
             END SELECT
+            IF(nn_timing == 2)  CALL timing_stop('iom_rstput')
          ENDIF
       ENDIF
@@ -1132 +1143 @@
          IF( iom_file(kiomid)%nfid > 0 ) THEN
             ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. )
+            IF(nn_timing == 2)  CALL timing_start('iom_rstput')
             SELECT CASE (iom_file(kiomid)%iolib)
             CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r3d = pvar )
@@ -1139 +1151 @@
                CALL ctl_stop( 'iom_rp3d: accepted IO library are only jpioipsl and jprstdimg' )
             END SELECT
+            IF(nn_timing == 2)  CALL timing_start('iom_rstput')
          ENDIF
       ENDIF