Changeset 11738 for branches/UKMO/dev_r5518_GO6_under_ice_relax_dr_hook/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.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/DIA/diaptr.F90
r10047 r11738 29 29 USE timing ! preformance summary 30 30 31 USE yomhook, ONLY: lhook, dr_hook 32 USE parkind1, ONLY: jprb, jpim 33 31 34 IMPLICIT NONE 32 35 PRIVATE … … 97 100 98 101 CHARACTER( len = 12 ) :: cl1 102 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 103 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 104 REAL(KIND=jprb) :: zhook_handle 105 106 CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_PTR' 107 108 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 109 99 110 !!---------------------------------------------------------------------- 100 111 ! … … 446 457 IF( nn_timing == 1 ) CALL timing_stop('dia_ptr') 447 458 ! 459 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 448 460 END SUBROUTINE dia_ptr 449 461 … … 460 472 !! 461 473 NAMELIST/namptr/ ln_diaptr, ln_subbas 474 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 475 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 476 REAL(KIND=jprb) :: zhook_handle 477 478 CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_PTR_INIT' 479 480 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 481 462 482 !!---------------------------------------------------------------------- 463 483 … … 528 548 ENDIF 529 549 ! 550 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 530 551 END SUBROUTINE dia_ptr_init 531 552 … … 541 562 REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in) :: pva ! 3D input array of advection/diffusion 542 563 INTEGER :: jn ! 564 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 565 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 566 REAL(KIND=jprb) :: zhook_handle 567 568 CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_PTR_OHST_COMPONENTS' 569 570 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 571 543 572 544 573 IF( cptr == 'adv' ) THEN … … 611 640 ! 612 641 ENDIF 642 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 613 643 END SUBROUTINE dia_ptr_ohst_components 614 644 … … 620 650 INTEGER :: dia_ptr_alloc ! return value 621 651 INTEGER, DIMENSION(3) :: ierr 652 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 653 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 654 REAL(KIND=jprb) :: zhook_handle 655 656 CHARACTER(LEN=*), PARAMETER :: RoutineName='DIA_PTR_ALLOC' 657 658 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 659 622 660 !!---------------------------------------------------------------------- 623 661 ierr(:) = 0 … … 639 677 IF(lk_mpp) CALL mpp_sum( dia_ptr_alloc ) 640 678 ! 679 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 641 680 END FUNCTION dia_ptr_alloc 642 681 … … 659 698 INTEGER :: ijpj ! ??? 660 699 REAL(wp), POINTER, DIMENSION(:) :: p_fval ! function value 700 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 701 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 702 REAL(KIND=jprb) :: zhook_handle 703 704 CHARACTER(LEN=*), PARAMETER :: RoutineName='PTR_SJ_3D' 705 706 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 707 661 708 !!-------------------------------------------------------------------- 662 709 ! … … 686 733 #endif 687 734 ! 735 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 688 736 END FUNCTION ptr_sj_3d 689 737 … … 706 754 INTEGER :: ijpj ! ??? 707 755 REAL(wp), POINTER, DIMENSION(:) :: p_fval ! function value 756 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 757 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 758 REAL(KIND=jprb) :: zhook_handle 759 760 CHARACTER(LEN=*), PARAMETER :: RoutineName='PTR_SJ_2D' 761 762 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 763 708 764 !!-------------------------------------------------------------------- 709 765 ! … … 729 785 #endif 730 786 ! 787 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 731 788 END FUNCTION ptr_sj_2d 732 789 … … 743 800 !!---------------------------------------------------------------------- 744 801 !! 802 USE yomhook, ONLY: lhook, dr_hook 803 USE parkind1, ONLY: jprb, jpim 804 745 805 IMPLICIT none 746 806 REAL(wp) , INTENT(in), DIMENSION(jpi,jpj,jpk) :: pta ! mask flux array at V-point … … 754 814 INTEGER :: ijpjjpk 755 815 REAL(wp), DIMENSION(jpj*jpk) :: zwork ! mask flux array at V-point 816 INTEGER(KIND=jpim), PARAMETER :: zhook_in = 0 817 INTEGER(KIND=jpim), PARAMETER :: zhook_out = 1 818 REAL(KIND=jprb) :: zhook_handle 819 820 CHARACTER(LEN=*), PARAMETER :: RoutineName='PTR_SJK' 821 822 IF (lhook) CALL dr_hook(RoutineName,zhook_in,zhook_handle) 823 756 824 #endif 757 825 !!-------------------------------------------------------------------- … … 789 857 ! 790 858 859 IF (lhook) CALL dr_hook(RoutineName,zhook_out,zhook_handle) 791 860 END FUNCTION ptr_sjk 792 861
Note: See TracChangeset
for help on using the changeset viewer.