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/DYN/dynspg_ts.F90

    r9252 r9261  
    10191019      ! 
    10201020      IF( TRIM(cdrw) == 'READ' ) THEN 
     1021         IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    10211022         CALL iom_get( numror, jpdom_autoglo, 'ub2_b'  , ub2_b  (:,:) )    
    10221023         CALL iom_get( numror, jpdom_autoglo, 'vb2_b'  , vb2_b  (:,:) )  
     
    10361037         ENDIF 
    10371038#endif 
     1039      IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    10381040      ! 
    10391041      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN 
    1040          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     1042         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    10411043         CALL iom_rstput( kt, nitrst, numrow, 'ub2_b'   , ub2_b  (:,:) ) 
    10421044         CALL iom_rstput( kt, nitrst, numrow, 'vb2_b'   , vb2_b  (:,:) ) 
     
    10571059         ENDIF 
    10581060#endif 
    1059          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     1061         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    10601062      ENDIF 
    10611063      ! 
Note: See TracChangeset for help on using the changeset viewer.