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 8895 for branches/UKMO – NEMO

Changeset 8895 for branches/UKMO


Ignore:
Timestamp:
2017-12-05T09:31:13+01:00 (6 years ago)
Author:
andmirek
Message:

#1978 new timers for NEMO restart write

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

Legend:

Unmodified
Added
Removed

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

    r6486 r8895  
    5050   USE ice 
    5151#endif 
     52   USE timing 
    5253   IMPLICIT NONE 
    5354   PRIVATE 
    … …  
    110111            ! 
    111112            !                                      ! Write the information 
     113            IF(nn_timing == 2)  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 == 2)  CALL timing_stop('rst_put') 
    122125            ! 
    123126            CALL iom_close( inum ) 
    … …  
    148151            ! 
    149152            !                                      ! Write the information 
     153            IF(nn_timing == 2)  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 == 2)  CALL timing_stop('rst_put') 
    165170            ! 
    166171            CALL iom_close( inum ) 

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

    r6486 r8895  
    122122      !======================================================== 
    123123      !                                                         ! masks (inum2)  
     124      IF(nn_timing == 2)  CALL timing_start('rst_put') 
    124125      CALL iom_rstput( 0, 0, inum2, 'tmask', tmask_crs, ktype = jp_i1 )     !    ! land-sea mask 
    125126      CALL iom_rstput( 0, 0, inum2, 'umask', umask_crs, ktype = jp_i1 ) 
    126127      CALL iom_rstput( 0, 0, inum2, 'vmask', vmask_crs, ktype = jp_i1 ) 
    127128      CALL iom_rstput( 0, 0, inum2, 'fmask', fmask_crs, ktype = jp_i1 ) 
     129      IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    128130       
    129131       
    … …  
    156158         fpol_crs(jpiglo_crs/2+1:jpiglo_crs,:)=0._wp 
    157159      ENDIF 
    158        
     160      IF(nn_timing == 2)  CALL timing_start('rst_put')  
    159161      CALL iom_rstput( 0, 0, inum2, 'tmaskutil', tmask_i_crs, ktype = jp_i1 ) 
    160                                    !    ! unique point mask 
     162      IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    161163      CALL dom_uniq_crs( zprw, 'U' ) 
    162164      zprt = umask_crs(:,:,1) * zprw 
     165      IF(nn_timing == 2)  CALL timing_start('rst_put') 
    163166      CALL iom_rstput( 0, 0, inum2, 'umaskutil', zprt, ktype = jp_i1 )   
     167      IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    164168      CALL dom_uniq_crs( zprw, 'V' ) 
    165169      zprt = vmask_crs(:,:,1) * zprw 
     170      IF(nn_timing == 2)  CALL timing_start('rst_put') 
    166171      CALL iom_rstput( 0, 0, inum2, 'vmaskutil', zprt, ktype = jp_i1 )   
     172      IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    167173      CALL dom_uniq_crs( zprw, 'F' ) 
    168174      zprt = fmask_crs(:,:,1) * zprw 
     175      IF(nn_timing == 2)  CALL timing_start('rst_put') 
    169176      CALL iom_rstput( 0, 0, inum2, 'fmaskutil', zprt, ktype = jp_i1 )   
    170177      !======================================================== 
    … …  
    191198       
    192199      CALL iom_rstput( 0, 0, inum3, 'ff', ff_crs, ktype = jp_r8 )           !    ! coriolis factor 
    193  
     200      IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    194201      !======================================================== 
    195202      !                                                         ! vertical mesh (inum4)  
    196203!     ! note that mbkt is set to 1 over land ==> use surface tmask_crs 
    197204      zprt(:,:) = tmask_crs(:,:,1) * REAL( mbkt_crs(:,:) , wp ) 
     205      IF(nn_timing == 2)  CALL timing_start('rst_put') 
    198206      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') 
    199208 
    200209      IF( ln_zps ) THEN                       ! z-coordinate - partial steps 
    … …  
    202211             
    203212         IF ( nn_msh_crs <= 6 ) THEN 
     213            IF(nn_timing == 2)  CALL timing_start('rst_put') 
    204214            CALL iom_rstput( 0, 0, inum4, 'e3t', e3t_crs )       
    205215            CALL iom_rstput( 0, 0, inum4, 'e3w', e3w_crs )       
    206216            CALL iom_rstput( 0, 0, inum4, 'e3u', e3u_crs )       
    207217            CALL iom_rstput( 0, 0, inum4, 'e3v', e3v_crs )       
     218            IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    208219         ELSE 
    209220            DO jj = 1,jpj_crs    
    … …  
    216227            CALL crs_lbc_lnk( ze3tp,'T', 1.0 ) 
    217228            CALL crs_lbc_lnk( ze3wp,'W', 1.0 ) 
    218    
     229            IF(nn_timing == 2)  CALL timing_start('rst_put')  
    219230            CALL iom_rstput( 0, 0, inum4, 'e3t_ps', ze3tp )       
    220231            CALL iom_rstput( 0, 0, inum4, 'e3w_ps', ze3wp ) 
     232            IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    221233         ENDIF 
    222234 
    … …  
    233245 
    234246            CALL crs_lbc_lnk( zdepu,'U', 1. )   ;   CALL crs_lbc_lnk( zdepv,'V', 1. )  
     247            IF(nn_timing == 2)  CALL timing_start('rst_put') 
    235248            CALL iom_rstput( 0, 0, inum4, 'gdepu', zdepu, ktype = jp_r4 ) 
    236249            CALL iom_rstput( 0, 0, inum4, 'gdepv', zdepv, ktype = jp_r4 ) 
    237250            CALL iom_rstput( 0, 0, inum4, 'gdepw', gdepw_crs, ktype = jp_r4 ) 
     251            IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    238252         ELSE 
    239253            DO jj = 1,jpj_crs    
    … …  
    243257               END DO 
    244258            END DO 
     259            IF(nn_timing == 2)  CALL timing_start('rst_put') 
    245260            CALL iom_rstput( 0, 0, inum4, 'hdept', zprt, ktype = jp_r4 )      
    246261            CALL iom_rstput( 0, 0, inum4, 'hdepw', zprw, ktype = jp_r4 )  
     262            IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    247263         ENDIF 
    248  
     264         IF(nn_timing == 2)  CALL timing_start('rst_put') 
    249265         CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )     !    ! reference z-coord. 
    250266         CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
    … …  
    269285         CALL iom_rstput(  0, 0, inum4, 'crs_surfv_wgt', crs_surfv_wgt )  
    270286         CALL iom_rstput(  0, 0, inum4, 'crs_volt_wgt' , crs_volt_wgt  )  
    271  
     287         IF(nn_timing == 2)  CALL timing_stop('rst_put')  
    272288      ENDIF 
    273289       
    274290     IF( ln_zco ) THEN 
    275291         !                                                      ! z-coordinate - full steps 
     292        IF(nn_timing == 2)  CALL timing_start('rst_put') 
    276293        CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )     !    ! depth 
    277294        CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
    278295        CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   )     !    ! scale factors 
    279296        CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   ) 
     297        IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    280298     ENDIF 
    281299      !                                     ! ============================ 

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

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

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

    r6487 r8895  
    359359         ENDIF 
    360360         ! calendar control 
     361         IF(nn_timing == 2)  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 == 2)  CALL timing_stop('rst_put')  
    365367      ENDIF 
    366368      ! 

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

    r6498 r8895  
    909909         !                                           ! all cases ! 
    910910         !                                           ! --------- ! 
     911         IF(nn_timing == 2)  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 
    924  
     925         IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    925926      ENDIF 
    926927      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

    r6487 r8895  
    126126       
    127127      !                                                         ! masks (inum2)  
     128      IF(nn_timing == 2)  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 == 2)  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 == 2)  CALL timing_start('rst_put') 
    140143      CALL iom_rstput( 0, 0, inum2, 'tmaskutil', zprt, ktype = jp_i1 )   
     144      IF(nn_timing == 2)  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 == 2)  CALL timing_start('rst_put') 
    148153      CALL iom_rstput( 0, 0, inum2, 'umaskutil', zprt, ktype = jp_i1 )   
     154      IF(nn_timing == 2)  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 == 2)  CALL timing_start('rst_put') 
    156163      CALL iom_rstput( 0, 0, inum2, 'vmaskutil', zprt, ktype = jp_i1 )   
     164      IF(nn_timing == 2)  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 == 2)  CALL timing_start('rst_put') 
    164173      CALL iom_rstput( 0, 0, inum2, 'fmaskutil', zprt, ktype = jp_i1 )   
    165174 
    … …  
    186195       
    187196      CALL iom_rstput( 0, 0, inum3, 'ff', ff, ktype = jp_r8 )           !    ! coriolis factor 
    188        
     197      IF(nn_timing == 2)  CALL timing_stop('rst_put')  
    189198      ! note that mbkt is set to 1 over land ==> use surface tmask 
    190199      zprt(:,:) = ssmask(:,:) * REAL( mbkt(:,:) , wp ) 
     200      IF(nn_timing == 2)  CALL timing_start('rst_put') 
    191201      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') 
    192203      zprt(:,:) = ssmask(:,:) * REAL( mikt(:,:) , wp ) 
     204      IF(nn_timing == 2)  CALL timing_start('rst_put') 
    193205      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') 
    194207      zprt(:,:) = ssmask(:,:) * REAL( risfdep(:,:) , wp ) 
     208      IF(nn_timing == 2)  CALL timing_start('rst_put') 
    195209      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') 
    196211             
    197212      IF( ln_sco ) THEN                                         ! s-coordinate 
     213         IF(nn_timing == 2)  CALL timing_start('rst_put') 
    198214         CALL iom_rstput( 0, 0, inum4, 'hbatt', hbatt ) 
    199215         CALL iom_rstput( 0, 0, inum4, 'hbatu', hbatu ) 
    … …  
    217233         CALL iom_rstput( 0, 0, inum4, 'gdept_0', gdept_0, ktype = jp_r4 )      
    218234         CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r4 )      
     235         IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    219236      ENDIF 
    220237       
    … …  
    222239         ! 
    223240         IF( nmsh <= 6 ) THEN                                   !    ! 3D vertical scale factors 
     241            IF(nn_timing == 2)  CALL timing_start('rst_put') 
    224242            CALL iom_rstput( 0, 0, inum4, 'e3t_0', e3t_0 )          
    225243            CALL iom_rstput( 0, 0, inum4, 'e3u_0', e3u_0 ) 
    226244            CALL iom_rstput( 0, 0, inum4, 'e3v_0', e3v_0 ) 
    227245            CALL iom_rstput( 0, 0, inum4, 'e3w_0', e3w_0 ) 
     246            IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    228247         ELSE                                                   !    ! 2D masked bottom ocean scale factors 
    229248            DO jj = 1,jpj    
    … …  
    233252               END DO 
    234253            END DO 
     254            IF(nn_timing == 2)  CALL timing_start('rst_put') 
    235255            CALL iom_rstput( 0, 0, inum4, 'e3t_ps', e3tp )       
    236256            CALL iom_rstput( 0, 0, inum4, 'e3w_ps', e3wp ) 
     257            IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    237258         END IF 
    238259         ! 
    239260         IF( nmsh <= 3 ) THEN                                   !    ! 3D depth 
     261            IF(nn_timing == 2)  CALL timing_start('rst_put') 
    240262            CALL iom_rstput( 0, 0, inum4, 'gdept_0', gdept_0, ktype = jp_r4 )      
     263            IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    241264            DO jk = 1,jpk    
    242265               DO jj = 1, jpjm1    
    … …  
    248271            END DO 
    249272            CALL lbc_lnk( zdepu, 'U', 1. )   ;   CALL lbc_lnk( zdepv, 'V', 1. )  
     273            IF(nn_timing == 2)  CALL timing_start('rst_put') 
    250274            CALL iom_rstput( 0, 0, inum4, 'gdepu', zdepu, ktype = jp_r4 ) 
    251275            CALL iom_rstput( 0, 0, inum4, 'gdepv', zdepv, ktype = jp_r4 ) 
    252276            CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r4 ) 
     277            IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    253278         ELSE                                                   !    ! 2D bottom depth 
    254279            DO jj = 1,jpj    
    … …  
    258283               END DO 
    259284            END DO 
     285            IF(nn_timing == 2)  CALL timing_start('rst_put') 
    260286            CALL iom_rstput( 0, 0, inum4, 'hdept', zprt, ktype = jp_r4 )      
    261287            CALL iom_rstput( 0, 0, inum4, 'hdepw', zprw, ktype = jp_r4 )  
     288            IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    262289         ENDIF 
    263290         ! 
     291         IF(nn_timing == 2)  CALL timing_start('rst_put') 
    264292         CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )   !    ! reference z-coord. 
    265293         CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
    266294         CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   ) 
    267295         CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   ) 
     296         IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    268297      ENDIF 
    269298       
    270299      IF( ln_zco ) THEN 
    271300         !                                                      ! z-coordinate - full steps 
     301         IF(nn_timing == 2)  CALL timing_start('rst_put') 
    272302         CALL iom_rstput( 0, 0, inum4, 'gdept_1d', gdept_1d )   !    ! depth 
    273303         CALL iom_rstput( 0, 0, inum4, 'gdepw_1d', gdepw_1d ) 
    274304         CALL iom_rstput( 0, 0, inum4, 'e3t_1d'  , e3t_1d   )   !    ! scale factors 
    275305         CALL iom_rstput( 0, 0, inum4, 'e3w_1d'  , e3w_1d   ) 
     306         IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    276307      ENDIF 
    277308      !                                     ! ============================ 

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

    r7179 r8895  
    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') 
    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 == 2)  CALL timing_stop('rst_put') 
    409411      ENDIF 
    410412      ! 

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

    r6487 r8895  
    10381038      ! 
    10391039      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN 
     1040         IF(nn_timing == 2)  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 == 2)  CALL timing_stop('rst_put') 
    10581060      ENDIF 
    10591061      ! 

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

    r6755 r8895  
    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 == 2)  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 
    170  
     171                     IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    171172      IF( kt == nitrst ) THEN 
    172173         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

    r6486 r8895  
    1919   USE iom             ! IOM library 
    2020   USE lib_mpp         ! MPP library 
     21   USE timing 
    2122 
    2223   IMPLICIT NONE 
    … …  
    156157         IF(lwp) WRITE(numout,*) 'sbc_apr : ssh_ib written in ocean restart file at it= ', kt,' date= ', ndastp 
    157158         IF(lwp) WRITE(numout,*) '~~~~' 
     159         IF(nn_timing == 2)  CALL timing_start('rst_put') 
    158160         CALL iom_rstput( kt, nitrst, numrow, 'ssh_ibb' , ssh_ib ) 
     161         IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    159162      ENDIF 
    160163      ! 

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

    r6498 r8895  
    443443            &                    'at it= ', kt,' date= ', ndastp 
    444444         IF(lwp) WRITE(numout,*) '~~~~' 
     445         IF(nn_timing == 2)  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 == 2)  CALL timing_stop('rst_put') 
    452454      ENDIF 
    453455 

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

    r6498 r8895  
    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 == 2)  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 == 2)  CALL timing_stop('rst_put') 
    176179      ENDIF 
    177180      ! 
    … …  
    434437            IF(lwp) WRITE(numout,*) '              create runoff depht file' 
    435438            CALL iom_open  ( TRIM( sn_dep_rnf%clname ), inum, ldwrt = .TRUE., kiolib = jprstlib ) 
     439            IF(nn_timing == 2)  CALL timing_start('rst_put') 
    436440            CALL iom_rstput( 0, 0, inum, 'rodepth', h_rnf ) 
     441            IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    437442            CALL iom_close ( inum ) 
    438443         ENDIF 

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

    r6486 r8895  
    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 == 2)  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 == 2)  CALL timing_stop('rst_put') 
    166169            ! 
    167170         ENDIF 

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

    r6487 r8895  
    2222   USE iom             ! I/O module 
    2323   USE lib_mpp 
     24   USE timing 
    2425 
    2526 
    … …  
    763764               WRITE(clseed(5:5) ,'(i1.1)') jseed 
    764765               WRITE(clseed(7:10),'(i4.4)') narea 
     766               IF(nn_timing == 2)  CALL timing_start('rst_put') 
    765767               CALL iom_rstput( kt, nitrst, numstow, clseed , zrseed(jseed) ) 
     768               IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    766769            END DO 
    767770            ! 2D stochastic parameters 
    768771            DO jsto = 1 , jpsto2d 
    769772               WRITE(clsto2d(7:9),'(i3.3)') jsto 
     773               IF(nn_timing == 2)  CALL timing_start('rst_put') 
    770774               CALL iom_rstput( kt, nitrst, numstow, clsto2d , sto2d(:,:,jsto) ) 
     775               IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    771776            END DO 
    772777            ! 3D stochastic parameters 
    773778            DO jsto = 1 , jpsto3d 
    774779               WRITE(clsto3d(7:9),'(i3.3)') jsto 
     780               IF(nn_timing == 2)  CALL timing_start('rst_put') 
    775781               CALL iom_rstput( kt, nitrst, numstow, clsto3d , sto3d(:,:,:,jsto) ) 
     782               IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    776783            END DO 
    777784            ! close the restart file 

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

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

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

    r6498 r8895  
    368368            &                    'at it= ', kt,' date= ', ndastp 
    369369         IF(lwp) WRITE(numout,*) '~~~~' 
     370         IF(nn_timing == 2)  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 == 2)  CALL timing_stop('rst_put') 
    372374         ! 
    373375      ENDIF 

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

    r6793 r8895  
    209209            &                    'at it= ', kt,' date= ', ndastp 
    210210         IF(lwp) WRITE(numout,*) '~~~~' 
     211         IF(nn_timing == 2)  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 == 2)  CALL timing_stop('rst_put') 
    213215      ENDIF 
    214216      ! 
    … …  
    253255               &                    'at it= ', kt,' date= ', ndastp 
    254256            IF(lwp) WRITE(numout,*) '~~~~' 
     257            IF(nn_timing == 2)  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 == 2)  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

    r6486 r8895  
    1616   USE iom             ! I/O module 
    1717   USE restart         ! only for lrst_oce 
     18   USE timing 
    1819 
    1920   IMPLICIT NONE 
    … …  
    8283      IF( ln_trdmxl_instant ) THEN  
    8384         !-- Temperature 
     85         IF(nn_timing == 2)  CALL timing_start('rst_put') 
    8486         CALL iom_rstput( kt, nitrst, nummxlw, 'tmlbb'           , tmlbb           ) 
    8587         CALL iom_rstput( kt, nitrst, nummxlw, 'tmlbn'           , tmlbn           ) 
    … …  
    114116         ENDDO 
    115117         CALL iom_rstput( kt, nitrst, nummxlw, 'smltrd_atf_sumb' , smltrd_atf_sumb ) 
     118         IF(nn_timing == 2)  CALL timing_stop('rst_put') 
    116119      ENDIF 
    117120      ! 

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

    r6487 r8895  
    12091209         !                                   ! ------------------- 
    12101210         IF(lwp) WRITE(numout,*) '---- gls-rst ----' 
     1211         IF(nn_timing == 2)  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 == 2)  CALL timing_stop('rst_put') 
    12171219         ! 
    12181220      ENDIF 

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

    r6498 r8895  
    970970        !                                   ! ------------------- 
    971971        IF(lwp) WRITE(numout,*) '---- tke-rst ----' 
     972        IF(nn_timing == 2)  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 == 2)  CALL timing_stop('rst_put') 
    978980        ! 
    979981     ENDIF 
Note: See TracChangeset for help on using the changeset viewer.