Changeset 2771


Ignore:
Timestamp:
2011-05-31T17:05:34+02:00 (9 years ago)
Author:
rblod
Message:

First implementation of timing, with tvd as an example, see ticket #829

Location:
branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM
Files:
1 added
9 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/CONFIG/GYRE/EXP00/namelist

    r2715 r2771  
    703703!----------------------------------------------------------------------- 
    704704   ln_ctl      = .false.   !  trends control print (expensive!) 
     705   ln_timing   = .false.   !  timing output 
    705706   nn_print    =    0      !  level of print (0 no extra print) 
    706707   nn_ictls    =    0      !  start i indice of control sum (use to compare mono versus 
  • branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/1_namelist

    r2735 r2771  
    708708!----------------------------------------------------------------------- 
    709709   ln_ctl      = .false.   !  trends control print (expensive!) 
     710   ln_timing   = .false.   !  timing output 
    710711   nn_print    =    0      !  level of print (0 no extra print) 
    711712   nn_ictls    =    0      !  start i indice of control sum (use to compare mono versus 
  • branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/namelist

    r2715 r2771  
    703703!----------------------------------------------------------------------- 
    704704   ln_ctl      = .false.   !  trends control print (expensive!) 
     705   ln_timing   = .false.   !  timing output 
    705706   nn_print    =    0      !  level of print (0 no extra print) 
    706707   nn_ictls    =    0      !  start i indice of control sum (use to compare mono versus 
  • branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/CONFIG/POMME/EXP00/namelist

    r2650 r2771  
    708708!----------------------------------------------------------------------- 
    709709   ln_ctl      = .false.   !  trends control print (expensive!) 
     710   ln_timing   = .false.   !  timing output 
    710711   nn_print    =    0      !  level of print (0 no extra print) 
    711712   nn_ictls    =    0      !  start i indice of control sum (use to compare mono versus 
  • branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r2715 r2771  
    8787   !!---------------------------------------------------------------------- 
    8888   LOGICAL ::   ln_ctl     = .FALSE.   !: run control for debugging 
     89   LOGICAL ::   ln_timing  = .FALSE.   !: run control for timing  
    8990   INTEGER ::   nn_print     =    0    !: level of print (0 no print) 
    9091   INTEGER ::   nn_ictls     =    0    !: Start i indice for the SUM control 
     
    111112   INTEGER ::   numevo_ice =   -1      !: logical unit for ice variables (temp. evolution) 
    112113   INTEGER ::   numsol     =   -1      !: logical unit for solver statistics 
     114   INTEGER ::   numtime    =   -1      !: logical unit for timing statistics 
    113115 
    114116   !!---------------------------------------------------------------------- 
  • branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90

    r2715 r2771  
    3232   USE diaptr          ! poleward transport diagnostics 
    3333   USE trc_oce         ! share passive tracers/Ocean variables 
    34  
     34   USE timing          ! preformance summary 
    3535 
    3636   IMPLICIT NONE 
     
    8484      REAL(wp), DIMENSION (:,:,:), ALLOCATABLE ::   ztrdx, ztrdy, ztrdz 
    8585      !!---------------------------------------------------------------------- 
     86 
     87      IF( ln_timing )   CALL timing_start('traadv_tvd') 
    8688 
    8789      IF( wrk_in_use(3, 12,13) ) THEN 
     
    247249      IF( wrk_not_released(3, 12,13) )   CALL ctl_stop('tra_adv_tvd: failed to release workspace arrays') 
    248250      ! 
     251      IF( ln_timing )   CALL timing_stop('traadv_tvd') 
     252      ! 
    249253   END SUBROUTINE tra_adv_tvd 
    250254 
     
    277281      !!---------------------------------------------------------------------- 
    278282 
     283      IF( ln_timing )   CALL timing_start('nonosc') 
     284 
    279285      IF( wrk_in_use(3, 8,9,10,11) ) THEN 
    280286         CALL ctl_stop('nonosc: requested workspace array unavailable')   ;   RETURN 
     
    361367      IF( wrk_not_released(3, 8,9,10,11) )   CALL ctl_stop('nonosc: failed to release workspace arrays') 
    362368      ! 
     369      IF( ln_timing )   CALL timing_stop('nonosc') 
     370      ! 
    363371   END SUBROUTINE nonosc 
    364372 
  • branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r2715 r2771  
    171171      ENDIF 
    172172      ! 
     173      IF( ln_timing )   CALL timing_finalize 
     174      ! 
    173175      CALL nemo_closefile 
    174176#if defined key_oasis3 || defined key_oasis4 
     
    191193      CHARACTER(len=80), DIMENSION(16) ::   cltxt 
    192194      !! 
    193       NAMELIST/namctl/ ln_ctl  , nn_print, nn_ictls, nn_ictle,   & 
    194          &             nn_isplt, nn_jsplt, nn_jctls, nn_jctle, nn_bench 
     195      NAMELIST/namctl/ ln_ctl  , ln_timing, nn_ictls, nn_ictle,   & 
     196         &             nn_isplt, nn_jsplt , nn_jctls, nn_jctle,   & 
     197         &             nn_bench, nn_print 
    195198      !!---------------------------------------------------------------------- 
    196199      ! 
     
    286289      ENDIF 
    287290      ! 
     291      IF( ln_timing     )   CALL timing_init  
     292      ! 
    288293      !                                      ! General initialization 
    289294                            CALL     phy_cst    ! Physical constants 
     
    373378         WRITE(numout,*) '   Namelist namctl' 
    374379         WRITE(numout,*) '      run control (for debugging)     ln_ctl     = ', ln_ctl 
     380         WRITE(numout,*) '      run timing                      ln_timing  = ', ln_timing 
    375381         WRITE(numout,*) '      level of print                  nn_print   = ', nn_print 
    376382         WRITE(numout,*) '      Start i indice for SUM control  nn_ictls   = ', nn_ictls 
  • branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/step.F90

    r2715 r2771  
    264264      IF( lk_cpl           )   CALL sbc_cpl_snd( kstp )     ! coupled mode : field exchanges 
    265265      ! 
     266      IF( kstp == nit000 .AND. ln_timing        )   CALL timing_reset 
    266267      ! 
    267268   END SUBROUTINE stp 
  • branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

    r2528 r2771  
    9696   USE diaobs           ! Observation operator 
    9797 
     98   USE timing           ! Timing 
     99 
    98100#if defined key_agrif 
    99101   USE agrif_opa_sponge ! Momemtum and tracers sponges 
Note: See TracChangeset for help on using the changeset viewer.