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/zdfgls.F90

    r9252 r9261  
    11841184            ! 
    11851185            IF( MIN( id1, id2, id3, id4, id5, id6 ) > 0 ) THEN        ! all required arrays exist 
     1186               IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    11861187               CALL iom_get( numror, jpdom_autoglo, 'en'    , en     ) 
    11871188               CALL iom_get( numror, jpdom_autoglo, 'avt'   , avt    ) 
     
    11901191               CALL iom_get( numror, jpdom_autoglo, 'avmv'  , avmv   ) 
    11911192               CALL iom_get( numror, jpdom_autoglo, 'mxln'  , mxln   ) 
     1193               IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    11921194            ELSE                         
    11931195               IF(lwp) WRITE(numout,*) ' ===>>>> : previous run without gls scheme, en and mxln computed by iterative loop' 
     
    12091211         !                                   ! ------------------- 
    12101212         IF(lwp) WRITE(numout,*) '---- gls-rst ----' 
    1211          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     1213         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    12121214         CALL iom_rstput( kt, nitrst, numrow, 'en'   , en     )  
    12131215         CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k  ) 
     
    12161218         CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k ) 
    12171219         CALL iom_rstput( kt, nitrst, numrow, 'mxln' , mxln   ) 
    1218          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     1220         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    12191221         ! 
    12201222      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.