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/DOM/domvvl.F90

    r9252 r9261  
    817817         IF( ln_rstart ) THEN                   !* Read the restart file 
    818818            CALL rst_read_open                  !  open the restart file if necessary 
     819            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    819820            CALL iom_get( numror, jpdom_autoglo, 'sshn'   , sshn    ) 
    820821            ! 
     
    892893            ENDIF 
    893894            ! 
     895            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    894896         ELSE                                   !* Initialize at "rest" 
    895897            fse3t_b(:,:,:) = e3t_0(:,:,:) 
     
    909911         !                                           ! all cases ! 
    910912         !                                           ! --------- !  
    911          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     913         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    912914         CALL iom_rstput( kt, nitrst, numrow, 'fse3t_b', fse3t_b(:,:,:) ) 
    913915         CALL iom_rstput( kt, nitrst, numrow, 'fse3t_n', fse3t_n(:,:,:) ) 
     
    923925            CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:) ) 
    924926         ENDIF 
    925          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     927         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    926928 
    927929      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.