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/TRA/trasbc.F90

    r9252 r9261  
    209209            &                    'at it= ', kt,' date= ', ndastp 
    210210         IF(lwp) WRITE(numout,*) '~~~~' 
    211          IF(nn_timing == 3)  CALL timing_start('rst_put') 
     211         IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    212212         CALL iom_rstput( kt, nitrst, numrow, 'sbc_hc_b', sbc_tsc(:,:,jp_tem) ) 
    213213         CALL iom_rstput( kt, nitrst, numrow, 'sbc_sc_b', sbc_tsc(:,:,jp_sal) ) 
    214          IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     214         IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    215215      ENDIF 
    216216      ! 
     
    255255               &                    'at it= ', kt,' date= ', ndastp 
    256256            IF(lwp) WRITE(numout,*) '~~~~' 
    257             IF(nn_timing == 3)  CALL timing_start('rst_put') 
     257            IF(nn_timing == 2)  CALL timing_start('iom_rstput') 
    258258            CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf(:,:)          ) 
    259259            CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem) ) 
    260260            CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal) ) 
    261             IF(nn_timing == 3)  CALL timing_stop('rst_put') 
     261            IF(nn_timing == 2)  CALL timing_stop('iom_rstput') 
    262262         ENDIF 
    263263      END IF 
Note: See TracChangeset for help on using the changeset viewer.