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

#1978 only 1 and 2 for nn_timing

File:
1 edited

Legend:

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

    r9252 r9261  
    697697         ! Get stochastic parameters from restart file: 
    698698         ! 2D stochastic parameters 
     699         IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    699700         DO jsto = 1 , jpsto2d 
    700701            WRITE(clsto2d(7:9),'(i3.3)') jsto 
     
    717718            CALL kiss_seed( ziseed(1) , ziseed(2) , ziseed(3) , ziseed(4) ) 
    718719         ENDIF 
     720         IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    719721 
    720722         ! Close the restart file 
     
    760762            CALL kiss_state( ziseed(1) , ziseed(2) , ziseed(3) , ziseed(4) ) 
    761763            zrseed = TRANSFER( ziseed , zrseed) 
    762             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     764            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    763765            DO jseed = 1 , 4 
    764766               WRITE(clseed(5:5) ,'(i1.1)') jseed 
     
    776778               CALL iom_rstput( kt, nitrst, numstow, clsto3d , sto3d(:,:,:,jsto) ) 
    777779            END DO 
    778             IF(nn_timing == 3)  CALL timing_stop('rst_put')  
     780            IF(nn_timing == 2)  CALL timing_stop('iom_rstput')  
    779781            ! close the restart file 
    780782            CALL iom_close( numstow ) 
Note: See TracChangeset for help on using the changeset viewer.