Ignore:
Timestamp:
2018-01-18T14:59:11+01:00 (3 years ago)
Author:
andmirek
Message:

#1978 only 1 and 2 for nn_timing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r8904 r9261  
    596596                                 &                         'with 1 or more spatial dimensions: '//cldmspc//' were found.' , & 
    597597                                 &                         'Use ncwa -a to suppress the unnecessary dimensions' ) 
    598             IF(nn_timing == 2)  CALL timing_start('rst_get') 
    599598            SELECT CASE (iom_file(kiomid)%iolib) 
    600599            CASE (jpioipsl )   ;   CALL iom_ioipsl_get(  kiomid, idvar, pvar, itime ) 
     
    604603               CALL ctl_stop( 'iom_g0d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 
    605604            END SELECT 
    606             IF(nn_timing == 2)  CALL timing_stop('rst_get') 
    607605         ENDIF 
    608606      ENDIF 
     
    914912         ENDIF 
    915913       
    916          IF(nn_timing == 2)  CALL timing_start('iom_get')  
    917914         SELECT CASE (iom_file(kiomid)%iolib) 
    918915         CASE (jpioipsl )   ;   CALL iom_ioipsl_get(  kiomid, idvar, inbdim, istart, icnt, ix1, ix2, iy1, iy2,   & 
     
    925922            CALL ctl_stop( TRIM(clinfo)//' accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 
    926923         END SELECT 
    927          IF(nn_timing == 2)  CALL timing_stop('iom_get') 
    928924 
    929925         IF( istop == nstop ) THEN   ! no additional errors until this point... 
     
    10711067         IF( iom_file(kiomid)%nfid > 0 ) THEN 
    10721068            ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 
    1073             IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    10741069            SELECT CASE (iom_file(kiomid)%iolib) 
    10751070            CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r0d = pvar ) 
     
    10791074               CALL ctl_stop( 'iom_rp0d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 
    10801075            END SELECT 
    1081             IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    10821076         ENDIF 
    10831077      ENDIF 
     
    10951089         IF( iom_file(kiomid)%nfid > 0 ) THEN 
    10961090            ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 
    1097             IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    10981091            SELECT CASE (iom_file(kiomid)%iolib) 
    10991092            CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r1d = pvar ) 
     
    11031096               CALL ctl_stop( 'iom_rp1d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 
    11041097            END SELECT 
    1105             IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    11061098         ENDIF 
    11071099      ENDIF 
     
    11191111         IF( iom_file(kiomid)%nfid > 0 ) THEN 
    11201112            ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 
    1121             IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    11221113            SELECT CASE (iom_file(kiomid)%iolib) 
    11231114            CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r2d = pvar ) 
     
    11271118               CALL ctl_stop( 'iom_rp2d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 
    11281119            END SELECT 
    1129             IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    11301120         ENDIF 
    11311121      ENDIF 
     
    11431133         IF( iom_file(kiomid)%nfid > 0 ) THEN 
    11441134            ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 
    1145             IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    11461135            SELECT CASE (iom_file(kiomid)%iolib) 
    11471136            CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r3d = pvar ) 
     
    11511140               CALL ctl_stop( 'iom_rp3d: accepted IO library are only jpioipsl and jprstdimg' ) 
    11521141            END SELECT 
    1153             IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    11541142         ENDIF 
    11551143      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.