New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/timing.F90 – NEMO

Ignore:
Timestamp:
2019-10-21T09:34:11+02:00 (5 years ago)
Author:
marc
Message:

The Dr Hook changes from my perl code.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/timing.F90

    r6486 r11738  
    2424   USE lib_mpp           
    2525    
     26   USE yomhook, ONLY: lhook, dr_hook 
     27   USE parkind1, ONLY: jprb, jpim 
     28 
    2629   IMPLICIT NONE 
    2730   PRIVATE 
    … …  
    8992      !!---------------------------------------------------------------------- 
    9093      CHARACTER(len=*), INTENT(in) :: cdinfo 
     94      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     95      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     96      REAL(KIND=jprb)               :: zhook_handle 
     97 
     98      CHARACTER(LEN=*), PARAMETER :: RoutineName='TIMING_START' 
     99 
     100      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     101 
    91102      ! 
    92103        
    … …  
    115126#endif 
    116127      ! 
     128      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    117129   END SUBROUTINE timing_start 
    118130 
    … …  
    128140      INTEGER  :: ifinal_count, iperiods     
    129141      REAL(wp) :: zcpu_end, zmpitime 
     142      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     143      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     144      REAL(KIND=jprb)               :: zhook_handle 
     145 
     146      CHARACTER(LEN=*), PARAMETER :: RoutineName='TIMING_STOP' 
     147 
     148      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     149 
    130150      ! 
    131151      s_wrk => NULL() 
    … …  
    186206      s_timer%l_tdone = .TRUE. 
    187207      ! 
     208      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    188209   END SUBROUTINE timing_stop 
    189210  
    … …  
    197218      REAL(wp) :: zdum 
    198219      LOGICAL :: ll_f 
     220      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     221      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     222      REAL(KIND=jprb)               :: zhook_handle 
     223 
     224      CHARACTER(LEN=*), PARAMETER :: RoutineName='TIMING_INIT' 
     225 
     226      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     227 
    199228              
    200229      IF( ln_onefile ) THEN 
    … …  
    252281#endif                  
    253282      ! 
     283      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    254284   END SUBROUTINE timing_init 
    255285 
    … …  
    265295      LOGICAL :: ll_ord, ll_averep 
    266296      CHARACTER(len=120) :: clfmt             
     297      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     298      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     299      REAL(KIND=jprb)               :: zhook_handle 
     300 
     301      CHARACTER(LEN=*), PARAMETER :: RoutineName='TIMING_FINALIZE' 
     302 
     303      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     304 
    267305       
    268306      ll_averep = .TRUE. 
    … …  
    343381      IF( lwriter ) CLOSE(numtime)  
    344382      ! 
     383      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    345384   END SUBROUTINE timing_finalize 
    346385    
    … …  
    353392      LOGICAL :: ll_ord 
    354393      CHARACTER(len=2048) :: clfmt             
     394      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     395      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     396      REAL(KIND=jprb)               :: zhook_handle 
     397 
     398      CHARACTER(LEN=*), PARAMETER :: RoutineName='WCURRENT_INFO' 
     399 
     400      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     401 
    355402    
    356403      ! reorder the current list by elapse time       
    … …  
    392439      WRITE(numtime,*) 
    393440      !                   
     441      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    394442   END SUBROUTINE wcurrent_info 
    395443 
    … …  
    408456      LOGICAL :: ll_ord            
    409457      CHARACTER(len=200) :: clfmt               
     458      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     459      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     460      REAL(KIND=jprb)               :: zhook_handle 
     461 
     462      CHARACTER(LEN=*), PARAMETER :: RoutineName='WAVER_INFO' 
     463 
     464      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     465 
    410466                  
    411467      ! Initialised the global strucutre    
    … …  
    413469      IF(ierr /= 0)THEN 
    414470         WRITE(numtime,*) 'Failed to allocate global timing structure in waver_info' 
     471      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    415472         RETURN 
    416473      END IF 
    … …  
    422479      IF(ierr /= 0)THEN 
    423480         WRITE(numtime,*) 'Failed to allocate global timing structure in waver_info' 
     481      IF (lhook) CALL dr_hook(RoutineName,zhook_out ,zhook_handle) 
    424482         RETURN 
    425483      END IF 
    … …  
    570628      DEALLOCATE(sl_timer_glob_root) 
    571629      !                   
     630      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    572631   END SUBROUTINE waver_info 
    573632   
    … …  
    588647      CHARACTER(LEN=128)               :: clhline, clstart_date, clfinal_date 
    589648      CHARACTER(LEN=2048)              :: clfmt     
     649      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     650      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     651      REAL(KIND=jprb)               :: zhook_handle 
     652 
     653      CHARACTER(LEN=*), PARAMETER :: RoutineName='WMPI_INFO' 
     654 
     655      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     656 
    590657    
    591658      ! Gather all times 
    … …  
    637704      DEALLOCATE(zall_ratio, iall_rank) 
    638705      ! 
     706      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    639707   END SUBROUTINE wmpi_info 
    640708#endif    
    … …  
    648716      CHARACTER(len=*), INTENT(in) :: cdinfo 
    649717      LOGICAL :: ll_section 
     718      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     719      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     720      REAL(KIND=jprb)               :: zhook_handle 
     721 
     722      CHARACTER(LEN=*), PARAMETER :: RoutineName='TIMING_INI_VAR' 
     723 
     724      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     725 
    650726        
    651727      ! 
    … …  
    723799      ENDIF          
    724800      ! 
     801      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    725802   END SUBROUTINE timing_ini_var 
    726803 
    727804 
    728805   SUBROUTINE timing_reset 
     806   INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     807   INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     808   REAL(KIND=jprb)               :: zhook_handle 
     809 
     810   CHARACTER(LEN=*), PARAMETER :: RoutineName='TIMING_RESET' 
     811 
     812   IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     813 
    729814      !!---------------------------------------------------------------------- 
    730815      !!               ***  ROUTINE timing_reset  *** 
    … …  
    738823!      WRITE(numout,*) 
    739824      ! 
     825   IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    740826   END SUBROUTINE timing_reset 
    741827 
    … …  
    757843      !!---------------------------------------------------------------------- 
    758844      TYPE(timer), POINTER, INTENT(inout) :: sd_current, sd_root, sd_ptr 
     845      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     846      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     847      REAL(KIND=jprb)               :: zhook_handle 
     848 
     849      CHARACTER(LEN=*), PARAMETER :: RoutineName='INSERT' 
     850 
     851      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     852 
    759853      ! 
    760854      
    … …  
    774868      sd_ptr => NULL() 
    775869      !     
     870      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    776871   END SUBROUTINE insert 
    777872   
    … …  
    785880      ! 
    786881      TYPE(timer), POINTER :: sl_temp 
     882      INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 
     883      INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 
     884      REAL(KIND=jprb)               :: zhook_handle 
     885 
     886      CHARACTER(LEN=*), PARAMETER :: RoutineName='SUPPRESS' 
     887 
     888      IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 
     889 
    787890     
    788891      sl_temp => sd_ptr 
    … …  
    792895      sl_temp => NULL() 
    793896      ! 
     897      IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 
    794898    END SUBROUTINE suppress 
    795899 
Note: See TracChangeset for help on using the changeset viewer.