Changeset 8887


Ignore:
Timestamp:
2017-12-04T10:52:38+01:00 (3 years ago)
Author:
andmirek
Message:

#1978 coupling timers

Location:
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r7540 r8887  
    252252 
    253253      ! 
    254       IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_init') 
     254      IF( nn_timing == 1 .OR. nn_timing == 2)  CALL timing_start('sbc_cpl_init') 
    255255      ! 
    256256      CALL wrk_alloc( jpi,jpj, zacs, zaos ) 
     
    975975      CALL wrk_dealloc( jpi,jpj, zacs, zaos ) 
    976976      ! 
    977       IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_init') 
     977      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_init') 
    978978      ! 
    979979   END SUBROUTINE sbc_cpl_init 
     
    10501050 
    10511051      ! 
    1052       IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_rcv') 
     1052      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_rcv') 
    10531053      ! 
    10541054      CALL wrk_alloc( jpi,jpj, ztx, zty, zmsk, zemp, zqns, zqsr ) 
     
    14151415      CALL wrk_dealloc( jpi,jpj, ztx, zty, zmsk, zemp, zqns, zqsr ) 
    14161416      ! 
    1417       IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_rcv') 
     1417      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_rcv') 
    14181418      ! 
    14191419   END SUBROUTINE sbc_cpl_rcv 
     
    14611461      !!---------------------------------------------------------------------- 
    14621462      ! 
    1463       IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_ice_tau') 
     1463      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_ice_tau') 
    14641464      ! 
    14651465      CALL wrk_alloc( jpi,jpj, ztx, zty ) 
     
    16261626      CALL wrk_dealloc( jpi,jpj, ztx, zty ) 
    16271627      ! 
    1628       IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_ice_tau') 
     1628      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_ice_tau') 
    16291629      ! 
    16301630   END SUBROUTINE sbc_cpl_ice_tau 
     
    16931693      !!---------------------------------------------------------------------- 
    16941694      ! 
    1695       IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_ice_flx') 
     1695      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_ice_flx') 
    16961696      ! 
    16971697      CALL wrk_alloc( jpi,jpj,     zcptn, ztmp, zicefr, zmsk, zsnw ) 
     
    20782078      CALL wrk_dealloc( jpi,jpj,jpl, zqns_ice, zqsr_ice, zdqns_ice, zqevap_ice ) 
    20792079      ! 
    2080       IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_ice_flx') 
     2080      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_ice_flx') 
    20812081      ! 
    20822082   END SUBROUTINE sbc_cpl_ice_flx 
     
    21012101      !!---------------------------------------------------------------------- 
    21022102      ! 
    2103       IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_snd') 
     2103      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_start('sbc_cpl_snd') 
    21042104      ! 
    21052105      CALL wrk_alloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 ) 
     
    25332533      CALL wrk_dealloc( jpi,jpj,jpl, ztmp3, ztmp4 ) 
    25342534      ! 
    2535       IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_snd') 
     2535      IF( nn_timing == 1 .OR. nn_timing == 2 )  CALL timing_stop('sbc_cpl_snd') 
    25362536      ! 
    25372537   END SUBROUTINE sbc_cpl_snd 
  • branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r7563 r8887  
    194194         CALL Agrif_ParentGrid_To_ChildGrid() 
    195195         IF( lk_diaobs ) CALL dia_obs_wri 
    196          IF( nn_timing == 1 )   CALL timing_finalize 
     196         IF( nn_timing > 0 )   CALL timing_finalize 
    197197         CALL Agrif_ChildGrid_To_ParentGrid() 
    198198      ENDIF 
    199199#endif 
    200       IF( nn_timing == 1 )   CALL timing_finalize 
     200      IF( nn_timing > 0 )   CALL timing_finalize 
    201201      ! 
    202202      CALL nemo_closefile 
     
    388388      ENDIF 
    389389      ! 
    390       IF( nn_timing == 1 )  CALL timing_init 
     390      IF( nn_timing > 0 )  CALL timing_init 
    391391      ! 
    392392      !                                      ! General initialization 
Note: See TracChangeset for help on using the changeset viewer.