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 for branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.F90 – NEMO

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

#1978 timers for nn_timing 3

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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      !                                     ! ============================ 
Note: See TracChangeset for help on using the changeset viewer.