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/DYN/dynspg_flt.F90

    r9252 r9261  
    395395! Caution : extra-hallow 
    396396! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 
     397            IF(nn_timing == 2)  CALL timing_start('iom_rstget') 
    397398            CALL iom_get( numror, jpdom_autoglo, 'gcx' , gcx (1:jpi,1:jpj) ) 
    398399            CALL iom_get( numror, jpdom_autoglo, 'gcxb', gcxb(1:jpi,1:jpj) ) 
     400            IF(nn_timing == 2)  CALL timing_stop('iom_rstget') 
    399401            IF( neuler == 0 )   gcxb(:,:) = gcx (:,:) 
    400402         ELSE 
     
    405407! Caution : extra-hallow 
    406408! gcx and gcxb are defined as: DIMENSION(1-jpr2di:jpi+jpr2di,1-jpr2dj:jpj+jpr2dj) 
    407          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     409         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    408410         CALL iom_rstput( kt, nitrst, numrow, 'gcx' , gcx (1:jpi,1:jpj) ) 
    409411         CALL iom_rstput( kt, nitrst, numrow, 'gcxb', gcxb(1:jpi,1:jpj) ) 
    410          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     412         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    411413      ENDIF 
    412414      ! 
Note: See TracChangeset for help on using the changeset viewer.