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

Changeset 8904


Ignore:
Timestamp:
2017-12-05T17:01:17+01:00 (7 years ago)
Author:
andmirek
Message:

#1978 new timers

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

Legend:

Unmodified
Added
Removed

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

    r8895 r8904  
    5050   USE ice 
    5151#endif 
    52    USE timing 
    5352   IMPLICIT NONE 
    5453   PRIVATE 
    … …  
    111110            ! 
    112111            !                                      ! Write the information 
    113             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    114112            CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate             ) 
    115113            CALL iom_rstput( kt, nitbkg_r, inum, 'un'     , un                ) 
    … …  
    122120#endif 
    123121            CALL iom_rstput( kt, nitbkg_r, inum, 'gcx'    , gcx               ) 
    124             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    125122            ! 
    126123            CALL iom_close( inum ) 
    … …  
    151148            ! 
    152149            !                                      ! Write the information 
    153             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    154150            CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate             ) 
    155151            CALL iom_rstput( kt, nitdin_r, inum, 'un'     , un                ) 
    … …  
    167163            ENDIF 
    168164#endif 
    169             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    170165            ! 
    171166            CALL iom_close( inum ) 

  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/CRS/crsdomwri.F90

    r8895 r8904  
    122122      !======================================================== 
    123123      !                                                         ! masks (inum2)  
    124       IF(nn_timing == 2)  CALL timing_start('rst_put') 
    125124      CALL iom_rstput( 0, 0, inum2, 'tmask', tmask_crs, ktype = jp_i1 )     !    ! land-sea mask 
    126125      CALL iom_rstput( 0, 0, inum2, 'umask', umask_crs, ktype = jp_i1 ) 
    127126      CALL iom_rstput( 0, 0, inum2, 'vmask', vmask_crs, ktype = jp_i1 ) 
    128127      CALL iom_rstput( 0, 0, inum2, 'fmask', fmask_crs, ktype = jp_i1 ) 
    129       IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    130128       
    131129       
    … …  
    158156         fpol_crs(jpiglo_crs/2+1:jpiglo_crs,:)=0._wp 
    159157      ENDIF 
    160       IF(nn_timing == 2)  CALL timing_start('rst_put')  
     158       
    161159      CALL iom_rstput( 0, 0, inum2, 'tmaskutil', tmask_i_crs, ktype = jp_i1 ) 
    162       IF(nn_timing == 2)  CALL timing_stop('rst_put') 
     160                                   !    ! unique point mask 
    163161      CALL dom_uniq_crs( zprw, 'U' ) 
    164162      zprt = umask_crs(:,:,1) * zprw 
    165       IF(nn_timing == 2)  CALL timing_start('rst_put') 
    166163      CALL iom_rstput( 0, 0, inum2, 'umaskutil', zprt, ktype = jp_i1 )   
    167       IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    168164      CALL dom_uniq_crs( zprw, 'V' ) 
    169165      zprt = vmask_crs(:,:,1) * zprw 
    170       IF(nn_timing == 2)  CALL timing_start('rst_put') 
    171166      CALL iom_rstput( 0, 0, inum2, 'vmaskutil', zprt, ktype = jp_i1 )   
    172       IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    173167      CALL dom_uniq_crs( zprw, 'F' ) 
    174168      zprt = fmask_crs(:,:,1) * zprw 
    175       IF(nn_timing == 2)  CALL timing_start('rst_put') 
    176169      CALL iom_rstput( 0, 0, inum2, 'fmaskutil', zprt, ktype = jp_i1 )   
    177170      !======================================================== 
    … …  
    198191       
    199192      CALL iom_rstput( 0, 0, inum3, 'ff', ff_crs, ktype = jp_r8 )           !    ! coriolis factor 
    200       IF(nn_timing == 2)  CALL timing_stop('rst_put') 
     193 
    201194      !======================================================== 
    202195      !                                                         ! vertical mesh (inum4)  
    203196!     ! note that mbkt is set to 1 over land ==> use surface tmask_crs 
    204197      zprt(:,:) = tmask_crs(:,:,1) * REAL( mbkt_crs(:,:) , wp ) 
    205       IF(nn_timing == 2)  CALL timing_start('rst_put') 
    206198      CALL iom_rstput( 0, 0, inum4, 'mbathy', zprt, ktype = jp_i2 )     !    ! nb of ocean T-points 
    207       IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    208199 
    209200      IF( ln_zps ) THEN                       ! z-coordinate - partial steps 
    … …  
    211202             
    212203         IF ( nn_msh_crs <= 6 ) THEN 
    213             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    214204            CALL iom_rstput( 0, 0, inum4, 'e3t', e3t_crs )       
    215205            CALL iom_rstput( 0, 0, inum4, 'e3w', e3w_crs )       
    216206            CALL iom_rstput( 0, 0, inum4, 'e3u', e3u_crs )       
    217207            CALL iom_rstput( 0, 0, inum4, 'e3v', e3v_crs )       
    218             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    219208         ELSE 
    220209            DO jj = 1,jpj_crs    
    … …  
    227216            CALL crs_lbc_lnk( ze3tp,'T', 1.0 ) 
    228217            CALL crs_lbc_lnk( ze3wp,'W', 1.0 ) 
    229             IF(nn_timing == 2)  CALL timing_start('rst_put')  
     218   
    230219            CALL iom_rstput( 0, 0, inum4, 'e3t_ps', ze3tp )       
    231220            CALL iom_rstput( 0, 0, inum4, 'e3w_ps', ze3wp ) 
    232             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    233221         ENDIF 
    234222 
    … …  
    245233 
    246234            CALL crs_lbc_lnk( zdepu,'U', 1. )   ;   CALL crs_lbc_lnk( zdepv,'V', 1. )  
    247             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    248235            CALL iom_rstput( 0, 0, inum4, 'gdepu', zdepu, ktype = jp_r4 ) 
    249236            CALL iom_rstput( 0, 0, inum4, 'gdepv', zdepv, ktype = jp_r4 ) 
    250237            CALL iom_rstput( 0, 0, inum4, 'gdepw', gdepw_crs, ktype = jp_r4 ) 
    251             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    252238         ELSE 
    253239            DO jj = 1,jpj_crs    
    … …  
    257243               END DO 
    258244            END DO 
    259             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    260245            CALL iom_rstput( 0, 0, inum4, 'hdept', zprt, ktype = jp_r4 )      
    261246            CALL iom_rstput( 0, 0, inum4, 'hdepw', zprw, ktype = jp_r4 )  
    262             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    263247         ENDIF 
    264          IF(nn_timing == 2)  CALL timing_start('rst_put') 
     248 
    265249         CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )     !    ! reference z-coord. 
    266250         CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
    … …  
    285269         CALL iom_rstput(  0, 0, inum4, 'crs_surfv_wgt', crs_surfv_wgt )  
    286270         CALL iom_rstput(  0, 0, inum4, 'crs_volt_wgt' , crs_volt_wgt  )  
    287          IF(nn_timing == 2)  CALL timing_stop('rst_put')  
     271 
    288272      ENDIF 
    289273       
    290274     IF( ln_zco ) THEN 
    291275         !                                                      ! z-coordinate - full steps 
    292         IF(nn_timing == 2)  CALL timing_start('rst_put') 
    293276        CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )     !    ! depth 
    294277        CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
    295278        CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   )     !    ! scale factors 
    296279        CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   ) 
    297         IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    298280     ENDIF 
    299281      !                                     ! ============================ 

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

    r8895 r8904  
    304304        IF(lwp) WRITE(numout,*) ' dia_hsb_rst at it= ', kt,' date= ', ndastp 
    305305        IF(lwp) WRITE(numout,*) '~~~~~~~' 
    306         IF(nn_timing == 2)  CALL timing_start('rst_put') 
     306 
    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 == 2)  CALL timing_stop('rst_put') 
    323322        ! 
    324323     ENDIF 

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

    r8895 r8904  
    359359         ENDIF 
    360360         ! calendar control 
    361          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    362361         CALL iom_rstput( kt, nitrst, numrow, 'kt'     , REAL( kt    , wp) )   ! time-step 
    363362         CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp) )   ! date 
    364363         CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj            )   ! number of elapsed days since 
    365364         !                                                                     ! the begining of the run [s] 
    366          IF(nn_timing == 2)  CALL timing_stop('rst_put')  
    367365      ENDIF 
    368366      ! 

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

    r8895 r8904  
    909909         !                                           ! all cases ! 
    910910         !                                           ! --------- ! 
    911          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    912911         CALL iom_rstput( kt, nitrst, numrow, 'fse3t_b', fse3t_b(:,:,:) ) 
    913912         CALL iom_rstput( kt, nitrst, numrow, 'fse3t_n', fse3t_n(:,:,:) ) 
    … …  
    923922            CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:) ) 
    924923         ENDIF 
    925          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
     924 
    926925      ENDIF 
    927926      IF( nn_timing == 1 )  CALL timing_stop('dom_vvl_rst') 

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

    r8895 r8904  
    126126       
    127127      !                                                         ! masks (inum2)  
    128       IF(nn_timing == 2)  CALL timing_start('rst_put') 
    129128      CALL iom_rstput( 0, 0, inum2, 'tmask', tmask, ktype = jp_i1 )     !    ! land-sea mask 
    130129      CALL iom_rstput( 0, 0, inum2, 'umask', umask, ktype = jp_i1 ) 
    131130      CALL iom_rstput( 0, 0, inum2, 'vmask', vmask, ktype = jp_i1 ) 
    132131      CALL iom_rstput( 0, 0, inum2, 'fmask', fmask, ktype = jp_i1 ) 
    133       IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    134132       
    135133      CALL dom_uniq( zprw, 'T' ) 
    … …  
    140138         END DO 
    141139      END DO                             !    ! unique point mask 
    142       IF(nn_timing == 2)  CALL timing_start('rst_put') 
    143140      CALL iom_rstput( 0, 0, inum2, 'tmaskutil', zprt, ktype = jp_i1 )   
    144       IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    145141      CALL dom_uniq( zprw, 'U' ) 
    146142      DO jj = 1, jpj 
    … …  
    150146         END DO 
    151147      END DO 
    152       IF(nn_timing == 2)  CALL timing_start('rst_put') 
    153148      CALL iom_rstput( 0, 0, inum2, 'umaskutil', zprt, ktype = jp_i1 )   
    154       IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    155149      CALL dom_uniq( zprw, 'V' ) 
    156150      DO jj = 1, jpj 
    … …  
    160154         END DO 
    161155      END DO 
    162       IF(nn_timing == 2)  CALL timing_start('rst_put') 
    163156      CALL iom_rstput( 0, 0, inum2, 'vmaskutil', zprt, ktype = jp_i1 )   
    164       IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    165157      CALL dom_uniq( zprw, 'F' ) 
    166158      DO jj = 1, jpj 
    … …  
    170162         END DO 
    171163      END DO 
    172       IF(nn_timing == 2)  CALL timing_start('rst_put') 
    173164      CALL iom_rstput( 0, 0, inum2, 'fmaskutil', zprt, ktype = jp_i1 )   
    174165 
    … …  
    195186       
    196187      CALL iom_rstput( 0, 0, inum3, 'ff', ff, ktype = jp_r8 )           !    ! coriolis factor 
    197       IF(nn_timing == 2)  CALL timing_stop('rst_put')  
     188       
    198189      ! note that mbkt is set to 1 over land ==> use surface tmask 
    199190      zprt(:,:) = ssmask(:,:) * REAL( mbkt(:,:) , wp ) 
    200       IF(nn_timing == 2)  CALL timing_start('rst_put') 
    201191      CALL iom_rstput( 0, 0, inum4, 'mbathy', zprt, ktype = jp_i2 )     !    ! nb of ocean T-points 
    202       IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    203192      zprt(:,:) = ssmask(:,:) * REAL( mikt(:,:) , wp ) 
    204       IF(nn_timing == 2)  CALL timing_start('rst_put') 
    205193      CALL iom_rstput( 0, 0, inum4, 'misf', zprt, ktype = jp_i2 )       !    ! nb of ocean T-points 
    206       IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    207194      zprt(:,:) = ssmask(:,:) * REAL( risfdep(:,:) , wp ) 
    208       IF(nn_timing == 2)  CALL timing_start('rst_put') 
    209195      CALL iom_rstput( 0, 0, inum4, 'isfdraft', zprt, ktype = jp_r4 )       !    ! nb of ocean T-points 
    210       IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    211196             
    212197      IF( ln_sco ) THEN                                         ! s-coordinate 
    213          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    214198         CALL iom_rstput( 0, 0, inum4, 'hbatt', hbatt ) 
    215199         CALL iom_rstput( 0, 0, inum4, 'hbatu', hbatu ) 
    … …  
    233217         CALL iom_rstput( 0, 0, inum4, 'gdept_0', gdept_0, ktype = jp_r4 )      
    234218         CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r4 )      
    235          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    236219      ENDIF 
    237220       
    … …  
    239222         ! 
    240223         IF( nmsh <= 6 ) THEN                                   !    ! 3D vertical scale factors 
    241             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    242224            CALL iom_rstput( 0, 0, inum4, 'e3t_0', e3t_0 )          
    243225            CALL iom_rstput( 0, 0, inum4, 'e3u_0', e3u_0 ) 
    244226            CALL iom_rstput( 0, 0, inum4, 'e3v_0', e3v_0 ) 
    245227            CALL iom_rstput( 0, 0, inum4, 'e3w_0', e3w_0 ) 
    246             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    247228         ELSE                                                   !    ! 2D masked bottom ocean scale factors 
    248229            DO jj = 1,jpj    
    … …  
    252233               END DO 
    253234            END DO 
    254             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    255235            CALL iom_rstput( 0, 0, inum4, 'e3t_ps', e3tp )       
    256236            CALL iom_rstput( 0, 0, inum4, 'e3w_ps', e3wp ) 
    257             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    258237         END IF 
    259238         ! 
    260239         IF( nmsh <= 3 ) THEN                                   !    ! 3D depth 
    261             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    262240            CALL iom_rstput( 0, 0, inum4, 'gdept_0', gdept_0, ktype = jp_r4 )      
    263             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    264241            DO jk = 1,jpk    
    265242               DO jj = 1, jpjm1    
    … …  
    271248            END DO 
    272249            CALL lbc_lnk( zdepu, 'U', 1. )   ;   CALL lbc_lnk( zdepv, 'V', 1. )  
    273             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    274250            CALL iom_rstput( 0, 0, inum4, 'gdepu', zdepu, ktype = jp_r4 ) 
    275251            CALL iom_rstput( 0, 0, inum4, 'gdepv', zdepv, ktype = jp_r4 ) 
    276252            CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r4 ) 
    277             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    278253         ELSE                                                   !    ! 2D bottom depth 
    279254            DO jj = 1,jpj    
    … …  
    283258               END DO 
    284259            END DO 
    285             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    286260            CALL iom_rstput( 0, 0, inum4, 'hdept', zprt, ktype = jp_r4 )      
    287261            CALL iom_rstput( 0, 0, inum4, 'hdepw', zprw, ktype = jp_r4 )  
    288             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    289262         ENDIF 
    290263         ! 
    291          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    292264         CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )   !    ! reference z-coord. 
    293265         CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
    294266         CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   ) 
    295267         CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   ) 
    296          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    297268      ENDIF 
    298269       
    299270      IF( ln_zco ) THEN 
    300271         !                                                      ! z-coordinate - full steps 
    301          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    302272         CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )   !    ! depth 
    303273         CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
    304274         CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   )   !    ! scale factors 
    305275         CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   ) 
    306          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    307276      ENDIF 
    308277      !                                     ! ============================ 

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

    r8895 r8904  
    405405! Caution : extra-hallow 
    406406! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 
    407          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    408407         CALL iom_rstput( kt, nitrst, numrow, 'gcx' , gcx (1:jpi,1:jpj) ) 
    409408         CALL iom_rstput( kt, nitrst, numrow, 'gcxb', gcxb(1:jpi,1:jpj) ) 
    410          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    411409      ENDIF 
    412410      ! 

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

    r8895 r8904  
    10381038      ! 
    10391039      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN 
    1040          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    10411040         CALL iom_rstput( kt, nitrst, numrow, 'ub2_b'   , ub2_b  (:,:) ) 
    10421041         CALL iom_rstput( kt, nitrst, numrow, 'vb2_b'   , vb2_b  (:,:) ) 
    … …  
    10571056         ENDIF 
    10581057#endif 
    1059          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    10601058      ENDIF 
    10611059      ! 

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

    r7750 r8904  
    4444   USE ioipsl, ONLY :  ju2ymds    ! for calendar 
    4545   USE crs             ! Grid coarsening 
     46   USE timing 
    4647 
    4748   IMPLICIT NONE 
    … …  
    595596                                 &                         'with 1 or more spatial dimensions: '//cldmspc//' were found.' , & 
    596597                                 &                         'Use ncwa -a to suppress the unnecessary dimensions' ) 
     598            IF(nn_timing == 2)  CALL timing_start('rst_get') 
    597599            SELECT CASE (iom_file(kiomid)%iolib) 
    598600            CASE (jpioipsl )   ;   CALL iom_ioipsl_get(  kiomid, idvar, pvar, itime ) 
    … …  
    602604               CALL ctl_stop( 'iom_g0d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 
    603605            END SELECT 
     606            IF(nn_timing == 2)  CALL timing_stop('rst_get') 
    604607         ENDIF 
    605608      ENDIF 
    … …  
    911914         ENDIF 
    912915       
     916         IF(nn_timing == 2)  CALL timing_start('iom_get')  
    913917         SELECT CASE (iom_file(kiomid)%iolib) 
    914918         CASE (jpioipsl )   ;   CALL iom_ioipsl_get(  kiomid, idvar, inbdim, istart, icnt, ix1, ix2, iy1, iy2,   & 
    … …  
    921925            CALL ctl_stop( TRIM(clinfo)//' accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 
    922926         END SELECT 
     927         IF(nn_timing == 2)  CALL timing_stop('iom_get') 
    923928 
    924929         IF( istop == nstop ) THEN   ! no additional errors until this point... 
    … …  
    10661071         IF( iom_file(kiomid)%nfid > 0 ) THEN 
    10671072            ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 
     1073            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    10681074            SELECT CASE (iom_file(kiomid)%iolib) 
    10691075            CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r0d = pvar ) 
    … …  
    10731079               CALL ctl_stop( 'iom_rp0d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 
    10741080            END SELECT 
     1081            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    10751082         ENDIF 
    10761083      ENDIF 
    … …  
    10881095         IF( iom_file(kiomid)%nfid > 0 ) THEN 
    10891096            ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 
     1097            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    10901098            SELECT CASE (iom_file(kiomid)%iolib) 
    10911099            CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r1d = pvar ) 
    … …  
    10951103               CALL ctl_stop( 'iom_rp1d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 
    10961104            END SELECT 
     1105            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    10971106         ENDIF 
    10981107      ENDIF 
    … …  
    11101119         IF( iom_file(kiomid)%nfid > 0 ) THEN 
    11111120            ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 
     1121            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    11121122            SELECT CASE (iom_file(kiomid)%iolib) 
    11131123            CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r2d = pvar ) 
    … …  
    11171127               CALL ctl_stop( 'iom_rp2d: accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 
    11181128            END SELECT 
     1129            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    11191130         ENDIF 
    11201131      ENDIF 
    … …  
    11321143         IF( iom_file(kiomid)%nfid > 0 ) THEN 
    11331144            ivid = iom_varid( kiomid, cdvar, ldstop = .FALSE. ) 
     1145            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    11341146            SELECT CASE (iom_file(kiomid)%iolib) 
    11351147            CASE (jpioipsl )   ;   CALL iom_ioipsl_rstput( kt, kwrite, kiomid, cdvar, ivid, ktype, pv_r3d = pvar ) 
    … …  
    11391151               CALL ctl_stop( 'iom_rp3d: accepted IO library are only jpioipsl and jprstdimg' ) 
    11401152            END SELECT 
     1153            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    11411154         ENDIF 
    11421155      ENDIF 

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

    r8895 r8904  
    2626   USE divcur          ! hor. divergence and curl      (div & cur routines) 
    2727   USE sbc_oce         ! for icesheet freshwater input variables 
    28    USE timing 
    2928 
    3029   IMPLICIT NONE 
    … …  
    135134      INTEGER, INTENT(in) ::   kt   ! ocean time-step 
    136135      !!---------------------------------------------------------------------- 
    137                      IF(nn_timing == 2)  CALL timing_start('rst_put') 
     136 
    138137                     CALL iom_rstput( kt, nitrst, numrow, 'rdt'    , rdt       )   ! dynamics time step 
    139138                     CALL iom_rstput( kt, nitrst, numrow, 'rdttra1', rdttra(1) )   ! surface tracer time step 
    … …  
    169168                     ENDIF 
    170169                     ENDIF 
    171                      IF(nn_timing == 2)  CALL timing_stop('rst_put') 
     170 
    172171      IF( kt == nitrst ) THEN 
    173172         CALL iom_close( numrow )     ! close the restart file (only at last time step) 

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

    r8895 r8904  
    1919   USE iom             ! IOM library 
    2020   USE lib_mpp         ! MPP library 
    21    USE timing 
    2221 
    2322   IMPLICIT NONE 
    … …  
    157156         IF(lwp) WRITE(numout,*) 'sbc_apr : ssh_ib written in ocean restart file at it= ', kt,' date= ', ndastp 
    158157         IF(lwp) WRITE(numout,*) '~~~~' 
    159          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    160158         CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib ) 
    161          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    162159      ENDIF 
    163160      ! 

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

    r8895 r8904  
    443443            &                    'at it= ', kt,' date= ', ndastp 
    444444         IF(lwp) WRITE(numout,*) '~~~~' 
    445          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    446445         CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau ) 
    447446         CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau ) 
    … …  
    451450         CALL iom_rstput( kt, nitrst, numrow, 'emp_b'  , emp  ) 
    452451         CALL iom_rstput( kt, nitrst, numrow, 'sfx_b'  , sfx  ) 
    453          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    454452      ENDIF 
    455453 

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

    r8895 r8904  
    2727   USE eosbn2 
    2828   USE wrk_nemo        ! Memory allocation 
    29    USE timing 
    3029 
    3130   IMPLICIT NONE 
    … …  
    172171            &                    'at it= ', kt,' date= ', ndastp 
    173172         IF(lwp) WRITE(numout,*) '~~~~' 
    174          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    175173         CALL iom_rstput( kt, nitrst, numrow, 'rnf_b' , rnf ) 
    176174         CALL iom_rstput( kt, nitrst, numrow, 'rnf_hc_b', rnf_tsc(:,:,jp_tem) ) 
    177175         CALL iom_rstput( kt, nitrst, numrow, 'rnf_sc_b', rnf_tsc(:,:,jp_sal) ) 
    178          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    179176      ENDIF 
    180177      ! 
    … …  
    437434            IF(lwp) WRITE(numout,*) '              create runoff depht file' 
    438435            CALL iom_open  ( TRIM( sn_dep_rnf%clname ), inum, ldwrt = .TRUE., kiolib = jprstlib ) 
    439             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    440436            CALL iom_rstput( 0, 0, inum, 'rodepth', h_rnf ) 
    441             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    442437            CALL iom_close ( inum ) 
    443438         ENDIF 

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

    r8895 r8904  
    2121   USE prtctl          ! Print control 
    2222   USE iom             ! IOM library 
    23    USE timing 
    2423 
    2524   IMPLICIT NONE 
    … …  
    157156            IF(lwp) WRITE(numout,*) '~~~~~~~' 
    158157            zf_sbc = REAL( nn_fsbc, wp ) 
    159             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    160158            CALL iom_rstput( kt, nitrst, numrow, 'nn_fsbc', zf_sbc )    ! sbc frequency 
    161159            CALL iom_rstput( kt, nitrst, numrow, 'ssu_m'  , ssu_m  )    ! sea surface mean fields 
    … …  
    166164            IF( lk_vvl )   CALL iom_rstput( kt, nitrst, numrow, 'e3t_m'  , e3t_m  ) 
    167165            CALL iom_rstput( kt, nitrst, numrow, 'frq_m'  , frq_m  ) 
    168             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    169166            ! 
    170167         ENDIF 

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

    r8895 r8904  
    2222   USE iom             ! I/O module 
    2323   USE lib_mpp 
    24    USE timing 
    2524 
    2625 
    … …  
    764763               WRITE(clseed(5:5) ,'(i1.1)') jseed 
    765764               WRITE(clseed(7:10),'(i4.4)') narea 
    766                IF(nn_timing == 2)  CALL timing_start('rst_put') 
    767765               CALL iom_rstput( kt, nitrst, numstow, clseed , zrseed(jseed) ) 
    768                IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    769766            END DO 
    770767            ! 2D stochastic parameters 
    771768            DO jsto = 1 , jpsto2d 
    772769               WRITE(clsto2d(7:9),'(i3.3)') jsto 
    773                IF(nn_timing == 2)  CALL timing_start('rst_put') 
    774770               CALL iom_rstput( kt, nitrst, numstow, clsto2d , sto2d(:,:,jsto) ) 
    775                IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    776771            END DO 
    777772            ! 3D stochastic parameters 
    778773            DO jsto = 1 , jpsto3d 
    779774               WRITE(clsto3d(7:9),'(i3.3)') jsto 
    780                IF(nn_timing == 2)  CALL timing_start('rst_put') 
    781775               CALL iom_rstput( kt, nitrst, numstow, clsto3d , sto3d(:,:,:,jsto) ) 
    782                IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    783776            END DO 
    784777            ! close the restart file 

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

    r8895 r8904  
    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 == 2)  CALL timing_start('rst_put') 
    289288         CALL iom_rstput( kt, nitrst, numrow, 'avmb', avmb ) 
    290289         CALL iom_rstput( kt, nitrst, numrow, 'avtb', avtb ) 
    291          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    292290      ENDIF 
    293291      ! 

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

    r8895 r8904  
    368368            &                    'at it= ', kt,' date= ', ndastp 
    369369         IF(lwp) WRITE(numout,*) '~~~~' 
    370          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    371370         CALL iom_rstput( kt, nitrst, numrow, 'qsr_hc_b'   , qsr_hc      ) 
    372371         CALL iom_rstput( kt, nitrst, numrow, 'fraqsr_1lev', fraqsr_1lev )   ! default definition in sbcssm  
    373          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    374372         ! 
    375373      ENDIF 

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

    r8895 r8904  
    209209            &                    'at it= ', kt,' date= ', ndastp 
    210210         IF(lwp) WRITE(numout,*) '~~~~' 
    211          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    212211         CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_tsc(:,:,jp_tem) ) 
    213212         CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_tsc(:,:,jp_sal) ) 
    214          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    215213      ENDIF 
    216214      ! 
    … …  
    255253               &                    'at it= ', kt,' date= ', ndastp 
    256254            IF(lwp) WRITE(numout,*) '~~~~' 
    257             IF(nn_timing == 2)  CALL timing_start('rst_put') 
    258255            CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:)          ) 
    259256            CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem) ) 
    260257            CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal) ) 
    261             IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    262258         ENDIF 
    263259      END IF 

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

    r8895 r8904  
    1616   USE iom             ! I/O module 
    1717   USE restart         ! only for lrst_oce 
    18    USE timing 
    1918 
    2019   IMPLICIT NONE 
    … …  
    8382      IF( ln_trdmxl_instant ) THEN  
    8483         !-- Temperature 
    85          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    8684         CALL iom_rstput( kt, nitrst, nummxlw, 'tmlbb'           , tmlbb           ) 
    8785         CALL iom_rstput( kt, nitrst, nummxlw, 'tmlbn'           , tmlbn           ) 
    … …  
    116114         ENDDO 
    117115         CALL iom_rstput( kt, nitrst, nummxlw, 'smltrd_atf_sumb' , smltrd_atf_sumb ) 
    118          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    119116      ENDIF 
    120117      ! 

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

    r8895 r8904  
    12091209         !                                   ! ------------------- 
    12101210         IF(lwp) WRITE(numout,*) '---- gls-rst ----' 
    1211          IF(nn_timing == 2)  CALL timing_start('rst_put') 
    12121211         CALL iom_rstput( kt, nitrst, numrow, 'en'   , en     )  
    12131212         CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k  ) 
    … …  
    12161215         CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k ) 
    12171216         CALL iom_rstput( kt, nitrst, numrow, 'mxln' , mxln   ) 
    1218          IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    12191217         ! 
    12201218      ENDIF 

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

    r8895 r8904  
    970970        !                                   ! ------------------- 
    971971        IF(lwp) WRITE(numout,*) '---- tke-rst ----' 
    972         IF(nn_timing == 2)  CALL timing_start('rst_put') 
    973972        CALL iom_rstput( kt, nitrst, numrow, 'en'   , en     ) 
    974973        CALL iom_rstput( kt, nitrst, numrow, 'avt'  , avt_k  ) 
    … …  
    977976        CALL iom_rstput( kt, nitrst, numrow, 'avmv' , avmv_k ) 
    978977        CALL iom_rstput( kt, nitrst, numrow, 'dissl', dissl  ) 
    979         IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    980978        ! 
    981979     ENDIF 
Note: See TracChangeset for help on using the changeset viewer.