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/ZDF/zdftke.F90

    r9252 r9261  
    937937              CALL iom_get( numror, jpdom_autoglo, 'en', en ) 
    938938              IF( MIN( id2, id3, id4, id5, id6 ) > 0 ) THEN        ! all required arrays exist 
     939                 IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    939940                 CALL iom_get( numror, jpdom_autoglo, 'avt'  , avt   ) 
    940941                 CALL iom_get( numror, jpdom_autoglo, 'avm'  , avm   ) 
     
    942943                 CALL iom_get( numror, jpdom_autoglo, 'avmv' , avmv  ) 
    943944                 CALL iom_get( numror, jpdom_autoglo, 'dissl', dissl ) 
     945                 IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    944946              ELSE                                                 ! one at least array is missing 
    945947                 CALL tke_avn                                          ! compute avt, avm, avmu, avmv and dissl (approximation) 
     
    970972        !                                   ! ------------------- 
    971973        IF(lwp) WRITE(numout,*) '---- tke-rst ----' 
    972         IF(nn_timing == 3)  CALL timing_start('rst_put') 
     974        IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    973975        CALL iom_rstput( kt, nitrst, numrow, 'en'   , en     ) 
    974976        CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k  ) 
     
    977979        CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k ) 
    978980        CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl  ) 
    979         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     981        IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    980982        ! 
    981983     ENDIF 
Note: See TracChangeset for help on using the changeset viewer.