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

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

@@ -596 +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 )
@@ -604 +603 @@
                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
@@ -914 +912 @@
          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,   &
@@ -925 +922 @@
             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...
@@ -1071 +1067 @@
          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 )
@@ -1079 +1074 @@
                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
@@ -1095 +1089 @@
          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 )
@@ -1103 +1096 @@
                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
@@ -1119 +1111 @@
          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 )
@@ -1127 +1118 @@
                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
@@ -1143 +1133 @@
          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 )
@@ -1151 +1140 @@
                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