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 9252 – NEMO

Changeset 9252


Ignore:
Timestamp:
2018-01-17T12:42:41+01:00 (7 years ago)
Author:
andmirek
Message:

#1978 timers for nn_timing 3

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

Legend:

Unmodified
Added
Removed

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

    r8904 r9252  
    5050   USE ice 
    5151#endif 
     52   USE timing 
    5253   IMPLICIT NONE 
    5354   PRIVATE 
    … …  
    110111            ! 
    111112            !                                      ! Write the information 
     113            IF(nn_timing == 3)  CALL timing_start('rst_put') 
    112114            CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate             ) 
    113115            CALL iom_rstput( kt, nitbkg_r, inum, 'un'     , un                ) 
    … …  
    120122#endif 
    121123            CALL iom_rstput( kt, nitbkg_r, inum, 'gcx'    , gcx               ) 
     124            IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    122125            ! 
    123126            CALL iom_close( inum ) 
    … …  
    148151            ! 
    149152            !                                      ! Write the information 
     153            IF(nn_timing == 3)  CALL timing_start('rst_put') 
    150154            CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate             ) 
    151155            CALL iom_rstput( kt, nitdin_r, inum, 'un'     , un                ) 
    … …  
    163167            ENDIF 
    164168#endif 
     169            IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    165170            ! 
    166171            CALL iom_close( inum ) 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

    r8904 r9252  
    304304        IF(lwp) WRITE(numout,*) ' dia_hsb_rst at it= ', kt,' date= ', ndastp 
    305305        IF(lwp) WRITE(numout,*) '~~~~~~~' 
    306  
     306        IF(nn_timing == 3)  CALL timing_start('rst_put') 
    307307        CALL iom_rstput( kt, nitrst, numrow, 'frc_v'   , frc_v     ) 
    308308        CALL iom_rstput( kt, nitrst, numrow, 'frc_t'   , frc_t     ) 
    … …  
    320320           CALL iom_rstput( kt, nitrst, numrow, 'ssh_sc_loc_ini', ssh_sc_loc_ini ) 
    321321        ENDIF 
     322        IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    322323        ! 
    323324     ENDIF 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

    r8904 r9252  
    359359         ENDIF 
    360360         ! calendar control 
     361         IF(nn_timing == 3)  CALL timing_start('rst_put') 
    361362         CALL iom_rstput( kt, nitrst, numrow, 'kt'     , REAL( kt    , wp) )   ! time-step 
    362363         CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp) )   ! date 
    363364         CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj            )   ! number of elapsed days since 
    364365         !                                                                     ! the begining of the run [s] 
     366         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    365367      ENDIF 
    366368      ! 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r8904 r9252  
    908908         !                                           ! --------- ! 
    909909         !                                           ! all cases ! 
    910          !                                           ! --------- ! 
     910         !                                           ! --------- !  
     911         IF(nn_timing == 3)  CALL timing_start('rst_put') 
    911912         CALL iom_rstput( kt, nitrst, numrow, 'fse3t_b', fse3t_b(:,:,:) ) 
    912913         CALL iom_rstput( kt, nitrst, numrow, 'fse3t_n', fse3t_n(:,:,:) ) 
    … …  
    922923            CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:) ) 
    923924         ENDIF 
     925         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    924926 
    925927      ENDIF 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90

    r8904 r9252  
    126126       
    127127      !                                                         ! masks (inum2)  
     128      IF(nn_timing == 3)  CALL timing_start('rst_put') 
    128129      CALL iom_rstput( 0, 0, inum2, 'tmask', tmask, ktype = jp_i1 )     !    ! land-sea mask 
    129130      CALL iom_rstput( 0, 0, inum2, 'umask', umask, ktype = jp_i1 ) 
    130131      CALL iom_rstput( 0, 0, inum2, 'vmask', vmask, ktype = jp_i1 ) 
    131132      CALL iom_rstput( 0, 0, inum2, 'fmask', fmask, ktype = jp_i1 ) 
     133      IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    132134       
    133135      CALL dom_uniq( zprw, 'T' ) 
    … …  
    138140         END DO 
    139141      END DO                             !    ! unique point mask 
     142      IF(nn_timing == 3)  CALL timing_start('rst_put') 
    140143      CALL iom_rstput( 0, 0, inum2, 'tmaskutil', zprt, ktype = jp_i1 )   
     144      IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    141145      CALL dom_uniq( zprw, 'U' ) 
    142146      DO jj = 1, jpj 
    … …  
    146150         END DO 
    147151      END DO 
     152      IF(nn_timing == 3)  CALL timing_start('rst_put') 
    148153      CALL iom_rstput( 0, 0, inum2, 'umaskutil', zprt, ktype = jp_i1 )   
     154      IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    149155      CALL dom_uniq( zprw, 'V' ) 
    150156      DO jj = 1, jpj 
    … …  
    154160         END DO 
    155161      END DO 
     162      IF(nn_timing == 3)  CALL timing_start('rst_put') 
    156163      CALL iom_rstput( 0, 0, inum2, 'vmaskutil', zprt, ktype = jp_i1 )   
     164      IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    157165      CALL dom_uniq( zprw, 'F' ) 
    158166      DO jj = 1, jpj 
    … …  
    162170         END DO 
    163171      END DO 
     172      IF(nn_timing == 3)  CALL timing_start('rst_put') 
    164173      CALL iom_rstput( 0, 0, inum2, 'fmaskutil', zprt, ktype = jp_i1 )   
    165174 
    … …  
    218227         CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r4 )      
    219228      ENDIF 
    220        
     229      IF(nn_timing == 3)  CALL timing_stop('rst_put')  
    221230      IF( ln_zps ) THEN                                         ! z-coordinate - partial steps 
    222231         ! 
    223232         IF( nmsh <= 6 ) THEN                                   !    ! 3D vertical scale factors 
     233            IF(nn_timing == 3)  CALL timing_start('rst_put') 
    224234            CALL iom_rstput( 0, 0, inum4, 'e3t_0', e3t_0 )          
    225235            CALL iom_rstput( 0, 0, inum4, 'e3u_0', e3u_0 ) 
    226236            CALL iom_rstput( 0, 0, inum4, 'e3v_0', e3v_0 ) 
    227237            CALL iom_rstput( 0, 0, inum4, 'e3w_0', e3w_0 ) 
     238            IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    228239         ELSE                                                   !    ! 2D masked bottom ocean scale factors 
    229240            DO jj = 1,jpj    
    … …  
    233244               END DO 
    234245            END DO 
     246            IF(nn_timing == 3)  CALL timing_start('rst_put') 
    235247            CALL iom_rstput( 0, 0, inum4, 'e3t_ps', e3tp )       
    236248            CALL iom_rstput( 0, 0, inum4, 'e3w_ps', e3wp ) 
     249            IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    237250         END IF 
    238251         ! 
    … …  
    248261            END DO 
    249262            CALL lbc_lnk( zdepu, 'U', 1. )   ;   CALL lbc_lnk( zdepv, 'V', 1. )  
     263            IF(nn_timing == 3)  CALL timing_start('rst_put') 
    250264            CALL iom_rstput( 0, 0, inum4, 'gdepu', zdepu, ktype = jp_r4 ) 
    251265            CALL iom_rstput( 0, 0, inum4, 'gdepv', zdepv, ktype = jp_r4 ) 
    252266            CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r4 ) 
     267            IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    253268         ELSE                                                   !    ! 2D bottom depth 
    254269            DO jj = 1,jpj    
    … …  
    258273               END DO 
    259274            END DO 
     275            IF(nn_timing == 3)  CALL timing_start('rst_put') 
    260276            CALL iom_rstput( 0, 0, inum4, 'hdept', zprt, ktype = jp_r4 )      
    261277            CALL iom_rstput( 0, 0, inum4, 'hdepw', zprw, ktype = jp_r4 )  
     278            IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    262279         ENDIF 
    263280         ! 
     281         IF(nn_timing == 3)  CALL timing_start('rst_put') 
    264282         CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )   !    ! reference z-coord. 
    265283         CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
    266284         CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   ) 
    267285         CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   ) 
     286         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    268287      ENDIF 
    269288       
    270289      IF( ln_zco ) THEN 
    271290         !                                                      ! z-coordinate - full steps 
     291         IF(nn_timing == 3)  CALL timing_start('rst_put') 
    272292         CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )   !    ! depth 
    273293         CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
    274294         CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   )   !    ! scale factors 
    275295         CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   ) 
     296         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    276297      ENDIF 
    277298      !                                     ! ============================ 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90

    r8904 r9252  
    405405! Caution : extra-hallow 
    406406! 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') 
    407408         CALL iom_rstput( kt, nitrst, numrow, 'gcx' , gcx (1:jpi,1:jpj) ) 
    408409         CALL iom_rstput( kt, nitrst, numrow, 'gcxb', gcxb(1:jpi,1:jpj) ) 
     410         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    409411      ENDIF 
    410412      ! 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r8904 r9252  
    10381038      ! 
    10391039      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN 
     1040         IF(nn_timing == 3)  CALL timing_start('rst_put') 
    10401041         CALL iom_rstput( kt, nitrst, numrow, 'ub2_b'   , ub2_b  (:,:) ) 
    10411042         CALL iom_rstput( kt, nitrst, numrow, 'vb2_b'   , vb2_b  (:,:) ) 
    … …  
    10561057         ENDIF 
    10571058#endif 
     1059         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    10581060      ENDIF 
    10591061      ! 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r8904 r9252  
    2626   USE divcur          ! hor. divergence and curl      (div & cur routines) 
    2727   USE sbc_oce         ! for icesheet freshwater input variables 
     28   USE timing 
    2829 
    2930   IMPLICIT NONE 
    … …  
    134135      INTEGER, INTENT(in) ::   kt   ! ocean time-step 
    135136      !!---------------------------------------------------------------------- 
    136  
     137                     IF(nn_timing == 3)  CALL timing_start('rst_put') 
    137138                     CALL iom_rstput( kt, nitrst, numrow, 'rdt'    , rdt       )   ! dynamics time step 
    138139                     CALL iom_rstput( kt, nitrst, numrow, 'rdttra1', rdttra(1) )   ! surface tracer time step 
    … …  
    168169                     ENDIF 
    169170                     ENDIF 
     171                     IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    170172 
    171173      IF( kt == nitrst ) THEN 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

    r8904 r9252  
    1919   USE iom             ! IOM library 
    2020   USE lib_mpp         ! MPP library 
     21   USE timing 
    2122 
    2223   IMPLICIT NONE 
    … …  
    143144         IF( ln_rstart .AND. iom_varid( numror, 'ssh_ibb', ldstop = .FALSE. ) > 0 ) THEN  
    144145            IF(lwp) WRITE(numout,*) 'sbc_apr:   ssh_ibb read in the restart file' 
     146            IF(nn_timing == 3)  CALL timing_start('rst_put') 
    145147            CALL iom_get( numror, jpdom_autoglo, 'ssh_ibb', ssh_ibb )   ! before inv. barometer ssh 
     148            IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    146149            ! 
    147150         ELSE                                         !* no restart: set from nit000 values 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r8904 r9252  
    443443            &                    'at it= ', kt,' date= ', ndastp 
    444444         IF(lwp) WRITE(numout,*) '~~~~' 
     445         IF(nn_timing == 3)  CALL timing_start('rst_put') 
    445446         CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau ) 
    446447         CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau ) 
    … …  
    450451         CALL iom_rstput( kt, nitrst, numrow, 'emp_b'  , emp  ) 
    451452         CALL iom_rstput( kt, nitrst, numrow, 'sfx_b'  , sfx  ) 
     453         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    452454      ENDIF 
    453455 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r8904 r9252  
    2727   USE eosbn2 
    2828   USE wrk_nemo        ! Memory allocation 
     29   USE timing 
    2930 
    3031   IMPLICIT NONE 
    … …  
    171172            &                    'at it= ', kt,' date= ', ndastp 
    172173         IF(lwp) WRITE(numout,*) '~~~~' 
     174         IF(nn_timing == 3)  CALL timing_start('rst_put') 
    173175         CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf ) 
    174176         CALL iom_rstput( kt, nitrst, numrow, 'rnf_hc_b', rnf_tsc(:,:,jp_tem) ) 
    175177         CALL iom_rstput( kt, nitrst, numrow, 'rnf_sc_b', rnf_tsc(:,:,jp_sal) ) 
     178         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    176179      ENDIF 
    177180      ! 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

    r8904 r9252  
    2121   USE prtctl          ! Print control 
    2222   USE iom             ! IOM library 
     23   USE timing 
    2324 
    2425   IMPLICIT NONE 
    … …  
    156157            IF(lwp) WRITE(numout,*) '~~~~~~~' 
    157158            zf_sbc = REAL( nn_fsbc, wp ) 
     159            IF(nn_timing == 3)  CALL timing_start('rst_put') 
    158160            CALL iom_rstput( kt, nitrst, numrow, 'nn_fsbc', zf_sbc )    ! sbc frequency 
    159161            CALL iom_rstput( kt, nitrst, numrow, 'ssu_m'  , ssu_m  )    ! sea surface mean fields 
    … …  
    164166            IF( lk_vvl )   CALL iom_rstput( kt, nitrst, numrow, 'e3t_m'  , e3t_m  ) 
    165167            CALL iom_rstput( kt, nitrst, numrow, 'frq_m'  , frq_m  ) 
     168            IF(nn_timing == 3)  CALL timing_stop('rst_put')  
    166169            ! 
    167170         ENDIF 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90

    r8904 r9252  
    2222   USE iom             ! I/O module 
    2323   USE lib_mpp 
    24  
     24   USE timing 
    2525 
    2626   IMPLICIT NONE 
    … …  
    760760            CALL kiss_state( ziseed(1) , ziseed(2) , ziseed(3) , ziseed(4) ) 
    761761            zrseed = TRANSFER( ziseed , zrseed) 
     762            IF(nn_timing == 3)  CALL timing_start('rst_put') 
    762763            DO jseed = 1 , 4 
    763764               WRITE(clseed(5:5) ,'(i1.1)') jseed 
    … …  
    775776               CALL iom_rstput( kt, nitrst, numstow, clsto3d , sto3d(:,:,:,jsto) ) 
    776777            END DO 
     778            IF(nn_timing == 3)  CALL timing_stop('rst_put')  
    777779            ! close the restart file 
    778780            CALL iom_close( numstow ) 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_cen2.F90

    r8904 r9252  
    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') 
    288289         CALL iom_rstput( kt, nitrst, numrow, 'avmb', avmb ) 
    289290         CALL iom_rstput( kt, nitrst, numrow, 'avtb', avtb ) 
     291         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    290292      ENDIF 
    291293      ! 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r8904 r9252  
    368368            &                    'at it= ', kt,' date= ', ndastp 
    369369         IF(lwp) WRITE(numout,*) '~~~~' 
     370         IF(nn_timing == 3)  CALL timing_start('rst_put')  
    370371         CALL iom_rstput( kt, nitrst, numrow, 'qsr_hc_b'   , qsr_hc      ) 
    371372         CALL iom_rstput( kt, nitrst, numrow, 'fraqsr_1lev', fraqsr_1lev )   ! default definition in sbcssm  
     373         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    372374         ! 
    373375      ENDIF 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

    r8904 r9252  
    209209            &                    'at it= ', kt,' date= ', ndastp 
    210210         IF(lwp) WRITE(numout,*) '~~~~' 
     211         IF(nn_timing == 3)  CALL timing_start('rst_put') 
    211212         CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_tsc(:,:,jp_tem) ) 
    212213         CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_tsc(:,:,jp_sal) ) 
     214         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    213215      ENDIF 
    214216      ! 
    … …  
    253255               &                    'at it= ', kt,' date= ', ndastp 
    254256            IF(lwp) WRITE(numout,*) '~~~~' 
     257            IF(nn_timing == 3)  CALL timing_start('rst_put') 
    255258            CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:)          ) 
    256259            CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem) ) 
    257260            CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal) ) 
     261            IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    258262         ENDIF 
    259263      END IF 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_rst.F90

    r8904 r9252  
    1616   USE iom             ! I/O module 
    1717   USE restart         ! only for lrst_oce 
     18   USE timing 
    1819 
    1920   IMPLICIT NONE 
    … …  
    7980         WRITE(numout,*) 
    8081      ENDIF 
    81  
     82      IF(nn_timing == 3)  CALL timing_start('rst_put') 
    8283      IF( ln_trdmxl_instant ) THEN  
    8384         !-- Temperature 
    … …  
    115116         CALL iom_rstput( kt, nitrst, nummxlw, 'smltrd_atf_sumb' , smltrd_atf_sumb ) 
    116117      ENDIF 
     118      IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    117119      ! 
    118120      IF( kt == nitrst ) THEN 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r8904 r9252  
    12091209         !                                   ! ------------------- 
    12101210         IF(lwp) WRITE(numout,*) '---- gls-rst ----' 
     1211         IF(nn_timing == 3)  CALL timing_start('rst_put') 
    12111212         CALL iom_rstput( kt, nitrst, numrow, 'en'   , en     )  
    12121213         CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k  ) 
    … …  
    12151216         CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k ) 
    12161217         CALL iom_rstput( kt, nitrst, numrow, 'mxln' , mxln   ) 
     1218         IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    12171219         ! 
    12181220      ENDIF 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r8904 r9252  
    970970        !                                   ! ------------------- 
    971971        IF(lwp) WRITE(numout,*) '---- tke-rst ----' 
     972        IF(nn_timing == 3)  CALL timing_start('rst_put') 
    972973        CALL iom_rstput( kt, nitrst, numrow, 'en'   , en     ) 
    973974        CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k  ) 
    … …  
    976977        CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k ) 
    977978        CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl  ) 
     979        IF(nn_timing == 3)  CALL timing_stop('rst_put') 
    978980        ! 
    979981     ENDIF 
Note: See TracChangeset for help on using the changeset viewer.