Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90
- Timestamp:
- 2019-10-21T09:34:11+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90
r6487 r11738 26 26 USE lib_mpp ! MPP library 27 27 USE timing ! Timing 28 29 USE yomhook, ONLY: lhook, dr_hook 30 USE parkind1, ONLY: jprb, jpim 28 31 29 32 IMPLICIT NONE … … 106 109 REAL(wp) :: zphi1, zsin_alpha, zim05, zjm05 107 110 INTEGER :: isrow ! index for ORCA1 starting row 111 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 112 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 113 REAL(KIND=jprb) :: zhook_handle 114 115 CHARACTER(LEN=*), PARAMETER :: RoutineName='DOM_HGR' 116 117 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 118 108 119 109 120 !!---------------------------------------------------------------------- … … 602 613 IF( nn_timing == 1 ) CALL timing_stop('dom_hgr') 603 614 ! 615 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 604 616 END SUBROUTINE dom_hgr 605 617 … … 618 630 619 631 INTEGER :: inum ! temporary logical unit 632 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 633 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 634 REAL(KIND=jprb) :: zhook_handle 635 636 CHARACTER(LEN=*), PARAMETER :: RoutineName='HGR_READ' 637 638 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 639 620 640 !!---------------------------------------------------------------------- 621 641 … … 677 697 END WHERE 678 698 699 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 679 700 END SUBROUTINE hgr_read 680 701
Note: See TracChangeset
for help on using the changeset viewer.