New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9261 for branches – NEMO

Changeset 9261 for branches


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

#1978 only 1 and 2 for nn_timing

Location:
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC
Files:
22 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90

    r9252 r9261  
    111111            ! 
    112112            !                                      ! Write the information 
    113             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     113            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    114114            CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate             ) 
    115115            CALL iom_rstput( kt, nitbkg_r, inum, 'un'     , un                ) 
     
    122122#endif 
    123123            CALL iom_rstput( kt, nitbkg_r, inum, 'gcx'    , gcx               ) 
    124             IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     124            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    125125            ! 
    126126            CALL iom_close( inum ) 
     
    151151            ! 
    152152            !                                      ! Write the information 
    153             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     153            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    154154            CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate             ) 
    155155            CALL iom_rstput( kt, nitdin_r, inum, 'un'     , un                ) 
     
    167167            ENDIF 
    168168#endif 
    169             IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     169            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    170170            ! 
    171171            CALL iom_close( inum ) 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

    r9252 r9261  
    254254           IF(lwp) WRITE(numout,*) ' dia_hsb_rst at it= ', kt,' date= ', ndastp 
    255255           IF(lwp) WRITE(numout,*) '~~~~~~~' 
     256           IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    256257           CALL iom_get( numror, 'frc_v', frc_v ) 
    257258           CALL iom_get( numror, 'frc_t', frc_t ) 
     
    269270              CALL iom_get( numror, jpdom_autoglo, 'ssh_sc_loc_ini', ssh_sc_loc_ini ) 
    270271           ENDIF 
     272           IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    271273       ELSE 
    272274          IF(lwp) WRITE(numout,*) '~~~~~~~' 
     
    304306        IF(lwp) WRITE(numout,*) ' dia_hsb_rst at it= ', kt,' date= ', ndastp 
    305307        IF(lwp) WRITE(numout,*) '~~~~~~~' 
    306         IF(nn_timing == 3)  CALL timing_start('rst_put') 
     308        IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    307309        CALL iom_rstput( kt, nitrst, numrow, 'frc_v'   , frc_v     ) 
    308310        CALL iom_rstput( kt, nitrst, numrow, 'frc_t'   , frc_t     ) 
     
    320322           CALL iom_rstput( kt, nitrst, numrow, 'ssh_sc_loc_ini', ssh_sc_loc_ini ) 
    321323        ENDIF 
    322         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     324        IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    323325        ! 
    324326     ENDIF 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r9252 r9261  
    309309         IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN 
    310310            ! Get Calendar informations 
     311            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    311312            CALL iom_get( numror, 'kt', zkt )   ! last time-step of previous run 
     313            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    312314            IF(lwp) THEN 
    313315               WRITE(numout,*) ' *** Info read in restart : ' 
     
    327329            ! define ndastp and adatrj 
    328330            IF ( nrstdt == 2 ) THEN 
     331               IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    329332               ! read the parameters correspondting to nit000 - 1 (last time step of previous run) 
    330333               CALL iom_get( numror, 'ndastp', zndastp ) 
    331334               ndastp = NINT( zndastp ) 
    332335               CALL iom_get( numror, 'adatrj', adatrj  ) 
     336               IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    333337            ELSE 
    334338               ! parameters correspondting to nit000 - 1 (as we start the step loop with a call to day) 
     
    359363         ENDIF 
    360364         ! calendar control 
    361          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     365         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    362366         CALL iom_rstput( kt, nitrst, numrow, 'kt'     , REAL( kt    , wp) )   ! time-step 
    363367         CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp) )   ! date 
    364368         CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj            )   ! number of elapsed days since 
    365369         !                                                                     ! the begining of the run [s] 
    366          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     370         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    367371      ENDIF 
    368372      ! 
  • 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 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90

    r9252 r9261  
    126126       
    127127      !                                                         ! masks (inum2)  
    128       IF(nn_timing == 3)  CALL timing_start('rst_put') 
     128      IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    129129      CALL iom_rstput( 0, 0, inum2, 'tmask', tmask, ktype = jp_i1 )     !    ! land-sea mask 
    130130      CALL iom_rstput( 0, 0, inum2, 'umask', umask, ktype = jp_i1 ) 
    131131      CALL iom_rstput( 0, 0, inum2, 'vmask', vmask, ktype = jp_i1 ) 
    132132      CALL iom_rstput( 0, 0, inum2, 'fmask', fmask, ktype = jp_i1 ) 
    133       IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     133      IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    134134       
    135135      CALL dom_uniq( zprw, 'T' ) 
     
    140140         END DO 
    141141      END DO                             !    ! unique point mask 
    142       IF(nn_timing == 3)  CALL timing_start('rst_put') 
     142      IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    143143      CALL iom_rstput( 0, 0, inum2, 'tmaskutil', zprt, ktype = jp_i1 )   
    144       IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     144      IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    145145      CALL dom_uniq( zprw, 'U' ) 
    146146      DO jj = 1, jpj 
     
    150150         END DO 
    151151      END DO 
    152       IF(nn_timing == 3)  CALL timing_start('rst_put') 
     152      IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    153153      CALL iom_rstput( 0, 0, inum2, 'umaskutil', zprt, ktype = jp_i1 )   
    154       IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     154      IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    155155      CALL dom_uniq( zprw, 'V' ) 
    156156      DO jj = 1, jpj 
     
    160160         END DO 
    161161      END DO 
    162       IF(nn_timing == 3)  CALL timing_start('rst_put') 
     162      IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    163163      CALL iom_rstput( 0, 0, inum2, 'vmaskutil', zprt, ktype = jp_i1 )   
    164       IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     164      IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    165165      CALL dom_uniq( zprw, 'F' ) 
    166166      DO jj = 1, jpj 
     
    170170         END DO 
    171171      END DO 
    172       IF(nn_timing == 3)  CALL timing_start('rst_put') 
     172      IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    173173      CALL iom_rstput( 0, 0, inum2, 'fmaskutil', zprt, ktype = jp_i1 )   
    174174 
     
    227227         CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r4 )      
    228228      ENDIF 
    229       IF(nn_timing == 3)  CALL timing_stop('rst_put')  
     229      IF(nn_timing == 2)  CALL timing_stop('iom_rstput')  
    230230      IF( ln_zps ) THEN                                         ! z-coordinate - partial steps 
    231231         ! 
    232232         IF( nmsh <= 6 ) THEN                                   !    ! 3D vertical scale factors 
    233             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     233            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    234234            CALL iom_rstput( 0, 0, inum4, 'e3t_0', e3t_0 )          
    235235            CALL iom_rstput( 0, 0, inum4, 'e3u_0', e3u_0 ) 
    236236            CALL iom_rstput( 0, 0, inum4, 'e3v_0', e3v_0 ) 
    237237            CALL iom_rstput( 0, 0, inum4, 'e3w_0', e3w_0 ) 
    238             IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     238            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    239239         ELSE                                                   !    ! 2D masked bottom ocean scale factors 
    240240            DO jj = 1,jpj    
     
    244244               END DO 
    245245            END DO 
    246             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     246            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    247247            CALL iom_rstput( 0, 0, inum4, 'e3t_ps', e3tp )       
    248248            CALL iom_rstput( 0, 0, inum4, 'e3w_ps', e3wp ) 
    249             IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     249            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    250250         END IF 
    251251         ! 
     
    261261            END DO 
    262262            CALL lbc_lnk( zdepu, 'U', 1. )   ;   CALL lbc_lnk( zdepv, 'V', 1. )  
    263             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     263            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    264264            CALL iom_rstput( 0, 0, inum4, 'gdepu', zdepu, ktype = jp_r4 ) 
    265265            CALL iom_rstput( 0, 0, inum4, 'gdepv', zdepv, ktype = jp_r4 ) 
    266266            CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r4 ) 
    267             IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     267            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    268268         ELSE                                                   !    ! 2D bottom depth 
    269269            DO jj = 1,jpj    
     
    273273               END DO 
    274274            END DO 
    275             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     275            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    276276            CALL iom_rstput( 0, 0, inum4, 'hdept', zprt, ktype = jp_r4 )      
    277277            CALL iom_rstput( 0, 0, inum4, 'hdepw', zprw, ktype = jp_r4 )  
    278             IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     278            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    279279         ENDIF 
    280280         ! 
    281          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     281         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    282282         CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )   !    ! reference z-coord. 
    283283         CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
    284284         CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   ) 
    285285         CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   ) 
    286          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     286         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    287287      ENDIF 
    288288       
    289289      IF( ln_zco ) THEN 
    290290         !                                                      ! z-coordinate - full steps 
    291          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     291         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    292292         CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )   !    ! depth 
    293293         CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
    294294         CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   )   !    ! scale factors 
    295295         CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   ) 
    296          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     296         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    297297      ENDIF 
    298298      !                                     ! ============================ 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90

    r9252 r9261  
    395395! Caution : extra-hallow 
    396396! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 
     397            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    397398            CALL iom_get( numror, jpdom_autoglo, 'gcx' , gcx (1:jpi,1:jpj) ) 
    398399            CALL iom_get( numror, jpdom_autoglo, 'gcxb', gcxb(1:jpi,1:jpj) ) 
     400            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    399401            IF( neuler == 0 )   gcxb(:,:) = gcx (:,:) 
    400402         ELSE 
     
    405407! Caution : extra-hallow 
    406408! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 
    407          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     409         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    408410         CALL iom_rstput( kt, nitrst, numrow, 'gcx' , gcx (1:jpi,1:jpj) ) 
    409411         CALL iom_rstput( kt, nitrst, numrow, 'gcxb', gcxb(1:jpi,1:jpj) ) 
    410          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     412         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    411413      ENDIF 
    412414      ! 
  • 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      ! 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

    r9253 r9261  
    2929   USE icb_oce        ! define iceberg arrays 
    3030   USE icbutl         ! iceberg utility routines 
     31   USE timing 
    3132 
    3233   IMPLICIT NONE 
     
    7172      TYPE(point)                  ::   localpt   ! NOT a pointer but an actual local variable 
    7273      !!---------------------------------------------------------------------- 
    73  
     74      IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    7475      ! Find a restart file. Assume iceberg restarts in same directory as ocean restarts 
    7576      ! and are called TRIM(cn_ocerst)//'_icebergs' 
     
    146147      CALL iom_close( ncid ) 
    147148      ! 
     149      IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    148150      IF( lwp .and. nn_verbose_level >= 0)  WRITE(numout,'(a)') 'icebergs, read_restart_bergs: completed' 
    149151      ! 
     
    169171      TYPE(point)  , POINTER :: pt 
    170172      !!---------------------------------------------------------------------- 
    171       IF(nn_timing == 3)  CALL timing_start('rst_put') 
     173      IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    172174      ! Assume we write iceberg restarts to same directory as ocean restarts. 
    173175      cl_path = TRIM(cn_ocerst_outdir) 
     
    374376      nret = NF90_CLOSE(ncid) 
    375377      IF (nret /= NF90_NOERR) CALL ctl_stop('icebergs, write_restart: nf_close failed') 
    376       IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     378      IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    377379      ! 
    378380   END SUBROUTINE icb_rst_write 
  • 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 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r9252 r9261  
    135135      INTEGER, INTENT(in) ::   kt   ! ocean time-step 
    136136      !!---------------------------------------------------------------------- 
    137                      IF(nn_timing == 3)  CALL timing_start('rst_put') 
     137                     IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    138138                     CALL iom_rstput( kt, nitrst, numrow, 'rdt'    , rdt       )   ! dynamics time step 
    139139                     CALL iom_rstput( kt, nitrst, numrow, 'rdttra1', rdttra(1) )   ! surface tracer time step 
     
    169169                     ENDIF 
    170170                     ENDIF 
    171                      IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     171                     IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    172172 
    173173      IF( kt == nitrst ) THEN 
     
    239239 
    240240      ! Check dynamics and tracer time-step consistency and force Euler restart if changed 
     241      IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    241242      IF( iom_varid( numror, 'rdt', ldstop = .FALSE. ) > 0 )   THEN 
    242243         CALL iom_get( numror, 'rdt', zrdt ) 
     
    302303         antarctica_icesheet_timelapsed = 0.0 
    303304      ENDIF 
    304  
     305      IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    305306      IF( neuler == 0 ) THEN                                  ! Euler restart (neuler=0) 
    306307         tsb  (:,:,:,:) = tsn  (:,:,:,:)                             ! all before fields set to now values 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

    r9252 r9261  
    144144         IF( ln_rstart .AND. iom_varid( numror, 'ssh_ibb', ldstop = .FALSE. ) > 0 ) THEN  
    145145            IF(lwp) WRITE(numout,*) 'sbc_apr:   ssh_ibb read in the restart file' 
    146             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     146            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    147147            CALL iom_get( numror, jpdom_autoglo, 'ssh_ibb', ssh_ibb )   ! before inv. barometer ssh 
    148             IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     148            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    149149            ! 
    150150         ELSE                                         !* no restart: set from nit000 values 
     
    159159         IF(lwp) WRITE(numout,*) 'sbc_apr : ssh_ib written in ocean restart file at it= ', kt,' date= ', ndastp 
    160160         IF(lwp) WRITE(numout,*) '~~~~' 
     161         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    161162         CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib ) 
     163         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    162164      ENDIF 
    163165      ! 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r8887 r9261  
    252252 
    253253      ! 
    254       IF( nn_timing == 1 .OR. nn_timing == 2)  CALL timing_start('sbc_cpl_init') 
     254      IF( nn_timing.gt.0 .and. nn_timing .le. 2)  CALL timing_start('sbc_cpl_init') 
    255255      ! 
    256256      CALL wrk_alloc( jpi,jpj, zacs, zaos ) 
     
    975975      CALL wrk_dealloc( jpi,jpj, zacs, zaos ) 
    976976      ! 
    977       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_init') 
     977      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_init') 
    978978      ! 
    979979   END SUBROUTINE sbc_cpl_init 
     
    10501050 
    10511051      ! 
    1052       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_rcv') 
     1052      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_start('sbc_cpl_rcv') 
    10531053      ! 
    10541054      CALL wrk_alloc( jpi,jpj, ztx, zty, zmsk, zemp, zqns, zqsr ) 
     
    14151415      CALL wrk_dealloc( jpi,jpj, ztx, zty, zmsk, zemp, zqns, zqsr ) 
    14161416      ! 
    1417       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_rcv') 
     1417      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_rcv') 
    14181418      ! 
    14191419   END SUBROUTINE sbc_cpl_rcv 
     
    14611461      !!---------------------------------------------------------------------- 
    14621462      ! 
    1463       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_ice_tau') 
     1463      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_start('sbc_cpl_ice_tau') 
    14641464      ! 
    14651465      CALL wrk_alloc( jpi,jpj, ztx, zty ) 
     
    16261626      CALL wrk_dealloc( jpi,jpj, ztx, zty ) 
    16271627      ! 
    1628       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_ice_tau') 
     1628      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_ice_tau') 
    16291629      ! 
    16301630   END SUBROUTINE sbc_cpl_ice_tau 
     
    16931693      !!---------------------------------------------------------------------- 
    16941694      ! 
    1695       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_ice_flx') 
     1695      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_start('sbc_cpl_ice_flx') 
    16961696      ! 
    16971697      CALL wrk_alloc( jpi,jpj,     zcptn, ztmp, zicefr, zmsk, zsnw ) 
     
    20782078      CALL wrk_dealloc( jpi,jpj,jpl, zqns_ice, zqsr_ice, zdqns_ice, zqevap_ice ) 
    20792079      ! 
    2080       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_ice_flx') 
     2080      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_ice_flx') 
    20812081      ! 
    20822082   END SUBROUTINE sbc_cpl_ice_flx 
     
    21012101      !!---------------------------------------------------------------------- 
    21022102      ! 
    2103       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_snd') 
     2103      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_start('sbc_cpl_snd') 
    21042104      ! 
    21052105      CALL wrk_alloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 ) 
     
    25332533      CALL wrk_dealloc( jpi,jpj,jpl, ztmp3, ztmp4 ) 
    25342534      ! 
    2535       IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_snd') 
     2535      IF( nn_timing.gt.0 .and. nn_timing .le. 2 )  CALL timing_stop('sbc_cpl_snd') 
    25362536      ! 
    25372537   END SUBROUTINE sbc_cpl_snd 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r9252 r9261  
    415415            & iom_varid( numror, 'utau_b', ldstop = .FALSE. ) > 0 ) THEN  
    416416            IF(lwp) WRITE(numout,*) '          nit000-1 surface forcing fields red in the restart file' 
     417            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    417418            CALL iom_get( numror, jpdom_autoglo, 'utau_b', utau_b )   ! before i-stress  (U-point) 
    418419            CALL iom_get( numror, jpdom_autoglo, 'vtau_b', vtau_b )   ! before j-stress  (V-point) 
     
    427428               sfx_b (:,:) = sfx(:,:) 
    428429            ENDIF 
     430            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    429431         ELSE                                                   !* no restart: set from nit000 values 
    430432            IF(lwp) WRITE(numout,*) '          nit000-1 surface forcing fields set to nit000' 
     
    443445            &                    'at it= ', kt,' date= ', ndastp 
    444446         IF(lwp) WRITE(numout,*) '~~~~' 
    445          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     447         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    446448         CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau ) 
    447449         CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau ) 
     
    451453         CALL iom_rstput( kt, nitrst, numrow, 'emp_b'  , emp  ) 
    452454         CALL iom_rstput( kt, nitrst, numrow, 'sfx_b'  , sfx  ) 
    453          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     455         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    454456      ENDIF 
    455457 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r9252 r9261  
    156156            & iom_varid( numror, 'rnf_b', ldstop = .FALSE. ) > 0 ) THEN 
    157157            IF(lwp) WRITE(numout,*) '          nit000-1 runoff forcing fields red in the restart file' 
     158            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    158159            CALL iom_get( numror, jpdom_autoglo, 'rnf_b', rnf_b )     ! before runoff 
    159160            CALL iom_get( numror, jpdom_autoglo, 'rnf_hc_b', rnf_tsc_b(:,:,jp_tem) )   ! before heat content of runoff 
    160161            CALL iom_get( numror, jpdom_autoglo, 'rnf_sc_b', rnf_tsc_b(:,:,jp_sal) )   ! before salinity content of runoff 
     162            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    161163         ELSE                                                   !* no restart: set from nit000 values 
    162164            IF(lwp) WRITE(numout,*) '          nit000-1 runoff forcing fields set to nit000' 
     
    172174            &                    'at it= ', kt,' date= ', ndastp 
    173175         IF(lwp) WRITE(numout,*) '~~~~' 
    174          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     176         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    175177         CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf ) 
    176178         CALL iom_rstput( kt, nitrst, numrow, 'rnf_hc_b', rnf_tsc(:,:,jp_tem) ) 
    177179         CALL iom_rstput( kt, nitrst, numrow, 'rnf_sc_b', rnf_tsc(:,:,jp_sal) ) 
    178          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     180         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    179181      ENDIF 
    180182      ! 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

    r9252 r9261  
    157157            IF(lwp) WRITE(numout,*) '~~~~~~~' 
    158158            zf_sbc = REAL( nn_fsbc, wp ) 
    159             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     159            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    160160            CALL iom_rstput( kt, nitrst, numrow, 'nn_fsbc', zf_sbc )    ! sbc frequency 
    161161            CALL iom_rstput( kt, nitrst, numrow, 'ssu_m'  , ssu_m  )    ! sea surface mean fields 
     
    166166            IF( lk_vvl )   CALL iom_rstput( kt, nitrst, numrow, 'e3t_m'  , e3t_m  ) 
    167167            CALL iom_rstput( kt, nitrst, numrow, 'frq_m'  , frq_m  ) 
    168             IF(nn_timing == 3)  CALL timing_stop('rst_put')  
     168            IF(nn_timing == 2)  CALL timing_stop('iom_rstput')  
    169169            ! 
    170170         ENDIF 
     
    209209         IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc', ldstop = .FALSE. ) > 0 ) THEN 
    210210            l_ssm_mean = .TRUE. 
     211            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    211212            CALL iom_get( numror               , 'nn_fsbc', zf_sbc )   ! sbc frequency of previous run 
    212213            CALL iom_get( numror, jpdom_autoglo, 'ssu_m'  , ssu_m  )   ! sea surface mean velocity    (T-point) 
     
    222223               frq_m(:,:) = 1._wp   ! default definition 
    223224            ENDIF 
     225            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    224226            ! 
    225227            IF( zf_sbc /= REAL( nn_fsbc, wp ) ) THEN      ! nn_fsbc has changed between 2 runs 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90

    r9252 r9261  
    697697         ! Get stochastic parameters from restart file: 
    698698         ! 2D stochastic parameters 
     699         IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    699700         DO jsto = 1 , jpsto2d 
    700701            WRITE(clsto2d(7:9),'(i3.3)') jsto 
     
    717718            CALL kiss_seed( ziseed(1) , ziseed(2) , ziseed(3) , ziseed(4) ) 
    718719         ENDIF 
     720         IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    719721 
    720722         ! Close the restart file 
     
    760762            CALL kiss_state( ziseed(1) , ziseed(2) , ziseed(3) , ziseed(4) ) 
    761763            zrseed = TRANSFER( ziseed , zrseed) 
    762             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     764            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    763765            DO jseed = 1 , 4 
    764766               WRITE(clseed(5:5) ,'(i1.1)') jseed 
     
    776778               CALL iom_rstput( kt, nitrst, numstow, clsto3d , sto3d(:,:,:,jsto) ) 
    777779            END DO 
    778             IF(nn_timing == 3)  CALL timing_stop('rst_put')  
     780            IF(nn_timing == 2)  CALL timing_stop('iom_rstput')  
    779781            ! close the restart file 
    780782            CALL iom_close( numstow ) 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_cen2.F90

    r9252 r9261  
    286286      ! avmb, avtb will be read in zdfini in restart case as they are used in zdftke, kpp etc... 
    287287      IF( lrst_oce .AND. cdtype == 'TRA' ) THEN 
    288          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     288         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    289289         CALL iom_rstput( kt, nitrst, numrow, 'avmb', avmb ) 
    290290         CALL iom_rstput( kt, nitrst, numrow, 'avtb', avtb ) 
    291          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     291         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    292292      ENDIF 
    293293      ! 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r9252 r9261  
    368368            &                    'at it= ', kt,' date= ', ndastp 
    369369         IF(lwp) WRITE(numout,*) '~~~~' 
    370          IF(nn_timing == 3)  CALL timing_start('rst_put')  
     370         IF(nn_timing == 2)  CALL timing_start('iom_rstput')  
    371371         CALL iom_rstput( kt, nitrst, numrow, 'qsr_hc_b'   , qsr_hc      ) 
    372372         CALL iom_rstput( kt, nitrst, numrow, 'fraqsr_1lev', fraqsr_1lev )   ! default definition in sbcssm  
    373          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     373         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    374374         ! 
    375375      ENDIF 
     
    609609      ! initialisation of fraqsr_1lev used in sbcssm 
    610610      IF( iom_varid( numror, 'fraqsr_1lev', ldstop = .FALSE. ) > 0 ) THEN 
     611         IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    611612         CALL iom_get( numror, jpdom_autoglo, 'fraqsr_1lev'  , fraqsr_1lev  ) 
     613         IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    612614      ELSE 
    613615         fraqsr_1lev(:,:) = 1._wp   ! default definition 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

    r9252 r9261  
    209209            &                    'at it= ', kt,' date= ', ndastp 
    210210         IF(lwp) WRITE(numout,*) '~~~~' 
    211          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     211         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    212212         CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_tsc(:,:,jp_tem) ) 
    213213         CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_tsc(:,:,jp_sal) ) 
    214          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     214         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    215215      ENDIF 
    216216      ! 
     
    255255               &                    'at it= ', kt,' date= ', ndastp 
    256256            IF(lwp) WRITE(numout,*) '~~~~' 
    257             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     257            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    258258            CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:)          ) 
    259259            CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem) ) 
    260260            CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal) ) 
    261             IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     261            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    262262         ENDIF 
    263263      END IF 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_rst.F90

    r9252 r9261  
    8080         WRITE(numout,*) 
    8181      ENDIF 
    82       IF(nn_timing == 3)  CALL timing_start('rst_put') 
     82      IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    8383      IF( ln_trdmxl_instant ) THEN  
    8484         !-- Temperature 
     
    116116         CALL iom_rstput( kt, nitrst, nummxlw, 'smltrd_atf_sumb' , smltrd_atf_sumb ) 
    117117      ENDIF 
    118       IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     118      IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    119119      ! 
    120120      IF( kt == nitrst ) THEN 
     
    160160 
    161161      CALL iom_open( TRIM(clpath)//TRIM(cn_trdrst_in), inum, kiolib = jlibalt )  
    162  
     162      IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    163163      IF( ln_trdmxl_instant ) THEN  
    164164         !-- Temperature 
     
    196196         CALL iom_get( inum, jpdom_autoglo, 'smltrd_atf_sumb' , smltrd_atf_sumb) 
    197197         ! 
    198          CALL iom_close( inum ) 
    199       ENDIF 
     198      ENDIF 
     199      IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
     200      CALL iom_close( inum ) 
    200201      ! 
    201202   END SUBROUTINE trd_mxl_rst_read 
  • 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 
  • 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.