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

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

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

#1978 only 1 and 2 for nn_timing

Location:
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/DOM
Files:
3 edited

Legend:

Unmodified
Added
Removed

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

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

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

    r9252 r9261  
    817817         IF( ln_rstart ) THEN                   !* Read the restart file 
    818818            CALL rst_read_open                  !  open the restart file if necessary 
     819            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    819820            CALL iom_get( numror, jpdom_autoglo, 'sshn'   , sshn    ) 
    820821            ! 
    … …  
    892893            ENDIF 
    893894            ! 
     895            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    894896         ELSE                                   !* Initialize at "rest" 
    895897            fse3t_b(:,:,:) = e3t_0(:,:,:) 
    … …  
    909911         !                                           ! all cases ! 
    910912         !                                           ! --------- !  
    911          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     913         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    912914         CALL iom_rstput( kt, nitrst, numrow, 'fse3t_b', fse3t_b(:,:,:) ) 
    913915         CALL iom_rstput( kt, nitrst, numrow, 'fse3t_n', fse3t_n(:,:,:) ) 
    … …  
    923925            CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:) ) 
    924926         ENDIF 
    925          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     927         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    926928 
    927929      ENDIF 

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

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