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/TRD/trdmxl_rst.F90

    r9252 r9261  
    8080         WRITE(numout,*) 
    8181      ENDIF 
    82       IF(nn_timing == 3)  CALL timing_start('rst_put') 
     82      IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    8383      IF( ln_trdmxl_instant ) THEN  
    8484         !-- Temperature 
     
    116116         CALL iom_rstput( kt, nitrst, nummxlw, 'smltrd_atf_sumb' , smltrd_atf_sumb ) 
    117117      ENDIF 
    118       IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     118      IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    119119      ! 
    120120      IF( kt == nitrst ) THEN 
     
    160160 
    161161      CALL iom_open( TRIM(clpath)//TRIM(cn_trdrst_in), inum, kiolib = jlibalt )  
    162  
     162      IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    163163      IF( ln_trdmxl_instant ) THEN  
    164164         !-- Temperature 
     
    196196         CALL iom_get( inum, jpdom_autoglo, 'smltrd_atf_sumb' , smltrd_atf_sumb) 
    197197         ! 
    198          CALL iom_close( inum ) 
    199       ENDIF 
     198      ENDIF 
     199      IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
     200      CALL iom_close( inum ) 
    200201      ! 
    201202   END SUBROUTINE trd_mxl_rst_read 
Note: See TracChangeset for help on using the changeset viewer.